Cara Membuat Save dan Load di Delphi 7

Assalamu'alaikum wr.wb
pada postingan kali ini saya akan mengshare  :
" Cara membuat tombol Save dan Load untuk PLINK di Delphi 7 "
buat gan khusunya yg ingin menyimpan Data User dan Password serta Host akun SSH yg ada di project PLINK biar gampang konekinnya..nih ane kasih tutor buat agan buat Save ama Load data Akun SSH yg di plink biar kagak repot lagi gan..
ok langsung saja kita ke tutorialnya gan..NEXT..

• Pertama, Buka Software DElphi 7 anda
• Kedua, Buka Project PLINK agan...
• Ketiga, kita tambahkan " USES " seperti beikut : , inifiles ;
• KeEmpat, kita tambahkan : 

 1 (satu)  komponen " Main Menu "
1 (satu) komponen " SaveDialog "
1 (satu) komponen " Open Dialog "

• KeLima, kemudian anda tambahkan menu Save dan Load di komponen Main menu..

contoh seperti gambar di bawah ini :

• KeEnam, kita masukan code di bawah ini ke menu Save pada komponen " Main Menu " :

var
MyIni: Tinifile;
namafile : string;
begin
with SaveDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='|*.Fien'; //format file yg di save
end;
if SaveDialog1.Execute then begin
namafile := SaveDialog1.FileName;
 if Pos('.Fien',namafile) = 0 then namafile := namafile + '.Fien';
myINI := TINIFile.Create(namafile);
Myini.WriteString('Configurations', 'Host', Edit1.Text);
Myini.WriteString('Configurations', 'Port', Edit2.Text);
myini.WriteString('Configurations', 'Username', Edit3.Text);
myini.WriteString('Configurations', 'Password', Edit4.Text);
Myini.WriteBool('Configurations', 'Use Proxy', CheckBox1.Checked);
Myini.WriteString('Configurations', 'ProxyHost', Edit5.Text);
Myini.WriteString('Configurations', 'ProxyPort', Edit6.Text);
myINI.Free;
MessageBox(Self.Handle, 'Config Saved !!', 'By Fien Shirayuki', MB_OK + MB_ICONINFORMATION);
end;

jadinya seperti gambar di bawah ini gan :

kemudian kita masukan code di bawah ini  ke menu Load pada komponen " Main Menu " :

var myINI : TINIFile;
namafile : string;
begin
with OpenDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='*|*.Fien'; //format file yg bisa di load
end;
if OpenDialog1.Execute then begin
namafile := OpenDialog1.FileName;
myINI := TINIFile.Create(namafile);
Edit1.Text:=Myini.ReadString('Configurations', 'Host', Edit1.Text);
Edit2.Text:=Myini.ReadString('Configurations', 'Port', Edit2.Text);
Edit3.Text:=myini.ReadString('Configurations', 'Username', Edit3.Text);
Edit4.Text:=myini.ReadString('Configurations', 'Password', Edit4.Text);
CheckBox1.Checked:=Myini.ReadBool('Configurations', 'Use Proxy', CheckBox1.Checked);
Edit5.Text:=Myini.ReadString('Configurations', 'ProxyHost', Edit5.Text);
Edit6.Text:=Myini.ReadString('Configurations', 'ProxyPort', Edit6.Text);
myINI.Free;
end;

jadinya seperti gambar di bawah ini gan :

yg terakhir tinggal agan test deg..project-nya...

ok gan..cukup sekian dari postingan kali ini..
jika da kesalahan tolong di maafkan gan..

Wassalamu'alaikum Wr.Wb

Demikianlah Artikel tentang Cara Membuat Save dan Load di Delphi 7

Sekian dulu artikel tentang Cara Membuat Save dan Load di Delphi 7, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post