Rapidshare Premium Login - Wie?

[schismatic1]

@ mkinzler:

ich kann jetzt dank der einfügung bei uses problemlos compilieren und auf den knopf drücken ohne das eine fehlermeldung kommt.

wenn ich diesen quelltext nehme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  IdHTTP1.ProtocolVersion:=pv1_1;
  IdHTTP1.Request.UserAgent:='null';
  IdHTTP1.Request.Accept:='eins';
  IdHTTP1.Request.AcceptCharSet:='zwei';
  IdHTTP1.Request.AcceptLanguage:='drei';
  try
    { add the used parameters for the script }
    data.AddFormField('param1', 'value1');
    data.AddFormField('param2', 'value2');
    data.AddFormField('param3', 'value3');
    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := IdHTTP1.Post('http://www.delphipraxis.net', data);
  finally
    data.Free;
  end;
end;

erscheint in dem memofenster der seitenquelltext von delphipraxis!

jetzt müsste es doch eigentlich nur noch auf rapidshare angepasst werden und ich bin drinne, oder?

Jedoch ist da noch immer der Wurm drinn wenn ich es so abänder, denn dann freezt alles und stirbt ab :X

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  IdHTTP1.ProtocolVersion:=pv1_1;
  IdHTTP1.Request.UserAgent:='null';
  IdHTTP1.Request.Accept:='eins';
  IdHTTP1.Request.AcceptCharSet:='zwei';
  IdHTTP1.Request.AcceptLanguage:='drei';
  try
    { add the used parameters for the script }
    data.AddFormField('login', edit1.Text);
    data.AddFormField('password', edit2.Text);
    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := IdHTTP1.Post('https://ssl.rapidshare.com/premiumzone.html', data);
  finally
    data.Free;
  end;
end;

An und für sich klingt es doch so einfach. Seite aufrufen --> Logindaten übergeben --> Fertig.