请教一个 lnet Tcp的问题

67735578

请教一个 lnet Tcp的问题


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);

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中方法都发送不出数据。。。

tsp_1030

看看lnet自带的Demo吧 有详细的操作。