modify JPEG on the fly
From: Scott Taylor (scott_at_dctchambers.com)
Date: 12/30/03
- Next message: James Edward Gray II: "Re: Pure Perl df"
- Previous message: Silverfox: "checking duplicates"
- Next in thread: Charles K. Clarkson: "RE: modify JPEG on the fly"
- Reply: Charles K. Clarkson: "RE: modify JPEG on the fly"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Tue, 30 Dec 2003 10:08:39 -0800 (PST) To: beginners@perl.org
Hello all,
I'm using Apache 1.3.27, Perl 5.6.1 with DBI->DBD::Interbase on Linux
2.4 machine.
I have a CGI script which display a JPEG from an Interbase Blob. Now,
what I would like to do is modify the JPEG to make it into a useful
thumbnail.
here is the code that converts the blob (Thanks to Dan Muey, and
others for help with that a few months ago)
# loop through the SQL results
while ( my ($PixData )
= $sth->fetchrow ) {
print header('image/jpeg');
print $PixData;
}
Now I want to send $PixData to a new command that will convert it from
a 640 X 480 @ 100% JPEG to 160 x 120 @ 30% JPEG.
Any ideas?
Cheers.
-- Scott
- Next message: James Edward Gray II: "Re: Pure Perl df"
- Previous message: Silverfox: "checking duplicates"
- Next in thread: Charles K. Clarkson: "RE: modify JPEG on the fly"
- Reply: Charles K. Clarkson: "RE: modify JPEG on the fly"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
