Bild in MySQL (Blob) mit mysql.pas speichern

[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

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