Easun.org(路杨)

Perl Forum

package EasunLee; use strict; use warnings; $EasunLee::VERSION = '0.05';

[讨论]LBCGI和GD的冲突？

By 路杨 on Oct 28, 2004 at 9:43 AM 11 Vote 0 Votes

最简单的GD验证码程序。。

#!/usr/bin/perl
#use LBCGI;
use CGI qw(:all);
$verify= "1234";
require GD;
my $font = GD::gdGiantFont();
my $dx= 2 + $font->width * length $verify ;
my $dy = 2 + $font->height;
my $image = GD::Image->new($dx,$dy);
my $background = $image->colorAllocate(0,0,0);
my $txt = $image->colorAllocate(255,255,255);
#$image->transparent($background);
$image->string($font, 1, 1, $verify, $txt);
# print header(-charset=>gb2312, -type=>'image/png'), $image->png;
print header('image/png'), $image->png;
exit 0;

用的是 CGI模块，一切正常显示。
换成LBCGI模块，就图片无法显示。。无奈。。用了$image->gif;Win32测试环境LBCGI模块显示正常。
上传到FreeBSD空间，有没有办法显示图片？

研究LBCGI中header函数，似乎没有和CGI的header函数有区别的地方？？

11 Replies

| Add a Reply

Anthony | October 28, 2004 9:46 AM | Reply

use LBCGI qw(header);
這能嗎？
路杨 | October 28, 2004 9:48 AM | Reply

下面引用由Anthony在 2004/10/29 00:46am 发表的内容：
use LBCGI qw(header);
這能嗎？

还是不行的。。其实是输出了。。就是浏览器告诉图片非法不能显示。。 error.log没有错误，程序返回的数值也是正常的。
Anthony | October 28, 2004 9:53 AM | Reply

那麼你就看看所輸出的http header 是什麼吧..
路杨 | October 28, 2004 10:00 AM | Reply

下面引用由Anthony在 2004/10/29 00:53am 发表的内容：
那麼你就看看所輸出的http header 是什麼吧..

是 Content-Type: text/html; charset=GB2312

ft,http header就不对。。但是。。为什么？
明明 -type=>'image/gif' 了呀
路杨 | October 28, 2004 10:07 AM | Reply

改成 print header(-type=>'image/png'), $image->png; 后。
测试http header 是 Content-Type: image/png; charset=GB2312

但是图象依然不显示。郁闷：（
Anthony | October 28, 2004 10:11 AM | Reply

print header('image/png');
binmode (STDOUT);
print $image->png;
試試
估計是這問題
路杨 | October 28, 2004 10:17 AM | Reply

下面引用由Anthony在 2004/10/29 01:11am 发表的内容：
print header('image/png');
binmode (STDOUT);
print $image->png;
試試
...

还是不行。。
发现。在CGI模块下面。。。http header 没有 charset=GB2312。。
可能是这个原因？
Anthony | October 28, 2004 10:19 AM | Reply

下面引用由路杨在 2004/10/29 01:17am 发表的内容：
还是不行。。
发现。在CGI模块下面。。。http header 没有 charset=GB2312。。
可能是这个原因？

應該沒關係...
試試$LBCGI::HEADERS_ONCE = 1;
吧..估計不會是這問題..
路杨 | October 28, 2004 10:22 AM | Reply

下面引用由Anthony在 2004/10/29 01:19am 发表的内容：
應該沒關係...
試試$LBCGIHEADERS_ONCE = 1;
吧..估計不會是這問題..

没有用：（

睡觉了。明天再说，实在不行，我就不用LBCGI了。全部用CGI。汗 :em06:
花无缺 | October 28, 2004 10:20 PM | Reply

没有看明白LBCGI模块怎么写的么？

#!/usr/bin/perl
use LBCGI;
$verify= "1234";
require GD;
my $font = GD::gdGiantFont();
my $dx= 2 + $font->width * length $verify ;
my $dy = 2 + $font->height;
my $image = GD::Image->new($dx,$dy);
my $background = $image->colorAllocate(0,0,0);
my $txt = $image->colorAllocate(255,255,255);
$image->string($font, 1, 1, $verify, $txt);
print header(-charset=>'', -type=>'image/gif'), $image->gif;
exit 0;

如果你的GD不支持gif，只支持png的话
把
print header(-charset=>'', -type=>'image/gif'), $image->gif;
修改为
print header(-charset=>'', -type=>'image/png'), $image->png;
就ok了
路杨 | October 29, 2004 12:39 AM | Reply

我晕下。。果真出现问题在了 -charset=>'' 上：（