D2 TEKNIK KOMPUTER (BSI PROGRAMMER)
Website Application secara garis besar pastinya dapat kita lihat pengertiannya pada > Definisi Website Application. Delphi 2010 sangat berbasis Web, Android, Desktop Apps..dan lain-lain, Nah teman-teman semua mari kita simak bersama-sama bagaimana kita bisa menggabungkan website dengan sebuah aplikasi dengan perantara delphi.
Let'Go Ayo Kita Lihat Source Code berikut :
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm, uniButton, uniLabel, uniPageControl,
uniGUIBaseClasses, uniPanel, uniEdit;
type
TMainForm = class(TUniForm)
UniPanel1: TUniPanel;
UniPageControl1: TUniPageControl;
UniTabSheet1: TUniTabSheet;
UniLabel1: TUniLabel;
UniButton1: TUniButton;
UniEdit1: TUniEdit;
UniButton2: TUniButton;
procedure UniButton1Click(Sender: TObject);
procedure UniButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function MainForm: TMainForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication;
function MainForm: TMainForm;
begin
Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
ShowMessage('Demo Application by BSI');
end;
procedure TMainForm.UniButton2Click(Sender: TObject);
begin
UniEdit1.Text:=datetostr(date)+'-'+timetostr(time);
end;
initialization
RegisterMainFormClass(TMainForm);
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm, uniButton, uniLabel, uniPageControl,
uniGUIBaseClasses, uniPanel, uniEdit;
type
TMainForm = class(TUniForm)
UniPanel1: TUniPanel;
UniPageControl1: TUniPageControl;
UniTabSheet1: TUniTabSheet;
UniLabel1: TUniLabel;
UniButton1: TUniButton;
UniEdit1: TUniEdit;
UniButton2: TUniButton;
procedure UniButton1Click(Sender: TObject);
procedure UniButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function MainForm: TMainForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication;
function MainForm: TMainForm;
begin
Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
ShowMessage('Demo Application by BSI');
end;
procedure TMainForm.UniButton2Click(Sender: TObject);
begin
UniEdit1.Text:=datetostr(date)+'-'+timetostr(time);
end;
initialization
RegisterMainFormClass(TMainForm);
end.
Screenshoot Programnya :
Untuk bisa menggunakan project website application ini, maka perhatikan sebagai berikut :
1. Running Project1.exe dan biarkan jangan dikeluarkan (Close)
2. Buka Mozilla Fire Fox Atau Browser yang terinstall dalam laptop/pc anda (Disarankan dengan access wifi dan clientnya menggunakan Android)
3. Beri akses URL http://localhost:9077/
4. Proses Website Application akan segera berjalan
4. Proses Website Application akan segera berjalan
Project sederhana ini, menggunakan komponen uniGUI...yang bisa anda download dan install dalam laptop
cara menginstall uniGUI dalam delphi 2010, silahkan kunjungi ini uniGUI Instalasi
Silahkan Download Demo Project Website Application Demo Website Application
Sekian dan Terima Kasih.....