在没有窗体的情况下,能否使用tclientsocket呢?(100分)

program Project2;
uses
Windows, ScktComp;
var
socket:TClientSocket ;
procedure cs1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendText('aaaa');
end;
begin
...
socket:=TClientSocket.Create(application);
socket.OnConnect:=cs1Connect;
....
end.
好像定义事件函数只能在form类里面,而不能在全局变量中,有没有其他办法呢?
谢谢您的关注

可以啊，你自己定义一个 THelper = class(...) 然后把 Helper 的时间挂到 socket 上啊。

这样也行,呵呵,我试试看,谢谢您的关注了

谢谢LSUPER您的提示
谢谢您的关注

接受答案了.