ZeosLib: ständig Access-Viol. bei GetIntByName & Serial-Typ

[MatthiasR]

Ich sitze gerade vor einem vordergründig simplen Problem, nur komme ich beim besten Willen nicht auf eine Lösung bzw. die Ursache.

Ich greife mittels ZeosLib auf eine PostgreSQL-Datenbank zu. Dort habe ich eine Winz-Tabelle "test" angelegt, bestehend aus zwei Spalten:

- "test_id" vom Typ Serial (also ein auto-inkrementierender Integer) --> Primärschlüssel
- "kuerzel" vom Typ Character Varying(256)

Ich möchte einfach nur alle Datensätze der Tabelle abrufen (zwei sind vorhanden) und deren Primärschlüssel in einem dynamischen Integer-Array zwischenspeichern. Hier das kleine Testprogramm:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ZConnection;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ZConnection1: TZConnection;
    Query: TZQuery;
    procedure Button1Click(Sender: TObject);
  private
    FTerminartIds: array of Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Query.Close;
  Query.SQL.Text := 'SELECT * ' +
                    'FROM test;';
  Query.Open;
  SetLength(FTerminartIds, Query.RecordCount);
  if Query.FindFirst then
  begin
    for i := 0 to (Query.RecordCount - 1) do
    begin
      FTerminartIds[i] := Query.DbcResultSet.GetIntByName('test_id'); // Access Violation
      Query.FindNext;
    end;
  end;
end;

Ich erhalte in der markierten Zeile immer eine Access Violation und zwar berschachtelt in einer der Zeos-Units. Der Aufruf-Stack schaut in der Art aus:

Zitat:

--------------------------------------------------------------------------------------
|Unit |Class |Procedure/Method |Line |
|-------------------------------------------------------------------------------------
|ZDbcCache.pas |TZRowAccessor |GetInt |1129[5]|
|ZDbcCache.pas |TZRowAccessor |GetInt |1124[0]|
|ZDbcCachedResultSet.pas |TZAbstractCachedResultSet|GetInt |828[1] |
|ZDbcResultSet.pas |TZAbstractResultSet |GetIntByName |1153[1]|

In der ZDbcCache.pas kracht es dann in der unten markierten zeile:

Delphi-Quellcode:

function TZRowAccessor.GetInt(ColumnIndex: Integer;
  var IsNull: Boolean): Integer;
begin
{$IFNDEF DISABLE_CHECKING}
  CheckColumnConvertion(ColumnIndex, stInteger);
{$ENDIF}
  Result := 0;
  if FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] = 0 then // Access Violation
  begin
    case FColumnTypes[ColumnIndex - 1] of
      stBoolean:
        if GetBoolean(ColumnIndex, IsNull) then
          Result := 1
        else Result := 0;
      stByte: Result := GetByte(ColumnIndex, IsNull);
      stShort: Result := GetShort(ColumnIndex, IsNull);
      stInteger:
        Result := PInteger(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1])^;
      stLong: Result := GetLong(ColumnIndex, IsNull);
      stFloat: Result := Trunc(GetFloat(ColumnIndex, IsNull));
      stDouble: Result := Trunc(GetDouble(ColumnIndex, IsNull));
      stBigDecimal: Result := Trunc(GetBigDecimal(ColumnIndex, IsNull));
      stString, stUnicodeString:
        Result := StrToIntDef(GetString(ColumnIndex, IsNull), 0);
    end;
    IsNull := False;
  end else
    IsNull := True;
end;

Irgendjemand eine Idee? Kann eigentlich nicht so schwer sein, aber ich komm echt nicht drauf