[Lazarus] Loading an image to a mysql blob

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[Lazarus] Loading an image to a mysql blob

Free Pascal - Lazarus mailing list
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
--
_______________________________________________
Lazarus mailing list
[hidden email]
https://lists.lazarus-ide.org/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Loading an image to a mysql blob

Free Pascal - Lazarus mailing list
Am 31.10.18 um 13:05 schrieb Terry A. Haimann via Lazarus:

> 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

.. perhaps a Dataset.edit before

DbPropImg.Picture.Jpeg.LoadFromFile(MyImageFile);



DbPropImg.Picture.Jpeg.LoadFromFile(MyImageFile);

--
_______________________________________________
Lazarus mailing list
[hidden email]
https://lists.lazarus-ide.org/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Loading an image to a mysql blob

Free Pascal - Lazarus mailing list
I had already tried that.  I clicked on edit from the dbnavigator,
uploaded the image and clicked post.  That is when the program would
crash.

I have taken the program a different route, gotten rid of the blob and
replaced it with a varchar.  The varchar now has the filename of the
jpeg.  It's not fast, but it works.

Terry

On Thu, 2018-11-01 at 11:17 +0100, John Landmesser via Lazarus wrote:

> Am 31.10.18 um 13:05 schrieb Terry A. Haimann via Lazarus:
> >
> > 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
> .. perhaps a Dataset.edit before
>
> DbPropImg.Picture.Jpeg.LoadFromFile(MyImageFile);
>
>
>
> DbPropImg.Picture.Jpeg.LoadFromFile(MyImageFile);
>
--
_______________________________________________
Lazarus mailing list
[hidden email]
https://lists.lazarus-ide.org/listinfo/lazarus