1,316
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TClientForm::SendTimerTimer(TObject *Sender)
{
switch(CurrentLinkStatus)
{
case Break:
{
ShowMessage("与服务器连接出错,请重新连接!");
SendTimer->Enabled=false;
break;
}
case Link:
{
RandomGenerate();
SendNum=ClientSocket->Socket->SendBuf(&RandomData,sizeof(RandomData));
if(SendNum!=3600)
{ SendErNum=WSAGetLastError();
ShowMessage("数据发送错误!发送字节数为"+IntToStr(SendNum)+",错误代码为"+IntToStr(SendErNum));
}
break;
}
}
}
void __fastcall TServerForm::ServerSocketClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
RevNum=Socket->ReceiveLength();
if(RevNum!=3600)
{ShowMessage("数据接收错误!");
}
Socket->ReceiveBuf(Buffer,3600);
if (startflag==1)
WriteToCB(); //写入环形缓冲
CurvePlotThread->Resume(); //画图线程
}