Навигация в TWebbrowser по линкам
Falk0ner, вс, 06/07/2008 - 15:35.
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;
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
Отправить комментарий