mrim_packet_header_t MMPHead, *MMPHeadPtr=&MMPHead;MMPHead.magic=CS_MAGIC;MMPHead.proto=PROTO_VERSION;Socket->Send(&MMPHead,sizeof(MMPHead));
TMemoryStream *stream=new TMemoryStream();stream->Write(&MMPHead,sizeof(MMPHead));stream->SaveToFile("HELLO.bin");WSocket->Send(stream, stream->size);
TMemoryStream *stream=new TMemoryStream();stream->Write(&MMPHead,sizeof(MMPHead));stream->SaveToFile("HELLO.bin");stream->Seek(0, soFromBeginning);WSocket->Send(stream->Memory, stream->size);
void __fastcall TMain::Socket2DataAvailable(TObject *Sender, WORD ErrCode){ TMemoryStream *s=new TMemoryStream(); char Buf[32768]; int StrSize=Socket2->RcvdCount; Socket2->Receive(Buf,StrSize); s->Write(&Buf, sizeof(Buf)); s->SetSize(StrSize); ProcessMMPPacket(s); delete s;}