[Lazarus] Loading an image to a mysql blob

Terry A. Haimann terry at haimann.us
Wed Oct 31 13:05:46 CET 2018


I tried loading an image into a Medium Blob.  The image uploads and
shows up on my form, but when I click post on my DbNavigator the
program gives me an access violation.

Here is the source code:

procedure TPropertyForm.ImgButClick(Sender: TObject);
Var
  MyImageFile, MyDir:                              String;
begin
     MyImageFile := '/';
     if OpenDialog1.Execute then
     begin
          MyImageFile := OpenDialog1.Filename;
     end;
     DbPropImg.Picture.Jpeg.LoadFromFile(MyImageFile);

End;

Am I missing something I have to do?  The blob should be large enough,
they are supposed to be able to hold 16 Meg and the jpegs are running
about 2 - 3 meg.  I am running Mint 18.3, using Mysql 5.7.22 and using
ZeosDBO.

Terry Haimann


More information about the Lazarus mailing list