Mit BlockRead() Datei kopieren

[sk0r]

Ich schaue immer in die Delphi Hilfe, aber diesmal konnte ich nichts finden.
Sonst würde ich ja nicht fragen.

Mein Code sieht im Moment so aus:

Delphi-Quellcode:

      if FileExists(tmpReplace) then
      begin
        sizeDlDat := SizeOfFile(tmpReplace)-1;
        AssignFile(hDlDat, tmpReplace);
        ReSet(hDlDat, 1);
        g := 0;
        repeat
          BlockRead(hDlDat, bDlDat, 1024);
          Socket.SendBuf(bDlDat, 1024);
          inc(g, 1024);
          Seek(hDlDat, soFromBeginning+g);
          Sleep(7);
          Application.ProcessMessages;
        until g >= (sizeDlDat-1024);
        CloseFile(hDlDat);
        sizeDlDat := 0;
      end;
      tmpReplace := '';

Wenn ich anstatt das Socket.SendBuf WriteIntoDownloadedDat() benutze, dann klappt es.
Nur leider sendet er immer ganz komische Bytes. Da weiß ich leider nicht mehr weiter.