Einzelnen Beitrag anzeigen

Van HelF

Registriert seit: 24. Okt 2005
Ort: Karlsbrunn
195 Beiträge
 
Delphi 7 Personal
 
#1

Größe einer Datei auf Server, mit benutzername + pw

  Alt 20. Feb 2007, 10:41
Hallo,
ich möchte die größe einer datei auf einem server auslesen (genauer gesagt von rapidshare.com).

ich verwende folgenden code:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Datei: TFIleStream;
begin
  IdHTTP1.Request.Username := 'username';
  IdHTTP1.Request.Password := 'pw';
  Datei:=TFileStream.create('C:\datei.rar',fmCreate);
  IdHttp1.Get(edit1.text,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;
jedoch bekomme ich keinen zugriff auf die datei.
  Mit Zitat antworten Zitat