Mengetahui jenis koneksi dengan Delphi

Kali ini saya akan ngebahas tentang koneksi, kelihatan hal yang sepele tapi bisa berarti penting jika kita membuat aplikasi berbasis client server, nah ini ada sedikit tips untuk membaca koneksi internet dengan menggunakan delphi.

source code ini bisa dicoba:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
  function Koneksi: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses wininet;
{$R *.dfm}


Function TForm1.Koneksi :boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
Edit1.Text := 'Modem';
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
Edit1.Text := 'LAN';
end;


if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
Edit1.Text := 'Proxy';
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
Edit1.Text := 'Modem Busy';
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Koneksi;
end;

berikut saya print screen aplikasinya :

 

tinggal klik button koneksi maka koneksi yang anda gunakan akan terbaca, seperti pada gambar dibawah ini:

SMS Gateway Menggunakan AT Command dan Delphi

Hallo gan..

lama ga nge-post nih, nah kali ini ane mo ngajak ente sekalian untuk membuat aplikasi SMS Gateway menggunakan AT Command dan Delphi.

nah, sebelum kelangkah berikunya yg perlu dipersiapin adalah:

1. Handphone atau modem.. yg ane gunakan modem huawei e220

2. Kabel data handphone kalo agan menggunakan handphone

3. Komponen Ouxcom

4. Extract ouxcom.zip, jalankan ouxcom/source/ouxcom.dpk dengan cara klik dua kali.

5. Delphi otomatis akan berjalan dan membuka ouxcom.dpk, pilih install, seperti gambar dibawah ini

 

Setelah komponen terinstall, tutup Delphi dan Save Project, klik Yes.

6. Copy file *.res dan *.dcu dari folder ouxcom/source ke Program Files/Borland/Delphi/Lib. Komponen selesai diinstall.

7. Buka Delphi, tambahkan komponen Xcomm dari tab XComDrv dari Component Pallete.

8. Pilih properti BaudRate, DeviceName, dan FlowControl sesuai dengan piranti yang digunakan.

9. Tambahkan komponen Button dan Memo ke dalam Form1. Ubah properti Caption dari Button1 menjadi Connect’.

Sampai disini dulu gan... nanti ane post lagi..

Asal nama bluetooth

Bluetooth adalah spesifikasi industri untuk jaringan kawasan pribadi (personal area networks atau PAN) tanpa kabel. Bluetooth menghubungkan dan dapat dipakai untuk melakukan tukar-menukar informasi di antara peralatan-peralatan. Spesifiksi dari peralatan Bluetooth ini dikembangkan dan didistribusikan oleh kelompok Bluetooth Special Interest Group. Bluetooth beroperasi dalam pita frekuensi 2,4 Ghz dengan menggunakan sebuah frequency hopping traceiver yang mampu menyediakan layanan komunikasi data dan suara secara real time antara host-host bluetooth dengan jarak terbatas.Kelemahan teknologi ini adalah jangkauannya yang pendek dan kemampuan transfer data yang rendah.