Hi,
The program I talked about is a CGI program. I create the pictures 'on
the fly' as you can see in the code. And then I sent them back to the
Webbrowser. When I run the same executable on a webserver running
Windows NT or Windows 2003 computer everything is fine. When I use the
Windows 2000 webserver, I get this grainy picture. Strange...
Groetjes,
Frits.
>From "Robert Meek":
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?
-----Original Message-----
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
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
