Discussion :

[freud]

Bonsoir,

Ma difficulté est de faire fonctionner une application qui se connecte à FB en utilisant FibPlus et ce, hors machine de developpment pour des testes.

Voici le code de connection que j'utilise :

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
 
with DM1.DB1 do
begin
if Not DM1.DB1.Connected Then
 Begin
 DBParams.Clear;
 DBParams.Add ( 'user_name=' + 'SYSDBA' );
 DBParams.Add ( 'password=' + 'masterkey' );
 DBParams.Add ( 'lc_ctype=ISO8859_1');
 DBParams.Add ( 'SQL_DIALECT=3' );
 SQLDialect := 3;
 LibraryName := 'C:\Program Files\Firebird\Firebird_2_1\bin\fbclient.dll';
 DBName :=  'serveur:D:\data\base.fdb'; 
 Timeout := 0;
 try Connected := True;
 except
 on e: Exception do
 ShowMessage(e.Message);
 end;
 end;
end;

-DB1 etant le nom du composant TpFIBdatabase.
-Serveur est le nom de la machine de developpement
-le teste s'effectue en local

Sur la machine de développement ca marche trés bien mais lorsque je teste l'application sur une autre machine ca ne marche pas et pas de message d'erreur sauf si je donne un chemin incorret à ce moment là ca donne unavailable database.

Et le hic ! est que lorsque je teste cela sous WMware ca marche comme sur la machine de developpment...curieux, non ?

Pour info, dans DBName je peux même affecter ces variantes qui marchent sans aucuns problème :

Code :

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

1
2
3
 
- DBName :=  'D:\data\base.fdb'; 
- DBName :=  'localhost/3050:D:\data\base.fdb';

Alors comprend pas pourquoi ca marche sur une machine et pas sur une autre etant données que les paramètres sont les mêmes.

Merci d'avance pour votre aide, suis vraiment coincé.

[makowski]

et en remplaçant le nom du serveur par son IP ?
et est ce que ta machine voit bien le serveur (ping) ?

[freud]

et en remplaçant le nom du serveur par son IP ?

Pour la machine de developpement et en local ca marche avec 127.0.0.1
pour la machine WMware ca fonctionne bien en local et en tant que client en indiquant le nom du serveur (celle de la machine de developpment).

Pour la 2eme machine celle pour les teste, j'avoue que je n'ai pas remplacer
le nom de la machine par son IP (127.0.0.1). Pour ca je l'essayerais demain je n'ai pas la 2eme machine à côté

et est ce que ta machine voit bien le serveur (ping) ?

Non, le problème est en local d'abord.

Merci Makowski

[Barbibulle]

Je ne comprend pas bien l'architecture.

La machine sur lequel cela ne fonctionne pas héberge aussi Firebird serveur ou c'est juste un client et le serveur est une autre machine ?

Pourrait on avoir le message d'erreur exacte svp ?

[freud]

La machine sur lequel cela ne fonctionne pas héberge aussi Firebird serveur ...

Oui en effet...c'et un 2eme PC

ou c'est juste un client ...

Le client je l'ai fait depuis WMware sur la même machine et ca a marchait
(en installant FB comme client sur WMware) de même que toujours dans WMware j'ai installer FB en tant que serveur.. mais ce que est curieux c'est que je n'ai pas de message d'erreur ...efin je m'attend que le :

Code :

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

1
2
3
 
ON e: Exception do
 ShowMessage(e.Message);

me renvoi une erreur.....

[Barbibulle]

Vous ne m'avez pas compris, je voudrais connaitre l'architecture de l'environnement de production (celle qui ne fonctionne pas).

La configuration qui ne fonctionne pas
1/ C'est un seul PC ou un PC client + 1 serveur ?
2/ Quel système d'exploitation
3/ Vous n'avez pas de message d'erreur ??? Le serveur firebird est bien installé ? Et il tourne ?

Enfin toutes ces informations qui pourraient être utiles.

[freud]

Désolé de ne pas vous avoir bien compris.

En fait c'est un seul PC sous XP SP2 et FB est bien installer et le service démarrer.


Le message d'erreur ne s'affichait pas à cause des lignes que j'avais mis et j'ai dû les supprimer. C'est dans l'appel du code que j'ai poster au début qui est en fait une fonction et l'appel est :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Try
DM1.Login(DatabaseName, UserName, PassWord,LibraryName,iTimeOut);
DM1.OpenDatabase;
Except
ModalResult:=mrNone;
MessageBeep(MB_ICONEXCLAMATION);
MessageDlg(msgConnectionFailed,mtError,[mbOk],0);
Exit;
End;

en supprimant le
try
except
end;

ca me donne :

Code :

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

1
2
 
Error loading MIDAS.DLL

parce que j'utilise les clientdataset dont j'ai completement oublier de copier cette DLL dans le dossier de l'application. Je pense que cela vient de là je dois donc attendre demain pour tester cela dans le 2eme PC

Mille excuses si cela ne vient que de cette DLL et merci à vous tous.

[freud]

Bonjour,

Mon problème venait de midas.dll que je n'avais pas inclus.
Désolé et merci à tous