PDF auf Mysql oder Mssql

[p80286]

Zitat von hstreicher:

Hier wurde das schon mal besprochen

https://www.delphipraxis.net/183571-...der-nicht.html

Naja ist jetzt drei Jahre her. Ich für meine Person würde immer noch die externe Speicherung vorziehen, wenn sicher gestellt ist, das eine permanente Synchronisation zwischen internem und externen Speicher erfolgt.
Alles in eine Datenbank zu stopfen ist zwar teurer, erleichtert aber die Verwaltung. Insbesonders wenn das Management nicht nach fundierten IT-Kenntnissen ausgesucht wurde.

Zitat von KodeZwerg:

Eine Datenbank ist doch zum sammeln von Daten da, oder irre ich mich?

Jain. Eine Datenbank ist für die effiziente Verwaltung und Zurückholung von Daten entworfen worden. Einfach Daten in eine DB hinein stopfen und keine entsprechenden Beschreibungen hinzu zu fügen ist kontraproduktiv. Oder anders ausgedrückt, Datenbanken sind für die Verwaltung von Informationen gemacht, nicht für die Verwaltung von irgendwelchen anonymen (binären) Datensammlungen. Das kann z.B. ein Filesystem wesentlich effizienter.

Gruß
K-H

[TigerLilly]

Zitat:

Ist die Performance überhaupt ausreichend für dieses Vorhaben.

"Performance" setzt sich aus vielen Faktoren zusammen. Der Erste ist: Was soll denn überhaupt passieren, wenn die PDFs in der DB sind. Dann kommt die Hardware + das Netzwerk. Aber grundsätzlich geht das + ist kein Problem + sowohl MySQL als auch MSSQL schaffen das mit Links.

Zitat:

Wie bringe ich die PDF's in die Datenbank. Die Beispiele im Forum haben mich etwas verwirrt.

https://stackoverflow.com/questions/...-in-a-database
https://www.128byte.ru/index.php?id=46
http://edn.embarcadero.com/article/27462

[bjma]

Danke für die vielen Tipps.
Ich probiere gerade verschiedene Anregungen aus.
Danach melde ich mich nochmals.

Ihr habt mir sehr geholfen.

Gruß Jürgen

[bjma]

Danke für Eure Hilfe.
Ich habe mich für die Speicherung der Pdf's im mysqlserver entschieden.
So nun muß ich die einzelne Pdf hochladen.

Meine Tabelle heißt: Dokument_pdf
Das Blobfeld in der Tabelle: pdf_form

Dies habe ich folgendermaßen versucht:

procedure pdf_save_toserver;
var
blobfield:tfield;
bs:tstream;
begin
with Dokument_pdf do
begin
insert;
blobfield:=fieldbyname('PDF_form');
bs:=createblobstream(blobfield,bmwrite);
Bitmap.savetostream(bs);
post;
end;

end.

Fehlermeldung: Undeklarierter Bezeichner savetostream

Ich habe mir die Procedure abgeschaut und es fehlt wahrscheinlich eine Function.

Wer kann mir weiterhelfen?

Danke für Antworten.

Jürgen

[Delphi.Narium]

Was bitte hat Bitmap in dem Quelltext zu suchen? Copy&Paste-Überbleibsel?

Nimm bitte das with aus dem Quelltext heraus, dann wird es lesbarer und die Chancen auf Fehlinterpretationen seitens des Compilers sinken deutlich und die Fehlererkennungsrate steigt.

Mir ist z. B. nicht klar, warum savetostream nicht erkannt wird, aber Bitmap. Ist Bitmap nun ein Attribut von Dokument_pdf oder gibt es zufällig irgendeine Komponente namens Bitmap irgendwo im Quelltext oder ist eine Unit mit dem Namen Bitmap eingebunden?

Fehlermeldungen im Umfeld von with können zuweilen extrem verwirrend sein und einen auf eine vollkommen falsche Spur zur Fehlersuche führen.

[TRomano]

Hallo,

abgesehen von der wahrscheinliche ungültigen und unsinnigen Variable 'Bitmap' ist TStream eine abstrakte Klasse und besitzt keine Methode 'LoadFromFile'.

Delphi-Quellcode:

procedure LoadPDF;
var lBlobField  : TBlobField;
    lBlob       : TBlobStream;
    lFileStream : TFileStream:
begin
  lBlobField := TBlobField(DataSet.FieldByName('BLOB_X'));
  lBlob      := Dataset.CreateBlobStream(lBlobField, bmWrite);
  Dataset.Insert;
  try
    lBlob.Seek(0, soFromBeginning);
    lFileStream := TFileStream.Create('your.pdf', fmOpenRead or fmShareDenyWrite);
    try
      lBlob.CopyFrom(lFileStream , lFileStream .Size);
      Dataset.Post;
    finally
      lFileStream.Free
    end;
  finally
    lFileStream.Free
  end;
end;

Ist nur schnell runter geschrieben, da gerade kein Delphi zur Hand und ohne zu Testen. Ging nur um die Veranschaulichung des Vorgehens.
In einer normalen, ausgetesteten Methode würde ich noch das Dataset.Post per try ... except ... end absichern.