Kopierprozess (Upload) mit Blockread wie korrekt beenden?

[Pfoto]

Hallo zusammen!

ich versuche gerade, ein FTP-Upload mit Progressbar
auf Basis der WinInet umzusetzen (die Indy-Komponenten
halte ich hier für übertrieben).

Dies funktioniert in dem Sinne, dass immerhin Bytes
hochgeladen werden und sich die Progressbar bewegt.


Nur: Es hört nicht mehr auf!
Ich will die Schleife eigentlich beenden, wenn die
Dateigröße = GesamtGeleseneBytes ist.

Ohne diese Abfrage gibt es einen Fehler und es heißt
sinngemäß: "Kann nicht über das Dateiende hinaus lesen"


Weiß hier jemand Rat? Danke für Eure Hilfe!

Pfoto

Delphi-Quellcode:

  
uses WinInet;

const
  BUFFERSIZE = 4096;

var
  buffer: array[0..WRITE_BUFFERSIZE - 1] of Char;
  bufsize: DWORD;

  NumberOfBytesRead,
  NumberOfBytesWritten: DWord;

  SizeFile, TotalBytesWritten: longint;


[...]

    { Dateigröße der lokalen Datei }
    SizeFile := FileSize(LocalFile);

    { Insgesamt gelesene Bytes }
    TotalBytesWritten := 0;

    bufsize := WRITE_BUFFERSIZE;

    repeat
      BlockRead(LocalFile, buffer, bufsize, NumberOfBytesRead);

      if not InternetWriteFile(hFile,
                              @buffer,
                              WRITE_BUFFERSIZE,
                              NumberOfBytesWritten) then FCancelProcess:= true;

      TotalBytesWritten := TotalBytesWritten + bufsize;

      { Hier Prozentanzeige ermitteln und ausgeben }

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

[...]

[Luckie]

Du darfst nicht die Buffergröße aufaddieren, sondern die tatsächlich geschriebenen Bytes. Am Ende wird er weniger Bytes schreiben als die Buffergröße, wenn die Dateigröße nicht genau durch die Buffergröße teilbar ist.

[Klaus01]

Vielleicht so?

until (TotalBytesWritten >= SizeFile) or (FCancelProcess = true); Grüße
Klaus

[Pfoto]

Danke Euch!

Der Tipp von Luckie hat den Fehler beseitigt!



Gruß
Pfoto

[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

[janmartin3010]

Hallo!

Ich habe auch schon viel gesucht, wie man denn jetzt den Status des Uploads anzeigen lassen kann.

Nun meine Frage: Pfoto, kannst du mir sonst deinen Quellcode dazu geben, dass ich es auch verwenden kann?

Wär echt super! Danke! mfG