CGIなどのの質問を受付ます。
現在SPAM対策の為、一部ホストアドレスを規制中。
▼スレッド
│
└◇1096:Re[6]:パソコンから写真が見えないのです。 [あこ] 04/19 16:42
└◇1097:Re[7]:パソコンから写真が見えないのです。 [moon] 04/19
└◇1098:Re[8]:パソコンから写真が見えないのです。 [あこ] 04/20
└◇1099:Re[9]:パソコンから写真が見えないのです。 [あこ] 04/20 <
何度もすみません!スレッド一覧
やってみましたが、かわりませんでした。(;_;)
>resize.pl.magick を resize.pl にリネームしてアップロードしてください。
>ほかの resize.pl.re resize.pl.netpbm などは必要ないので削除しても
>らってかまいません。repng2jpegも要りません
あっ!発言種類に「感謝」が!
ありがとうございまーす!(*^_^*)
> やってみましたが、かわりませんでした。(;_;)スレッド一覧
set.pl内の以下の記述はどうなっていますか?
# サムネイル作成用
$resize_pl = 'resize.pl';
# サムネイル画像(0:jpg固定/1:画像フォーマットに倣う※resize.plを編集すること!!)
$resize_pl_sw = 1;
上のようになっている場合。
1:サムネイル機能を使わない
2:Jpeg固定にする
3:resize.plを改造する
という選択肢があります。
1の場合は
$resize_pl = 'resize.pl';
を
#$resize_pl = 'resize.pl';
とする。
2の場合は
$resize_pl_sw = 1;
を
$resize_pl_sw = 0;
とする。
3の場合は
resize.plを開き、
sub imgresize{
〜
}
までを以下に差し替える。
sub imgresize{
my ($src,$dst,$w,$h,$jpegq,$del_flag) = @_;
unless($w =~ /^\d+$/ || $h =~ /^\d+$/){ return 0;}
if(eval 'use Image::Magick; 1'){
my $i = Image::Magick->new;
$i->Read($src);
if(@$i >= 2){
my $g = Image::Magick->new;
$g ->Read($src.'[0]');
$i = $g;
}
$i->Scale(width=>$w, height=>$h);
if ($jpegq =~ /^\d+$/) {
$i->Set(quality => $jpegq);
}
$i->Write("$dst");
chmod(0666,$dst);
if($del_flag == 1){
unlink($dst) if(-e $dst && (-s $dst) > (-s $src));
}
}
if(-e $dst){ return 1 ;}
return 0;
}
以上で大丈夫だと思います。たぶん。
moonさんスレッド一覧
本当にありがとうござました!
設定の意味はよくわからないのですが、以下の設定にしたら表示しました(#^.^#)
これからも宜しくおねがいいたします。
# サムネイル作成用
$resize_pl = 'resize.pl';
$resize_pl_sw = 0;
すごいプログラムを無償で使用させていただいて、スレッド一覧
素人の私にも、何度も何度もお答えいただいて、
ずーっと探し続けていたプログラムに出会えました(*^。^*)
心から感謝♪
有難う御座います。