Mematikan Monitor Komputer

     Hai para "del-man", gmn kabarnya hari ini? Smoga baik-baik aja. Para "del-man" sekalian tentunya tau tentang Win API. Nah kali ini aku akan sedikit tentang cara mematikan monitor komputer menggunakan Delphi dan WIN API.
     Buat saja sebuah form seperti dibawah ini














Untuk listing tombol OK sebagai berikut :

var Mode:integer;
begin
   if cxRadioButton1.Checked = true then
     Mode:=1
   else
     Mode:=2;
   PostMessage(Handle,WM_SYSCOMMAND,SC_MONITORPOWER,Mode)
end;

     Cukup mudah bukan para "del-man". Selamat mencobanya. Jika para "del-man" merasa kesulitan, silahkan download aplikasi lengkapnya disini.

Koneksi Delphi dengan MS Access

     Kali ini aku akan membahas tentang pengkoneksian Delphi dengan MS Access. Para "del-man", aku akan membagi dalam beberapa langkah untuk mempermudah pengkoneksian. Langkah-langkahnya sebagai berikut :

Mengkoneksikan Database dengan Sistem Komputer
• Langkah Pertama

Buat sebuah database yang akan dikoneksikan dengan Delphi menggunakan Microsoft Access. Setelah selesei dibuat, simpan database tersebut.

• Langkah Kedua

Dari setting control panel pilih Perfomance and Maintenance > Administrative Tools > Data Source (ODBC). Jika computer kamu terhubung dengan jaringan, pilih System DNS. Tapi jika tidak cukup pilih User DSN saja dan klik Add.

• Langkah Ketiga

Buat koneksi dengan memilih Microsoft Access Driver (*.mdb) kemudian klik Finish.

• Langkah Keempat

Klik Select dan pilih database (yang telah dibuat) yang akan dikoneksikan dengan Delphi dan beri nama Toko_Del-Man. Nama ini yang nantinya akan dipakai pada koneksi dengan Delphi. Kemudian klik OK dan koneksi telah selesai dibuat.
















Mengkoneksikan Database dengan Delphi

     Buat sebuah form yang berisikan komponen TTable, TDataSource, TDBNavigator, TDBGrid. Kira-kira tampilannya seperti dibawah ini.



















Untuk pengaturan beberapa komponen sebagai berikut :

1. Komponen TTable
     • Name : TableKota
     • DatabaseName : Toko_Del-Man
     • TableName : Barang
     • Active : True

2. Komponen TDataSource
     • Name : DataSourceKota
     • Dataset : TableKota

3. Komponen TDBNavigator
     • Datasource : DataSourceKota

4. Komponen TDBGrid
     • DataSource : DataSourceKota

     Sekian untuk pembahasan kali ini para "del-man". Untuk download aplikasi lengkapnya disini. Silahkan para "del-man" mengembangkannya.

Mendapatkan Nama dan Alamat IP

     Bingung dan lupa dengan nama dan alamat IP komputer?? Tenang saja para “del-man”, kali ini aku akan membahas tentang cara mudah mendapatkan nama dan alamat IP menggunakan Delphi. Pertama-tama buat 1 form yang berisi 2 edit text dan 1 tombol. Kurang lebih tampilannya seperti berikut :










     Langkah pertama buatlah sabuah fungsi untuk mendapatkan nama host dan alamat IP. Listingnya seperti berikut

function CariIP(var NamaHost, AlamatIP, Error: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then
begin
Error := 'Tidak ada respon dari Winsock."';
Exit;
end;

AlamatIP := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
NamaHost := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
AlamatIP :=
Concat(AlamatIP,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(AlamatIP, Length(AlamatIP) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:Error:= 'IP tidak terdeteksi';
WSAENETDOWN :Error:= 'Jaringan sedang down';
WSAEINPROGRESS :Error:= 'Dalam proses';
end;
end;
Dispose(HName);
WSACleanup;
end;

Kemudian untuk listing tombol cek IP sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
Host, IP, Err: string;
begin
if CariIP(Host, IP, Err) then
begin
Edit1.Text := Host;
Edit2.Text := IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);
end;


     Ini hanyalah contoh sederhana para “del-man”, silahkan para “del-man” mengembangkannya. Untuk proyek lengkapnya silahkan dodwnload disini.

Membaca file txt

Untuk para “del-man” (delphi mania), aku akan membahas tentang pembacaan file text ( file berekstensi .txt ) menggunakan Delphi. Pertama-tama buat dulu sebuah form yg berisi 1 memo dan 3 button. Kurang lebih tampilannya seperti gambar dibawah ini.

Untuk penamaan setiap komponen, gunakan nama default dari Delphi saja. Button1 untuk Tombol Baca dari File Text, Button2 untuk Tombol Update File Text, Button3 untuk Tombol Bersihkan Hasil dan Memo1 untuk Memo Hasil Pembacaan File Text. Setelah itu simpan project dalam 1 folder dan jangan lupa buat 1 file berekstensi .txt dengan nama Del-Man.txt dan simpan 1 folder dengan project para “del-man”. Pada form tersebut terdapat :

Ø Tombol Baca dari File Text, tombol ini digunakan untuk membuka file text.

Ø Tombol Update File Text, tombol ini digunakan untuk mengupdate file text. Edit dulu pada memo, kemudian baru di update.

Ø Memo yang digunakan untuk memunculkan hasil pembacaan file.

Ø Tombol Bersihkan Hasil, tombol ini digunakan untuk membersihkan memo.

Listing dari project tersebut seperti ini para “del-man” :

procedure TForm1.Button1Click(Sender: TObject);

var f:textfile;

i,n:integer;

dt:string;

begin

try

try

AssignFile(f,'Del-Man.txt');

reset(f);

readln(f,n);

for i:=1 to n do

begin

readln(f,dt);

Memo1.Lines.Add(dt);

end;

except on EInOutError do

MessageDlg('File tidak ada',mtWarning,[mbok],0);

end;

finally closefile(f);

end;

Button2.Enabled :=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

var f:textfile;

i,n:integer;

dt:string;

begin

n:=Memo1.Lines.Count;

AssignFile (f,'Del-Man.txt');

reWrite (f);

WriteLn (f,n);

for i:=0 to n do

begin

dt:=Memo1.Lines.Strings[i];

writeln (f,dt);

end;

CloseFile (f);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Memo1.Clear;

Button2.Enabled :=false;

end;

end.

Jika para “del-man” merasa kesulitan, project ini dapat didownload disini. Project ini hanyalah contoh sederhana saja. Silahkan para “del-man” mengembangkannya sendiri.