Einzelnen Beitrag anzeigen

BlackRaven

Registriert seit: 3. Sep 2004
Ort: Berlin
7 Beiträge
 
FreePascal / Lazarus
 
#1

[Indy10] AWorkCount größer als die Datei

  Alt 30. Aug 2012, 16:46
Hallo,
ein weiteres PRoblem mit AworkCount bei Indy THttp.

Ich lade mittels THttp.Post eine Datei hoch

Delphi-Quellcode:
upload.AddFile('file', filename, 'multipart/form-data'); //Definiert die hochzuladende Datei
IdHTTP1.Post(fileserverfinal, upload); //Lädt die Datei hoch
wenn ich nun im OnWork die Variable AWorkCount auslese ist diese immer etwas höher als ich mittels getfilesize(filename) ermittelt habe
Delphi-Quellcode:
function GetFileSize(FileName : string) : Int64;
var
  SearchRecord : TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, SearchRecord) = 0
    then
      begin
        Result := SearchRecord.Size;
        FindClose(SearchRecord);
      end
    else
      Result := 0;
end;
Die Datei mit getfilsize() ist zb 405874 Byte groß und AWorkCount wenn der Upload fertig ist, ist 406266 Byte groß.

Liegt bei der Dateiigrößenermittlung ein Fehler vor oder woher kommen dann bei diesem Beispiel die restlichen 392 Byte her? Es sind nicht immer genau 392 Byte. Je nach Größe der Datei ist auch der Überhang größer.

Ich hoffe ich konnte mein Problem verständlich darlegen und hoffe auch, das mir evt. jemand helfen kann.
  Mit Zitat antworten Zitat