Discussion :

[panjas51]

Bonjour,

J'ai fais une petite appli sour Ubuntu qui connecte Mysql5.0
Elle fonctionne.

Je veux compiler cette appli sous Windows.
J'ai installé la dernière version de Lazarus sous Windows (mon portable) qui me permet de finir cette appli.
Car sur mon portable et pour la finir, j'ai installé la dernière version de Easyphp qui contient Mysql 5.1.

Mais cette appli n'arrive pas à se connecter ?
Pas plus d'info sur le message d'erreur ; de memoire: "Raised error in EInOutError" à la ligne .open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  MySQLConnection1: TMySQL50Connection;
 
  MySQL50Connection1.HostName := HostEdit.Text;
  MySQL50Connection1.UserName := UserEdit.Text;
  MySQL50Connection1.Password := PasswdEdit.Text;
  MySQL50Connection1.DatabaseName := 'mysql'; 
  MySQL50Connection1.Open;

Une idée ?

[gibbe]

Bonjour,
as-tu pensé à mettre dans ton projet ou dans un répertoire de recherche windows la librairie libmysql.dll (ou peut-être libmysql50.dll, je ne sais plus)?

[panjas51]

j'ai cherché, mais je n'ai pas trouvé comment ajouter cete dl dans Lazarus.
Elle est bien présente dans easyPhp,
Comment faire le lien?

[M.Dlb]

Je ne sais pas comment ça fonctionne, mais essaye de copier cette librairie dans le même répertoire que l'exécutable lazarus ?

[gibbe]

Sur mon poste elle est présente dans c:\windows\system32

[panjas51]

j'ai essayé le la mettre dans le repertoire d'appli, mais je vais essayer dans System 32.

Je vous tiens au courant.

Merci

[panjas51]

Bonjour,
as-tu pensé à mettre dans ton projet ou dans un répertoire de recherche windows la librairie libmysql.dll (ou peut-être libmysql50.dll, je ne sais plus)?

Je n'ai que la dll libmysql.dll
Je viens de lire quelque part, qu'il faut peut être renommer cette dll en l'appellant libmysql50.dll

Je vais essayer avec les Deux..

[panjas51]

Ca ne marche pas....

Même après un reboot PC

[gibbe]

Ton code semble étrange. As-tu posé l'objet connexion sur la fiche?

Lazarus cherche bien la dll du nom de libmysql.dll. Par contre vérifies qu'il s'agit bien de la version 5.0 (la mienne fait 1436 ko) et mets la dans le répertoire de ton projet. Attention il existe aussi libmysqld.dll, à ne pas confondre!
Voila le code d'une unité qui comporte trois boutons connecter,deconnecter,sortir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  mysql50conn;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    MySQL50Connection1: TMySQL50Connection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.terminate;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  MySQL50Connection1.HostName := HostEdit.Text;
  MySQL50Connection1.UserName := UserEdit.Text;
  MySQL50Connection1.Password := PasswdEdit.Text;
  MySQL50Connection1.DatabaseName := 'mysql';
  MySQL50Connection1.connected:=true;
  if MySQL50Connection1.connected then
    showmessage('La base mysql est connectée')
    else
    showmessage('La connexion a échoué!');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  MySQL50Connection1.connected:=false;
  if MySQL50Connection1.connected then
    showmessage('La deconnexion a échoué!')
    else
    showmessage('La base mysql est déconnectée');
end;
 
initialization
  {$I unit1.lrs}
 
end.

Bonne chance.

[panjas51]

1) Merci du bout de code..

2), ca foncgtionne effectivement , mais avec bien du mal..
Reboot Pc, Reboot Easyphp.
Création d'un nouveau projet...


Enfin, ca marche.
Merci à tous.