Hi,
du benutzt für die Parameterliste (Name, Passwort)
einen "TStringStream", dass hat bei mir nie so richtig
funktioniert.
Am besten versuchst du es mal mit:
Delphi-Quellcode:
uses
IdMultiPartFormData;
//[...]
procedure TForm1.login(username, password:
string);
var
Params:TIdMultiPartFormDataStream;
lParams: TStringStream;
result:
string;
begin
result := '
';
lStream := TMemoryStream.create;
Params := TIdMultiPartFormDataStream.Create;
TRY
MyHTTP.Request.ContentType := '
application/x-www-form-urlencoded';
MyHTTP.Request.Referer := '
http://uploaded.to/';
MyHTTP.Request.UserAgent := '
Uploaded.to-Uploader V1.0';
Params.AddFormField('
email',username);
Params.AddFormField('
password',password);
lStream := MyHTTP.Post('
http://uploaded.to/login',Params);
SetLength(Result,lStream.Size);
lStream.Position:=0;
lStream.ReadBuffer(Result[1],lStream.Size);
Memo2.Text := result;
//temporaer um anzuzeigen was rauskommt. bisher immer eine HTML Seite die behauptet ich akzpetiere keine Cookies
FINALLY
FreeAndNIL(Params);
lStream.Free;
END;
end;
Vielleicht hat das Login nicht geklappt und deshalb wird ausgegeben das die Cookies nicht aktiviert sind?
Du kannst es ja mal versuchen ;)
Grüße