Ich spiele derzeit etwas mit Stored Procedures in Oracle rum. Mein Ziel ist, dass ich eine Reihe von Zahlenwerten in einem BLOB (o.ä.) an die SP übergebe. Die SP holt mir dann die Werte aus dem BLOB wieder raus und schreibt sie einzeln in die Datenbank. Ich hoffe, dass dies schneller geht als 10000 Inserts abzusetzen. (Nebenbei wäre es als Schnittstelle in der Datenbank recht günstig.)
Während des Testens habe ich mal folgende SP:
SQL-Code:
CREATE OR REPLACE PROCEDURE "DB1"."TEST" (Daten in BLOB, Amount
in Integer, Res out Float, Tmp out varChar2)
is
lBuffer VarChar2(30);
lAmount Integer;
lPos Integer:=1;
begin
lAmount:=Amount;
dbms_lob.read(Daten,lAmount,lPos,lBuffer);
tmp:=lBuffer;
Res := to_number(lBuffer); --
end;
Ich greife über
ADO (Oracle
DB Provider) zu.
Delphi-Quellcode:
var mem:TStream;
Tmp,Res,BlobParam:TParameter;
begin
SP.Parameters.Clear;
BlobParam:=SP.Parameters.CreateParameter('Blob', ftblob, pdinput, 0, null);
SP.Parameters.CreateParameter('Amount', ftInteger, pdinput, 0, 5); //Länge einer Zahl im Blob
Res:=SP.Parameters.CreateParameter('Res', ftFloat, pdOutput, 0, 0);
Tmp:=SP.Parameters.CreateParameter('tmp', ftwidestring, pdOutput, 30, ''); //hier Rückgabe des Buffers
mem:=TStringstream.Create('1.254'); // oder 1,254
BlobParam.LoadFromStream(mem, ftblob);
mem.free;
SP.ExecProc;
memo1.lines.Add(Res.Value); // --> 1E126
memo1.lines.add(Tmp.Value); // --> 312E323534
end;
Nun erhoffe ich mir im Parameter Res die 1,254. Das kann allerdings nicht klappen, da nach dms_lob.read in lBuffer mein BLOB-Auschnitt hexadezimal landet, wie man an Tmp.Value erkennen kann.
Wie bekomme ich daraus eine Fließkommazahl? Oder anders: Kann ich den BLOB auch lesen? Irgendein sinnvoller Typecast würde mir auch reichen. Ich muss ja die Zahlen nicht im Klartext in den BLOB schreiben. Ich kann in dem Stream den Double-Wert auch direkt eintragen (nicht als String)