论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-07-21 11:13 |只看该作者 |倒序浏览

Hi,

大家有没有碰这样的问题,perl调用GD包,在网页里生成图形,我这里页面是乱码.怎么才能生成图片,谢谢.

生成图片的代码是用DG包自带的例子.

文库|博客

ulmer

家境小康

论坛徽章:: 0

2楼 [报告]

发表于 2009-07-21 16:25 |只看该作者

原帖由 sun.os 于 2009-7-21 11:13 发表
Hi,

大家有没有碰这样的问题,perl调用GD包,在网页里生成图形,我这里页面是乱码.怎么才能生成图片,谢谢.

生成图片的代码是用DG包自带的例子.

you should put mime type correctly in the HTTP Header:
like :
print "Content-type: image/png\n\n";
instead of print "Content-type: text/html\n\n";

Web browser will translate the code generated by GD into an image.

#!/usr/bin/perl -w
# image.cgi
# chmod a+x image,cgi
# HTML code: <img src="URL_PATH_TO_THIS_SCRIPT">
use strict;
use GD;
sub image {
# sample image
my $im = new GD::Image(100,100);
# allocate some colors
my $white = $im->colorAllocate(255,255,255);
my $black = $im->colorAllocate(0,0,0);
my $red = $im->colorAllocate(255,0,0);
my $blue = $im->colorAllocate(0,0,255);
# make the background transparent and interlaced
$im->transparent($white);
$im->interlaced('true');
# Put a black frame around the picture
$im->rectangle(0,0,99,99,$black);
# Draw a blue oval
$im->arc(50,50,95,75,0,360,$blue);
# And fill it with red
$im->fill(50,50,$red);
# make sure we are writing to a binary stream
binmode STDOUT;
# Convert the image to PNG and print it on standard output
print $im->png;
}
print "Content-type: image/png\n\n";
# display in web browser
image();

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

sun.os

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2009-07-21 16:52 |只看该作者

原帖由 ulmer 于 2009-7-21 16:25 发表

you should put mime type correctly in the HTTP Header:
like :
print "Content-type: image/png\n\n";
instead of print "Content-type: text/html\n\n";

Web browser will translate the code ge ...

Hi ulmer, 谢谢.

我想设置html的header为
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="image/gif; charset=iso-8859-1" />
</head>

但死活用new CGI生成不了,content回到text/html.

用另一个文件,先用GD生成图片,然后保存成文件,用如下的html

<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<img src=123.gif name="test" />
</body>
</html>
要可以显示的,然用perl动态生成上面的html,在IE却显示叉.

用CGI调用您的代码,去显示下载.

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

sun.os

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2009-07-21 16:59 |只看该作者

再跑一遍,成了,终于出图了,万分感谢,ulmer!!

奇怪的是,在perl里设置:

$cgih=CGI->new();
print $cgih->header(-type=>" image/png");

从打印出来的html看,设置的content-type是image/png,但网页显示却是乱码.

应是Content-Type的设置问题, 再次感谢,ulmer!!

[ 本帖最后由 sun.os 于 2009-7-21 17:07 编辑 ]

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › GD图形如何在web里显示.

GD图形如何在web里显示. [复制链接]

浏览过的版块