🚀 go-pugleaf

"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