請問當複製功能被取消的時候如何複製網址到delphi? |
|
尚未結案
|
|
dopopodo
一般會員   發表：2 回覆：1 積分：0 註冊：2005-08-01 發送簡訊給我 |
||
|
chris_shieh
高階會員  發表：46 回覆：308 積分：240 註冊：2004-04-26 發送簡訊給我 |
自己放一個TWebBrowser, TMemo 在Form上面
放一個TEdit 當作網址列
利用TWebBrowser的OnStatusTextChange事件
捕捉StatusBar上面的文字
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SHDocVw; type
TForm1 = class(TForm)
Memo1: TMemo;
WebBrowser1: TWebBrowser;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end; procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
Memo1.Lines.Add(Text);
end; end. ＠瞭解越多.懂得越少＠ 發表人 - Chris_Shieh 於 2005/09/09 00:32:54
|
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
建議也可以用解析原始檔。
利用 HTTP 將該網頁下載後解析內容。
如：
..
以上僅提供參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～ 發表人 - wameng 於 2005/09/09 01:00:23 |
|
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2005-09-08 16:56:31
IP:219.88.xxx.xxx 未訂閱
系統時間：2024-05-10 8:53:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |