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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20130726/f3ef215a/attachment.html>

*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;*