webbrowser -> referer ?

0

juz dawalem ten temat przed chwila ale albo sie cos skopalo albo jakis mod go usunala... jesli to 2 to czemu?!

szukalem w wyszukiwarce "navigate referer" (google)
i nic nie znalazl konkretnego.... a jesli szukam programowa na forum to znajduje tego tyle ze nie sposob tego wszystkiego przegladnac!!!

wiec pytam:

jak otworzyc jakas strone poprzez TWebBrowser ustawiajac jakis HTTP_REFERER. bo domyslnie przez Naviagte('url.com') nic takiego nie jest przesyalne...

0

ten wyzej to ja :P

ok juz sobie poradzilem, ale wrzuce tu jakby ktos kiedys potrzebowal:

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.Top := 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;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0