Scribd
Upload
89 views

RealThinClient SDK - Accessing Databases - The Client

1) The document describes creating a simple client application that calls a function on a server to retrieve data from the server's database and display it. 2) The client is created with components like labels, edits, a button, grid and dataset to display the results, and an RTC client module to make the call to the remote function on the server. 3) The code defines event handlers for the client connection, result return, and button click that set properties, call the remote function, extract the dataset from the result, and display it on the grid if successful or show an error message if not.

Uploaded by

Reog Suroboyo
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
89 views

RealThinClient SDK - Accessing Databases - The Client

1) The document describes creating a simple client application that calls a function on a server to retrieve data from the server's database and display it. 2) The client is created with components like labels, edits, a button, grid and dataset to display the results, and an RTC client module to make the call to the remote function on the server. 3) The code defines event handlers for the client connection, result return, and button click that set properties, call the remote function, extract the dataset from the result, and display it on the grid if successful or show an error message if not.

Uploaded by

Reog Suroboyo
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 7

RealThinClient SDK – Accessing Databases

– The Client
The Client
This is the article for the client in the Accessing Databases article. At this moment, we have
our Server ready, so now it’s time to create the Client that will ask for the data. In this case,
this client is really simple, in fact, as simple as it could be. This Client will call a function on
the Server and get back the content of the table tbl_products in our Server’s database.
Steps.
1. Create a form for the Client with the needed components.
2. Write the code to call the Remote Function.

1. Create a form for the Client with the needed


components.
First, we create a new project and define a form for the client:
Client Form

In this form, we have the next components:


• A TLabel (lbServerAddress) and TEdit (edServerAddress).
• A TLabel (lbServerPort) and a TEdit (edServerPort).
• A TButton (bnConnect)
• A TDBGrid (gdProducts) that wll be used to show the returned records.
• Set gdProducts.DataSource = dsDataSet
• A TRtcHttpClient (rtcClient) to make the connection to the server.
• Set rtcClient.ReconnectOn.ConnectLost = True
• Set rtcClient.AutoConnect = True
• A TRtcClientModule (rtcClientModule)
• Set rtcClientModule.ModuleFileName = /QUERY
• Set rtcClientModule.AutoRepost = 2
• A TRtcResult (rtcResult)
• A TRtcMemDataSet (rtcMemDataSet). This is where we will store the dataset sent
back by the Server.
• A TDataSource (dsDataSource) to link data to the visual components.
That’s the visual part. Now we will put some code in the form.
First, we define the rtcResult Return procedure:
procedure TfmClient.rtcResultReturn(Sender: TRtcConnection; Data,
1 Result: TRtcValue);
2 begin
3 //Check that the result is a DataSet
4 if Result.isType = rtc_Dataset then
5 begin
6 //Take the result and put it in the rtcMemDataSet component
7 rtcMemDataSet.asObject := Result.asDataSet;
8 Result.Extract;
9 //Activate and connect the DataSet to the grid
10 rtcMemDataSet.Active := True;
11 dsDataSource.DataSet := rtcMemDataSet;
12 end
13 else
14 { We should not use modal dialogs from the context of
15 connection objects.
16 We have to exit from the connection object context
17 by using PostInteractive. }
18 if Sender <> nil then
19 PostInteractive;
20
21 { Now we are out of the connection context and can safely call a
22 modal dialog. }
23 if Result.isType = rtc_Exception then
24 Application.MessageBox('Cannot connect to the Server. Check
25 your network and that the Server is running.',
26 'Cannot Connect', MB_OK + MB_ICONSTOP + MB_TOPMOST);
27
end;
First, we check the type of the data returned by the server, it must be of type rtc_Dataset,
then we take the result and store it in the rtcMemDataSet component, then we activate the
rtcMemDataset component and link it to the dsDataSource component to make it available
for the grid. if something goes wrong then we should get an exception of type rtc_Exception,
if this is he case we will inform to the user. In order to send the message, we must be off from
the connection context, so we use PostInteractive and then send the message.
Now, we define the rtcClientConnectError procedure
procedure TfmClient.rtcClientConnectError(Sender: TRtcConnection;
1
E: Exception);
2
begin
3
Application.MessageBox('Cannot connect to the Server. Check your
4
network and that the Server is running.',
5 'Cannot Connect', MB_OK + MB_ICONSTOP + MB_TOPMOST);
6 end;
This code will be executed if there’s a problem connecting to the Server. We are just sending
a message.
Now, the last part, we define the OnClick event for the bnConnect button:
1
procedure TfmClient.bnConnectClick(Sender: TObject);
2
begin
3
// Set Client Connection Properties
4
rtcClient.ServerAddr := edServerAddress.Text;
5
rtcClient.ServerPort := edServerPort.Text;
6
// Disconnect the Datasource from the Dataset
7 dsDataSource.DataSet := nil;
8 rtcClientModule.Prepare('GetProductsData');
9 rtcClientModule.Call(rtcResult);
10 end;
11
Here we first set the Server’s Address and Port from the values entered by the user, then we
disconnect the rtcMemDataSet from the dsDataSource component, then, we disconnect the
rtcMemDataSet from the dsDataSource, prepare the Call to the Remote Function and then
call the result from rtcResult.
And that’s it, now we just compile and run the project:

Client Running
If there’s a problem connecting with the Server we will get an error:

Client Error
Otherwise, we will get the results back:

Client Result
With this simple steps we have a Server sending content over the network to a client that
displays the results. This is a ver basic example but can give you a very clear idea on how
powerful and easy to use are the RealThinClient components.

You might also like