Discussion :

[Herveg_Guin]

Bonjour,
j ai du installer sur un pc Windows server 2008R2 la version de delphi 4( je n avais pas trop le choix).
J ai recompiler les sources sans probleme, mais un des programmes se plante je pense lors de l acces a la base de données interbase a l' instruction
:
If Csreading in component state.
J' ai reintasllé FIB Component.
Je ne suis ni specialiste deplhi ne en base de données mais mon boss n a que moi lol.

Auriez vous des idées a me soumettre?
Merci

Cordialement.
Hervé

[chekkal]

Bonjour,
Si tu travail avec interbase tu as déjà les IBX (IBDatabase) spécialement destinés pour les Tables Interbase.

[ShaiLeTroll]

Plante ? As-tu un message d'erreur précis ?
2008 R2 - C'est une version 64Bits mais un programme écrit en Delphi4 serait toujours en Win32, il faut donc installer un Driver IB 32Bits, configurer ODBC 32 bits ...


FIB Component ? Il y a plusieurs lib avec un nom proche
Comment s'appeles tes Query ?
- TFIB_Query de FIB DAC que l'on trouve sur Torry
- TpFIBQuery de FIBPlus
- TIBQuery donc IBX mentionné par chekkal

D'où vient ton code ? est dans les composants mentionnés ?

Code :

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

if csReading in ComponentState then

[Herveg_Guin]

Bonjour,
merci pour vos reponses.
Le compsosant est FreeIB components.

le code if csReading in comp... est est celui de Fib Component.
je vous joint une partie du code

// Ouvrir la DataBase

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
  	DBB := TDataModule1.create(self) ;
  DBB.Start(PCName, PC2Name, PCAddr, PC2Addr) ;
 
function TDataModule1.SetTransactionActif(Num: Integer): Boolean ;
begin
  Result := False ;
 
  case Num of
    1 : begin
      if DBName1 = '' then exit ;
 
      try
        FIBTransaction1.Active := False ;
        FIBTransaction1.Active := True ;
        DB1_Ok := True ;
      except
        if DB1_Ok then
          LogInfo(_LOGERROR, 'SetTransactionActif : FIBTransaction1.Active NOK ') ;
        DB1_Ok := False ;
      end ;
      Result := DB1_Ok ;

Code du composant:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFIBTransaction.SetActive(Value: Boolean);
begin
  if csReading in ComponentState then
    FStreamedActive := Value
  else if Value and not InTransaction then
    StartTransaction
  else if not Value and InTransaction then
    Rollback;
end;

Pourriez vous m indiquer pour les drivers 32 bits et odbc que je ne connais pas.
Je suis electronicien de formation et automaticien.
Coridalement.
Hervé

[Herveg_Guin]

Bonjour,
pourriez vous m 'expliquer en quelques phrases ou plus le lien entre interbase et ODBC?
et comment savoir si les liens sont corrects.
je suis donc en delphi 4 win server 2008R2 et interbase 6.5

Cordialement.
Hervé

[ShaiLeTroll]

OK, donc c'est Free IB Components, l'ancêtre de FIBPlus si je me trompe pas !

Je ne connais pas cette lib mais je pense qu'elle utilise un accès natif qui ne nécessite pas ODBC, oubli cela pour le moment !
Si tu es curieux Existe-t-il un driver ODBC pour InterBase ou Firebird ?

Tu n'as toujours pas fourni le message d'erreur !
Est-ce à la compilation ?
Est-ce à l'exécution ?