Saving Files to a Database using Delphi: Saving Bitmaps to a Database

In fact, you can create a simple but fully functional database application in Delphi without writing a single line of code! I will take you through a step by step demonstration of how to create a rudimentary database application in Delphi using data-aware components to save and retrieve bitmaps and other files to and from a database server and how to recognize the format of blob data by checking its first four bytes.

The very first thing we need to do is create a blank database called TestDB in the remote MS SQL server. You can use any other existing database on any other server but you will have to make sure that it has a blob field in one of its tables where you can save the image. My TestDB contains just one table with three fields: a primary key field, a BLOB field and a text field for image description. This is the SQL script used to create the table:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ImgTbl]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[ImgTbl]

GO

CREATE TABLE [dbo].[ImgTbl] (

[PKey] [int] IDENTITY (1, 1) NOT NULL ,

[Image] [binary] (16) NULL ,

[ImgDescription] [char] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL

) ON [PRIMARY]

GO

If you are using an older version of Delphi which requires you to access the database through BDE (Borland Database Engine) only, or for some reason you are using dbExpress (a simple and thin data-access layer providing connectivity to SQL database servers with the help of native drivers) to connect to the server, you have to make sure that a valid ODBC DSN(Data Source Name) has been created for the database and add that DSN in the dbExpress connections. If a valid DSN doesn't exist you can create one from the ODBC Administrator in the control panel.