so ich hab halt wieder ein problem mit dem Mozilla Activx Control von
http://www.iol.ie/~locka/mozilla/mozilla.htm
Jetzt hatte ich mir auch mal die Source von Mozilla geholt und da gibts ja mehrere Beispiele für unterschiedliche sprachen und da bin ich zufällig auf C# gestossen , in dem es möglich ist einen Header zu senden.
Leider ist dies so einfach wohl nicht möglich in Delphi 7
Hier in C# , was denn Header Referer sendet
Delphi-Quellcode:
private void button1_Click(
object sender, System.EventArgs e)
{
object oEmpty = "";
object vHeaders = "Referer:http://eine.url.de\r\n";
axMozillaBrowser1.Navigate(url.Text, ref oEmpty, ref oEmpty, ref vPost, ref vHeaders );
}
in Delphi 7 mit TWebbrowser geht das , aber mit TMozillaBrowser halt nicht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
vFlags,vFrame,vPostData,vHeaders : OleVariant;
vURL :string;
begin
vURL := 'http://pgl.yoyo.org/http/browser-headers.php';
vHeaders := 'Referer:http://eine.url.de'+ #10#13;
IE_WEB.Navigate(vURL,vFlags,vFrame,vPostData,vHeaders);
MOZ_WEB.Navigate(vURL,vFlags,vFrame,vPostData,vHeaders);
end;
Hat jemand eine Idee woran das liegen könnte?