I don't understand that one, but I was told a while back that every time you re-save a jpeg you lose some of it. Do you have access to the original file that could be viewed on both machines without saving to a stream for comparison?
>From "Robert Meek" Personal e-mail: [EMAIL PROTECTED] dba / "Tangentals Design" Visit us at: www.TangentalsDesign.com Home of "The Keep"! Member of: "Association of Shareware Professionals" Moderator for: "The Delphi", "Delphi-DB", and "Delphi-Talk" programming lists at elists.org, and proud to be a donator to the Jedi VCL 3.0. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Frits Regtien Sent: Monday, April 11, 2005 10:42 AM To: 'Borland's Delphi Discussion List' Subject: Interesting JPG problem Hi, I'm moving all my Delphi Internet project from a Windows NT computer to a Windows 2000 machine. One project produces .JPG pictures. The same executable gives a different picture on both machines. Compare Windows NT: http://pascal.signet.nl/firstsoft/script/aw.exe/nieuws1 Windows 2000: http://projects.firstsoftware.nl/script/aw.exe/nieuws1 Anybody who knows why the Windows 2000 makes such a grainy picture? Just a bit of the code: jp:=TJPEGImage.create; bm:=Tbitmap.create; jp.CompressionQuality:=85; bm.height:=512; bm.width:=512; bm.Canvas.Brush.Color:=$00003366; bm.Canvas.FillRect(rect(0,0,512,512)); bm.Canvas.font.Color:=clYellow ; bm.canvas.font.Name:='Arial'; bm.Canvas.Font.Size:=25; {draw some text on bm} jp.assign(bm); ms:=tmemorystream.create; jp.savetostream(ms); ms.Position:=0; Response.ContentType := 'image/jpeg'; Response.ContentStream := ms; Response.SendResponse; ms.free jp.free; bm.free; Groetjes, Frits. _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
