Moment jetzt...
Das heißt wenn ich die Datei
http://rapidshare.com/files/235937034/gain.dat (für das Beispiel hochgeladen) runterladen will könnte ich mittels dieser sache hier:
Delphi-Quellcode:
TIdHTTP.Request.BasicAuthentication := true;
TIdHTTP.Request.Username := 'rapidshareusername';
TIdHTTP.Request.Password := 'rapidsharepassword';
auch den Download starten? (bei Premiumlogin ist es wohl aber 'Login' statt 'Username')
Aber beim Aufruf des Links passiert ja noch nicht viel. Nach dem Klick auf 'Premium' ändert sich die
URL in
http://rs712.rapidshare.com/files/235937034/gain.dat. Bei Manueller Eingabe der
URL in die Browserleiste baut sich aber wieder nur der Inhalt von
http://rapidshare.com/files/235937034/gain.dat auf. Verrückt
[snip]
Ohohoh... meine Birne ist gerade voll am rühren von Informationen. Und langsam ergibt sich ein Bild.
#1 die
URL war falsch, so muss die aussehen:
https://ssl.rapidshare.com/cgi-bin/p...WORT&german=on
Wenn ich das manuell in die Browserleiste eingebe bekomme ich den Login. Das heißt ich muss meinen Quelltext dahingehend anpassen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ add the used parameters for the script }
data.AddFormField('?login=', edit1.Text);
data.AddFormField('&password=', edit2.Text);
data.AddFormField('&german=', 'on');
{ Call the Post method of TIdHTTP and read the result into TMemo }
Memo1.Lines.Text := IdHTTP1.Post('https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi', data);
finally
data.Free;
end;
end;
Das probiere ich gleich mal. Wenn das aber nicht geht dann müsste mir jemand bitte sagen wo folgender Quelltext hingepackt werden muss
Delphi-Quellcode:
object IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket
SSLOptions.Method = sslvSSLv2
SSLOptions.Mode = sslmUnassigned
SSLOptions.VerifyMode = []
SSLOptions.VerifyDepth = 0
Left = 496
Top = 65528
end
object http: TIdHTTP
IOHandler = IdSSLIOHandlerSocket1
MaxLineAction = maException
ReadTimeout = 0
AllowCookies = True
ProxyParams.BasicAuthentication = False
ProxyParams.ProxyPort = 0
Request.ContentLength = -1
Request.ContentRangeEnd = 0
Request.ContentRangeStart = 0
Request.ContentType = '
text/html'
Request.Accept = '
text/html, */*'
Request.BasicAuthentication = False
Request.UserAgent =
'
Mozilla/5.0 (Windows; U; Windows NT 6.0; cs; rv:1.9.0.3) Gecko/2' +
'
008092417 Firefox/3.0.3'
HTTPOptions = [hoForceEncodeParams]
Left = 520
Top = 65528
end
Wenn ich den nämlich einfach in meine Quelltext reinpacke dann erhält 'objects' immer eine rote wellige Linie :X
[edit=Phoenix]Lange Linie von Unterstrichen, die das Design zerissen haben, entfernt. Mfg, Phoenix[/edit]