Caros, estou tentando criar um programa que vai receber uma lista de produtos vendidos, através de uma conexão Socket. Consigo conectar via TCPClient, porém não estou conseguindo enviar a lista de comandos, e nem receber o resultado que vem do server. No meu teste, consigo receber uma linha, mas preciso receber várias linhas. Estou fazendo assim:
procedure TForm1.Button4Click(Sender: TObject);
var
LLine : string;
begin
try
if not IdTCPClient1.Connected then
IdTCPClient1.Connect;
IdTCPClient1.SendCmd(Edit3.Text);
//LLine := IdTCPClient1.IOHandler.ReadLn();
Lline := IdTCPClient1.Socket.ReadString(6000);
mmLog.Lines.Add(LLine);
except
on E:Exception do
if ( E.Message <> 'Connection Closed Gracefully.') then
mmLog.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
end;
Estou usando Indy 10 e Delphi Tokio.