that doesnt look like anything to do with JPEG's as such.
Are both machines setup with the same colour depth for the display?
Since you dont explicity set the pixel format for the bitmap it maybe it maybe doing 24 bit on once pc and 16 or something else on the other.


Patrick

Frits Regtien wrote:
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

-- Applications Team Leader t : +44 207 251 7920 f : +44 207 608 3592

_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi

Reply via email to