PDF in Blob speichern mit seltsamen Effekten

[Jumpy]

Hallo,

ich habe eine DB-Anwendung, bei der zu bestimmten Datensätzen je 1 Dokument als PDF in der DB gespeichert wird. Dazu gibt es eine Extra-Tabelle die nur aus ID und Blobfeld besteht. Die ID ist jeweils die selbe wie die des zugehörigen Datensatzes, d.h. PK und FK in Personalunion.

Ich lade die Datei in einen Stream und diesen dann als Blobstream in die DB. Dabei halte ich mich an eine Anleitung, die ich hier in einem Thread mal gelesen habe, aber gerade nicht finde (ich meine das wäre von Perlsau gewesen).

Klappt soweit alles prima.

Problem: Es kommt gelegentlich vor, das die PDF-Datei des Datensatzes ersetzt werden muss. Da hab ich dann zuerst einfach den Stream wieder in das Blobfeld geschrieben. Das hat aber nicht geklappt (keine Fehlermeldung oder so, sondern es war einfach nur immer noch die alte Datei drin). Dann habe ich stattdessen den Datensatz in der Tabelle einfach gelöscht und einen neuen angelegt mit der alten ID und einem leeren Blobfeld, in das ich dann wieder die Datei gestreamt habe. Das klappt jetzt manchmal. Und manchmal halt nicht, dann ist da irgendeine andere Datei drin (z.B. eine die ein paar Minuten vorher angepackt wurde) und die zu einem anderen Datensatz gehörte.

Das passiert aber nicht nur bei einer Desktopanwendung, auch bei einer Web-CGI. D.h. es kann mMn nichts mit nicht freigegebenen Dingen in Delphi zu tun haben oder so, da die CGI sich ja nach jeder Aktion beendet.

Es muss also irgendwie mit der DB zusammenhängen und meiner unerfahrenheit mit Blobs. Ist das vllt. irgendwie träge? Wie räumt Oracle da auf?

[Perlsau]

Ich denke, du meinst diese beiden Proceduren. Leider ist es nicht möglich, anhand deiner umfangreichen Beschreibung festzustellen, was genau du falsch gemacht hast. Mit anderen Worten: Es wäre hilfreich, wenn man als hilfsbereiter Mensch auch sehen könnte, was du geschrieben hast, um ein existierendes Blobfeld zu überschreiben. Meinen beiden Methoden ist es völlig egal, ob es sich dabei um ein gerade erst erstelltes oder ein bereits bestehendes leeres oder gefülltes Blobfeld handelt. Wichtig ist nur, daß erstens die Tabelle in den Editier- bzw. Appendmodus versetzt wird, bevor man die Procedure File_To_Blob aufruft, und zweitens nach dem Einlesen ins Blobfeld wieder mit Post geschlossen wird. Wird das Post vergessen, bleiben die Änderungen wirkungslos und der bestehende Blob-Inhalt wird nicht überschrieben.

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