Italian community of Lazarus and Free Pascal
Programmazione => Databases => Topic aperto 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
-
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