Also das zerstückeln geht an sich einfach (Ich benutze hier einen MemoryStream für das Teilstück):
Delphi-Quellcode:
...
var MemStream: TMemoryStream;
...
MemStream := nil;
try
MemStream := TMemoryStream.Create;
Stream.Position := 0;
while Stream.Pos < Stream.Size do begin
MemStream.Clear;
if (Stream.Pos+1024) <= Stream.Size then
MemStream.CopyFrom(Stream,1024) // 1KB kopieren
else
MemStream.CopyFrom(Stream,Stream.Size - Stream.Pos); // Rest kopieren
// Hier den MemStream versenden
end;
finally
MemStream.Free;
end;
Ich hoffe das war, was du gesucht hast =)