anmeldung & download von einer Datei

[a.vollmer]

mit der IDHTTP Komponente der IndyGruppe kannst du sowas leicht machen...

Einfach im ObjectInspector oder zur Laufzeit Benutzername und Passwort setzen und so downloaden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Datei: TFIleStream;
begin
  Datei:=TFileStream.create('C:\datei.exe',fmCreate);
  IdHttp1.Get('http://www.domain.de/datei.exe',Datei);
  Datei.free;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
Label1.Caption:=idHttp1.url.Document+' ('+inttostr(AWorkCount div 1024)+' kB von '+inttostr(IdHTTP1.Response.ContentStream.Size div 1024)+' kB)';
Progressbar1.Position:=AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
application.ProcessMessages;
end;

Quelle: Delphi-Netzwerk

Gruß

Alex