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;