Delphi ile Web Browser Programi
type
Tweb = class(TForm) WebBrowser1: TWebBrowser; Panel1: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; Edit1: TEdit; Edit2: TEdit; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure WebBrowser1TitleChange(Sender: TObject; const Text: WideString); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); private { Private declarations } public { Public declarations } end; var web: Tweb; implementation {$R *.dfm} procedure Tweb.SpeedButton1Click(Sender: TObject); var a,b,c,d:OLEVariant; begin WebBrowser1.Navigate(Edit1.Text,a,b,c,d); end; procedure Tweb.SpeedButton2Click(Sender: TObject); begin WebBrowser1.GoBack; end; procedure Tweb.SpeedButton3Click(Sender: TObject); begin WebBrowser1.GoForward; end; procedure Tweb.SpeedButton4Click(Sender: TObject); begin WebBrowser1.GoHome; end; procedure Tweb.FormCreate(Sender: TObject); var a,b,c,d:OLEVariant; begin WebBrowser1.Navigate(Edit1.Text,a,b,c,d); end; procedure Tweb.WebBrowser1TitleChange(Sender: TObject; const Text: WideString); begin Edit2.Text:=Text; end; procedure Tweb.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin Edit1.Text:=URL; ShowMessage('gstedigin URL Yuklendi.'); end; end. |
konuyla ilgili değil ama Delphi ile web tasarım/programlama ile ilgili birazcık bilgi verirsen sevinirim.
|
konu olarak açık
Delphi.NET ile Web Programlama |
Abicim şunları biraz daha detaylı yazarsan üyelerimiz.için daha olacak ....
|
Alıntı:
bu kadar açıkmı :):):) yoksa daha açimmiiii :) |
yoq gayet açık ... hakkaten çoq iyi açmışsın....:D:D:D
erhan bey hürmetler .. |
emeğine sağlık kardeş... :1: teşekkürler....
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 18:31 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.