Just by th look of both images: are you using the same resolution / # of
colors on both machines ??

Hans

-----Original Message-----
From: Frits Regtien [mailto:[EMAIL PROTECTED]
Sent: Monday, April 11, 2005 5:42 PM
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

Reply via email to