История браузера написанного в Delphi

[LamboKun]

помогите плз. как можно в файл записать ту ссылку которая была использована компонентом Webbrowser . Зарание спс

[Valio]

Смотри его события. У него там есть событие смены ссылки. ЛокейшинЮРЛ или онКомплит там. Погугли все что есть.

[Veronikaa]

procedure TForm3.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
      Caption:=WebBrowser1.LocationName;
end;

[LamboKun]

Сообщение от Veronikaa

procedure TForm3.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
      Caption:=WebBrowser1.LocationName;
end;

а куда это вставить я что то не пойму .?

[LamboKun]

нашол куда... и ничего даже если исользовать это переменную он мне запихивает в файл название программы

[LamboKun]

procedure TForm1.WebBrowser1NavigateComplete2 (Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);

var a:variant;
t:Textfile;
begin
a:=Webbrowser1.Locationurl;
AssignFile(t,'History.txt');
Append(t);
Writeln(t,a);
CloseFile(t);
end;

end.
вот оно оно заработало