question about 3rd party component 1

[kyriakos70]

Hello,
I have a question about a component named vintasofttwain activex, my question is how can I aquire an image and save it as jpg. Any help anyone who uses it.

Thank you
Kyriakos

 

[TonHu]

http://www.lmgtfy.com/?q=vintasofttwain+activex

 

[whosrdaddy]

kyriakos,

you can find demos on their site:

http://www.vintasoft.com/vstwain-examples.html

/Daddy

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[kyriakos70]

here is the code

if Image1.Picture.Bitmap.Handle <> 0 then Image1.Picture.Bitmap.ReleaseHandle;
Image1.Picture.Bitmap.Handle := VSTwain1.GetCurrentImageAsHBitmap;

I want to save the current image as jpg in the sql table, how can I do it?

Kyriakos

 

[DjangMan]

Googling "Delphi save jpg to blob" yielded this experts-exchange post:

var
  sFileName: string;
  tblImage: TADOTable;
  imgCover: TJPEGImage;
begin
  // first get the image if it exists
  sFileName := Trim( edtPicture.Text) + '.jpg';
  if FileExists( sFileName) then
  begin
    imgCover := TJPEGImage.Create;
    try
      // load the current image
      imgCover.LoadFromFile( sFileName);
      // next load the cover image to the database temporarily
      tblImage := TADOTable.Create( nil);
      try
        with tblImage do
        begin
          // create the ADO Table, set the connection and the table name
          ConnectionString := 'SOMECONNECTIONSTRING';
          TableName  := 'YOURTABLE';
          // open the table and append a new record
          Open;
          Append;
          // add the values for the new record
          FieldByName( 'PictureName').AsString := 'PictureName';
          FieldByName( 'FilePath').AsString := sFileName;
          FieldByName( 'YourImage').Assign( imgCover);
          // post the data
          Post;
        end;
      finally
        // free up the table
        FreeAndNil( tblImage)
      end;
    finally
      try
         imgCover.free
      finally
         imgCover := nil;
      end;
    end;
  end;
end;