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?