TWebBrowser & eigener Referer

[toms]

Hier mal ein Beispiel

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
begin
  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := 'http://www.slotcar-shop-aurach.de/relaunch/tellafriend/index.php';
  Ref := 'http://www.slotcar-shop-aurach.de';
  // Die Seite kann nicht angeyeigt werden, ohne Angabe des Referers Ref.
  Headers := 'Referer: ' + Ref + #10 + #13;
  Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;