Saat ini hampir semua Laptop maupun ponsel, bahkan yang harganya murahpun sudah banyak yang dilengkapi dengan koneksi Wifi.
Berbagi koneksi internet melalui Wifi tentunya bisa menjadi solusi untuk penggunakan koneksi internet di rumah
bersama-sama satu keluarga hanya dengan berlangganan satu paket internet.
Untuk keperluan ini kita memanfaat “Microsoft Virtual Wifi Miniport” yang ada di Windows 7 keatas.
Caranya cukup sederhana, hanya beberapa langkah :
1. membuat virtual Access point dengan tool netsh, dengan perintah sbb : netsh wlan set hostednetwork mode=allow ssid=”nama access point” key=”kata kunci”
2. memsharing koneksi modem ke adapter “Microsoft Virtual Wifi Miniport”
3. mengaktifkan dengan perintah : netsh wlan start hostednetwork
Dikemudian hari jika ingin berbagi koneksi internet via jaringan wifi hanya perlu melakukan langkah ke-3, sedangkan langkah 1-2 hanya dilakukan sekali saja.
Untuk lebih jelasnya bisa dilihat pada video berikut ini …
https://app.box.com/s/ik6lq1cicfndv8f56rikztc836ekob09
Semoga bermanfaat.
Apakah UNICODE itu?
UNICODE adalah suatu standar industri yang dirancang untuk mengijinkan teks dan simbol dari semua tulisan di dunia untuk ditampilkan dan dimanipulasi secara konsisten oleh komputer.
Dengan UNICODE kita dapat menampilkan teks atau simbol khusus (kode ASCII diatas 255) seperti tulisan Arab, China, Latin dan lain-lain.
Pada UNICODE setiap karakter disimpan dalam 2 byte (2x karakter biasa), sehingga memungkinkan ada $FFFF (65535 karakter).
Dukungan Delphi terhadap UNICODE dimulai sejak Delphi 2009, lalu bagaimana nasib pengguna Delphi dibawah 2009, apakah harus gigit jari ..?
Tenang ….. , dengan trik sederhana kita pengguna Delphi yang belum mendukung UNICODE (Delphi 2006 atau bahkan Delphi 7) dapat menikmati tampilan UNICODE tanpa hapus menginstall komponen tambahan.
Sudah gak sabar ya ..
Langsung aja deh ini penampakannya ..
Ini source kodenya
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFMain = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FMain: TFMain;
const
arbBasmalah: array[0..30] of WideChar =
(#$0628,#$0640,#$0633,#$0640,#$0640,
#$0640,#$0640,#$0640,#$0640,#$0640,
#$0640,#$0645,#$0020,#$0627,#$0644,
#$0644,#$0647,#$0020,#$0627,#$0644,
#$0631,#$062D,#$0645,#$0646,#$0020,
#$0627,#$0644,#$0631,#$062D,#$064A,
#$0645);
arbImam: array[0..8] of WideChar = (#$0627,#$0645,#$0627,#$0645,
#$0020,#$062D,#$0627,#$0644,#$0645);
implementation
{$R *.dfm}
procedure TextSizeW(Canvas:TCanvas;ws:WideString;var sz:TSize);
begin
GetTextExtentPoint32W(Canvas.Handle,PWideChar(ws),Length(ws),sz);
end;
procedure TulisUnicode(Canvas:TCanvas;Left,Top:Integer;sText:WideString);
var
r: TRect;
sz: TSize;
begin
with Canvas do
begin
TextSizeW(Canvas,sText,sz);
r:=Rect(Left,Top,Left+sz.cx,Top+sz.cy);
DrawTextW(Handle,PWideChar(sText),Length(sText),r,DT_CENTER);
end;
end;
procedure TFMain.FormPaint(Sender: TObject);
begin
with Canvas do
begin
Brush.Style:=bsClear;
with Font do
begin
Name:='Times New Roman';
Size:=40;
Color:=clGreen;
end;
end;
TulisUnicode(Canvas,10,10,arbBasmalah);
Canvas.Font.Color:=clMaroon;
TulisUnicode(Canvas,10,100,arbImam);
end;
end.
Kalo males ngoding sendiri, boleh langsung download aja disini
https://www.box.com/s/kbax7j9xur8ienj8v3vw
Catatan:
Telah diuji menggunakan Turbo Delphi 2006 dan Delphi 7
Tools untuk mempermudah generate array akan di posting menyusul
== Semoga Bermanfaat ==
Sumber mengenai UNICODE dapat dibaca di
http://edn.embarcadero.com/article/38437
http://en.wikipedia.org/wiki/Unicode
http://id.wikipedia.org/wiki/Unicode