Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Main Flash Player di Delphi #176

Sadge dud

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.

main flash player di delphi
liaaat, dulu bisa cuy

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

Related Articles

One Comment

  1. kang andry, saya sudah buat aplikasi untuk mainkan game flash, tetapi kenapa pada game flash tertentu tidak bisa di stop atau di rewind?
    thankssss

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button