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.