问一个Indy IdTCPServer基础问题

[soloxiao]

我在BCB6中装了indy9写以下代码时发生错误:
void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{
TIdTCPServerConnection * conn = AThread->Connection; //此处conn=NULL,不知何故
unsigned char buf[1024];
try{
conn->ReadBuffer(buf,1024);
}
catch(...)
{
Memo1->Lines->Add("TCP Read Error!");
return;
}
}

有简单的demo请发至 solo**[e-mail] (将**去掉) 谢谢!

[soloxiao]

.......

[constantine]

为什么要用TIdTCPServerConnection * conn
直接读看看，这个我没有用过，觉得没有必要，
原因不清除

如果这个东西你没有用错有可能你装indy9有问题

[soloxiao]

谢谢安吉儿,但是问题还是有,各位没有这个问题吗？

[soloxiao]

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

[sczyq]

void __fastcall TForm1::IdTCPServerExecute(TIdContext *AContext)
{
TIdIOHandler * IOH = AContext->Connection->IOHandler;
TIdSocketHandle *ISH = AContext->Binding();

Memo1->Lines->Add("Client : " + ISH->PeerIP + ":" + IntToStr(ISH->PeerPort));

while (true)
try
{
AnsiString S = IOH->ReadLn();
if (S.Length()) Memo1->Lines->Add(S);
}
catch (...)
{
break;
}
}


以上很正确，只是使用了 Indy 10

[zywx]

indy 8/9/10 每个版本的方法有很大区别，建议楼主先搞清楚用哪个版本