Einzelnen Beitrag anzeigen

schismatic1

Registriert seit: 24. Mai 2009
28 Beiträge
 
#14

Re: Rapidshare Premium Login - Wie?

  Alt 24. Mai 2009, 15:04
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...
  Mit Zitat antworten Zitat