Use Ararat Synapse . http://synapse.ararat.cz/doc/help/
Unit blcksock Class TTCPBlockSocket Then send and receive byte arrays using : Public function SendBuffer(Buffer: TMemory; Length: Integer): Integer; override; Public function RecvBuffer(Buffer: TMemory; Len: Integer): Integer; override; var Tx_buffer : array[0..n] of byte; SentN := SendBuffer(@Tx_Buffer,NumBytes); -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal