Mike
I tried to draw on the bitmap rather than the Image1.Canvas and it didn't error. It also did not show on screen! I don't think that this is the answer because the program,. including drawing, works if a bmp is read and fails if a jpg is read and converted. It just has to be the method of conversion from jpg to bmp. If the conversion is external (Photoshop) then program works. Any other thoughts would be appreciated - I don't have much hair left to pull out! Bobby Clarke -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Mike Shkolnik Sent: 30 June 2005 11:56 To: [email protected] Subject: Re: [delphi-en] jpg to bmp conversion is incomplete Bobby, you must draw on Bitmap.Canvas, not on Image1.Canvas With best regards, Mike Shkolnik EMail: [EMAIL PROTECTED] http://www.scalabium.com --- Bobby Clarke <[EMAIL PROTECTED]> wrote: > I am having bmp/jpg problems. If an image is a bmp I > load it into Image1 and > I can draw on it without problems. > > If it is a jpeg, I convert to bmp either with Assign > or SaveToFile / > LoadFromFile as in the sample code. In both cases > when I try to draw on the > Image1.Canvas I get an error: Cannot modify image > unless it contains a > bitmap. > > If I open the jpeg in Photoshop and save as a > bitmap, then my code works > perfectly. I can even open my temporary file in > Adobe and overwrite with > SaveAs and the code works. > > What is Photoshop doing to the bitmap that my Delphi > code is not doing? > > > Bobby Clarke > > > > > Globally: > var > bmp : TBitMap > > bmp := TBitMap.Create; > > > > procedure Load(s:string); // s is a file name > var > sExt : string; > jpg : TJpegImage; > begin > sExt := lowercase(ExtractFileExt(s)); > if sExt = '.bmp' then > Image1.Picture.LoadFromFile(s) > else // it has to be jpeg > - tested elsewhere > begin > jpg := TJPegImage.Create; > try > jpg.LoadFromFile(s); > bmp.Assign(jpg); > > bmp.SaveToFile('c:\temp.bmp'); > Image1.Picture.LoadFromFile('c:\temp.bmp'); > // was > Image1.Picture.Bitmap.Assign(jpg); > > finally > jpg.Free; > end; > end; > end; ____________________________________________________ Yahoo! Sports Rekindle the Rivalries. Sign up for Fantasy Football http://football.fantasysports.yahoo.com ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] ---------------------------------------------------------------------------- -- YAHOO! GROUPS LINKS a.. Visit your group "delphi-en" on the web. b.. To unsubscribe from this group, send an email to: [EMAIL PROTECTED] c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. ---------------------------------------------------------------------------- -- [Non-text portions of this message have been removed] ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
