Indy TCP Client/Server

[BlackSeven]

So funktioniert es:

Delphi-Quellcode:

var

  DataSize : LongInt;
  Data     : TBytes;
  Value    : Integer;

begin

  AContext.Connection.IOHandler.CheckForDataOnSource(10);

  if not AContext.Connection.IOHandler.InputBufferIsEmpty then
  begin

    DataSize := AContext.Connection.IOHandler.ReadLongInt;
    AContext.Connection.IOHandler.ReadBytes(Data, DataSize);

    Value := 0;
    Move(Data[0], PByte(Value), SizeOf(Integer));

    TThread.Queue
    (

      TThread.CurrentThread,

      procedure
      begin

        UI.Caption := IntToStr(Value);

      end

    );

  end;

end;

Zitat:

AContext.Connection.IOHandler.CheckForDataOnSource (10);