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 ....

şu anki sayfada yukarda geri tuşuna basın karşınıza gelecek Visual Basic, Delphi, C++ Ve Diğer Diller > başlığı altında delphi ile web programcılığı adı altında konu açılmıştır konu sırası şu anlık 6 yani 6. sırada bulunuyor bilgilerinzie sunuyorum


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 ..

paylaşım için tşkrlr