Bild in MySQL (Blob) mit mysql.pas speichern

[Chewie]

Was ist die Rückgabe von Read (=die Anzahl der gelesenen Bytes)?

[Morfio]

Die entspricht der genauen Größe der Datei.

[Chewie]

Dann hat er die richtige Anzahl Zeichen gelesen.

Warum das Schreiben in die DB aber nicht funktioniert, weiß ich auch nicht :|

[mfichtner]

Zitat:

Zitat von Morfio

Nun möchte ich in einer MySQL-Datenbank innerhalb eines Blob-Feldes ein Bild speichern und das auch anzeigen und ändern.

Für Delphi hab' ich zwar gerade keinen Beispiel-Code parat, aber ich hab' was vergleichbares mal für TMT Pascal geschrieben:

http://www.fichtner.net/tmt/mysql/

Die Beispiele in mysql-blobs-1.0-tmt.zip müßten im Prinzip ohne allzu große Änderungen auch in Delphi compilierbar sein. Aber selbst wenn das nicht auf Anhieb klappt: Der Code zeigt auf jeden Fall, wie man ein JPG-Bild in einem Blob-Feld speichert und es wieder ausliest.

Hope this help. :)

[Mannoman]

Ich habe mal Bilder in einer Datenbank gespeichert. Statt OpenPictureDialog kann man natürlich auch einen Pfad und den Namen des Bildes angeben. Folgende Prozedur:

Delphi-Quellcode:

procedure TF_Formblaetter.FileOpenItemClick(Sender: TObject);
var   FS: TFileStream;
begin
if OpenPictureDialog1.Execute then begin
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      DataModul.Presentation.Edit;
      FS := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
      try
         DataModul.PresentationLogo.LoadFromStream(FS);
      finally
         FS.Free;
      end;
      DataModul.PresentationLogoname.AsString := OpenPictureDialog1.FileName;
      DataModul.Presentation.Post;
   end else
Image1.Picture:= nil;
end;

[edit=Sharky]Dephi-Tags gesetzt. Mfg, Sharky[/edit]

[jus]

Zitat:

Zitat von mfichtner (Beitrag 145283)

Zitat:

Zitat von Morfio

Nun möchte ich in einer MySQL-Datenbank innerhalb eines Blob-Feldes ein Bild speichern und das auch anzeigen und ändern.

Für Delphi hab' ich zwar gerade keinen Beispiel-Code parat, aber ich hab' was vergleichbares mal für TMT Pascal geschrieben:

http://www.fichtner.net/tmt/mysql/

Die Beispiele in mysql-blobs-1.0-tmt.zip müßten im Prinzip ohne allzu große Änderungen auch in Delphi compilierbar sein. Aber selbst wenn das nicht auf Anhieb klappt: Der Code zeigt auf jeden Fall, wie man ein JPG-Bild in einem Blob-Feld speichert und es wieder ausliest.

Hope this help. :)

sorry dass ich den alten Beitrag ausgrabe, aber hat jemand die obige mysql-blobs-1.0-tmt.zip irgendwo rumliegen? Ich habe die Fichtner mysql.pas im Einsatz und hätte gerne gewußt wie Fichtner Blob über mysql.pas blob Dateien zur DB schickt.

lg,
jus

[jus]

*push*
hat wer noch die mysql-blobs-1.0-tmt.zip von Fichtner MySQL rumliegen?

[himitsu]

Leider hat er/sie die Datei nicht hier angehängt
und unglücklicher Weise bist du zwei Monate zu spät dran. (Webseite ist wegen gewisser Umstände offline)

Falls es extrem wichtig ist:
https://www.fichtner.net/ und auch http://fichtner-meyer.com (URL von dessen eMail)

Zitat:

Brigitte Fichtner
geb. Nauck

* 6. Februar 1938 † 22. Dezember 2019

Wobei ... M oder B ... wenn es ihr Mann war (wobei Männer ja durchschnittlich vor ihren Frauen sterben).
Weil auf der Webseite nix mehr steht ... mal Denic fragen wo der Ansprechpartner erreichbar ist, denn "irgendwer" hatte ja die Webseite anschließend noch geändert und womöglich hat derjenige Zugriff auf den Computer wo die Quellcodes liegen.

Leider hat auch das Webarchive noch keine Kopie der ZIP (nach Juli 2007 war diese Untereite schon weg)
http://web.archive.org/web/200704050...net/tmt/mysql/

Zitat:

applications developed in TMT Pascal

Und falls wer das erwähnte TMT aus der archivierten Webseite sucht ... diese Seite wurde inzwichen auch umbenannt/verkauft.
http://web.archive.org/web/200704050...//www.tmt.com/
http://www.frameworkpascal.com/

[edit]
Hast du ein Glück ... eine ältere Version gibt es.
Hast du ein Prech ... eine ältere Version gibt es doch nicht. (Archiviert als text/html: Got an HTTP 302 response at crawl time)
http://web.archive.org/web/*/http://...et/tmt/mysql/*

[hoika]

Hallo,
einfach mal Google benutzen ...

Ergibt u.a.
https://stackoverflow.com/questions/...per-for-delphi

Na, ich mal nicht so sein
http://www.audio-data.de/mysql.html

[jus]

@hoika: vielen Dank fürs Raussuchen, die Links kenne ich, aber leider ist der BLOB Ansatz im aktuellen mysql.pas nicht enthalten.

vielen Dank für eure Mühen, ich hatte bereits im letzten Dezember auch schon im http://web.archive.org geschaut, aber leider keinen funktionierenden Downloadlink gefunden. Meine letzte Hoffnung ist, dass jemand es noch auf seiner Festplatte rumliegen hat. Also falls jemand den Ansatz mit dem BLOB in Verbindung mit der Fichtner MySQL.pas hat, dass bitte melden. :cyclops: