Fortschirttsanzeige

[Klaus01]

Hallo,

das dürfte etwas schwierig sein, wenn Du die Größe der
HTML Datei nicht kennst.
Falls Du sie kennen solltest, wäre
hier ein guter Platz einen Counter zu implementieren.

Delphi-Quellcode:

while (InternetReadfile(hfile, 
       @databuffer, 
       dwNumber, 
       DwRead)) do 
  begin 
    if dwRead =0 then 
      break; 
      databuffer[dwread]:=#0; 
      Str := pchar(@databuffer); 
      resStr := resStr + Str; 
    end;

Grüße
Klaus