Навигация в TWebbrowser по линкам

procedure TForm1.Button1Click(Sender: TObject);
var
 Flags, Headers, TargetFrameName, PostData: OLEVariant;
 Url, Ref: string;
 IEApp: OLEVariant;
begin
 try
  IEApp := CreateOLEObject('InternetExplorer.Application');
 except
  Exit;
 end;
 IEApp.Visible := True;
 IEApp. := 0;
 IEApp.Left := 0;
 IEApp.Width := Screen.Width;
 IEApp.Height := Screen.Height;
 Flags := '1';
 TargetFrameName := '';
 PostData := '';
 Url := 'http://www.dach.de/weiterempfehlen.php';
 Ref := 'http://www.dach.de/';
 // u cannot navigate to the url above without this referer
 Headers := 'Referer: ' + Ref + #10 + #13;
 IEApp.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...