🚀 go-pugleaf

void TTCPSendDataModule::OpenConnection()
{
        SendSocket->Host = TCPSendTable->FieldValues["HostName"];
        SendSocket->Port = TCPSendTable->FieldValues["PortNo"];
        try{
         SendSocket->Open();
  connectionWaiting = true;
        }catch(...){}
}
//--------------------------------------------------------------------------
-
void __fastcall TTCPSendDataModule::SendSocketRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
 ReadIncomingPacket();
}
//--------------------------------------------------------------------------
-
void __fastcall TTCPSendDataModule::SendSocketConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
   SendPacketInOrder();
   connectionWaiting = false;
}
//--------------------------------------------------------------------------
-
void __fastcall TTCPSendDataModule::SendSocketError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
   CloseSendSocket();
   ErrorCode = 0;
   connectionWaiting = false;
}
//--------------------------------------------------------------------------
-
bool TTCPSendDataModule::SendPacket(BYTE *buffer,int bufferLength)
{
   bool result = false;
   try
   {
      if( SendSocket->Active &&
SendSocket->Socket->SendBuf(buffer,bufferLength) == bufferLength ) // packet
is sent sucessfully
         result = true;
   }catch(...){}
   return result;
}
"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:410fbe48$1@newsgroups.borland.com...
>
> "OKusmen" <okusmen@aselsan.com.tr> wrote in message
> news:410f4afe@newsgroups.borland.com...
>
> > In this scenario, I have to try a message two times. But,
> > I want to try once. What reason occurs this situation.
>
> Please show your actual code.
>
>
> Gambit
>
>