Erro ao Receber dados pelo ACBRTCP

[francisco.itb]

Amigos,pesquisando aqui no forum vi uma mensagem do daniel, que para receber dados pelo acbrtcp basta colocar o codigo abaixo:

var

sock: TTCPBlockSocket;

s: string;

begin

sock:= ttcpblocksocket.Create;

try

sock.Connect('your.server.com','80');

sock.SendString('yourdata' + CRLF);

s := sock.recvstring(15000);

//...

finally

sock.Free;

end;

Coloquei dentro de um timer, ele conectar envia os dados, mas nao recebe nada.... ja testei com o indytcp e tambem nao recebe dados, sera que to esquecendo de alguma coisa?

Francisco A Souza

[francisco.itb]

mudei para s := Sock.RecvPacket(100);, e passou a funcionar, mas se os amigos tiverem alguma outra solucao diferente, gostaria de ver.

Abrancos

Francisco A Souza

[walter faria]

Boa tarde, galera aproveitando esta mensagem , com acbrTCP tem como enviar arquivo ? ( JPG )

Minha ideia no lado cliente envia JPG para servidor e quando requisitado por qualquer cliente fazer download desta imagem que estaria no servidor .

Obrigado

[francisco.itb]

Walter, eu fiz uma alteracao.. e estou anexando aqui, para enviar stream, testei aqui e funcionou blz.

apenas copiei a procedure eviarstring para envirstream, e alterei o parametro...

fiz um teste aqui e foi blz.

vou ver se consigo mudar para receber tb.

ACBrSocket.pas