Apart
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Perl виндовый, ессно. GD я использую давно и очень хорошо получается. Правда, на компе стоит более старая его версия. И сейчас просто нужно, чтобы он заработал на новом ноуте (Vista). Я еще думаю, что может на шрифт нужно какие-то права выставить? Т.е. на хостинге я знаю, что надо. Но дома я с этим не разобрался, что там с ними.
Пример кода
#!/usr/local/bin/perl
use GD;
$im = new GD::Image(200, 100);
$white = $im->colorAllocate(255,255,255);
$red = $im->colorAllocate(255,0,0);
$im->transparent($white);
$font = "verdana.ttf";
$im->stringFT($red, $font, 15, 0, 10, 10, "A TTF font");
$im->string(gdLargeFont, 10, 20, "GD Large font", $red);
open(PICTURE, ">pic.png") or die("Cannot open file for writing");
binmode PICTURE;
print PICTURE $im->png;
close PICTURE;
PS: пусть к шрифту выставлял разный: и /название шрифта, и ./название шрифта, и c:\название шрифта - не помогло. |
(