Einzelnen Beitrag anzeigen

quakergod

Registriert seit: 20. Mär 2003
Ort: NRW
129 Beiträge
 
Delphi 7 Enterprise
 
#1

TWebBrowser & eigener Referer

  Alt 30. Nov 2004, 16:58
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 ?
I love Delphi-Praxis !
  Mit Zitat antworten Zitat