Fortschirttsanzeige

[Tommy1988]

Mh, ok ich habe es jezt etwas anders gelöst. (Das mit den "leider sendet bei dynamischen Daten fast kein Server)... => stimmt.. deswegen meine bescheidene kleine Lösung:

Delphi-Quellcode:

function gf(const fn: String): Integer;
var srcr: TSearchRec;
begin
 Result := -1;
 if FindFirst(fn, faAnyFile and not faDirectory, srcr) = 0 then
 try
   Result := srcr.Size;
 finally SysUtils.FindClose(srcr) end;
end;

Danach:

Delphi-Quellcode:

 
m.Text := ghtm({URL});
m.Lines.SaveToFile('C:\tmp.htm');
pb.Max := gf('C:\tmp.htm'); // Nur zum Testen ein absoluter Pfad ..

So.. Aber das mit dem Counter habe ich noch nicht so ganz kapiert?