TidHTTP.Get - Keine GET Variablen?

**xSkaschY**

Morgen,

habe gerade ein Problem, welches mir so noch nie unter die Augen getreten ist.

Ich wollte eigentlich ein ein PHP-Script aufrufen, welches mich einen Securitykey für die GamespyMaster-Server generiert, anhand des schon erhaltenen Basickeys und des Handoff Code.

Nunja, simple to do?

Aufruf:

markieren

Delphi-Quellcode:

			try

   httpObject := TIdhttp.Create(nil);

   try

      vkey := httpObject.Get('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey);

   finally

      httpObject.Free;

   end;

except // Ich bin Paranoid.

   Memo1.Lines.Add('An error encountered while receiving the security key.');

end;

Ich bekomme, ohne das try-except handling eine unwillkommene Error Msg mit dem Aufschluss reichen text

markieren

Code:

<html>.

Wenn ich das Script im Browser öffne, funktioniert alles wunderbar!

(TEST:

http://glevel.sky-networx.net/glaaoq...hp?skey=QSBGSJ)

secureKey ist in dem Fall QSBGSJ (Überprüft).

Weiss jemand warum des sich weigert?

Bis dahin *Kaffeetasse heb*

**mkinzler**

Kann es sein, daß der Browser ausgewertet wird?

**TwoFace**

Servus

Also wenn ich die Zeile
memo1.lines.add(vkey); nach
vkey := httpObject.Get('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey); einfüge steht im Memo eine Buchstaben- / Zahlenkombination.

Greetz

**xSkaschY**

Zitat von TwoFace:

Servus

Also wenn ich die Zeile
memo1.lines.add(vkey); nach
vkey := httpObject.Get('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey); einfüge steht im Memo eine Buchstaben- / Zahlenkombination.

Greetz

Genau das habe ich mir auch gedacht, aber stattdessen Poppt mich der Error-MsgDlg mit "<html>." an.

Hier mal die ganze Procedure...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tserversearch.createRequest();

var secureKey: string;

    handoff: string;

    vkey: string;

    httpObject: TidHTTP;

begin

     handoff := 'xxxxxxx';

     masterConnection.Host := masterHost;

     masterConnection.Port := masterPort;

     masterConnection.Connect;

     if masterConnection.Connected then begin

        masterConnection.Write('\xxxxxxxxx');

        secureKey := StringReplace(masterConnection.AllData, '\basic\\secure\', '', [rfReplaceAll]);

        Memo1.Lines.Add('Secure-Key: ' + secureKey);

        Memo1.Lines.Add('Handoff: ' + handoff);

        Memo1.Lines.Add('Generating vKey...');

        Memo1.Lines.Add('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey);

        try

           httpObject := TIdhttp.Create(nil);

           try

              vkey := httpObject.Get('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey);

           finally

              httpObject.Free;

           end;

        except

              Memo1.Lines.Add('An error encountered while receiving the security key.');

        end;

        Memo1.Lines.Add(vkey);

        Memo1.Lines.Add('----------------------------');

     end else begin

         ShowMessage('Der Masterserver scheint offline zu sein...' + #13+#10 + 'Bitte versuche es später nochmal.');

     end;

end;

**xSkaschY**

Zitat von mkinzler:

Kann es sein, daß der Browser ausgewertet wird?

Bitte was ?

**mkinzler**

Jeder Browser gibt ja seinen Bezeichnung als String mit, auch INDY. Kann es aber nicht sein, da es ja bei TwoFace zu funktionieren scheint.

**xSkaschY**

In dem PHP-Script ist definitiv keine Browser überprüfung, da des Script von mir ist.

Jedoch verstehe ich nicht warum es bei Ihm funktioniert und bei mir nicht.

**TwoFace**

Servus

Probiers mal mit einem Entwurfszeit-idhttp. Evtl. liegt ja der Fehler nicht in deinem Programm sondern an deinem System.
Öffne ein neues Projekt. Auf das Form ziehst du nur einen IdHttp client, einen Button und ein Label ist. Schreib in die OnClick Prozedur des Buttons folgendes:

markieren

Delphi-Quellcode:

			var

  securekey, vkey: string;

begin

  securekey := 'QSBGSJ';

  vkey := idhttp1.Get('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey);

  label1.caption := vkey;

end;

Oder bekommst du dann auch die lustige Fehlermeldung

Greetz

**xSkaschY**

Strange, so gehts !

What the hell is wrong ?

Edit:

Wenn ich jetzt in meinem Projekt die TidHTTP auf Form schmeisse und des so mache, gibs immer noch den gleichen Fehler!

Edit2:

Noch lustiger is, wenn ich secureKey hardcoder reinpacke, gehts. Anders nid! Aber die Variable ist definiert !

Bekomme ja in meinem Memo als debug dieses zurück:

markieren

Code:

			Secure-Key: VLKPWS

Handoff: d4kZca

Generating vKey...

[url]http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=VLKPWS[/url]

----------------------------

**xSkaschY**

*push*

No Solutions ?

Wäre es möglich das ganze über sockets zuregeln? Stichwort: HTTP-Header und son quatsch?

LG Toby

P.S: Ich wünsche der Delphi-Praxis Community ein frohes neues Jahr 2007.

TidHTTP.Get - Keine GET Variablen?

TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Re: TidHTTP.Get - Keine GET Variablen?

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#2 Re: TidHTTP.Get - Keine GET Variablen? 30. Dez 2006, 11:38 Kann es sein, daß der Browser ausgewertet wird? Markus Kinzler
	Zitat

TwoFace Registriert seit: 21. Jun 2003 Ort: Uffenheim 26 Beiträge	#3 Re: TidHTTP.Get - Keine GET Variablen? 30. Dez 2006, 11:46 Servus Also wenn ich die Zeile memo1.lines.add(vkey); nach vkey := httpObject.Get('http://glevel.sky-networx.net/glaaoqc/gs/createvkey.php?skey=' + secureKey); einfüge steht im Memo eine Buchstaben- / Zahlenkombination. Greetz
	Zitat

xSkaschY Registriert seit: 19. Jun 2006 Ort: Bünde 95 Beiträge Delphi 2007 Professional	#5 Re: TidHTTP.Get - Keine GET Variablen? 30. Dez 2006, 12:12 Zitat von mkinzler: Kann es sein, daß der Browser ausgewertet wird? Bitte was ?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.858 Beiträge Delphi 11 Alexandria	#6 Re: TidHTTP.Get - Keine GET Variablen? 30. Dez 2006, 13:48 Jeder Browser gibt ja seinen Bezeichnung als String mit, auch INDY. Kann es aber nicht sein, da es ja bei TwoFace zu funktionieren scheint. Markus Kinzler
	Zitat

xSkaschY Registriert seit: 19. Jun 2006 Ort: Bünde 95 Beiträge Delphi 2007 Professional	#7 Re: TidHTTP.Get - Keine GET Variablen? 30. Dez 2006, 13:50 In dem PHP-Script ist definitiv keine Browser überprüfung, da des Script von mir ist. Jedoch verstehe ich nicht warum es bei Ihm funktioniert und bei mir nicht.
	Zitat

xSkaschY Registriert seit: 19. Jun 2006 Ort: Bünde 95 Beiträge Delphi 2007 Professional	#10 Re: TidHTTP.Get - Keine GET Variablen? 1. Jan 2007, 16:39 push No Solutions ? Wäre es möglich das ganze über sockets zuregeln? Stichwort: HTTP-Header und son quatsch? LG Toby P.S: Ich wünsche der Delphi-Praxis Community ein frohes neues Jahr 2007.
	Zitat