请教一个 lnet Tcp的问题

67735578

LTCPComponent接收正常，发送出的数据无法收到，想了很多办法都没解决，希望会的朋友指点下，谢谢。

方法1：
连接 LTCPComponent1.Connect('192.168.1.2',7000)

发送 if LTCPComponent1.Connected then begin
LTCPComponent1.SendMessage(Edt_TCPInfo.Text)

方法2
连接 LTCPComponent1.Connect('192.168.1.2',7000)

然后在LTCPComponent1的事件里面写入
procedure TForm1.OnCanSend(aSocket: TLSocket);
var
  n: Integer;
begin
  repeat
    n := LTCPComponent1.Send(FBuffer[FSendIndex], Length(FBuffer) - FSendIndex);
    Inc(FSendIndex, n);
  until (n = 0) or (FSendIndex > Length(FBuffer));
end;

发送
FBuffer := Edit1.Text;
  LTCPComponent1.OnCanSend(LTCPComponent1.Iterator);



其中还发现一个问题LTCPComponent1.Connect 参数任意写 都返回成功。。。

正常连接的时候服务端能收到连接成功的信息，但是以上2中方法都发送不出数据。。。