Streams versenden (Ohne Indy's)

[paresy]

Zitat:

Zitat von Neutral General

Zitat:

Zitat von Luckie

Wollte gerade sagen, obiger Code braucht nämlich kein [u]math[i].

Doch :mrgreen:

wegen dieser Zeile :

Delphi-Quellcode:

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 :wall:

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

Delphi-Quellcode:

fConnectionFormData

? :roll: :mrgreen:

[paresy]

Zitat:

Zitat von Neutral General

Und was ist

Delphi-Quellcode:

fConnectionFormData

? :roll: :mrgreen:

ein TClientSocket.