高手就是高手！！！！！！(30分)

H

huait

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

一个ClientSocket控件的使用问题
在Button的Click事件中
var
i:integer;
begin
for i:=1 to 10 do
begin
C_Socket.Address:='192.168.52.7';
C_Socket.Active:=true;
C_Socket.Socket.SendText('我来了');
C_Socket.Active:=false;
end;
就出错，可我在C_Socket.Socket.SendText('我来了');前加一句ShowMessage('xxxx');
就可以，
请问高手怎么解决。不加那一句怎么解决

 

H

huait

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

急的我。。。没有人回答吗？

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #3

Try!
var
i:integer;
Socket: TClienteSocket;
begin
for i:=1 to 10 do begin
Socket.Active := False;
Socket.Address := '192.168.52.7';
Socket.Open;
while not Socket.Active do begin
Application.ProcessMessage;
sleep(1000);
end;
Socket.SendText( '我来了');
end;

 

H

Headchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #4

不知道你使用的是同步模式（阻塞模式）还是异步模式（非阻塞模式），若是异步模式，则
应该等到connected状态后再发送数据。

 

H

hp_wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #5

是这样的，既然是为了实现循环，没必要在循环中加入Socket.Active := true;
和Socket.Active := False；
procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
beginclient.Socket.SendText('i am coming');
end;

 

G

gdcqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #6

先Close然后Active呀.

循环的时候间断开和关。