IBSQL und Firebird

**hanspeter**

Hallo,

ich verwende XE2 , Firebird 2.5 und greife auf diese Datenbank über "InterBase Express core components" k zu.

Der Konstruct:

markieren

Delphi-Quellcode:

			IBSQL := TibSQL.Create;

IBSQL.Database := Database

IBSQL.Transaction := readTransactin

IBSQL.Text := Select * from Daten where id=123;

IBSQL.Open;

...

IBSQL.Close;

IbSQL.Free;

Die Abfrage funktioniert korrekt.
Bei IBSQL.free
stürzt das Programm tief im System in "class function TMonitor.GetFieldAddress(AObject: TObject): PPMonitor; ab.
Anweisung Result := PPMonitor(PByte(AObject) + AObject.InstanceSize - hfFieldSize + hfMonitorOffset);
Hier scheint AObject.InstanceSize einen Zugriffsfehler zu bringen.
Das passiert aber nur bei manchen Abfragen.
Hat wer eine Idee was dass sein könnte?

Gruß Peter

IBSQL und Firebird

IBSQL und Firebird

Forumregeln