Bonjour,
Je fais appel a vos connaissances car je suis dans la misère lol.
J ai un systeme qui tourne sous WinNt4.0 sp6 avec delphi 4 et oui ca existe encore.
Ja dois abolument migrer vers Windows server 2008R2.
J ai donc reinstallé delphi 4 sur ce serveur et j ai du installé interbase 6.5 car la 5.0 n'a pa voulu s' installer.
J 'ai recompilé les differentes appli sans probleme recreer la base sous interbase 6.5. Je peux l'ouvrir et voir les tables sans probleme.
J ai installé les coomposants FIB
Les applis tournent mais celle qui fait appel à la data base se plante.
Je vous joint les differentes parties qui posent probleme.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
	// Ouvrir la DataBase
  	DBB := TDataModule1.create(self) ;
  DBB.Start(PCName, PC2Name, PCAddr, PC2Addr) ;
Ca se plante a DBB Start.

DBBstart fait appel a :
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
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 ;
et a la première ligne du Try ca se plante a:
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;
debugger sur CsReading

Je ne suis pas specialiste de delphi ni des bases de données
Auriez vous des pistes a me soumettre.

En vous remerciant
Cordialement.
Herve