Migrating from DBExpress to FireDAC

-

In my last blog I explained how to migrate from IBExpress to FireDAC. Here I will show you how to migrate a client-server application that using DBExpress data access components, such as TSqlConnection, TSqlTable, TSqlQuery, TSqlStoredProc to the FireDAC. It shows the basic principles of replacing the common components, properties and code, preserving the developers working time and avoiding the common migration pitfalls.

So lets start in steps.

1. Units Changed
We need to replace used DBExpress units to FireDAC units.
Find 
FMTBcd, SqlExpr
Replace
          FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf,
FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Phys, FireDAC.Stan.Pool,
FireDAC.Stan.Async, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, FireDAC.Comp.Client, FireDAC.Comp.DataSet

2. DBExpress components classes compatible with FireDAC
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
TSQLConnection
TFDConnection
TSQLTable
TFDTable
TSQLQuery
TFDQuery
TSQLStoredProc
TFDStoredproc
TSQLDataset
TFDCommand
TSimpleDataset
TFDMemTable

3. Other Types classes changed
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
TParams
TFDParams
TBlobStream
TFDBlobStream
TBDEDataSet
TFDRDBMSDataSet

4. TSQLConnection -> TFDConnection Properties
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
Driver
DriverName
KeepConnection
ResourceOptions.KeepConnection
TableScope
Not Supported so remove.

Note* - OnLogin Event
TSQLConnection.OnLogin event is different than TFDConnection.OnLogin. So we should remove Tdatabase event and re-write TFDConnection Event.

5. TSQLTable -> TFDTable Properties
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
SQLConnection
Connection
GetMetadata
Not Supported so remove.
MaxBlobSize
Not Supported so remove.
NumericMapping
Not Supported so remove.

6. TSQLQuery -> TFDQuery Properties
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
SQLConnection
Connection
Datasource
MasterSource

Note. Please check MasterFields
GetMetadata
Not Supported so remove.
MaxBlobSize
Not Supported so remove.
NumericMapping
Not Supported so remove.
Datasource
MasterSource

Note. Please check MasterFields
ParamCheck
ResourceOptions.Paramcreate
SchemaName
Not Supported so remove.

7. TSQLStoredProc -> TFDStoredProc     Properties
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
SQLConnection
Connection
GetMetadata
Not Supported so remove.
MaxBlobSize
Not Supported so remove.
NumericMapping
Not Supported so remove.
Datasource
MasterSource

Note. Please check MasterFields
ParamCheck
ResourceOptions.ParamCreate
SchemaName
Not Supported so remove.


8. TSQLDataset -> TFDCommand   Properties
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
SQLConnection
Connection
CommandType
CommandKind
Datasource
Not supported so remove
DBXCommandtype
Not supported so remove
MaxBlobSize
Not Supported so remove.
NumericMapping
Not Supported so remove.
ParamCheck
ResourceOptions.Paramcreate
SortFieldNames
Not Supported so remove.

9. TSimpleDataset -> TFDMemTable        Properties
Search DBEXPRESS classes and replace with FireDAC classes

 DBEXPRESS
 FireDAC
Connection
Adapter
Dataset
Not supported so remove
FileName
Not supported so remove
Params
Not supported so remove
Readonly
UpdateOptions.Readonly

10. Sorting
FireDAC components like TFDQuery, TFDTable does not have Sort property. So we have to use IndexFieldNames property for sorting. So where ever we have used Sort for sorting in our project we need to replace with IndexFieldNames like follow.

ADQuery1.IndexFieldNames := 'ORDERID';
or
ADQuery1.IndexFieldNames := 'OrderDate:D;Price'; //D for descending//

11. TBookMark Changes for Dataset components
When we save a bookmark for future use we must use pointer for

var
BookMark : Pointer;
CDS : TClientDataset
……
// Required so your assignment doesn't attempt to free a non-existent bookmark //
 Bookmark := nil;
 TBookmark(Bookmark) := CDS.GetBookmark;

12. Data Property

If we use TFDQuery and ClientDataset together then Data property is mostly used to assign saved data to any other dataset component directly instead of using any loop. Here TFDQuery have also Data property but type is different. Earlier in TADOQuery or other Query component, Data property was OleVariant type which was same type like ClientDataset but now it is IFDDataSetReference. So we cannot just assign directly like.

Clientdataset1.Data := FDQuery.Data; //will result an error //

Above code will compile successfully but will result “Invalid data packet” error at runtime. In this scenario we have to use TDatasetProvider as mediator to transfer data from once dataset to another. We can use DatasetProvider.Data property like follow.


DataSetProvider1.Dataset := FDQuery1;
FdQuery1.Open;
Clientdataset1.data := DatasetProvider1.data;

14. Extra points to check
Need to change some numeric fields to TBCDFields when it will show error and set Size=2 when in Database field type is like number(15,2)

Comments

Post a Comment

Popular posts from this blog

ShellExecute in Delphi

-
ShellExecute in Delphi – Launch external applications. ShellExecute is Delphi Windows API function that is mostly used for launch external applications from our Delphi application. This function is linked to the ShellExecute Windows  API function. The function returns an integer that corresponds to an error code which is very useful when we need to show some status  if the function worked  or not . By using ShellExecute we can also do following operations.... Can print documents from within my program, without explicitly starting the application  that created the document, such as: print a Word-document without starting Word. Can open browser with a local HTML page Can surf to a site i.e. open an external URL link from a Delphi application Can send mails thorugh outlook Syntax of Windows API function HINSTANCE ShellExecute(   _In_opt_        HWND hwnd,   _In_opt_        LPCTSTR lpOperation,   _In_              LPCTSTR lpFile,   _In_opt_        LPC
Read more

How to send Email in Delphi?

-
Today in most of software program it is required to send mail to others with attached data. As some time we need to update clients about their account details, status or any other information through mail. So Delphi provides so many easiest ways to send mail from our Delphi application. I have collected some of ways which are very useful for Delphi developers. In Delphi we don't required any third party components to send mails. We can send mail to single or group of peoples with CC, BCC and attachments. Even we can send HTML mails from Delphi. So here are the ways... 1. ShellExecute Sends Email using default mail client software installed on user's system. But it will not work with attachment for every mail client. And you have to use ShellAPI  unit in uses list. ShellExecute(Self.Handle,              nil,              'mailto:' +              'jiten.g.s001@gmail.com' +              '?Subject=Test Message Subject' +            
Read more

Drawing Shapes in Delphi

-
Image
Believe me, drawing shapes in Delphi is so easy. To develop a software like CAD, Paint, CorelDraw Delphi provides large number of classes and members that supports to draw shapes on a form or on a graphic control. In Delphi, we draw shapes on canvas of a form or graphic controls. Canvas is an area of form where we can draw shapes, lines and can fill colors on shapes. In Delphi, every form or graphic controls have Canvas property which provides TCanvas object that can be used to draw shapes. TPen object is used to draw lines and we can set size, color of lines. TBrush object is used to set color and style to fill the shapes. Most frequently used classes for drawing shapes are TCanvas , TBitmap, TGraphics, TPen, TBrush TCanvas Use TCanvas as a drawing surface for objects that draw an image of themselves TBitmap   Bitmap is a powerful graphics object used to create, manipulate (scale, scroll, rotate, and paint), and store images in memory and as files on a disk.  TGraphics TGr
Read more