Hallo,
erstmal HTTP 1.1 / 301:
1.1 ist die
HTTP Version, die der Server verwendet.
301 ist eine
Statusmeldung, die der Server meldet, wenn etwas passiert ist. 301 Moved Permanently bedeutet, dass die Seite auf diesem Server nicht mehr verfügbar is6t. Meistens steht im Browser dann auhc noch dabei, wohin diese seite umgezogen ist. Hier kannst du die Statusmeldungen nochmal nachlesen:
Link
Dann zu deinem anderen Problem: Vielleicht hilft dir das hier:
Delphi-Quellcode:
function SendPostData(Ahttp: TIdHTTP;
const AtoURL:
String;
const aParams: TStrings):
String;
//Funktion zum senden von Postdaten mit den Indys
//Ahttp: Die HTTP Komponente von Indy 8.0 bzw. 9.0
//AtoURL: An diese URL werden die Informationen gesendet
//Result: HTML-Ergebnis (Antwort des Scripts)
Var
lStream: TMemoryStream;
//HTML-Result des PHP-Scripts
lParams: TStringStream;
I: Integer;
begin
Result:='
';
if not Assigned(aHttp)
then
exit;
lStream := TMemoryStream.create;
lParams := TStringStream.create('
');
try
AHTTP.Request.ContentType := '
application/x-www-form-urlencoded';
//Dieser Stream wird letztendlich gesendet
//Stream mit Werten füllen
for I:=0
to aParams.Count-1
do
lParams.WriteString(aParams[I] + '
&');
try
//Stream an das PHP-Script senden
AHTTP.Post(AtoURL,
lParams,
lStream);
except
on E:
Exception do
showmessage('
Fehler bei der Übertragung: ' + E.
Message);
end;
SetLength(Result,lStream.Size);
lStream.Position:=0;
lStream.ReadBuffer(Result[1],lStream.Size);
finally
lParams.Free;
lStream.Free;
end;
end;
procedure SendHighscore;
//So wird die Funktion aufgerufen
var
sList: TStringlist;
URI: TidURI;
begin
sList:=TStringList.Create;
try
URI := TIdURI.Create('
');
sList.Add(IdURI.TIdURI.ParamsEncode('
email=********'));
sList.Add(IdURI.TIdURI.ParamsEncode('
key=*********'));
Memo1.Text:=SendPostData(idHttp1,'
http://www.domaintools.com/login',sList);
finally
sList.Free;
end;
end;
Gruß kabuco