Zugriff auf Oracle BLOBs

[sirius]

Ich hatte schonmal vor eine Weile mit dem OCI rumgespielt. Jetzt habe ich es nochmal rausgekramt und verwendbar* gemacht. Die Unit liegt im Anhang. Die Programmierung ist katastrophal, sollte aber mit jeder Delphi-Version funktionieren. Und ein kleines Blob kann man damit auch lesen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  OCI:=TOCI.Create;
  OCI.Database:='meineDatenbank'; //wie im Instantclient/TNSNames.ora
  OCI.UserName:='ich';
  OCI.Password:='test';
  OCI.Connect;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  OCI.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
    Dat:TFileStream;
begin
  OCI.SQL.Text:='Select * from *';
  OCI.SQLOpen;
  Dat:=TFileStream.Create('D:\test.dat',fmcreate); //für det blob-dingens
  try
    repeat
      for i:=0 to OCI.DataCount-1 do
      begin
        xyz:=OCI.Data[i].Name; //Spaltenname
        
        abc:=OCI.Data[i].Value; //Spalteninhalt in Variablen speichern
        //oder 
        OCI.Data[i].SaveToStream(dat); //Spalteninhalt in Stream speichern
      end;
    until not OCI.Next;
  finally
    Dat.Free;
    OCI.SQLClose;
  end;
end;

*) wenn man das so nennen mag

[Gerd L]

Hallo sirius,
vielen Dank für Deine uoci.pas.
Du hast aber einen Fehler (?) in der Funktion AsNumber. Ich habe mal die nun bei mir laufende Funktion angehängt.
Geht nun so wie ich es will, auch mit Delphi6PE.

Gerd

[Gerd L]

Hallo sirius,
vielen Dank für Deine uoci.pas.
Ich hatte Probleme mit den Rückgabewerten der Funktion AsNumber. Ich habe mal die nun bei mir laufende Funktion angehängt.
Geht nun so wie ich es will, auch mit Delphi6PE.

Gerd

[Gerd L]

Ich nutze die Unit von syrius nun auch unter Lazarus.
Eine kleine Änderung war nötig, siehe Anlage.
Und dann noch FPC 2.6.0 oder höher verwenden, wenn man das Datum benötigt.
Bug 0019075: Wrong conversion from vardate variants to string