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;
Thanks.
Regards,
Steven Liew