关于socket的问题，代码进来看，谢谢解答

[marbury822]

有函数如下：

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}

现在想让另一个控件实现上面的功能，比如：

void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
}
请问怎样实现？
直接在里面调用ServerSocket1ClientRead(）好象不行，要么（）里参数不对
在里面用引用上面的 Memo1->Lines->Add(Socket->ReceiveText()); 也不行
说是Socket没定义，请问该怎样实现？
谢谢解答~

[hjiaming]

ServerSocket1ClientRead(）是由TServerSocket在收到数据后触发的

[marbury822]

想请问怎样实现下面的代码：
void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
编译说Socket没有定义
这样用为什么不对呢？
应该怎样定义呢？

[F117p]

如果要这样，你就要自己来做套接字了。
利用API来编写WINSOCK

[glassegg]

把收到的数据付给一个私有变量，然后再BitBtn6Click中，用私有变量给memo符值可以吗？

[k886]

用ServerSocket->Socket->Connections[i]->ReceiveText() ;
或是你用一个缓冲区来记录文本也可以用按键读出。
又或者你直接用缓冲区来记录
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{

}
当中的Socket也行。不过这里要注意，ReceiveText是一次性读同一个Client的缓冲内容所以记录Socket的缓冲区同必要记录重复的。。
以上是我的看法，请指教。。