delphi 里面一个奇怪的问题，不知道大家有没有碰到

[pipinews]

我在delphi7里面导入了clientsocket 和 serversocket，设置如下
clientsocket active false port 5555
serversocekt active true port 5555 其他都是默认

代码：unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;

type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

clientsocket1.Address:='192.168.1.100';
clientsocket1.Open;

clientsocket1.Socket.SendText('aaaaaaaa');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
showmessage(socket.ReceiveText);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Open;
end;

end.


问题是每次都要点击两次按钮，才能接收到消息，为什么，高手指点！！

[zhu_gx]

顶你

[zhu_gx]

是不是缓存的问题啊

[aluyue]

没做过这方面的，帮忙顶上去！！

[zhu_gx]

是不是有属性可以设置，是马上发送还是放在缓存中等一下次发消息时发送啊

[zhu_gx]

再帮你顶一下吧

[zhu_gx]

人真少啊

[pipinews]

没有设置过缓存，默认就是这样，哥们

[CathySun118]

有没有跟踪第一次点击，触发了什么事件？有没有接收到内容

[killerprince]

up 等高人~

[skylkj]

网络通信是有延时的.
clientsocket1.Address:='192.168.1.100';
clientsocket1.Open;

clientsocket1.Socket.SendText('aaaaaaaa');
你一open就立刻发送,实际上tcp连接需要3次握手,所以你sendtext的时候实际上还没连接上


解决方法是,你把clientsocket1的clinettype设置成阻塞式(ctblocking)就可以了.默认是非阻塞,所以你执行open后不管有没有结果都会立刻执行下面的语句.改成阻塞式后只有一个执行有结果了才会返回

[pipinews]

[Quote=引用 11 楼 skylkj 的回复:]
网络通信是有延时的.
clientsocket1.Address:='192.168.1.100';
clientsocket1.Open;

clientsocket1.Socket.SendText('aaaaaaaa');
你一open就立刻发送,实际上tcp连接需要3次握手,所以你sendtext的时候实际上还没连接上


解决方法是,你把clientsocket1的clinettype设置成阻塞式(ctblocking)就可以了.默认是非阻塞,所以你执行open后不管有没有结果都会立刻执行下面的语句.改成阻塞式后只有一个执行有结果了才会…
[/Quote]


高手，怎么不早点出现，我都发现了，后悔没有遇到你

[pipinews]

高人呢...