Delphi Pemrograman

Konversi Flash ke JPG #177

SADGE part 2

Andry Fadrie K Mei 27, 2012

0 663 Less than a minute

andrypein.net : Babak lanjutan kemarin tentang main flash player delphi yang sudah tewas karena banyak CVE.

Di share sebagai memories saja dulu aing bikin apps demo flash sekaligus konversi flash ke jpg image.

Seperti ini gan meskipun yaah sudah di discontinued bhay.

procedure TForm1.FormCreate(Sender: TObject);
begin
  opendialog.Filter:='flash movie|*.swf|flash movie|*.SWF';
  savedialog.Filter:='jpeg image|*.jpg|*.JPG';
  edit1.ReadOnly:=true;
end;

procedure TForm1.btndombaClick(Sender: TObject);
var
  kambing : string;
begin
  kambing:=GetCurrentDir+'kambing.swf';
  shockwaveflash1.Movie:=kambing;
  shockwaveflash1.Zoom(0);
  shockwaveflash1.Play;
end;

procedure TForm1.btnbrowseClick(Sender: TObject);
begin
  if opendialog.Execute then
    edit1.Text:=opendialog.FileName
  else
    exit;
end;

procedure TForm1.btnplayClick(Sender: TObject);
begin
  if edit1.Text <> '' then
    begin
      shockwaveflash1.Movie:=edit1.Text;
      shockwaveflash1.Zoom(0);
      shockwaveflash1.Play;
    end
  else
    showmessage('zzzzzzzzzzzzzz');
end;

procedure TForm1.btnsaveClick(Sender: TObject);
var
  bmp : TBitmap;
  jpg : TJPEGImage;
begin
  bmp:=TBitmap.Create;
  jpg:=TJPEGImage.Create;
  bmp.Width:=Shockwaveflash1.ClientWidth;
  bmp.Height:=Shockwaveflash1.ClientHeight;
  Shockwaveflash1.PaintTo(bmp.Canvas ,0,0);
  savedialog.Execute;
  jpg.Assign(bmp);
  if savedialog.FileName <> '' then
    begin
      jpg.SaveToFile(savedialog.FileName+'.jpg');
      bmp.Free;
      jpg.Free;
    end;
end;

Procedure TForm1.btnexitClick(Sender: TObject);
begin
  application.Terminate;
end;