Dave Im getting a little confused, have you or have you not managed to write an image to your DB? You could confirm this with a simple sql query or crystal reports
If you have you should be able to open the table in the ide and bind a TDBImage to it Neven > That's exactly what I am doing to save the image, how do I retrieve it? > Every method I have tried comes up blank. > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > On Behalf Of Leigh Wanstead > Sent: Monday, 18 August 2008 4:32 p.m. > To: NZ Borland Developers Group - Delphi List > Subject: Re: [DUG] Images and MS SQL Server > > IIRC, I will do this way. > > varStream just a memory stream, you might want to instante with > a > TFileStream > > ADOQueryTest.sql.text := 'UPDATE table SET FileCol = > :FileColOBJECTS WHERE > ID = :ID'; > ... > > ADOQueryTest.Parameters.ParamByName('FileColOBJECTS').LoadFromStream(v > arStream, ftBlob); > ADOQueryTest.ExecSQL; > > Have a nice day > > Regards > Leigh > www.smootharm.com > > > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Dave O'Brien > Sent: Monday, 18 August 2008 4:17 p.m. > To: NZ Borland Developers Group - Delphi List > Subject: Re: [DUG] Images and MS SQL Server > > > 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: [email protected] >>> 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: [email protected] >> 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: [email protected] >> 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: [email protected] > 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: [email protected] > 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: [email protected] > 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: [email protected] > 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: [email protected] Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe
