没分了，不过还得问，弄了一天也没弄起来，火大了。。。(7分)

我在COM+组件中调用了TClientSocket联接服务器，然后调用SendText发送信息过去，服务器无法收到。。。判断了一下发现TClientSocket.Active=Flase，但是服务器端已经成功收到了CONNECT信息。同样这个单元文件我在EXE程序中调用的时候一切正常。。。哪位老有做过这方面的程序，请帮忙解决一下。

以下是部分代码。

procedure initSocket;
begin
if initedLog then
begin
exit;
end;

ClientSocket:=TClientSocket.Create(nil);
ClientSocket.Address:=logServerAddr;
ClientSocket.Port:=logServerPort;
ClientSocket.Open;
initedLog:=true;
end;

procedure WriteLog(const cSITENAME,cUSERNAME,cCOMMAND,cPARAMETER,cDESCRIPT:string);
begin
ClientSocket.Socket.SendText(cSITENAME+FLAG+cUSERNAME+FLAG+cCOMMAND+FLAG+cPARAMETER+FLAG+cDESCRIPT);
end;

Delphi封装的Socket里面可能用到了消息机制的东西，把它放到Com+中可能会有问题。建议自己用socket的函数来写，不是太复杂的。