我在dll中建了一个form,其上放了clientsocket控件,写了接收事件,在dll中有如下过程:
procedure SendCommand(Ip: string;Port: integer;S:string);
var frmsoc:Tfrmsoc;
begin
frmsoc:=Tfrmsoc.Create(frmsoc);
frmsoc.InitiateAction;
frmsoc.ClientSocket1.Address:=Ip;
frmsoc.ClientSocket1.Port:=Port;
if not frmsoc.ClientSocket1.Active then
frmsoc.ClientSocket1.Active:=true;
frmsoc.ClientSocket1.Socket.SendText(S);