WebBrowser Delphi 7
Собственно наверно спрашиваю чушь. В программе надо подгрузить сайт. Пишу что то вроде.. .
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://yandex.ru');
end;
end.
При компиляции указывается на ошибку после слова end. в пустых строчках. Собственно кто знает что за ошибка, и будет ли работать то что я накалякал, помогите. Спасибо.
sm ротик то прикрой свой.
Компилятор выдаёт
[Fatal Error] Unit1.pas(35): Write error on 'Unit1.dcu'
Всем спасибо. Нашёл ошибку) Забыл сначала сохранить. Дельфи для меня среда новая, плохо ориентируюсь. А так опыт 4 года программирования.
вроде должно работать. Если неразберетесь, то маякните в коменты. Щас поищу исходники.
видимо, у вас проект несохранен корректно, или пути непрописаны. Код правильный
а вот, если что, скину полный пакет (Делфи 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.
Все должно работать. Может среда левая и нерабочая у вас?
Ваш вариант работает, попробуйте сохранить данный проект в новой папке например на диске D