帮我看一下这个socket错误（参与有分）

[huche]

我在使用TClientSocket用SendBuf发送数据包时出现如下，错误，谁帮我看一下是什么错？谢谢！！
Windows socket error: 在一个非套接字上尝试了一个操作。 (10038), on API 'send'

－－－－－－－－－
头五位参与者每人五分，解决问题者五十分，不足五位参与者已经解决问题，剩余部分分数送解决问题者。谢谢！！

[cctime]

看一下程序片断

[Liusp]

详细点？

[szwxj]

是不是调用SendBuf之前，没有Open？
注意，如果TClientSocket是非阻塞的（默认），那么Open是立即返回的，但此时并没有真正建立连接。

[gloom]

可以贴出部分代码么？

[huche]

非阻塞(ctNonBlocking)
.
.
.
Socket->Host=Ip;
Socket->Port=StrToInt(Port);
Socket->Socket->Connect(Port);
Socket->Open(); //此行语句有无都出错，放connect前面也出错。如果放上一句前面出错时会自动断开连接。
.
.
.
k = SendData.Length();
char* buf=new char[k];
for(i=1,j=1;i<=k;i++)
{
if(SendData[i]==char(1))
{
s1=SendData.SubString(j,i-j);
strcpy(buf+j-1,s1.c_str());
j=i+1;
}
}
try
{
Socket->Socket->SendBuf(buf,k);
}
catch(Exception &e)
{
InsertMsg(e.Message,true);
}

[781014]

啊。这个问题我还没时间去研究不过你要是想搞NETBIOS到还是可以和我一起来搞。

[szwxj]

把你Open之后的代码放到TClientSocket的OnConnect事件中，否则，SendBuf永远会出错。
另外一种方案就是阻塞方式，但不推荐。

[zTommy]

你把源程序贴出来吧，这样很难看出问题。

[huche]

To szwxj(甲骨文)　
如果这样，我每发一次包岂不都要同过产生OnConnect事件才能发送？？

[Skywings]

好象ESocketError是C++ Builder的try catch不能捕捉的异常