PDF in Blob speichern mit seltsamen Effekten

[Bernhard Geyer]

Bei Oracle und Ado muss man eigentlich fragen welcher Provider verwendet wird. Die von MS haben bekanntlich ja so ihre Fehler.

[p80286]

Nicht nur, die Oracles sind auch manchmal Zickig, und es kommt auf die genaue Version an!

Wenn Du keine vernünftige Doku hast, hilft wohl nur ausprobieren.
Ohne Gewähr: (mir ist bekannt, daß der Oracle Provider keine Memos mag. u.u mußt Du noch ODBC dazwischen packen, da war mal was, die Details sind mir aber entschwunden.

Gruß
K-H

[Jumpy]

Hallo,

der Zugriff erfolgt mit den ADO-Komponenten, die bei Delphi (diesmal D2010) dabei sind. Es ist aber noch Oracles ODBC dazwischen, d.h. ADO->ODBC->Oracle.

Hier mal die Funktion wie ich sie jetzt benutze, wo ich nur noch evtl. schon vorhandene Einträge lösche (die Funktion ist jetzt nicht hier dabei, da einfach nur ein Delete) und dann neu einfüge.
Vorher stand da anstatt q.Insert sowas ala "If IDExists(ID) then q.Edit else q.Insert;"

Delphi-Quellcode:

procedure TBL.PutFileInDB(const id,Typ,fname:String; var filesize:integer);
var q:TADOTable;
    s:TStream;
    f:TFileStream;
begin
  q:=TADOTable.Create(nil);
  q.Connection:=Con;
  q.TableName:=Table(TabDatei);
  q.Open;
  If FileExists(fname) then
    begin
    q.Insert;
    q.FieldByName('ID').AsString:=id;
    q.FieldByName('Typ').AsString:=Typ;
    s:=q.CreateBlobStream(q.FieldByName('Datei'), bmReadWrite);
    f:=TFileStream.Create(fname, fmOpenRead);
    filesize:=s.CopyFrom(f,f.Size);
    f.Free;
    s.Free;
    q.Post;
    end
  else
    filesize:=0;
  q.Free;
end;

@Perlsau: Was du gezeigt hast, war in etwa was ich meinte, aber das war in einem anderen Thread, wo du das noch ausführlicher geschrieben hast, ich kanns aber wie gesagt nicht mehr finden, war auch schon älter. Ich hab deine Funktion dabei nur als Hinweis genommen, wie man in den Blob schreibt/streamt, das aber nicht als eigene Funktion abstrahiert, sondern einfach mit dem Füllen der restlichen Tabellenfelder in einer Funktion gelassen.

Was mir aufgefallen ist, ist, das du in deinem Post von "Append" gesprochen hast, ich aber "Insert" benutzt habe. Könnte das Probleme im Zusammenhang mit Blobs Probleme machen? Der unterschied ist wie ich das verstanden habe ist doch nur, ob sich der Datensatzzeiger vor dem Einfügen ans Ende verschiebt oder nicht und ich dachte, das betrifft nur die clientseitige Anzeige und nicht den Speicherort in der DB oder so.

[jobo]

Du hast noch nicht geschrieben, ob Du Oracle oder MS Oracle Treiber verwendest. Bei BLOB habe ich sehr schlechte Erfahrung mit dem alten MS Treiber gemacht.
Ansonsten musst Du in Deinem Code vielleicht auch den Stream an das Feld schicken.

P.S.: Warum du gleich eine ganze Table für das Update aufmachst, ist mir auch nicht so klar. Gerade bei BLOB Spalten kann das sehr viel kosten.
Insgesamt sieht Dein Code außerdem nicht nach Update, sondern nur Insert aus.

[Perlsau]

Hi Jumpy,

meine Funktion hatte ich so gestaltet, daß sie für alle Eventualitäten brauchbar ist. Prüfungen auf z.B. existierende Datei oder Datensatz erfolgen von der aufrufenden Methode. Das kannst du dir natürlich so hinbasteln, wie du es benötigst.

Der Unterschied zwischen Append und Insert besteht darin, daß bei Append ein Datensatz physikalisch am Ende der Tabelle eingefügt wird, bei Insert jedoch an der physikalischen Stelle des Datensatz-Zeigers (ob darüber oder darunter weiß ich nicht). Für die genannte Funktion spielt das jedoch kenie Rolle.

Offenbar hast du es nun geschafft, eine Binärdatei (denn nichts anderes ist ein PDF-Dokument) in einem Blobfeld zu speichern. Deinen Code hab ich mir jetzt aber nicht angeschaut.

[Jumpy]

@Jobo:
Der Code sieht nach Insert aus, weil ich nur noch Inserts mache, nachdem die Updates/Edits nicht geklappt haben. Ursprünglich sah der Code leicht anders aus (siehe Beschreibung davor).

Ich benutze die Oracle-ODBC-Treiber, da (wie ja auch von dir) von den MS-Treibern immer abgeraten wird und diese afaik ja auch nicht mehr gepflegt werden.

Warum ich mir die ganze Tabelle "rüberhole" um einen DS darin zu speichern, hab ich mir ehrlich gesagt noch keine Gedanken drüber gemacht. Das war halt in dem Beispiel so und ich dachte das passt.
Zuvor hab ich das mit einem SQL-Insert-Statement versucht, aber das hab ich gar nicht hinbekommen und auch kein gutes Beispiel gefunden, weswegen ich auf die obige Variante umgeschwenkt bin.
Ich muss mal versuchen, das mit einer TQuery umzusetzten. Vielleicht klappt das ja auch.

@Perlsau

Zitat:

Der Unterschied zwischen Append und Insert besteht darin, daß bei Append ein Datensatz physikalisch am Ende der Tabelle eingefügt wird, bei Insert jedoch an der physikalischen Stelle des Datensatz-Zeigers (ob darüber oder darunter weiß ich nicht). Für die genannte Funktion spielt das jedoch kenie Rolle.

Vielleicht spielt es ja im Falle von Oracle Blobs doch eine Rolle? Sicherheitshalber versuch ich es auch einfach mal mit Append.

[chuckholdt]

Bin nicht ganz sicher, wie die Felder arbeiten, aber du gibts den Stream vor dem POST frei, das könnte zu komischen Effekten führen.

Chuck

[Perlsau]

Zitat von chuckholdt:

Bin nicht ganz sicher, wie die Felder arbeiten, aber du gibts den Stream vor dem POST frei, das könnte zu komischen Effekten führen.

Was sind denn "komische Effekte"? Davon hab ich noch nie was bemerkt! Wieso sollte es den Eintrag in der Datenbank jucken, wenn der Stream, der ihn geliefert hatte, abkratzt? Genau so gut könntest du in einer lokalen Procedure Zuweisungen an DB-Felder machen und in einer anderen Procedure dann erst mit Post abschließen:

Delphi-Quellcode:

Procedure Zuweisen;
Var
  Feld1 : Integer;
  Feld2 : String;
  Feld3 : Boolean;
Begin
  Feld1 := Self.Tag;
  Feld2 := Application.ExeName;
  Feld3 := Self.WindowState = wsMaximized;
  MyDataSet.FieldByName('Field1').AsInteger := Feld1;
  MyDataSet.FieldByName('Field2').AsString  := Feld2;
  MyDataSet.FieldByName('Field3').AsBoolean := Feld3;
End;

Procedure NeuerEintrag;
Begin
  MyDataSet.Append;
  Zuweisen;
  MyDataSet.Post;
End;

Was meinst du: würde das funktionieren oder ergäbe das eine Fehlermeldung?

[Perlsau]

Zitat von Jumpy:

@Perlsau

Zitat:

Der Unterschied zwischen Append und Insert besteht darin, daß bei Append ein Datensatz physikalisch am Ende der Tabelle eingefügt wird, bei Insert jedoch an der physikalischen Stelle des Datensatz-Zeigers (ob darüber oder darunter weiß ich nicht). Für die genannte Funktion spielt das jedoch kenie Rolle.

Vielleicht spielt es ja im Falle von Oracle Blobs doch eine Rolle? Sicherheitshalber versuch ich es auch einfach mal mit Append.

Mit Sicherheit werde ich das nicht versuchen. Weißt du auch warum nicht? Ganz einfach: Ich habe gar kein Oracle

[DeddyH]

Zitat:

Sicherheitshalber versuch ich es auch einfach mal mit Append.