求ServerSocket使用例子

[stugogogo]

求ServerSocket使用例子，实现监听、接收及发送功能，HELP！

[halfdream]

\Borland\Delphi6\Source\Internet\webappdlg.dpr(注意，D7这个PROJECT改用TIDTCPSERVER）

\Borland\Delphi6\Source\VCL\ScktSrvr.dpr

[铖邑]

Program Files\Borland\CBuilder6\Examples\Internet\Chat目录下有例子，有这些文件：
chat.bpr chat.cpp chat.res main.cpp main.dfm main.h
好好看看吧。
建议：多看例子，多查帮助，里面有很多资源的。

[stugogogo]

"asynchronous socket error 10053 "错误是什么回事呢？

[stugogogo]

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString sdata;
sdata=Socket->ReceiveText();
Socket->SendText(sdata);
}
有些连接会出现“asynchronous socket error 10053”，有些又正常，请问是什么原因呢？

[stugogogo]

我用C++ Builder的ServerSocket控件处理订购包，在ServerSocket onClientRead事件中，将获取的Socket处理后再次发送，如下：

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
int i;
int pos;
AnsiString sdata;
sdata=Socket->ReceiveText();

pos = sdata.Pos("<TransactionID");
pos = sdata.Pos(">");
i = sdata.Pos("</TransactionID>");
AnsiString TransactionID = sdata.SubString(pos + 1, i - pos - 1);

...............

sdata = "HTTP/1.0 200 OK\r\n";
sdata = sdata + "Content-Type: text/xml; charset=utf-8\r\n";
sdata = sdata + "Content-Length: " ;

AnsiString sdata1;

sdata1 = "<?xml version=\"1.0\" encoding=\"utf-8\"?>";
sdata1 = sdata1 + "<SOAP-ENV:Envelope ;

........................
sdata1 = sdata1 + "</SOAP-ENV:Envelope>";

sdata = sdata + String(sdata1.Length())+"\r\n\r\n";
sdata = sdata + sdata1;

Socket->SendText(sdata);
}

出现“asynchronous socket error 10053”错误，但是如果我最后的你句改成Socket->SendText("resp");之类的东西就没问题。请问是不是数据包的包头、长度没有设置好呢，哪里有问题，应该怎样改呢，谢谢！！！

[铖邑]

这个错误应该是服务器关闭连接的错误，如果你发送的数据服务器无法正常处理的话，就会关闭SOCKET连接。

[mangw]

ErrorCode:=0;
//在OnError事件里加上，
这个错误是对方中断了连接导致的。