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

zusammenfalten · markieren

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);

[...]

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.

Vielleicht so?

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

Danke Euch!

Der Tipp von Luckie hat den Fehler beseitigt!



Gruß
Pfoto

Versuchs mal mit:

zusammenfalten · markieren

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

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