Zugriff auf Oracle BLOBs

[hgiel]

Hallo,

ich würde gerne mittels DELPHI (7 Personal oder Turbo Edition) auf Dateien zugreifen, die in einer Oracle-DB als BLOB abgelegt wurden!

Frage:

Was benötige ich - mit Delphi 7 Personal -> DB-Kompontenen? - für den Zugriff auf die Oracle-DB und hat den Zugriff (ich möchte die gespeicherten Dateien auslesen und lokal speichern) jemand schon einmal realisiert?

Gruß

HG

[Bernhard Geyer]

Das wird schwierig. Du könntest mittels import der ADO/OLE DB kompos und installierten Oracle ADO-Client das versuchen.
Wenn man schon zig-Tausend € für Oracle ausgegeben hat, wie wär es denn mit einer Pro-Version von Delphi?

[p80286]

Zitat von Bernhard Geyer:

Wenn man schon zig-Tausend € für Oracle ausgegeben hat, wie wär es denn mit einer Pro-Version von Delphi?

Die zigtausende werden aber von einer anderen Abteilung ausgegeben. Ich hatte mal einen Vorgesetzten, der zu Zeiten von D4 fest der Meinung war, das TP6 voll und ganz ausreichend ist.

gruß
K-H

[s-off]

@Bernhard
Es gibt doch auch kostenlose ORA-Versionen.

In der TurboVersion könntest Du es mit DOA probieren.

[OT]

Zitat von p80286:

Zitat von Bernhard Geyer:

Wenn man schon zig-Tausend € für Oracle ausgegeben hat, wie wär es denn mit einer Pro-Version von Delphi?

Die zigtausende werden aber von einer anderen Abteilung ausgegeben. Ich hatte mal einen Vorgesetzten, der zu Zeiten von D4 fest der Meinung war, das TP6 voll und ganz ausreichend ist.

Woher weißt Du, welche Abteilung bei hgiel was beschafft? Seid ihr vielleicht ein und dieselbe Person? Nur mal so interessehalber.
[/OT]

[sirius]

Zitat von s-off:

@Bernhard
Es gibt doch auch kostenlose ORA-Versionen.

In der TurboVersion könntest Du es mit DOA probieren.

DOA ist doch nicht kostenlos, oder?
Und außerdem braucht man dazu die grundlegenden Datenbankkomponenten (bspw: TDataSet), welche in der Personal Version von Delphi nicht dabei ist.

[s-off]

Zitat von sirius:

Zitat von s-off:

@Bernhard
Es gibt doch auch kostenlose ORA-Versionen.

In der TurboVersion könntest Du es mit DOA probieren.

DOA ist doch nicht kostenlos, oder?
Und außerdem braucht man dazu die grundlegenden Datenbankkomponenten (bspw: TDataSet), welche in der Personal Version von Delphi nicht dabei ist.

Nö, DOA ist nicht kostenlos. Ich meinte, dass es kostenlose Oracle-Versionen gibt, da Bernhard vorausgesetzt hat, dass man gleich mehrere tausend Euronen ausgegeben hat, wenn man Oracle einsetzt; und dem ist nicht zwingend so.
Desweiteren sprach ich von der TurboVersion, und nicht von der Personal Version.

[sirius]

Zitat von s-off:

Nö, DOA ist nicht kostenlos. Ich meinte, dass es kostenlose Oracle-Versionen gibt, da Bernhard vorausgesetzt hat, dass man gleich mehrere tausend Euronen ausgegeben hat, wenn man Oracle einsetzt; und dem ist nicht zwingend so.
Desweiteren sprach ich von der TurboVersion, und nicht von der Personal Version.

Ah, ok, sorry

[s-off]

Zitat von sirius:

Zitat von s-off:

Nö, DOA ist nicht kostenlos. Ich meinte, dass es kostenlose Oracle-Versionen gibt, da Bernhard vorausgesetzt hat, dass man gleich mehrere tausend Euronen ausgegeben hat, wenn man Oracle einsetzt; und dem ist nicht zwingend so.
Desweiteren sprach ich von der TurboVersion, und nicht von der Personal Version.

Ah, ok, sorry

Magda nix

[p80286]

[ot]
@s-off

Nee wir sind nicht ein und die selbe Person. Aber wenn er seine Brötchen in einem ähnlich tickendem Unternehmen verdient, wie ich das Vergnügen habe, hat er mein vollstes Mitgefühl.

bevor ich mich hier um Kopf und Kragen schreibe...

Grüße
K-H
[/ot]

[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