Interbase 5.0 et delphi 4
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:
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:
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:
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
