[DUG] Images and MS SQL Server

[Dave O'Brien]

I've struck a complete blank on this.
Can anyone show me some code to save and load images from SQL Server
using TADOQuery?
The methods I've come up with don't appear to work at all...

-----Original Message-----
From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Neven MacEwan
Sent: Friday, 15 August 2008 4:02 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Images and MS SQL Server

Dave

Hasn't Tblobfield got the same streaming functions IIRC
>
> I have worked out how to save an image into an Image field, but I'm 
> having brain fade on how to retrieve the image... Using TADOQuery,
D2005.
>
> Save:
>
> ...
>
> datamod.ADOU.SQL.Add(':Image)') ;
>
> ms := TMemoryStream.Create ;
>
> try
>
> Image.Picture.Bitmap.SaveToStream(ms);
>
> ms.seek(0,0) ;
>
> datamod.ADOU.Parameters.ParamByName('Image').LoadFromStream(ms, 
> ftGraphic);
>
> finally
>
> ms.Free ;
>
> end ;
>
> datamod.ADOU.ExecSQL ;
>
> Anyone (I suppose everyone has) got a way to get the image back?
>
> Cheers,
>
> Dave.
>
>
------------------------------------------------------------------------
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with
Subject: unsubscribe

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe

No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.6.4/1616 - Release Date:
16/08/2008 5:12 p.m.