Parametertyp "Table of TimeStamp(9)" an Stored Procedure

[sirius]

Aus der Erkenntnis heraus, dass die Zuweisung funktioniert, wenn das Objekt bereits durch eine Query geschickt wurde, habe ich folgende Init-Methode geschrieben:

Delphi-Quellcode:

procedure TWrite.Init(out aTimes: TORacleObject; aAmount:Integer);
var Query:TOracleQuery;
begin
  ATimes := TOracleObject.Create(FSession, '"TTIMESTAMPLIST"', '');
  Query:=TOracleQuery.Create(nil);
  try
    Query.Session:=FSession;
    Query.DeclareVariable('ATIMES', otObject);
    Query.DeclareVariable('AAMOUNT', otInteger);
    Query.SetVariable('AAMOUNT',aAmount);
    Query.SetComplexVariable('ATIMES', Atimes);
    Query.SQL.Add('declare');
    Query.SQL.Add('x TTIMESTAMPLIST;');
    Query.SQL.Add('begin');
    Query.SQL.Add('    x :=TTIMESTAMPLIST();');
    Query.SQL.Add('    x.extend(:AAMOUNT);');
    Query.SQL.Add('    :ATIMES:=x;');
    Query.SQL.Add('end;');
    Query.Execute;
  finally
    Query.Free;
  end;
end;

Wenn ich so das Oracleobjekt erstelle kann ich dann einfach via TOracleObject.Elements[i] die TimeStamp-Werte (als TDateTime)hineinschreiben.

Naja, zumindest eine Lösung.


Edit: Und schon wieder kurz nachdem man den Fragepost erstellt hat, findet man (zumindest) eine Lösung (nachdem man beriets einen Tag danach gesucht hat)