Ошибка LocationURL

[tap1x]

VCL

[tap1x]

Есть ли какой то другой способ сделать историю браузера?

[kropotkina-alice]

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

тогда как мне узнать url открытой страницы в webbrowser'е ?

Свойство LocationName никак не поможет отцу русской демократии?
Или вы клавишей F1 не пользуетесь по религиозным соображениям?

[tap1x]

С LocationName та же ошибка что и с LocationURL

[kropotkina-alice]

А версию вашей Делфи вам мама запретила рассказывать незнакомым людям?

[tap1x]

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

Делаю браузер на делфи(Rad Studio XE8)столкнулся с проблемой создание истории для браузера.Выдает ошибку на LocationURL

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;

помогите плиз

Я писал

[Aliens_wolfs]

Ошибка ваша в переменной var a:variant;

Попробуйте сделать так var a: AnsiString;

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var 
a: AnsiString;
t:Textfile;
begin
a:=Webbrowser1.LocationURL;
............................................

[kropotkina-alice]

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

Я писал

Ох, простите, я проглядела...