<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif"><pre style="color:rgb(0,0,0);font-size:12px"><b>Try something like this.</b></pre><pre style="color:rgb(0,0,0);font-size:12px"><b>procedure</b> SavePictureToDatabase;
<b>var</b>
  BlobField: TField;
  BS: TStream;
<b>begin</b>
  <b>with</b> Query1 <b>do</b>
  <b>begin</b>
    Insert;
    BlobField := FieldByName('picturefield');
    BS := CreateBlobStream(BlobField,bmWrite);
    Bitmap.SavetoStream(BS);
    Post;
  <b>end;</b>
<b>end;</b>  </pre></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Jul 26, 2013 at 12:27 PM, Johan Tu Toit <span dir="ltr"><<a href="mailto:johan.tutoit@gmail.com" target="_blank">johan.tutoit@gmail.com</a>></span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div>Hi all,<br>Please I tried the above statment:<br>DataModuleConn.SQLQuery.Params.ParamByName('getPHOTO').AsBlob:=image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);<br>

its giving error:<br>
image.pp(358,155) Error: Incompatible type for arg no. 1: Got "untyped", expected "AnsiString"<br>image.pp(400) Fatal: There were 1 errors compiling module, stopping<br></div><br></div>The type assigned its wrong.<br>


<br></div>Thanks<br><div><div><div><br></div></div></div></div>
<br>--<br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Edgar Muniz Berlinck<div><a href="http://about.me/edgarberlinck" target="_blank">http://about.me/edgarberlinck</a><br><div><br></div></div>
</div>