Zitat von
Neutral General:
Zitat von
Luckie:
Wollte gerade sagen, obiger Code braucht nämlich kein [u]math[i].
Doch
wegen dieser Zeile :
chunks := Ceil(FStream.Size / BufferSize);
aber ich habe noch eine Frage zu dem Empfangen. Mit dem was da steht kann ich leider rein gar nichts anfangen
Delphi-Quellcode:
while FormPos < FormSize do
if fConnectionFormData.Socket.ReceiveLength > 0 then
begin
Len := fConnectionFormData.Socket.ReceiveLength;
GetMem(Data, Len);
ReadSize := fConnectionFormData.Socket.ReceiveBuf(Data^, Len);
Inc(FormPos, ReadSize);
Stream.WriteBuffer(Data^, ReadSize);
FreeMem(Data);
Event(FormTag, FormPos, FormSize);
end
else
sleep(100);
FormPos := 0; //ist einfach nen counter wieviel bytes wir schon haben.
FormSize ist die große des streams ( musst du vorher versendet haben )
damit die gegenseite weiß wie lange sie warten soll, ne?
Event(FormTag, FormPos, FormSize);
das ist einfach ne proc die ne progressbar aktualisiert...