How to catch URL of the browser? |
答題得分者是:hagar
|
ralph
初階會員 發表:41 回覆:82 積分:29 註冊:2003-02-04 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
ralph
初階會員 發表:41 回覆:82 積分:29 註冊:2003-02-04 發送簡訊給我 |
Hi Hagar: For first two answers, I tried them before.
But I got the URL like ("http://www.yahoo.com","Yahoo")
It is not what I want. I want it is extactly like http://www.yahoo.com For third answers, I try it, but I got nothing. Do you have any idea? Thank you!
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
小弟在網路上看得懂的幾篇
沒看到只取 URL 不取 Title 的
因此處理方式為將回傳結果的字串做處理
程式碼如下:
var DdeClientConv: TDdeClientConv; Temp: string; URL: string; Title: string; begin DdeClientConv := TDdeClientConv.Create(self); with DdeClientConv do begin if SetLink('IExplore', 'WWW_GetWindowInfo')then Temp := RequestData('0xFFFFFFFF,sURL,sTitle'); while Pos('"', Temp) > 0 do Delete(Temp, Pos('"', Temp), 1); // 將回傳結果中的雙引號刪除 // 以逗號為判斷, 將 Temp 分成 URL 與 Title 字串 URL := Copy(Temp, 1, Pos(',', Temp)-1); Title := Copy(Temp, Pos(',', Temp) 1, Length(Temp)); ShowMessage('URL: ' URL); ShowMessage('Title: ' Title); end; DdeClientConv.Free; end;--- 每個人都是一本書 |
ralph
初階會員 發表:41 回覆:82 積分:29 註冊:2003-02-04 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |