Save *.ini Delphi

         Beberapa hari yang lalu ada yang pernah menanyakan bagaimana menyimpan setting program yang kita buat kedalam document text, dan saya menyarankan di simpan ke dalam bentuk file extension ini saja, karena lebih fleksibel untuk kita baca lagi. Seperti biasanya saya ga jago bermain dengan kata -kata langsung saja kita lihat contoh code berikut :

Siapkan beberapa komponen Tedit dan Button kedalam Form seperti gambar berikut :

Berikut source codenya :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btnsimpan: TButton;
    edtSMTPServer: TEdit;
    edtSMTPPort: TEdit;
    edtAccount: TEdit;
    edtPassword: TEdit;
    edtEmail: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    btnbaca: TButton;
    procedure btnsimpanClick(Sender: TObject);
    procedure btnbacaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses IniFiles;

{$R *.dfm}


procedure TForm1.btnsimpanClick(Sender: TObject);
var
  MailIni: TIniFile;
begin
  MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'setting.ini');
  with MailIni do begin
    WriteString('Smtp', 'ServerName', edtSMTPServer.Text);

    WriteString('Smtp', 'ServerPort', edtSMTPPort.Text);

    WriteString('Smtp', 'ServerUser', edtAccount.Text);

    WriteString('Smtp', 'ServerPassword', edtPassword.Text);

    WriteString('Email', 'PersonalEmail', edtEmail.Text);
  end;
  MailIni.Free;
end;

procedure TForm1.btnbacaClick(Sender: TObject);
var
  MailIni: TIniFile;
begin
  MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'setting.ini');
  with MailIni do begin
    edtSMTPServer.text := ReadString('Smtp', 'ServerName', 'pop3.server.com');
    edtSMTPPort.text := ReadString('Smtp', 'ServerPort', '110');
    edtAccount.text := ReadString('Smtp', 'ServerUser', 'your_login');
    edtPassword.text := ReadString('Smtp', 'ServerPassword', 'your_password');

    edtEmail.text := ReadString('Email', 'PersonalEmail', 'someaddress@somewhere.com');
  end;
  MailIni.Free;
end;

end.

Atau silahkan sedot aja disini atau disini Semoga bermanfaat.

Read more »

Monitoring kontrol pH

              Program ini merupakan program yang saya bikin menggunakan borland delphi 7 dengan fitur dapat menerima masukkan dari informasi yang dikirimkan melalui komunikasi serial. Program ini merupakan program monitoring dari artikel PENGENDALIAN pH DALAM BEJANA DEFECATOR PADA PROSES PEMURNIAN NIRA (GULA) DENGAN KONTROL PROPORSIONAL – INTEGRAL. 

                  Program yang saya bikin ini hanya bisa menerima informasi dari mikrokontroller yang dikirimkan melalui port serial, tidak bisa mengirim balik dengan kata lain hanya komunikasi satu arah saja untuk menampilkan respon sistem pengendalian kontrol pH seperti pada artikel sebelumnya. Ah sepertinya saya sudah ngantuk kecapaian bagi yang pengin menilai programku ini silahkan download gratis disini.

Read more »

Bahasa Pemrograman

Seiring dengan berjalannya waktu dan aktivitasku. Aku mulai mempelajari beberapa bahasa pemrograman namun baru sebatas belajar dan semoga bisa menguasainya dan nantinya siapa tahu bisa jadi programer profesional. Berikut beberapa artikel yang baru bisa saya bahas : 

1. Sejarah Pemrograman
2. Lazarus.
    1. Pengenalan Lazarus.
    2. Perkecil Size Lazarus.
3. Delphi
4. 

 

Read more »