Description für JPEG's ? - #76436 (Allgemeines zu Perl)

topeg

2007-05-08 20:42

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Allso Bild in die Datenbank:

Code (perl): (dl )

my $image = Image::Magick->new;
$image->Read('test_in.jpg');
my @data=$image->ImageToBlob(magick=>'jpeg');
put_data_in_db($data[0]);

Uas der Datenbank lesen:

Code (perl): (dl )

my $image = Image::Magick->new;
my $blob=get_data_from_db();
$image->BlobToImage($blob);
$image->Write('test_out.jpg');