掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
URLを取得するには？ (ID：2331)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になってます！DdeClientConvで，ブラウザからURLを取得したいと考えています。ネットで調べて以下のコードを書いたのですがうまくいきません。 Button1を押したら，TWebBrowserで表示しているURLを，Edit1.textに表示。 procedure TForm1.Button1Click(Sender: TObject); const Browser='WebBrowser1'; var DDE:TDDECLientConv; TempChar:PChar; url:string; intPos:integer; begin DDE:=TDDEClientConv.Create(nil); with DDE do begin if SetLink(Browser,'WWW_GetWindowInfo') then begin TempChar:=RequestData('0xFFFFFFFF'); url:=StrPas(TempChar); intPos:=Pos(',',url); url:=Copy(url,2,intPos-3); Edit1.Text:=url; StrDispose(TempChar); CloseLink; end; end; DDE.Free; end; どうすればいいのでしょうか？どなたか教えて下さいm(_ _)m
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.