Kopierprozess (Upload) mit Blockread wie korrekt beenden?

[Mavarik]

Versuchs mal mit:

Delphi-Quellcode:

  
...
    repeat
      BlockRead(LocalFile, buffer, bufsize, NumberOfBytesRead);
      if NumberofBytesRead > 0 then
        begin
          if not InternetWriteFile(hFile,
                                 @buffer,
                                 WRITE_BUFFERSIZE,
                                 NumberOfBytesWritten) then FCancelProcess:= true;

          TotalBytesWritten := TotalBytesWritten + bufsize;
        end;

      { Hier Prozentanzeige ermitteln und ausgeben }

    until (NuberOfBytesRead=0) or (TotalBytesWritten = SizeFile) or (FCancelProcess = true);

[...]

Frank