1,316
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::srvrsckt1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
//void *Buffer;
char *c_data = new char[Socket->ReceiveLength() + 1];
AnsiString s_temp;
TMemoryStream *stream = new TMemoryStream();
stream->SetSize(Socket->ReceiveLength());
stream->Position = 0;
Socket->ReceiveBuf(stream->Memory, Socket->ReceiveLength());
stream->Read(c_data, stream->Size);
//stream->SaveToFile("1.txt");
mmo1->Lines->Add(AnsiString(c_data));
delete stream;
delete c_data;
}