TWebBrowser & eigener Referer

[quakergod]

hi, kann ich einen eigenen referer im twebbrowser angeben wenn ich eine seite öffne?

hab ein bisschen gegoogelt und das hier gefunden:

Delphi-Quellcode:

        // SHDocVw muss in die Uses Liste

 var
   Flags, Headers, TargetFrameName, PostData: oleVariant;
   url,ref: string;
   webbrowser: TWebBrowser;

begin
          Try=
          webbrowser := TWebBrowser.Create(nil);
          Flags := 1;
          TargetFrameName := '';
          PostData : '';
          Url:=Edit1.text;
          Ref:=Edit2.text;

          Headers := 'Referer: ' + Ref+#10+#13;

          webbrowser.Navigate( url, Flags, TargetFrameName, PostData, Headers );
          finally
          webbrowser.Free;
          end;    
end;

der öffnet dann aber den IE und das will ich nicht.. ich schaffs nicht das er das beim twebbrowser macht ? :gruebel:

[shmia]

TWebBrowser ist ein OleControl.
Deshalb funktioniert es nicht richtig, wenn du es ohne ein Formular (sozusagen in der Luft)
erstellst.

[quakergod]

Zitat:

Zitat von shmia

TWebBrowser ist ein OleControl.
Deshalb funktioniert es nicht richtig, wenn du es ohne ein Formular (sozusagen in der Luft)
erstellst.

mhm, und wo finde ich infos wie ich ein formular "in der luft erstelle" und einen eigenen referer angebe? :)

[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;