So did I, but I can't tell if it's not working because it's not saving or loading...
The problem is FieldByName doesn't have any saveto... methods. I have tried to cast it as a Tblobfield (TBlobField(adoq.fieldbyname('Image')).Saveto...), but either this doesn't work or my save code doesn't work. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Neven MacEwan Sent: Monday, 18 August 2008 4:06 p.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Images and MS SQL Server Dave I thought you had code to save it? To tretrieve it (rough I don't have ) ADOQuery.SQL.Add('SELECT FileCol FROM Table WHERE ID = 1'); ADOQuery.Open; ADOQuery.FieldByName('FileCol ').SaveToFile(FileName); FieldByName('FileCol ') should be a TBlobField Neven > 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: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > 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@delphi.org.nz >> Admin: http://delphi.org.nz/mailman/listinfo/delphi >> Unsubscribe: send an email to [EMAIL PROTECTED] with >> > Subject: unsubscribe > > _______________________________________________ > NZ Borland Developers Group - Delphi mailing list > Post: delphi@delphi.org.nz > Admin: http://delphi.org.nz/mailman/listinfo/delphi > Unsubscribe: send an email to [EMAIL PROTECTED] 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. > > _______________________________________________ > NZ Borland Developers Group - Delphi mailing list > Post: delphi@delphi.org.nz > Admin: http://delphi.org.nz/mailman/listinfo/delphi > Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe > > > _______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] 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/1617 - Release Date: 17/08/2008 12:58 p.m. _______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe