P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
偶是新手，问题太多，发了几贴没有分了，今天混到12分，我不留了，再进来拼一下，希望有人能解答，感谢大家！
我在程存中动态创建一个TClientSocket，但不知道如何调用他的触发事件。
type
socket=class(TClientSocket)
procedure onConnect(Sender: TObject; Socket: TCustomWinSocket);
end;
procedure socket.onConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
socket.SendText('发送拉');
end;
var
sc: socket;
begin
sleep(2000);
sc:= socket.Create(nil);
sc.Active :=false;
sc.Port :=820;
sc.Host :='127.0.0.1';
sc.Active :=true;
sc.Socket.SendText('没有分拉，有人顶么'); //这里也发送不出去
end;
end.
运行后，防火墙显示连接成功，但怎么样发能触发onConnec的事件，
我想在连接成功后就发送一串字符串，请问怎么样实现。
我在程存中动态创建一个TClientSocket，但不知道如何调用他的触发事件。
type
socket=class(TClientSocket)
procedure onConnect(Sender: TObject; Socket: TCustomWinSocket);
end;
procedure socket.onConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
socket.SendText('发送拉');
end;
var
sc: socket;
begin
sleep(2000);
sc:= socket.Create(nil);
sc.Active :=false;
sc.Port :=820;
sc.Host :='127.0.0.1';
sc.Active :=true;
sc.Socket.SendText('没有分拉，有人顶么'); //这里也发送不出去
end;
end.
运行后，防火墙显示连接成功，但怎么样发能触发onConnec的事件，
我想在连接成功后就发送一串字符串，请问怎么样实现。