Forum: Netzwerke
Delphi
by Dark-L0rd,
31. Jul 2004
Das mit dem Dateigröße ermitten habe ich jetzt anderes gemacht, jetzt geht es:
for i := 0 to 9 Do
begin
if ser_dat1 = '' then break;
if FindFirst(ser_dat1, faAnyFile, srec) = 0 then
begin
try
iFileSizeAll := iFileSizeAll + srec.Size;
Forum: Netzwerke
Delphi
by Dark-L0rd,
31. Jul 2004
Das mit dem Dateigröße ermitten habe ich jetzt anderes gemacht, jetzt geht es:
for i := 0 to 9 Do
begin
if ser_dat1 = '' then break;
if FindFirst(ser_dat1, faAnyFile, srec) = 0 then
begin
try
iFileSizeAll := iFileSizeAll + srec.Size;
Forum: Netzwerke
Delphi
by Dark-L0rd,
31. Jul 2004
Danke...
Aber irgendwoe zeigt er die größe der Files net richtig an!
So bestimme ich dir Filegröße:
for i := 0 to 9 Do
begin
if ser_dat1 = '' then break;
AssignFile(F, ser_dat1);
Forum: Netzwerke
Delphi
by Dark-L0rd,
30. Jul 2004
Danke...
Das is soweit klar, aber wie setze ich dann immer die aktuelle Position der Statusbar des Servers?
Forum: Netzwerke
Delphi
by Dark-L0rd,
30. Jul 2004
Das funzt aber, irgendwie net, so wie ich das gemacht habe...
procedure Tbg3.upClick(Sender: TObject);
var i: Integer;
begin
if bg1.adresse1.Text = '' then exit;;
idftp1.Disconnect;
idftp1.Host := bg1.adresse1.Text;
Forum: Netzwerke
Delphi
by Dark-L0rd,
29. Jul 2004
Ok, werde ich machen...
Danke für die schnelle Antwort.