Lourens Loukassy

D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Pembuatan Aplikasi DWM Jailbreak Versi Desktop Aplikasi ini di design sesederhana mungkin untuk menjadi demo dari Webbrowser menggunakan TEmbeddedWB 2010 Berikut Source Codenya :  procedure TForm1.btnBackClick(Sender: TObject); begin EmbeddedWB1.GoBack; end; procedure TForm1.btnForwardClick(Sender: TObject); begin EmbeddedWB1.GoForward; end; procedure TForm1.btnGoClick(Sender: TObject); begin EmbeddedWB1.Go(IEaddress1.Text); end; procedure TForm1.btnStopClick(Sender: TObject); begin EmbeddedWB1.Stop; end; procedure TForm1.FormActivate(Sender: TObject); begin EmbeddedWB1.Navigate(IEaddress1.Text); with EmbeddedWB1 do     begin       LoadSettings;       Align := alClient;       Visible := True;       OnStatusTextChange := StatusTextChangeEvent;       OnDownloadComplete := DownloadCompleteEvent;       Go(IEaddress1.Text);     end; end; procedure TForm1.FormShow(Sender: TObject); begin UpdateControls; IEaddress1.Text:='http://www.bsiprogr

D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Tutorial Delphi Mobile Apps dengan Delphi XE5 Membuat koneksi database ke Android Apps dengan menggunakan FireDac (SQLite) Berikut contoh direktori path dalam Android procedure TDM.FDConnection1BeforeConnect(Sender: TObject); begin {$IFDEF ANDROID} FDConnection1.Params.Values['Database']:= TPath.Combine(TPath.GetDocumentsPath, 'datainput.db3'); {$ELSE} FDConnection1.Params.Values['Database']:= 'D:\Master HP 520\Delphi Component\BSI BORLAND DELPHI\Mobile\datainput.db3'; {$ENDIF} end; Open Connection Source Code procedure TForm1.SpeedButton1Click(Sender: TObject); begin Datamodule.DM.FDQuery2.Close; Datamodule.DM.FDQuery2.Open(); end; Sumber : Youtube & KPPDI  Screenshut Program