Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 817
  • Last Modified:

BlobStream convert to JPEG using ImageLib

I have images stored in a table, they may or may not be Bitmap, we do not have the extension stored in the table.
I need to convert every image in the table to JPEG using the ImageLib suite.

Anyone have any code showing how to do this?
0
Eddie Shipman
Asked:
Eddie Shipman
  • 4
  • 4
1 Solution
 
SteveBayCommented:
Hmm. There is a strikingly similar Q posted in the imagelib_corperate_suite NG;) Don't hold your breath waiting for an answer over there.

I know it's not meant to work on streams.. but you could try saving the blob to a file and then use TPMultiImage.GetInfoAndType function. Then check the value of TPMultiImage.BFileType. I've never tried it but the help file description suggests that it might be what you are looking for
0
 
Eddie ShipmanAll-around developerAuthor Commented:
I really didn't want to save it to a file, first. Can I not load the TPMultiImage from a stream and then use the GetInfoAndType function to determine the graphic class I need to create?
0
 
Eddie ShipmanAll-around developerAuthor Commented:
Yes, it is the same, it was posted with my boss' account.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
SteveBayCommented:
I have some ideas but no time to test them right now. Stay tuned.
0
 
SteveBayCommented:
This is something I tried late last night and it seems to be able to tell the difference between Bimaps and JPEG. I got results like this:

FImageType JPEG, Fwidth 270, FHeight 180, Fbitspixel 24,  Fnumcolors 0, Fcompression RGB
FImageType BMP, Fwidth 270, FHeight 180, Fbitspixel 24,  Fnumcolors 0, Fcompression None




Uses DLL96V1
//....
procedure TForm1.Button1Click(Sender: TObject);
var ms : TMemoryStream;
     FImageType : String;
     Fwidth        : SmallInt;
     FHeight       : SmallInt;
     Fbitspixel    : SmallInt;
     Fplanes       : SmallInt;
     Fnumcolors    : SmallInt;
     Fcompression : String;
begin
     Memo1.Clear;
     Table1.Active := True;
     Table1.First;
 
     ms := TMemoryStream.Create;
 
     while not Table1.Eof do
          begin
          ms.Clear;
          TBlobField(Table1.FieldByName('Data')).SaveToStream(ms);
          ms.Position := 0;
          GetBlobInfo(ms.Memory,
                      ms.Size,
                      FImageType,
                      Fwidth,
                      FHeight,
                      Fbitspixel,
                      Fplanes,
                      Fnumcolors,
                      Fcompression );
          Memo1.Lines.Add(Format('FImageType %s, Fwidth %d, FHeight %d, Fbitspixel %d,  Fnumcolors %d, Fcompression %s',
                              [ FImageType , Fwidth , FHeight , Fbitspixel ,  Fnumcolors , Fcompression]));
 
 
          Table1.Next;
          end;
     ms.Free;
end;

Open in new window

0
 
Eddie ShipmanAll-around developerAuthor Commented:
ok, I will give it a try and see if it is what I need.
DLL96V1 is an ImageLib unit, correct?
0
 
SteveBayCommented:
It sure is.
I find it in C:\Program Files\SkyLine\ImageLib7\Vcl_Del7 on my system.
0
 
Eddie ShipmanAll-around developerAuthor Commented:
Looks great and it works, Thanks.
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 4
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now