Falls es jemanden interessiert: Wie man eine Datei bei Rapidshare herunterlädt und dabei einen Premium Account nutzt in weniger als 20 Zeilen Code. Keine lustigen DLLs oder sonstiges Gedöhns
.
Delphi-Quellcode:
procedure DownloadFileFromRapidshare(
URL, DestinationFile, Username, Password :
string);
var
FileStream: TFileStream;
HTTP : TIdHTTP;
begin
FileStream := TFileStream.Create(DestinationFile, fmCreate);
HTTP := TIdHTTP.Create;
HTTP.Request.BasicAuthentication := true;
HTTP.Request.Username := Username;
HTTP.Request.Password := Password;
HTTP.HandleRedirects := true;
HTTP.Get(
URL, FileStream);
HTTP.Free;
FileStream.Free;
end;
Disclaimer: Bevor man den Code adaptiert sollte man ihn zumindest um Fehlerhandling erweitern. Auch wäre es wahrscheinlich benutzerfreundlicher wenn man das ganze asynchron macht damit die UI nicht für die Dauer des Downloads blockiert
.