Wednesday, 15 February 2017T2/15/2017 10:32:00 pm

MEMBUAT APLIKASI ANDROID SENDIRI DI DELPHI XE

Salam blogger….pada postingan kali ini saya akan share cara membuat aplikasi android di Delphi XE, dengan Delphi XE series versi XE 5 keatas  kini kita sudah dapat membuat aplikasi android. Jadi bagi sobat semua yang sudah terbiasa dengan bahasa pemprograman Delphi tentunya menjadi kabar yang sangat menyenangkan karena dengan Delphi kita sudah dapat membuat aplikasi android. Tentunya dengan skill program Delphi yang anda kuasai, sobat dapat membuat aplikasi android dengan bahasa pemprograman yang hampir sama, sobat hanya perlu menyesuaikan dengan sedikit kode kode program untuk dapat menginplementasikan nya ke dalam  bahasa mesin yang dapat di eksekusi oleh android.

Pada artkel saya kali ini saya akan memberikan tutorial singkat cara pembuatan aplikasi android dengan menggunakan Delphi XE, Delphi yang saya pakai kali ini adalah Delphi XE 8 , sobat dapat menggunakan Delphi XE apa saja yang penting versi nya sudah Delphi XE 5 keatas sampai dengan Delphi terbaru. Kali ini saya akan membuat aplikasi android yang dimana di dalam aplikasi android tersebut dapat membuka semua media social milik sobat yang menjadi tren sekarang ini hanya melalui satu aplikasi tersebut.
Langsung saja simak langkah langkah nya berikut ini :

1. Pertama tama buka Delphi XE sobat, lalu pilih File > New > Multi Device Application Delphi.

2. Maka akan muncul jendela new items, lalu pilih Blank Application lalu tekan Ok. Maka akan muncul sebuah form1 untuk kita design, . Lalu tempatkan / save  projectnya di sebuah folder baru dengan nama folder sesuai dengan keinginan sobat. lalu design tampilan form1 seperti pada gambar dibawah ini :

3. Pada gambar diatas komponen yang saya gunakan adalah :

  • 2 buah layout

  • 1 buah image

  • 3 buah label

  • 1 buah button

  • 1 buah fgproggress dialog

4. Jika sudah sudah sobat design maka sobat tinggal menamabahkan koding program nya saja, koding lengkap pada form1 adalah sebagai berikut :

var
  Form1: TForm1;
implementation
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}
{$R *.iPhone.fmx IOS}

uses Umenu;
{$R *.LgXhdpiTb.fmx ANDROID}

procedure TForm1.Button1Click(Sender: TObject);
begin
fgProgressDialog1.ResetProgress;
  fgProgressDialog1.Show;
  try
    fgProgressDialog1.Message := 'Loading Uduy Macal Mobile';
    fgProgressDialog1.Kind := tfgProgressDialog.DefaultKind;
    Sleep(1000);
    fgProgressDialog1.Message := 'Load info Blog';
    fgProgressDialog1.Progress := 10;
    Sleep(1000);
    fgProgressDialog1.Message := 'Load info Fanpage Facebook';
    fgProgressDialog1.Progress := 20;
    Sleep(1000);
    fgProgressDialog1.Message := 'Load info Facebook';
    fgProgressDialog1.Progress := 30;
    Sleep(1000);
     fgProgressDialog1.Message := 'Load info Instagram';
    fgProgressDialog1.Progress := 50;
    Sleep(1000);
     fgProgressDialog1.Message := 'Load info Twitter';
    fgProgressDialog1.Progress := 70;
    Sleep(1000);
     fgProgressDialog1.Message := 'Load info Google+';
    fgProgressDialog1.Progress := 80;
    Sleep(1000);
    fgProgressDialog1.Message := 'Finish';
    fgProgressDialog1.Progress := 90;
    Sleep(500);
    fgProgressDialog1.Progress := 100;
    Sleep(500);
  finally
    fgProgressDialog1.Hide;
    form1.Hide;
    form2.show;
end;
end;

procedure TForm1.fgProgressDialog1Hide(Sender: TObject);
begin
Log.d('OnHide');
end;

procedure TForm1.fgProgressDialog1Show(Sender: TObject);
begin
Log.d('OnShow');
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
begin if Key = vkHardwareBack then
begin MessageDlg('Anda Yakin Ingin Keluar Aplikasi?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
procedure(const AResult: TModalResult)
begin if AResult = mrYes then begin Application.Terminate; Exit; end end);
Key := 0; end;
end;
end;
end.

