TserverSocket und TclientSocket

[Briand]

Also Fenster friet mom immer noch ein beim Downloaden von Dateien.

Wie krig ich das TransferSocketRead in nen Tread ?

Delphi-Quellcode:

procedure TransferSockClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

  var
  Buffer: array [0..9999] of Char;
  IncommingLen, RecievedLen: integer;

  begin

  IncommingLen := socket.ReceiveLength;

  while IncommingLen > 0 do
  begin
    RecievedLen := socket.ReceiveBuf(Buffer, Sizeof(Buffer));

    if RecievedLen <= 0 then
      Break
    else
      IncommingStream.Write(Buffer, RecievedLen);

    Form1.ProgressBar.StepBy(RecievedLen);

    if IncommingStream.Size >= Size then
    begin
      IncommingStream.Free;
      ServerSock.Socket.Connections[0].SendText('002');
      Form1.ProgressBar.Position := 0;
      if Form1.TransferName = 'Desktop.bmp' then;
      Break;
    end;
  end;
end;