BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  storing jpeg in sql server using Tquery and TParam          BorlandTalk.com Forum Index -> Delphi Databases (SQL Servers) View previous topic :: View next topic   Author Message Vadim Guest Posted: Thu Apr 21, 2005 7:55 am    Post subject: storing jpeg in sql server using Tquery and TParam Hi, I am using Sql server, D7, BDE, trying to use Tparam.asBlob of TQuery to save jpeg in the database. Tried to save jpeg to TMemoryStream and then assign it to TParam.asBlob but it turned out asBlob requires string. Does anybody know how to do this? Thank you Vadim Back to top Craig Stuntz [TeamB] Guest Posted: Thu Apr 21, 2005 2:49 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam Vadim wrote: Quote: Tried to save jpeg to TMemoryStream and then assign it to TParam.asBlob but it turned out asBlob requires string. Use TParam.LoadFromStream instead of AsBlob. -- Craig Stuntz [TeamB] . Vertex Systems Corp. . Columbus, OH Delphi/InterBase Weblog : http://blogs.teamb.com/craigstuntz Back to top Vadim Guest Posted: Thu Apr 21, 2005 6:04 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam Thank you very much. I'll try this. "Craig Stuntz [TeamB]" <craig_stuntz (AT) nospam (DOT) please [a.k.a. acm.org]> wrote in message news:4267af57 (AT) newsgroups (DOT) borland.com... Quote: Vadim wrote: Tried to save jpeg to TMemoryStream and then assign it to TParam.asBlob but it turned out asBlob requires string. Use TParam.LoadFromStream instead of AsBlob. -- Craig Stuntz [TeamB] . Vertex Systems Corp. . Columbus, OH Delphi/InterBase Weblog : http://blogs.teamb.com/craigstuntz Back to top Topprolmc Guest Posted: Thu Oct 13, 2005 8:13 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam "Craig Stuntz [TeamB]" wrote: Quote: Vadim wrote: Tried to save jpeg to TMemoryStream and then assign it to TParam.asBlob but it turned out asBlob requires string. Use TParam.LoadFromStream instead of AsBlob. And how do you get it out of the DB using a Query? Back to top Craig Stuntz [TeamB] Guest Posted: Thu Oct 13, 2005 8:26 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam Topprolmc wrote: Quote: Use TParam.LoadFromStream instead of AsBlob. And how do you get it out of the DB using a Query? TField.SaveToStream/SaveToFile. -Craig -- Craig Stuntz [TeamB] . Vertex Systems Corp. . Columbus, OH Delphi/InterBase Weblog : http://blogs.teamb.com/craigstuntz All the great TeamB service you've come to expect plus (New!) Irish Tin Whistle tips: http://learningtowhistle.blogspot.com Back to top Topprolmc Guest Posted: Sat Oct 15, 2005 1:55 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam "Craig Stuntz [TeamB]" wrote: Quote: Topprolmc wrote: Use TParam.LoadFromStream instead of AsBlob. And how do you get it out of the DB using a Query? TField.SaveToStream/SaveToFile. Funny thing is, I save a jpeg (267KB) like that, and pull it out, and when saved to file it is 667KB. Back to top Craig Stuntz [TeamB] Guest Posted: Mon Oct 17, 2005 12:37 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam Topprolmc wrote: Quote: Funny thing is, I save a jpeg (267KB) like that, and pull it out, and when saved to file it is 667KB. Then you'rd doing something wrong. Write the simplest possible test case which demonstrates the problem and post it here. Please include your SQL and Delphi code. -- Craig Stuntz [TeamB] . Vertex Systems Corp. . Columbus, OH Delphi/InterBase Weblog : http://blogs.teamb.com/craigstuntz Want to help make Delphi and InterBase better? Use QC! http://qc.borland.com -- Vote for important issues Back to top Topprolmc Guest Posted: Sat Oct 29, 2005 2:24 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam "Craig Stuntz [TeamB]" wrote: Quote: Topprolmc wrote: Funny thing is, I save a jpeg (267KB) like that, and pull it out, and when saved to file it is 667KB. Then you'rd doing something wrong. Write the simplest possible test case which demonstrates the problem and post it here. Please include your SQL and Delphi code. The field is the MS SQL IMAGE type..... Here is the insert: Var Name,Full,TN,Ext:String; Pic:TJPEGIMAGE; Strm:TmemoryStream; I:integer; begin pic:=TJpegImage.Create; strm:=tmemorystream.Create; Datasource1.DataSet.DisableControls; For i:=0 to Listbox1.items.count-1 do Begin Name:=extractFileName(Listbox1.Items.Strings[I]); TN:=ExtractFilePath(Listbox1.Items.Strings[i])+'TN_00'+InttoStr(i)+'.JPG'; Full:=Name; Ext:=ExtractFileExt(Name); While Pos(Ext,Name)>0 do Begin Delete(Name,pos(ext,Name),Length(Ext)); End; Pic.LoadFromFile(Listbox1.Items.Strings[I]); strm.Seek(0,0); pic.SaveToStream(strm); Strm.seek(0,0); AdoQuery1.active:=False; AdoQuery1.Sql.Clear; AdoQuery1.SQL.Add('INSERT INTO TEST.dbo.IMAGE_TBL (PK_IMAGE_TBL,Image_Name,Image_full)'+ ' Values (NEWID(), '''+Name+''', :Image); Commit;'); AdoQuery1.ParamCheck:=true; AdoQuery1.Parameters[0].LoadFromStream(strm,ftblob); Adoquery1.ExecSQL; AdoQuery1.close; End; Datasource1.dataset.Enablecontrols; AdoTable1.close; AdoTable1.open; FreeAndNil(Strm); FreeAndNil(pic); end; And here is the extraction: Var Pic:TJPEGIMAGE; Strm:TmemoryStream; begin begin pic:=TJpegImage.Create; strm:=tmemorystream.Create; strm.Seek(0,0); try Begin TBlobField(datasource1.DataSet.FieldByName('Image_full')).SavetoStream(Strm); Strm.Position:=0; Pic.LoadFromStream(strm); Pic.SaveToFile(Datasource1.DataSet.fieldbyName('Image_name').asString+'.jpg'); Image1.Picture.Assign(pic); End; Except End; FreeandNil(Strm); FreeandNil(Pic); end; end; Back to top Craig Stuntz [TeamB] Guest Posted: Mon Oct 31, 2005 12:50 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam I don't see anything there which would cause the problem you describe, although there are problems with the code, such as the empty exception handler. Try and make an even simpler case -- one which saves only one picture, and loads it again without involving any visual controls at all. You need to start with code which works and add to it, rather than starting with code which doesn't work and removing stuff. -- Craig Stuntz [TeamB] . Vertex Systems Corp. . Columbus, OH Delphi/InterBase Weblog : http://blogs.teamb.com/craigstuntz Useful articles about InterBase development: http://blogs.teamb.com/craigstuntz/category/21.aspx Back to top Topprolmc Guest Posted: Wed Nov 02, 2005 12:22 pm    Post subject: Re: storing jpeg in sql server using Tquery and TParam "Craig Stuntz [TeamB]" wrote: Quote: I don't see anything there which would cause the problem you describe, although there are problems with the code, such as the empty exception handler. Try and make an even simpler case -- one which saves only one picture, and loads it again without involving any visual controls at all. You need to start with code which works and add to it, rather than starting with code which doesn't work and removing stuff. I added a "Strm.Clear;" to the load loop and now it works fine.. Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi Databases (SQL Servers) All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.