delphi webbrowser

Ответ от Gruz[гуру]
вроде должно работать. Если неразберетесь, то маякните в коменты. Щас поищу исходники. видимо, у вас проект несохранен корректно, или пути непрописаны. Код правильный а вот, если что, скину полный пакет (Делфи 7) unit wexpl; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, OleCtrls, SHDocVw, GR32_Image, G32_Button, G32_ProgressBar; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Memo1: TMemo; Bevel1: TBevel; G32_Button1: TG32_Button; Edit1: TEdit; G32_Button2: TG32_Button; Edit2: TEdit; G32_ProgressBar1: TG32_ProgressBar; G32_Button3: TG32_Button; OpenDialog1: TOpenDialog; procedure G32_Button1Click(Sender: TObject); procedure G32_Button2Click(Sender: TObject); procedure G32_Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.G32_Button1Click(Sender: TObject); begin memo1.Lines.savetofile(edit2.text); edit1.Text:=edit2.text; WebBrowser1.Navigate(edit1.text); end; procedure TForm1.G32_Button2Click(Sender: TObject); var i :integer; begin WebBrowser1.Navigate(edit1.text); for i:=1 to 100 do begin sleep(1); G32_progressbar1.Position:=i; end; end; procedure TForm1.G32_Button3Click(Sender: TObject); begin if not opendialog1.execute then EXIT; edit1.text:=opendialog1.filename; end; end.