Bug und Fix in der IBX bei Zugriff auf Firebird Datenbank

[Alphacodex]

So Hallo nochmal,

ich hab es selbst gelöst. Ich musste den Code nochmal leicht anpassen und in ein Dummy-Projekt importieren. Die kompilierte .dcu habe ich dann wieder ins Programmverzeichnis von Delphi (/lib/irgendwas) kopiert.

Voila - keine Division by Zero Fehler mehr. Datenbank läuft endlich - das war der Haupt-Fehler der alles aufhielt...


Hier nochmal der veränderte Code in der unit IBSQL (IBX Komponente)

Delphi-Quellcode:

// Original Function
// function TIBXSQLVAR.GetCharsetSize: Integer;
// begin
//  case SQLVar.SQLSubtype of
//    0, 1, 2, 10, 11, 12, 13, 14, 19, 21, 22, 39,
//    45, 46, 47, 50, 51, 52, 53, 54, 55, 58 :  Result := 1;
//    5, 6, 8, 44, 56, 57, 64 : Result := 2;
//    3 : Result := 3;
//    59 : Result := 4;
//    else
//      Result := 0;
//  end;
// end;

// Fixed Function
function TIBXSQLVAR.GetCharsetSize: Integer;
begin
  case SQLVar.SQLSubtype and $FF of
    0, 1, 2, 10, 11, 12, 13, 14, 19, 21, 22, 39,
    45, 46, 47, 50, 51, 52, 53, 54, 55, 58 :  Result := 1;
    5, 6, 8, 44, 56, 57, 64 : Result := 2;
    3  : Result := 3;
    4, 59 : Result := 4;
    else
      Result := 0;
  end;
end;

Grüße
Codex