 |
|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Alexander E.Kononenko 2:5020/400 11 Mar 2004 12:00:56 To : Daniil Uspensky Subject : Re: динамически созданные .png отдать надо -------------------------------------------------------------------------------- > В cgi-скрипте создаю картинки с помощью GD. Hужно отдать их в составе > html-страницы. Как такое осуществить? > > Сейчас экспериментирую с GD и отдаю с "Content-type: image/png", печатая в > STDOUT. Лично я делаю по-такому принципу: - Hапример беру картинку из oracle (blob) - Закидываю в темп файл - Генерю html страницу с использованием картинки - После генерации html удаляю темп-файл. Код: #!/usr/bin/perl use DBD::Oracle; use CGI qw(:all); use strict; my ($sth,$Query,@Row); my $dbh=DBI->connect("dbi:Oracle:$DBNAME","$DBUSER","$DBPASSWD"); $dbh->{LongReadLen} = 10000000; $Query="SELECT logo FROM firm WHERE firm=doc\$all.getcurrentfirm"; $sth=$dbh->prepare($Query); $sth->execute; @Row=$sth->fetchrow_array; my @logo=$Row[0]; $sth->finish; open (FILE, "> /u04/neo/apache/htdocs/il_logo_temp.jpg"); print FILE "@logo"; close (FILE); print "Content-Type : text/html; charset=koi8-r\n\n"; print <<M1; <html> <body> <img src=/il_logo_temp.jpg width="300" heigth="200"> </body> </html> M1 $dbh->disconnect; system ("rm -rf /u04/neo/apache/htdocs/il_logo_temp.jpg"); --- ifmail v.2.15dev5.3 * Origin: Togliatti Telecom News Server (2:5020/400) Вернуться к списку тем, сортированных по: Архивное /ru.cgi.perl/7695b74cd846.html, оценка из 5, голосов 10
|
|
|