5. Jika sudah selanjutnya kita akan menambahkan sebuah form baru lagi, cara nya adalah pilih file > multi device form Delphi. Maka akan muncul form2, lalu sobat design tampilannya seperti pada gambar di bawah ini :

 6. pada gambar di atas, komponen yang saya gunakan adalah :

  • 1 buah layout

  • 5 buah button

  • 5 buah image

7. jika sudah selanjutnya sobat tinggal masukan koding dibawah ini kedalam masing masing button diatas sesuai dengan fungsi nya.

var
  Form2: TForm2;

implementation

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.NmXhdpiPh.fmx ANDROID}

uses Uweb;

procedure TForm2.Button1Click(Sender: TObject);
begin
form3.Show;
form3.edit1.text:='http://uduymacal.com/?m=1'  ;
form3.webbrowser1.StartLoading;
form3.Button2.SetFocus;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form3.Show;
form3.edit1.text:='https://facebook.com/uduymacal/?m=1'  ;
form3.webbrowser1.StartLoading;
form3.Button2.SetFocus;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
form3.Show;
form3.edit1.text:='https://twitter.com/uduymacal/?m=1'  ;
form3.webbrowser1.StartLoading;
form3.Button2.SetFocus;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
form3.Show;
form3.edit1.text:='https://instagram.com/uduymacal/?m=1'  ;
form3.webbrowser1.StartLoading;
form3.Button2.SetFocus;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
form3.Show;
form3.edit1.text:='https://plus.google.com/+uduymacal/?m=1'  ;
form3.webbrowser1.StartLoading;
form3.Button2.SetFocus;
end;

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin if Key = vkHardwareBack then
begin MessageDlg('Anda Yakin Ingin Keluar Aplikasi?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
procedure(const AResult: TModalResult)
begin if AResult = mrYes then begin Application.Terminate; Exit; end end);
Key := 0; end;
end;
end.

8. Pada masing masing URL diatas adalah merupakan url media sosial yang saya miliki, sobat dapat mengganti url tersebut dengan link url media social milik sobat.

9. Jika sudah maka selanjutnya sobat tambahkan sebuah form lagi dengan cara yang sama seperti pada langkah di atas, maka akan muncul form3 untuk kita design lagi, contohnya seperti pada gambar di bawah ini.

 10. Adapun komponen yang digunakan pada gambar diatas adalah sebagai berikut :

  • 1 buah edit text

  • 3 buah button

  • 1 buah webbrowser

  • 2 buah toolbar

11. jika sudah di design maka masukan koding di bawah ini kedalam form tersebut :

var
  Form3: TForm3;
implementation

{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

uses Umenu;

{ TForm3 }

procedure TForm3.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
OpenURL;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
webbrowser1.ResetFocus;
webbrowser1.Stop;
form2.ShowFullScreenIcon;
end;

procedure TForm3.OpenURL;
begin
WebBrowser1.Navigate(Edit1.Text);
end;

procedure TForm3.WebBrowser1DidStartLoad(ASender: TObject);
begin
webbrowser1.CanFocus:=true;
webbrowser1.SetFocus;
end;
end.

Jika sudah maka sobat tinggal menjalankan programnya dengan cara menekan F9/Run. maka program Delphi akan menjalankan programnya melalui emulator android yang ada di Delphi sobat. Adapun hasil aplikasi ini akan berekstensi .apk . jika sobat ingin mencoba aplikasi buatan sobat di android sobat, maka sobat dapat copy paste file .apk tersebut ke android sobat selanjutnya tinggal sobat install file .apk tersebut ke dalam android sobat. File nya berada di folder project sobat\android\bin\nama file.apk .adapun contoh screenshot aplikasi android hasil buatan saya adalah seperti pada contoh gambar di bawah ini.
Demikian tutorial tentang cara membuat aplikasi android di Delphi XE yang dapat saya share kali ini, semoga dapat bermanfaat dan dapat menambah wawasan sobat tentang program Delphi dan selamat mencoba, jika sobat ingin mencoba aplikasi android buatan saya sobat dapat mendowload aplikasi .apk nya pada link di bawah.
Previous
Next Post »
0 Komentar untuk "MEMBUAT APLIKASI ANDROID SENDIRI DI DELPHI XE"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status