BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  Resize          BorlandTalk.com Forum Index -> Delphi Graphics View previous topic :: View next topic   Author Message Asko Korpela Guest Posted: Thu Oct 12, 2006 12:50 am    Post subject: Resize How can I resize jpg fotos in D 2006? In D7 I used CBImage, but it does not work any more. -- Asko Korpela http://www.askokorpela.fi/ +358(0)50 529 9539 Back to top Charles Hacker Guest Posted: Fri Oct 13, 2006 3:36 am    Post subject: Re: Resize Asko Korpela wrote: Quote: How can I resize jpg fotos in D 2006? You can copy your JPEG to a bitmap, resize the bitmap, then copy that back to your JPEG. uses jpeg; var Jpg : TJPEGImage; Bmp : TBitmap; procedure ResizeBMP(b : TBitmap; NewWidth, NewHeight : integer); var tbmp : TBitmap; begin // Not the best Bitmap resizer // Got to EFG site and download a Bitmap 'resampler' code // for better resized image tbmp := TBitmap.Create; tbmp.Width := b.Width; tbmp.Height := b.Height; BitBlt(tbmp.Canvas.Handle,0,0,tbmp.Width,tbmp.Height, b.Canvas.Handle,0,0,SRCCOPY); b.Width := NewWidth; b.Height := NewHeight; StretchBlt(b.Canvas.Handle,0,0,b.Width,b.Height,tbmp.Canvas.Handle, 0,0,tbmp.Width,tbmp.Height,SRCCOPY); tbmp.Free; end; // Example code begin Jpg := TJPEGImage.Create; Bmp := TBitmap.Create; Jpg.LoadFromFile('FileName.jpg'); // Copy JPEG to bitmap: Bmp.Width := Jpg.Width; Bmp.Height := Jpg.Height; Bmp.Canvas.Draw(0,0,Jpg); // Resize Bitmap ResizeBMP(Bmp,[newsizeW],[newsizeh]); // Copy BMP back to JPG Jpg.Assign(Bmp); Jpg.SaveToFile('NewFileName.jpg'); Jpg.Free; Bmp.Free; end; -- Charles Hacker Lecturer in Electronics and Computing School of Engineering Griffith University - Gold Coast Australia Back to top Michael Hansen Guest Posted: Fri Oct 13, 2006 8:11 am    Post subject: Re: Resize Asko Korpela wrote: Quote: How can I resize jpg fotos in D 2006? In D7 I used CBImage, but it does not work any more. If you are looking for high quality (or fast low/medium quality) resampling features, you could take a look at Graphics32 (www.graphics32.org). Regards, Michael Hansen Back to top Asko Korpela Guest Posted: Sat Oct 14, 2006 1:22 am    Post subject: Re: Resize Thank you again. I am almost 70, have been programming over 40 years. This time happened something that almost never before has happended: the very first trial after having written the code brought the correct result. But... as you hinted, the quality is not good enough to be really used. According to your advise I went to EFG, but could not find any code for bitmap resampler. Have you got something specific in your mind? -- Asko Korpela http://www.askokorpela.fi/ +358(0)50 529 9539 "Charles Hacker" <reply.to (AT) borland (DOT) newsgroups> kirjoitti viestissä:452EC383.F868A774 (AT) borland (DOT) newsgroups... Quote: Asko Korpela wrote: How can I resize jpg fotos in D 2006? You can copy your JPEG to a bitmap, resize the bitmap, then copy that back to your JPEG. uses jpeg; var Jpg : TJPEGImage; Bmp : TBitmap; procedure ResizeBMP(b : TBitmap; NewWidth, NewHeight : integer); var tbmp : TBitmap; begin // Not the best Bitmap resizer // Got to EFG site and download a Bitmap 'resampler' code // for better resized image tbmp := TBitmap.Create; tbmp.Width := b.Width; tbmp.Height := b.Height; BitBlt(tbmp.Canvas.Handle,0,0,tbmp.Width,tbmp.Height, b.Canvas.Handle,0,0,SRCCOPY); b.Width := NewWidth; b.Height := NewHeight; StretchBlt(b.Canvas.Handle,0,0,b.Width,b.Height,tbmp.Canvas.Handle, 0,0,tbmp.Width,tbmp.Height,SRCCOPY); tbmp.Free; end; // Example code begin Jpg := TJPEGImage.Create; Bmp := TBitmap.Create; Jpg.LoadFromFile('FileName.jpg'); // Copy JPEG to bitmap: Bmp.Width := Jpg.Width; Bmp.Height := Jpg.Height; Bmp.Canvas.Draw(0,0,Jpg); // Resize Bitmap ResizeBMP(Bmp,[newsizeW],[newsizeh]); // Copy BMP back to JPG Jpg.Assign(Bmp); Jpg.SaveToFile('NewFileName.jpg'); Jpg.Free; Bmp.Free; end; -- Charles Hacker Lecturer in Electronics and Computing School of Engineering Griffith University - Gold Coast Australia Back to top Asko Korpela Guest Posted: Sat Oct 14, 2006 2:28 am    Post subject: Re: Resize Thank you for your advise. I got graphics 32-1-8-1 package, where there is some resampling methods, but in no way could install the package according to the instructions. Would there be something else? -- Asko Korpela http://www.askokorpela.fi/ +358(0)50 529 9539 "Michael Hansen" <dyster_tid (AT) hotmail (DOT) com> kirjoitti viestissä:452f3886$1 (AT) newsgroups (DOT) borland.com... Quote: Asko Korpela wrote: How can I resize jpg fotos in D 2006? In D7 I used CBImage, but it does not work any more. If you are looking for high quality (or fast low/medium quality) resampling features, you could take a look at Graphics32 (www.graphics32.org). Regards, Michael Hansen Back to top Charles Hacker Guest Posted: Sat Oct 14, 2006 8:11 am    Post subject: Re: Resize Asko Korpela wrote: Quote: to your advise I went to EFG, but could not find any code for bitmap resampler. Have you got something specific in your mind? Go to: http://www.efg2.com/Lab/Library/Delphi/Graphics/ImageProcessing.htm And do a search for: Antialiasing , or Resampling, Note this page points to 'Anders Melander' resample Delphi code example: Web page: http://delphi.icm.edu.pl/authors/a0000900.htm Actual example resampling code: http://delphi.icm.edu.pl/ftp/d20free/resample.zip Note: I use the above resampler code in my image processing app of http://www.gu.edu.au/school/eng/mmt/ImProc.html -- Charles Hacker Lecturer in Electronics and Computing School of Engineering Griffith University - Gold Coast Australia Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi Graphics 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.