Einzelnen Beitrag anzeigen

Benutzerbild von Isaev
Isaev

Registriert seit: 4. Jun 2007
Ort: Sachsen
20 Beiträge
 
Delphi XE Architect
 
#1

http://rapidshare.com/ - Collector's Zone - Zugriff

  Alt 4. Jun 2007, 21:16
Ich grüsse alle!

http://rapidshare.com/
Free-Zone / Collector's Zone betreten

Ich versuche den Zugriff zu meinem Ordner bekommen
Was mache ich falsch?

Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender:TObject);
Var
  Data:TIdMultiPartFormDataStream;
Begin
  Data:=TIdMultiPartFormDataStream.Create;
  Try
    Data.AddFormField('username','*****');
    Data.AddFormField('password','*****');
    Memo1.Text:=IdHTTP1.Post('https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi',Data);
  Finally
    Data.Free;
  End;
End;
.dfm
Delphi-Quellcode:
object IdHTTP1: 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 = 'application/x-www-form-urlencoded'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 371
    Top = 6
  end
  object IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket
    SSLOptions.Method = sslvSSLv23
    SSLOptions.Mode = sslmClient
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 2
    Left = 336
    Top = 8
  end
Als Ergebnis bekomme ich eine Autorisationsseite... Warum?
  Mit Zitat antworten Zitat