Einzelnen Beitrag anzeigen

Benutzerbild von geskill
geskill

Registriert seit: 17. Feb 2007
Ort: NRW
420 Beiträge
 
Delphi 2010 Professional
 
#10

Re: Cookies mit TIdCookieManager und TIdHTTP

  Alt 26. Okt 2008, 12:22
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
Sebastian
  Mit Zitat antworten Zitat