Main Flash Player di Delphi #176

andrypein.net : Sebagai pengumumuan 31 Desember 2020 kemarin maka pertahun 2021 ini apapun yang berhubungan dengan flash akan unable.

Termasuk main flash player di delphi, Sadge.

Demo post ini aing dulu bisa main gem shaun on the sheep pake aplikasi flash yang aing bikin ini.

Meski sudah di ban di kill gpp lah post ini hanya memento kalau dulu pernah ada FLASH game.

Kode ini berati hanya memori saja gan enjoy.

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  //flash bakal loop
  if checkbox1.Checked then
    begin
      shockwaveflash1.Loop:=true;
      //mainkan flash
      shockwaveflash1.Play;
    end
  else
    //main flash nya cuma sekali
    shockwaveflash1.Loop:=false;
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
  //ngecek di form aktif doank
  if checkbox1.Checked then
    shockwaveflash1.Loop:=true
  else
    shockwaveflash1.Loop:=false;
end;


procedure TForm1.dombaClick(Sender: TObject);
var
  kambing : string;
begin
  kambing:=GetCurrentDir+'kambing.swf';
  shockwaveflash1.Movie:=kambing;
  shockwaveflash1.Scale:='noscale';
  shockwaveflash1.Play;
  statusbar1.Panels[0].Text:='playing. . . ';
end;


procedure TForm1.btnplayClick(Sender: TObject);
begin
  shockwaveflash1.Play;
  statusbar1.Panels[0].Text:='Playing . . . ';
end;


procedure TForm1.loopplayClick(Sender: TObject);
begin
  //buka opendialog
  opendialog1.Execute;
  if opendialog1.FileName <> '' then
    begin
      shockwaveflash1.Scale:='noscale';
      //mainkan file berdasar opendialog
      shockwaveflash1.Movie:=opendialog1.FileName;
      statusbar1.Panels[0].Text:='Playing . . . ';
    end;
end;

procedure TForm1.btnrewindClick(Sender: TObject);
begin
  //rewind the movie
  shockwaveflash1.Rewind;
  statusbar1.Panels [0].Text:='Rewind...';
  //play the movie
  shockwaveflash1.Play;
  statusbar1.Panels [0].Text:='Playing...';
end;

procedure TForm1.btnstopClick(Sender: TObject);
begin
  //stop
  shockwaveflash1.StopPlay;
  statusbar1.Panels [0].Text:='Stopped...';
end;

procedure TForm1.btnzoominClick(Sender: TObject);
begin
  //zoom in
  shockwaveflash1.Zoom(90);
end;

procedure TForm1.btnzoomfitClick(Sender: TObject);
begin
  //zoom to fit
  shockwaveflash1.Zoom(0);
end;

procedure TForm1.btnzoom100Click(Sender: TObject);
begin
  shockwaveflash1.Scale:='noscale';
end;

procedure TForm1.btnquitClick(Sender: TObject);
begin
  application.Terminate;
end;

Donlod flash player di delphi ini pun percuma kecuali ada versi flash jadul (ya jelas install di vm dong).

Download

*AFK