Rapidshare Premium Login - Wie?

[mkinzler]

Erscheint Indy in der Toolbox?

[schismatic1]

Ja da kam eine ganze Reihe an neuen Elementen dazu die unter Indy aufgelistet sind.

[mkinzler]

Und hast du dú eine passende Komponente (TidHttp) auf die Form gelegt?

[schismatic1]

Ja, war so ein kleines Abbild von der Erde.

Dennoch war zB "TIdMultiPartFormDataStream" rot unterstrichen. Lediglich TStringList würde gehen. Aber da funktioniert "data.AddFormField('login', edit1.Text);" wiederum nicht. Hab das dann so abgeändert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TStringList;
begin
  data := TStringList.Create;
  try
    { add the used parameters for the script }
    data.Add('login');
    data.Add(edit1.Text);
    data.AddFormField('password');
    data.Add(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;

Dann konnte ich es zwar endlich compilieren, aber nach dem Klick auf den Button kam dann eine Fehlermeldung die irgend ein Problem mit dem IOHandler (oder so) hatte. Hatte eigentlich erwartet das in dem Memo1 Feld eine Zeichenkette reingeschrieben wird...

[mkinzler]

Ergänze mal die Uses durch IdMultipartFormData

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

[Douglas Quintaine]

Afair hat Delphi 2005 nichts mit .Net zu tun. Kategorie wurde also falsch gesetzt.

[Apollonius]

Wie man der URL entnehmen kann, verwendet Rapidshare im Gegensatz zur DP https.

[Die Muhkuh]

Will heißen, man muss Indy mit OpenSSL nutzen.

[schismatic1]

Hm... Okay - freezt nicht mehr. Kommt halt immer die Fehlermeldung "IOHandler value is not valid"

openSSL ... das heißt ich besorg mir jetzt diese .dll und muss die auch nich integrieren bzw abrufen?