If I put a TADOTable on the form and populate it, the Image field is ftBlob.
The MSSQL datatype is "Image". -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Neven MacEwan Sent: Monday, 18 August 2008 4:25 p.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Images and MS SQL Server Dave Have you used the IDE interactively to open the query and check the type of field created? I use ADO (but my delphi system is down right now) so i'll have a look What is your MSSQL Datatype? FieldByName would return a tfield (which you have to cast) N > 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 > > > _______________________________________________ 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
