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
