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

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email