Membuat Aplikasi Sederhana Untuk Dialup Koneksi Modem dengan Delphi

Untuk mengkoneksikan komputer ke internet kita menggunakan layanan pihak ketiga yaitu Internet Service Provider (ISP) seperti telkom atau dengan menggunakan Modem USB melalui provider seperti XL, Telkomsel, Axis, Smartfren dan lain sebagainya. Hal ini dilakukan dengan melakukan dialup pada aplikasi yang sudah include dalam modem (Biasanya Aplikasi Mobile Partner) setelah melakukan instalasi dan beberapa langkah settingan ringan. 

Berbekal rasa penasaran saya mencari-cari cara bagaimana melakukan dialup koneksi modem USB yang saya gunakan tapi dengan aplikasi yang kita buat sendiri menggunakan Delphi. Singkat kata, sayapun menemukannya dan pada kesempatan ini akan saya sharing kepada sobat delphier. Stay tune ok! :)

Aplikasi Dialup Koneksi Modem dengan Delphi 

1. Buka Delphi anda | Buat Projek baru | Tambahkan WinInet dalam uses anda.

2. Berikutnya tambahkan dua buah constanta sebelum code type

  const
  ERROR_USER_DISCONNECTION = 631;
  ERROR_NO_CONNECTION      = 668;

3. Berikutnya buat dua buah variabel global dengan type DWORD

  ret, ConnNumber: DWORD;

4. Langkah Selanjutnya membuat sebuah fungsi yang berfungsi untuk melakukan dialup koneksi sebagai berikut

// Dial Up Koneksi
function Dial() : Boolean;
var
ret : LongInt;
NameOfDialupConnectionToUse : pchar;

begin
  // Nama Koneksi
  NameOfDialupConnectionToUse:= 'SAINET';
  ret:= InternetDial(
            Form1.Handle,
            NameOfDialupConnectionToUse,
            INTERNET_AUTODIAL_FORCE_UNATTENDED,
            @ConnNumber,
            0);

  case ret of
    ERROR_SUCCESS:
    // Jika Berhasil
      begin
        Result := True;
        exit;
      end else
      // Jika gagal
      begin
       Result := False;
       exit;
      end;
      end;
end;

5. Kemudian kita perlu membuat sebuah solusi agar aplikasi juga bisa melakukan disconnect/hangup dari internet. dalam hal ini dilakukan oleh procedure seperti berikut

// Putus Koneksi
procedure Hangup;
begin
  InternetHangup(ConnNumber, 0);
end;

6. Langkah terakhir, kita hanya perlu memanggil fungsi dan procedure yang telah kita buat pada langkah sebelumnya. contoh penerapannya adalaha sebagai berikut

    If Button2.Caption='Dial' then
        begin
            If Dial() = True then
              begin
              Label1.Caption:='Koneksi Berhasil. . .';
              Button2.Caption:='Hangup';
              end else
              Label1.Caption:='Koneksi Di Batalkan. . .';
          end else
                If Button2.Caption='Hangup' then
                    begin
                    Hangup;
                    Label1.Caption:='Terputus. . .';
                    Button2.Caption:='Dial';
                    end;

Sedikit Tips : Tambahkan sebuah timer dalam form projek anda lalu letakan code berikut. ini berfungsi untuk mengecek koneksi internet secara continoue

  if NOT InternetAutoDial(INTERNET_AUTODIAL_FORCE_UNATTENDED,0) then
  Label1.Caption:='Error Establishing Connection';
  if NOT InternetAutodialHangup(0)then
  Label1.Caption:='Error Disconnecting...';