BorlandTalk.com

Paul · Guest

I'm getting an error trying to access this hyperlink :
http://bdn.borland.com/article/0,1410,26276,00.html

"Hans Galema" wrote in message news:42524093$1 (AT) newsgroups (DOT) borland.com...

Hans Galema · Guest

Paul wrote:

Remy Lebeau (TeamB) · Guest

"Paul" <plmacca (AT) clara (DOT) co.uk> wrote

Paul · Guest

Works for me now too. I'll give this a go and see if it works any
differently to the one I've been trying to do, and then see what the
differences are if it works.

Questions:

1) This comment in the tutorial seems to imply the approach isn't to drag
and drop a component....

// Instead of using a client socket component that you place in your
application
// from the Component palette, the server client thread must use the
TServerClientWinSocket
// object that is created when the listening server socket accepts a client
connection.

2) All the examples of using sockets in BCB seem to be based around the
component pallete and using the main VCL thread. Are there classes for
sockets that can be used in threads without interacting with the main VCL
thread at all?

Off to try the example

Paul

"Hans Galema" <notused (AT) notused (DOT) nl> wrote

Paul · Guest

Right. I've tried the tutorial and I get the same problem. Every time the
server gets data it drops into the client socket close(), snippet below,
which is in the TMyServerThread.

if (pStream->Read(buffer, sizeof(buffer)) == 0)
// (if can't read in 60 seconds) than close the connection
ClientSocket->Close();

Can I confirm:
The client app component (drag + drop onto the form) is "ctNonBlocking"?
The server app component (drag + drop onto the form) is "stThreadBlocking"
and has an event handler for get thread.

//--------------------------------------------------------------------------
-
void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
TServerClientWinSocket *ClientSocket, TServerClientThread
*&SocketThread)
{
SocketThread = new TMyServerThread(false, ClientSocket);
}
void __fastcall TForm1::SocketOpenClick(TObject *Sender)
{
// open thread blocking socket
ServerSocket1->Active = true;
}
void __fastcall TForm1::SocketCloseClick(TObject *Sender)
{
// close thread blocking socket
ServerSocket1->Active = false;
}

Hans Galema · Guest

Paul wrote:

Hans Galema · Guest

Paul wrote:

Paul · Guest

The problem is that I always get the condition which gives the close socket,
and it 'never' reaches the following snippet. And it does this when the
client does the send text, so its not 60s timeout related.

// Back again to Client
pStream->Write( buffer, sizeof(buffer));

I've even closed down my ZoneAlarm firewall just to make sure its not
causing a problem. I'm running this test on W98SE, and have got all the
latest windows updates. Its driving me nuts! It should be so simple. Any
ideas?

Paul.

"Hans Galema" <notused (AT) notused (DOT) nl> wrote

Hans Galema · Guest

Paul wrote:

Paul · Guest

"Hans Galema" wrote

Remy Lebeau (TeamB) · Guest

"Paul" <plmacca (AT) clara (DOT) co.uk> wrote

Remy Lebeau (TeamB) · Guest

"Paul" <plmacca (AT) clara (DOT) co.uk> wrote

Paul · Guest

Its all as per the tutorial really. I may zip it up and try it on a XP
machine to see if its my W98SE installation, hopefully not.

Here's the server main form and thread:

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
TServerClientWinSocket *ClientSocket, TServerClientThread
*&SocketThread)
{
SocketThread = new TMyServerThread(false, ClientSocket);
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::SocketOpenClick(TObject *Sender)
{
// open thread blocking socket
ServerSocket1->Active = true;
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::SocketCloseClick(TObject *Sender)
{
// close thread blocking socket
ServerSocket1->Active = false;
}
//--------------------------------------------------------------------------
-
void __fastcall TMyServerThread::ClientExecute(void)
{
// make sure connection is active
while (!Terminated && ClientSocket->Connected)
{
try
{
// Now, use TWinSocketStream to read or write information
// over a blocking socket connection
TWinSocketStream *pStream = new TWinSocketStream(ClientSocket,
CLIENTWAITTIME);

try
{
char buffer[BUFFERSIZE];
memset( buffer, 0, sizeof(buffer) );

// give the client 60 seconds to start writing
if (pStream->WaitForData(pStream->TimeOut))
{
if (pStream->Read(buffer, sizeof(buffer)) == 0)
{
// (if can't read in 60 seconds) than close the connection
// ClientSocket->Close();
}
else
{
// Client to Server test text
// Form1->Memo1->Lines->Add(AnsiString("(Client) ")
+AnsiString(buffer) );

// Back again to Client
pStream->Write( buffer, sizeof(buffer));
}

// ...
// Process requests here.
// ...

}
/*
else
{
ClientSocket->Close();
}
/**/
}
__finally
{
delete pStream;
}
}
catch (...)
{
HandleException();
}
}
}

And here's the client main form:

//--------------------------------------------------------------------------
-
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------
-
void __fastcall TForm2::Button1Click(TObject *Sender)
{
AnsiString Server = ClientSocket1->Host;

if (ClientSocket1->Active)
{
Memo1->Lines->Add("Button Click : Port was open, now closed.");
ClientSocket1->Active = false;
}
if (InputQuery("Computer to connect to", "Address Name:", Server))
{
if (Server.Length() > 0)
{
ClientSocket1->Host = Server;
ClientSocket1->Active = true;
}
}
}
//--------------------------------------------------------------------------
-
void __fastcall TForm2::Button2Click(TObject *Sender)
{
ClientSocket1->Active = false;
}
//--------------------------------------------------------------------------
-
void __fastcall TForm2::ClientSocket1Read(TObject *Sender, TCustomWinSocket
*Socket)
{
Memo1->Lines->Add("Read Event Handler");

if (ClientSocket1->Active == true)
if (Socket->Connected == true)
Memo1->Lines->Add( AnsiString("(Server) ") +
Socket->ReceiveText() );
}
//--------------------------------------------------------------------------
-
void __fastcall TForm2::ClientSocket1Write(TObject *Sender, TCustomWinSocket
*Socket)
{
Memo1->Lines->Add("Write Event Handler");
if (ClientSocket1->Active == true)
{
Memo1->Lines->Add("..Port Active");
if (Socket->Connected == true)
{
AnsiString str = "....Send Text";
int i = Socket->SendText("This text is passed to and from");
str += i;
Memo1->Lines->Add(str);
}
}
}

Remy Lebeau (TeamB) · Guest

"Paul" <plmacca (AT) clara (DOT) co.uk> wrote

Paul · Guest

All in all then not really a good tutorial. If my s/w manager came back
with this many comments after a code review I'd feel gutted.

This is going to take a little while to digest and try out. I'll let you
know how I get on. Many thanks for your input.

"Remy Lebeau (TeamB)" <no.spam (AT) no (DOT) spam.com> wrote