Socket Buffer Sendtext

Question

So preciso de um exemplo simples (do tipo que a gente olha e diz: entao era s� isso? hehehe)

Quero saber como usar sendbuff, que to apanhando que nem um condenado.

Ficar passando string de 255 em 255 nao rola.
Via String (sendtext) passo e recebo tranquilo.

Firekiller · Answer

Qual tipo de dados voc� t� querendo enviar??
Por exemplo, se fosse o conte�do de uma Stringlist, poderia ficar assim:

ClientSocket.Socket.SendBuf( StringLIst.Text , Length(StringList.Length) );

Para receber, coloque o c�digo abaixo no evento onClientRead (ou onRead) :

var 
  tm : Integer;
  s:String;
begin
  StringList.Text := ��;
  tm := Socket.receiveLength;
  while tm > 0 do begin
    Socket.ReceiveBuf(S,tm);
    StringList.text := StringList.text+S;
    tm := Socket.receiveLength;
    Sleep(200);
  end;
end;

Ao terminar o la�o, voc� j� teria recebido todo o conte�do do StringList.

Firekiller · Answer

Desculpe... no c�digo que postei tem uma falha... ionde t�

ClientSocket.Socket.SendBuf( StringLIst.Text , Length(StringList.Length) );

Coloque:

ClientSocket.Socket.SendBuf( StringLIst.Text , Length(StringList.Text) );