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

[sirius]

Ich würde gerne an eine Stored Procedure (in einem Package) einen Parameter vom Typ "Table of Timestamp(9)" übergeben.
create or replace type TTimeStampList as table of TimeStamp(9); Bisher hatte ich table of Date benutzt, reicht aber nicht mehr.
Bei "Table of Date" ging die Übergabe via DOA recht einfach über:

Delphi-Quellcode:

Dates:=TOracleObject.Create(FSession,'TDateList',''); //TDateList => Table of Date
try
  start:=now;
  for i:=0 to 1000-1 do
  begin
    Dates.Elements[i]:=varfromDateTime(i/24/3600+start); // hier AV, wenn ich "table of Timestamp" verwende
  end;
  <PAckage>.<ProcName>(param1,Dates,...);
finally
  Dates.Free;
end;

Mit TTimeStampList geht es so nicht. Es kommt eine AV aus der orageneric9.dll. Das varfromdatetime hatte ich schon extra für TTimeStampList eingeführt (siehe weiter unten), brauchte ich für TDateList nicht.
Informationen dazu habe ich im Netz und in der Hilfe leider keine gefunden, also habe ich es mal Rückwärts versucht. Ich habe eine Test-SP geschrieben, welche einen Timestamp-Wert und eine TTimeStampList zurückgibt.

SQL-Code:

procedure testtime(aTime out TimeStamp,
                   aTimes out TTimestampList) is
begin
  aTime:=sysdate;
  ATimes:=TTimeStampList(sysdate,sysdate+1);
end;

Dazu dann den Wizard von DOA drüberlaufen lassen. Der hat für aTimes ein TOracleobject genommen aber für aTime leider einen String. Letzteres habe ich noch kurz in TOracleTimestamp geändert und es hat alles geklappt:

Delphi-Quellcode:

// der von mir geänderte Output des Wizards
// TESTP.TESTTIME
procedure TTestp.Testtime(out Atime: TDateTime; out Atimes: TOracleObject);
var lTime:TOracleTimestamp;
begin
  Atimes := TOracleObject.Create(Session, '"TTIMESTAMPLIST"', '');
  lTime:= TOracleTimeStamp.Create(Session,otTimeStamp);
  ThreadAcquire;
  try
    GetQuery;
    OCPQuery.DeclareVariable('ATIME', otTimestamp);
    OCPQuery.DeclareVariable('ATIMES', otObject);
    OCPQuery.SetComplexVariable('ATIMES', Atimes);
    OCPQuery.SetComplexVariable('ATIME',lTime);
    OCPQuery.SQL.Add('begin');
    OCPQuery.SQL.Add('  "TESTP"."TESTTIME"(');
    OCPQuery.SQL.Add('    ATIME => :ATIME,');
    OCPQuery.SQL.Add('    ATIMES => :ATIMES);');
    OCPQuery.SQL.Add('end;');
    OCPQuery.Execute;
    Atime := ConvertVariant(OCPQuery.GetVariable('ATIME'));
    atime:=ltime.AsDateTime;
  except
    ThreadRelease;
    Atimes.Free;
    lTime.free;
    raise;
  end;
  ThreadRelease;
  lTime.Free;
end;

//und der Aufruf
Testp:=TTestp.Create(nil);
Testp.Session:=FSession;
try
  Testp.Testtime(Datetime,OracleObject_Times);
finally
  Testp.Free;
end;
send(datetimetostr(DateTime));
v:=OracleObject_Times.Elements[0];
send(v);
v:=OracleObject_Times.Elements[1];
send(v);
//Eine Zuweisung hier: OracleObject_Times.Elements[1]:=now; funktioniert !!!
OracleObject_Times.Free;

Wie man sieht ein simpler Zugriff über Elements[i]. Im Variant ist Vartype=varDate (deswegen oben extra varfromdatetime). Aber andersrum geht die Zuweisung nicht, wenn man das TOracleObject erstellt ohne es zuvor in einer Query zu benutzen.

Wie kann ich die Zuweisung von "Table of TimeStamp" zu einem TORacleObject realisieren?

[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)