[Lazarus] How to assign a image file for a variable as Blob

[Edgar Muniz Berlinck]

*Try something like this.*

*procedure* SavePictureToDatabase;*var*
  BlobField: TField;
  BS: TStream;*begin*
  *with* Query1 *do*
  *begin*
    Insert;
    BlobField := FieldByName('picturefield');
    BS := CreateBlobStream(BlobField,bmWrite);
    Bitmap.SavetoStream(BS);
    Post;
  *end;**end;*



On Fri, Jul 26, 2013 at 12:27 PM, Johan Tu Toit <johan.tutoit at gmail.com>wrote:

> Hi all,
> Please I tried the above statment:
>
> DataModuleConn.SQLQuery.Params.ParamByName('getPHOTO').AsBlob:=image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
> its giving error:
> image.pp(358,155) Error: Incompatible type for arg no. 1: Got "untyped",
> expected "AnsiString"
> image.pp(400) Fatal: There were 1 errors compiling module, stopping
>
> The type assigned its wrong.
>
> Thanks
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
>


-- 
Edgar Muniz Berlinck
http://about.me/edgarberlinck
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130726/e9333e82/attachment-0003.html>