Hello Frits, I'm not sure, but I'd set
bm.PixelFormat := pf24bit; and try again. I suspect you are using too low a palette density and are just lucky under NT that it works ok. Monday, April 11, 2005, 4:42:22 PM, you wrote: FR> Hi, FR> I'm moving all my Delphi Internet project from a Windows NT computer to FR> a Windows 2000 machine. One project produces .JPG pictures. The same FR> executable gives a different picture on both machines. Compare FR> Windows NT: FR> http://pascal.signet.nl/firstsoft/script/aw.exe/nieuws1 FR> Windows 2000: FR> http://projects.firstsoftware.nl/script/aw.exe/nieuws1 FR> Anybody who knows why the Windows 2000 makes such a grainy picture? FR> Just a bit of the code: FR> jp:=TJPEGImage.create; FR> bm:=Tbitmap.create; FR> jp.CompressionQuality:=85; FR> bm.height:=512; FR> bm.width:=512; FR> bm.Canvas.Brush.Color:=$00003366; FR> bm.Canvas.FillRect(rect(0,0,512,512)); FR> bm.Canvas.font.Color:=clYellow ; FR> bm.canvas.font.Name:='Arial'; FR> bm.Canvas.Font.Size:=25; FR> {draw some text on bm} FR> jp.assign(bm); FR> ms:=tmemorystream.create; FR> jp.savetostream(ms); FR> ms.Position:=0; FR> Response.ContentType := 'image/jpeg'; FR> Response.ContentStream := ms; FR> Response.SendResponse; FR> ms.free FR> jp.free; FR> bm.free; FR> Groetjes, FR> Frits. FR> _______________________________________________ FR> Delphi mailing list -> [email protected] FR> http://www.elists.org/mailman/listinfo/delphi -- Best regards, Stephen mailto:[EMAIL PROTECTED] _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
