ActiveX Control Browser BSI

D2 TEKNIK KOMPUTER (BSI PROGRAMMER)

  ActiveX Control adalah kontrol menggunakan Microsoft ActiveX teknologi. Kontrol ActiveX dapat secara otomatis didownload dan dieksekusi oleh browser Web. ActiveX adalah bukan bahasa pemrograman,melainkan seperangkat aturan untuk bagaimana aplikasi harus berbagi informasi.

  Untuk kali ini saya akan membagikan beberapa tips membangun ActiveX Control Browser dengan Delphi 2010...
mari kita lihat contoh pemrograman x dengan baik dan seksama...

   ActiveX Control yang ada di gambar ini merupakan percobaan , jadi baik adanya anda mengikuti dengan seksama serta memahami isi dari artikel ini. selanjutnya seperti tampilan diatas pilih File > New > Other > ActiveX > Type Library > Kemudian Pilih ActiveX Form. nah setelah semuanya sudah tersedia , ayo kita design beberapa form dengan component berikut : 

   Kemudian berikan coding dalam component diatas sebagai berikut : 

untuk button1 : 

 procedure TBrowserBSI.Button1Click(Sender: TObject);
begin
Webbrowser1.GoBack;
end;

untuk button2 : 

procedure TBrowserBSI.Button2Click(Sender: TObject);
begin
Webbrowser1.GoForward;
end;

untuk button3 : 

procedure TBrowserBSI.Button3Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit1.Text);
end;

untuk OnProgressChange (Webbrowser1)

procedure TBrowserBSI.WebBrowser1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
WebBrowser1.UpdateControlState;
Edit1.Text:=Webbrowser1.LocationURL;
end;

   Setelah itu anda simpan dalam satu folder , kemudian compile dan akan menjadi sebuah file ActiveX Control (*.ocx). untuk bisa running dalam web browser (Internet Explorer) kita harus membuat sebuah file Execute berupa HTML agar browser bisa mengexecute file AcitveX tersebut. Berikut adalah isi dari file launching.html (disimpan dalam folder project ActiveX Control) : 

   Untuk ClassID bisa di lihat pada project file ActiveX Control sebagai berikut : 

   Untuk CodeBase diisi dengan Nama File Hasil Compile project (*.ocx)....

Silahkan Download Contoh Project ActiveX Control dengan Delphi (ActiveX Control Browser BSI) :
||ActiveX Control Browser BSI||