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