نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات

PHP كود :

var
CheminApplication:string;


FDConnection1.Connected := False;

CheminApplication:=ExtractFileDir(Application.ExeName);

FDPhysFBDriverLink1.Release;

FDPhysFBDriverLink1.VendorHome := EmptyStr;

FDPhysFBDriverLink1.VendorLib := CheminApplication+'\Firebird25Win32Emb\fbembed.dll';


FDConnection1.DriverName                    := 'FB';

FDConnection1.Params.Values['Port']         := '3050';
FDConnection1.Params.Values['Protocol']     := EmptyStr;
FDConnection1.Params.Values['Server']       := EmptyStr;
FDConnection1.Params.Values['CharacterSet'] := 'UTF8';
FDConnection1.Params.Values['SQLDialect']   := '3';
FDConnection1.Params.Values['Database']     := CheminApplication+'\DATABASE.FDB';
FDConnection1.Params.Values['User_Name']    := 'sysdba';
FDConnection1.Params.Values['Password']     := 'masterkey';

try
FDConnection1.Connected := True;

votre table.Active  := True;



except
    on E: EDatabaseError do
    ShowMessage(E.Message);
end;

PHP كود :

DataModule1.FDConnection1.Connected := False;

DataModule1.FDPhysFBDriverLink1.Release;
DataModule1.FDPhysFBDriverLink1.VendorHome := EmptyStr;
if PC_TYPE.caption  = 'Local' then  begin

DataModule1.FDPhysFBDriverLink1.Release;
DataModule1.FDPhysFBDriverLink1.DriverID := 'FB';
DataModule1.FDPhysFBDriverLink1.Embedded   := True;
DataModule1.FDPhysFBDriverLink1.VendorHome := EmptyStr;
DataModule1.FDPhysFBDriverLink1.VendorLib := CheminApplication+'\Firebird30Win32\fbclient.dll';

DataModule1.FDConnection1.Connected := False;
DataModule1.FDConnection1.DriverName                    := 'FB';
DataModule1.FDConnection1.Params.Values['Port']         := '3050';
DataModule1.FDConnection1.Params.Values['Protocol']     := 'local';

DataModule1.FDConnection1.Params.Values['ExtendedMetadata']     := 'True';

DataModule1.FDConnection1.Params.Values['Server']       := EmptyStr;
DataModule1.FDConnection1.Params.Values['CharacterSet'] := 'UTF8';
DataModule1.FDConnection1.Params.Values['SQLDialect']   := '3';
DataModule1.FDConnection1.Params.Values['Database']     := CheminApplication+'\DATA\DATA_BASE.FDB';
DataModule1.FDConnection1.Params.Values['User_Name']    :='sysdba';
DataModule1.FDConnection1.Params.Values['Password']     := 'masterkey';

كود :

fbclient.dll
firebird.msg
ib_util.dll
icudt52.dll
icudt52l.dat
icuin52.dll
icuuc52.dll
firebird.conf
databases.conf
msvcp100.dll
msvcr100.dll
intl\fbintl.conf
intl\fbintl.dll
plugins\engine12.dll

كود :

plugins\engine12.dll
fbclient.dll
firebird.msg
ib_util.dll
icudt52.dll
icudt52l.dat
icuin52.dll
icuuc52.dll
msvcp100.dll
msvcr100.dll

PHP كود :

var repertoire : string;
begin


Repertoire := ExtractFilePath(paramstr(0));
 With SQLConnection1 do
  begin

    Params.Clear;


    DriverName :='Firebird';
    Params.Add('DriverUnit=Data.DBXFirebird');
    Params.Add('LibraryName=dbxfb.dll');
    Params.Add('LibraryNameOsx=libsqlfb.dylib');
    Params.Add('VendorLib=fbclient.dll');
    Params.Add('VendorLibWin64=fbclient.dll');
    Params.Add('VendorLibOsx=/Library/Frameworks/Firebird.framework/Firebird');
    Params.Add('Database='+repertoire+'DATABASE.FDB');
    Params.Add('User_Name=sysdba');
    Params.Add('Password=masterkey');
    Params.Add('Role=RoleName');
    Params.Add('MaxBlobSize=-1');
    Params.Add('LocaleCode=0000');
    Params.Add('IsolationLevel=ReadCommitted');
    Params.Add('SQLDialect=3');
    Params.Add('CommitRetain=False');
    Params.Add('WaitOnLocks=True');
    Params.Add('TrimChar=False');
    Params.Add('BlobSize=-1');
    Params.Add('ErrorResourceFile=');
    Params.Add('RoleName=RoleName');
    Params.Add('Trim Char=False');
    Params.Add('ServerCharSet=none');

  end;
 try
  SQLConnection1.Connected:=true;
  Edit1.Text:='Base connecté';
 // SQLQuery1.Open;
 // ClientDataSet1.Active:=true;
 Except
  Edit1.Text:='Pas de connexion';
 end;


end;