How to convert SWF to JPEG ?

F-IN-BOX for Delphi / Builder C++ / VCL
liewjp
Posts: 3
Joined: Sun Jan 24, 2010 4:11 pm

How to convert SWF to JPEG ?

Postby liewjp » Sun Jan 24, 2010 4:27 pm

Hello,

I've saw your sample to convert SWF to bitmap as below :

Code: Select all

procedure TMainForm.ButtonSaveAsBitmapClick(Sender: TObject);
var
  Bitmap: TBitmap;
  Picture: TPicture;
begin
  Picture := TPicture.Create;
  Bitmap := FlashPlayerControl1.CreateFrameBitmap;
  Picture.Bitmap := Bitmap;
  if SaveAsBitmapDialog.Execute then
  begin
    Picture.SaveToFile(SaveAsBitmapDialog.FileName);
  end;
  Bitmap.Free;
  Picture.Free;
end;


I was wondering what technique is used to convert SWF to JPEG ?

Is there any function like FlashPlayerControl1.CreateFrameJPEG as below :

Code: Select all

procedure TMainForm.ButtonSaveAsJPEGClick(Sender: TObject);
var
  Jpg : TJpegImage;
  Stream: TMemoryStream;
begin
  Jpg := FlashPlayerControl1.CreateFrameJPEG;
  Stream := TMemoryStream.Create;
  try
    Jpg.SaveToStream(Stream);
    Stream.Position := 0;
    //Load the Blob field from the stream
    TBlobField(oTable.fieldbyname('Image')).LoadFromStream(Stream);
  finally
    jpg.Free;
    Stream.Free;             
end;


:D

Thanks.

Regards,
Steven Liew

Softanics
Site Admin
Posts: 1402
Joined: Sat Sep 18, 2004 3:03 am
Location: Russia, St. Petersburg
Contact:

Re: How to convert SWF to JPEG ?

Postby Softanics » Mon Jan 25, 2010 7:29 am

Thank you for your question.

Could you please try the following:

Code: Select all

procedure TMainForm.ButtonSaveAsJPEGClick(Sender: TObject);
var
  Bitmap: TBitmap;
  Jpg : TJpegImage;
  Stream: TMemoryStream;
begin
  Bitmap := FlashPlayerControl1.CreateFrameBitmap;

  Jpg := TJpegImage.Create;
  Jpg.Assign(Bitmap);

   ...

end;


Thank you.
Best regards, Artem A. Razin,
F-IN-BOX support
Ask your question here: http://www.f-in-box.com/support.html

liewjp
Posts: 3
Joined: Sun Jan 24, 2010 4:11 pm

Postby liewjp » Mon Jan 25, 2010 11:13 am

Yes, that works. Thanks for fast respond and Help !

:D

Softanics
Site Admin
Posts: 1402
Joined: Sat Sep 18, 2004 3:03 am
Location: Russia, St. Petersburg
Contact:

Postby Softanics » Mon Jan 25, 2010 4:41 pm

You are welcome! :)
Best regards, Artem A. Razin,

F-IN-BOX support

Ask your question here: http://www.f-in-box.com/support.html


Return to “Delphi / Builder / VCL Edition”

Who is online

Users browsing this forum: No registered users and 21 guests

cron