Streams versenden (Ohne Indy's)

[paresy]

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...

[Neutral General]

Und was ist

fConnectionFormData ?

[paresy]

Zitat von Neutral General:

Und was ist

fConnectionFormData ?

ein TClientSocket.