🚀 go-pugleaf

I  take host and port values from db-table. Firstly, Read them from table
and set them into socket's parameters. Actual values:
Host = "bosterminal"
Port = 50102
"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:41111ce5$1@newsgroups.borland.com...
>
> "OKusmen" <okusmen@aselsan.com.tr> wrote in message
> news:41109cf1@newsgroups.borland.com...
>
> > void TTCPSendDataModule::OpenConnection()
> > {
> >         SendSocket->Host = TCPSendTable->FieldValues["HostName"];
> >         SendSocket->Port = TCPSendTable->FieldValues["PortNo"];
>
> Where exactly are you getting the Host and Port values from?  What are the
> actual values themselves?
>
> >         try{
> >          SendSocket->Open();
> >   connectionWaiting = true;
> >         }catch(...){}
>
> You should always catch VCL exceptions explitically, don't use '...':
>
>     catch(const Exception &){}
>
> >       if( SendSocket->Active &&
> > SendSocket->Socket->SendBuf(buffer,bufferLength) == bufferLength ) //
> packet
> > is sent sucessfully
> >          result = true;
> >    }catch(...){}
>
> FYI, just because SendBuf() may not take the full data at one time is not
an
> error.  Only when it returns -1 or throws an exception is it an error.
You
> should be looping through the data until you have sent it all, ie:
>
>     bool TTCPSendDataModule::SendPacket(BYTE *buffer,int bufferLength)
>     {
>         if( SendSocket->Active )
>         {
>             try
>             {
>                 while( bufferlength > 0 )
>                 {
>                     int sent = SendSocket->Socket->SendBuf(buffer,
> bufferLength);
>                     if( sent < 0 )
>                     {
>                         if( SendSocket->Active )
>                         {
>                             // send would block, try again...
>                             Application->ProcessMessages();
>                             continue;
>                         }
>
>                         // error sending and OnError already caught it...
>                         return false;
>                     }
>
>                     if( sent == 0 )
>                     {
>                         // disconnected...
>                         return false;
>                     }
>
>                     buffer += sent;
>                     bufferlength -= sent;
>                 }
>
>                 // finished...
>                 return true;
>             }
>             catch(const Exception &)
>             {
>                 // error...
>             }
>         }
>         return false;
>     }
>
>
> Gambit
>
>