Rapidshare.com Login über Indy(IdHTTP)?

the-kecks · Verfasst: Sa 06.06.09 16:14

sry *schäm*
hab jetzt mal hier jeden schritt befolgt indy 10 installiert dlls geholt etc. nun ist bei mir immernoch LoadOpenSSLLibary undef.
code:
-einloggen
s.o
-FormCreate

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  LoadOpenSSLLibrary;  //undef.
  SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
  IdHTTP1.CookieManager := IdCookieManager1;
  IdHttp1.IOHandler := SSLIOHandler;
  IdHTTP1.HandleRedirects := true;
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
  [...]
end;

ist aber auch nicht schlimm, denn ich krieg keinen fehler ohne das loadopeSSLlibrary.
nur bin ich immernoch nicht eingeloggt -.-

mfg

Novo · Verfasst: Di 16.06.09 13:29

Braucht ihr da noch hilfe?
Ich habs hinbekommen.
Wenn Bedarf besteht, PM me.
Weil bis ich zuHause bin, hab ich das hier schon wieder vergessen xD

Xentar · Verfasst: Di 16.06.09 14:30

Wenn du eine Lösung hast, veröffentliche diese doch, statt nur auf Anfrage.

_________________
PROGRAMMER: A device for converting coffee into software.

the-kecks · Verfasst: Di 16.06.09 16:18

mit diesem code funzt das einloggen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

[...]
  Params := TStringList.Create;
  try
    Params.Add('username=' + login);
    Params.Add('password=' + pw);
    try
      HTMLCode:=IdHTTP1.Post('https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi', Params);
    except
      showmessage('Login fehlgeschlagen');
    end;
    Memo2.text:=HTMLCode;
  finally
    Params.Free;
  end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
var SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
  IdHTTP1.CookieManager := IdCookieManager1;
  IdHttp1.IOHandler := SSLIOHandler;
  IdHTTP1.HandleRedirects := true;
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
end;

PS: uploaded.to hab ich jetzt aufgegeben...weiß auch nicht wieso da kein cookie kommt

mfg

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme