Italian community of Lazarus and Free Pascal

Programmazione => Databases => Topic aperto da: walmic - Marzo 30, 2017, 10:09:52 pm

Titolo: Zeos access e MySQL
Inserito da: walmic - Marzo 30, 2017, 10:09:52 pm

Buonasera a tutti, forse può servire a qualcuno questo post.
Sono riuscito a fare la mia prima app in Lazarus grazie al vs aiuto, questa app si connette a un DB MySQL, per risolvere il problema delle librerie MySQL in Zconnection, ho copiato queste librerie nella stessa dir dove ho il progetto Lazarus ed ora funziona. Sto parlando di Lazarus su OSX 10.6.8.
Saluti

Titolo: Re:Zeos access e MySQL
Inserito da: Avogadro - Marzo 31, 2017, 12:26:54 am

Io ho risolto così:

"Procedure TForm1.FormCreate(Sender: TObject);
var ExePath: string;

begin
   // per il settaggio a run time di dati e libreria

   ExePath:=ExtractFilePath(Application.ExeName);

   //zconnection1.LibraryLocation:=exepath+'\sqlite3.7.11.dll';
   //zconnection1.LibraryLocation:=exepath+'\sqlite3.dll';
   //zconnection1.LibraryLocation:=exepath+'\sqlite3.dll';

   zconnection1.Database:=ExePath+'..\dati\dati_fk.sqlite';
   zconnection1.LibraryLocation:=ExePath+'..\sqlite32bit\sqlite3.dll';
   zconnection1.Connected:=true;
   zconnection1.ExecuteDirect('PRAGMA foreign_keys = ON');
   Ztable1.Active:=true;
   Ztable2.Active:=true;
   Ztable3.Active:=true;
   Ztable4.Active:=true;
   Ztable5.Active:=true;
   Ztable6.Active:=true;
   Ztable7.Active:=true;

   Ztable1.First;
 
   calendardialog1.Date:=date;
   application.ShowHint:=true;;
   application.HintHidePause:=20;
   application.HintColor:=clyellow;
   form1.ShowHint:=true;
   statusbar1.AutoHint:=true;
 
end; "
         

magari ci sarà anche un modo migliore, ma così l'applicazione gira anche su una pen drive

saludos