How can I enable search?

[dmarnerou]

Hi,
I would like to ask how can I enable search in my Delphi program to search for an image on my disc and then save this image on the database I created using Microsoft's SQL Server, which is connected with my program.
It would be very helpful if you could provide me with some sample code.

Thank you,
Demetra

 

[Kocky]

The function you are looking for is "FindFirst".
Take a look at the help file in Delphi and things will be clear.

 

[awarnica]

When you save the file to the database you will have to store it as a BLOB. It may be easier / more practical to just store a link to the location of the file on the server.

Andrew

 

[richardchaven]

var
   ThisSearch : TSearchRec;
begin
   if SysUtils.FindFirst(ADirectoryName + '\' + AFileMask, AnAttributeMask, ThisSearch) = 0 then
   try
       repeat
           if (ThisSearch.Name <> '.') and (ThisSearch.Name <> '..') then
           begin
               ThisDataSet.Insert;
//               ThisDataSet.add some key field
               ThisDataSet.FieldByName('IMAGE_BLOB').LoadFromFile(ADirectoryName + '\' + ThisSearch.Name);
               ThisDataSet.Post;
           end;
       until (FindNext(ThisSearch) <> 0);
   finally
       SysUtils.FindClose(ThisSearch);
   end;

Also look at SysUtils.FileSearch; it might do just fine for you.

Cheers