Exemplo ACBrTCPServer

[Antonio Carlos L]

Ao rodar o exemplo percebi que ele não exibia o que era enviado pelo Cliente, e ao verificar descobri que o evento onRecebeDados esta com a assinatura diferente ( provavel o exemplo foi feito em uma versão ainda inicial ) 

 

procedure ACBrTCPServer1RecebeDados(const TCPBlockSocket: TTCPBlockSocket;   Recebido: String; var Enviar: String);

onde deveria ser

procedure ACBrTCPServer1RecebeDados(const TCPBlockSocket: TTCPBlockSocket;  const Recebido: AnsiString; var Enviar: AnsiString);

[Daniel Simoes]

Pode ser que o Demo tenha sido feito em D7... onde AnsiString = String