Discussion :

[Djedjeridoo]

Salut,

J'essaie actuellement de faire une appli ISAPI en utilisant Intraweb ...
Ca marche nickel sauf ... que j'arrive pas à attaquer ma base de données Interbase !!!!
J'ai crée une nouvelle application IntraWeb/ISAPI puis j'ai rajouté une module de données ( avec ma base Interbase ... )
Ma DLL compile bien et s'exécute bien mais à l'écran je n'ai pas mes données qui apparaissent ..... alors que si je fais la même application en mode autonome avec IntraWeb ca marche nickel chrome !!!!

Donc comment faire pour intégrer mes données ????

Merci d'avance pour votre aide,

@+

DJEDJERIDOO

[cyril]

Bonjour,

J'ai déjà fait des applications IntraWeb puis passées en Isapi avec bases de données (Oracle).
Je n'ai pas rencontré ce problème.
Peut-être que tu n'es pas connecté à ta base. Tu devrais faire un fichier log qui te permettrais de savoir si tu est connecté, si ta requête est vide etc..
Ceux sont juste des idées pour localiser le problème.
En espérant faire avancé ton problème.
A+
Cyril

[Djedjeridoo]

Comment on fait un fichier log ??

@+

DJEDJERIDOO

[cyril]

Un fichier Log est un fichier texte.
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure FichierLog(Messsage : string);
var
  Fichier : TextFile;
begin
  AssignFile(Fichier,  ExtractFilePath(application.ExeName)+'Debug.log');
  if FileExists(ExtractFilePath(application.ExeName)+'Debug.log') then
    Append(Fichier)
  else
    Rewrite(Fichier);
  Writeln(Fichier, formatdatetime('dd/mm/yyyy hh:nn:ss', now) + '  - ' + Messsage);
  CloseFile(Fichier);
end;

C'est une solution. Il y a d'autres façons de le créer.

A+
cyril

[Djedjeridoo]

J'ai modifié un truc sur la base et maintenant j'ai le message suivant :

Code :

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

1
2
3
 
Intraweb ERROR
unavailable database ...

Tu vois d'où ça peut venir ???

@+

DJEDJERIDOO

[cyril]

Je ne sais pas d'ou cela provient mais je pense que c'est un problème de connection.
Il faut que tu traces toutes les actions pour déterminer l'origine.

[Djedjeridoo]

Je les traces comment les actions ?

Avec le fichier log ?

Où on code ce fichier ? Comment on l'utilise ?

@+

DJEDJERIDOO

[cyril]

Oui avec le fichier Log.
Tu mets la procédure dans ton DataModule.
Exemple d'utilisation:

Code :

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

1
2
3
 
FichierLog('Ici début de la connection); 
et ainsi de suite

[Djedjeridoo]

J'ai essayé de faire ce que tu me dis m'ai j'ai lors de l'éxécution :

Code :

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

1
2
 
Accès au fichier refusé ...

Au fait, il est stocké où ce fichier ???

@+

DJEDJERIDOO

[cyril]

Le fichier est stocké dans le même répertoire que ton application grâce
à

Code :

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

1
2
 
ExtractFilePath(application.ExeName)

Pour plus de détails voir l'aide de Delphi comme pour la création d'un fichier texte.
Regardes si ton fichier a été créé.
Peut-être une question de droit dans ton répertoire.

[Djedjeridoo]

OK mon fichier log fonctionne ...

Mais comment voir où est le pb ????

@+

DJEDJERIDOO

[cyril]

Tu fais des tests

si connecter => Fichierlog('Connecté à la base')
sinon => Fichierlog('Pas connecté à la base')

Etc....
A demain
Cyril

[Djedjeridoo]

J'ai suivi tes conseils, j'ai fait un fichier log et voilà ce que ça donne ...

Voici d'abord le code dans mon programme :

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
 
  FichierLog('Début');
  Data_Test.IB_Base.Params[0] := 'user_name=SYSDBA';
  FichierLog('User OK');
  Data_Test.IB_Base.Params[1] := 'password=*';
  FichierLog('Password OK');
 
  Try
    Data_Test.IB_Base.Open ;
    FichierLog('Base Connectée');
  Except
    On E: EIBInterbaseError Do
      Begin
        FichierLog('Problème de connexion à la base !!');
      end;
  end;

Et voici ce que j'ai dans mon fichier log :

16/08/2004 09:19:34 - Début
16/08/2004 09:19:34 - User OK
16/08/2004 09:19:34 - Password OK
16/08/2004 09:19:34 - Problème de connexion à la base !!

Je vois pas où peut être mon problème de connexion à ma base Interbase ????

@+

DJEDJERIDOO

[cyril]

Bonjour,

Tu devrais tester ta connection en conception, en remplissant tes paramètres dans l'éditeurs de composant de base de données.
Parce que dans ton code s'il est complet. Il manque le nom de ta base de données.

A+
Cyril

[lil_jam63]

Pour les trois premieres infos de ton log, tu les auras toujours puisque dans tous les cas il n'y aura pas d'erreur, je ne connais pas du tout interbase mais est ce que celui çi renvoie un message (ou numero) d'erreur spécifique comme avec mySql?

[Djedjeridoo]

J'ai testé ma base en conception et il n'y a aucun problème de connexion !

Je commence a devenir fou la !!

@+

DJEDJERIDOO

[cyril]

Tu devrais mettre dans ton fichier l'erreur d'InterBase.

Code :

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

1
2
3
4
5
6
7
8
9
 
Try 
    Data_Test.IB_Base.Open ; 
  Except 
    On E: EIBInterbaseError Do 
      Begin 
        FichierLog('Problème de connexion à la base !!' + E.Message); 
      end; 
  end;

Je ne suis plus certain de la syntaxe à vérifier.
Je suis un peu à court d'idée.
As-tu essayé de faire du pas à pas en IntraWeb?

[Djedjeridoo]

En mettant E.message dans mon code voici ce que j'obtiens dans mon fichier log :

Code :

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

1
2
3
4
5
 
16/08/2004 12:26:31  - Début
16/08/2004 12:26:31  - User OK
16/08/2004 12:26:31  - Password OK
16/08/2004 12:26:31  - Problème de connexion à la base !! unavailable database

Je comprends vraiment pas ce qui coince ....

@+

DJEDJERIDOO

[cyril]

Aprés une recheche sur le forum. Peut-être une solution !!!!!
http://<br /> http://www.developpez...database<br />

[Djedjeridoo]

Effectivement c'est bien ça !!

J'ai mis ma base en réseau et tout marche nickel chrome .... l'accès en local ne marche pô ....

Sans doute à cause des droits via IIS ???

Merci pour tout,

DJEDJERIDOO