daha önce ini dosya yönetme hakkında bir cok konu açılmış ama benim sorunuma uygun bir konu göremedim cok uzatmadan sorunuma geciyorum
ben server ve client arasında dosya alış verisi yapan bir proje geliştiriyorum bu projede ise server ip sini cliente girerken sürekli serversocket güncellemem gerekiyor program üzerinden bunun yerine edit1 e serverın ipsini girsem o ini ye kayıt etse ve sonra server socket sunucuya bağlanırken ini yi okuyup bağlansa biraz uzun oldu ama mantığını kavrayan arkadaşlar için pek zor değildir diye düşünüyorum.
ini dosyasından vericekme ve ekleme hakkında bilgisi olan varmı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 37
- Kayıt: 13 Oca 2016 10:53
Re: ini dosyasından vericekme ve ekleme hakkında bilgisi olan varmı
An INI file stores information in logical groupings, called “sections.â€
Within each section, actual data values are stored in named keys.
[Section_Name]
Key_Name1=Value1
Key_Name2=Value2
Kod: Tümünü seç
uses
IniFiles;
// Write values to a INI file
procedure TForm1.Button1Click(Sender: TObject);
var
ini: TIniFile;
begin
// Create INI Object and open or create file test.ini
ini := TIniFile.Create('c:\MyIni.ini');
try
// Write a string value to the INI file.
ini.WriteString('Section_Name', 'Key_Name', 'String Value');
// Write a integer value to the INI file.
ini.WriteInteger('Section_Name', 'Key_Name', 2002);
// Write a boolean value to the INI file.
ini.WriteBool('Section_Name', 'Key_Name', True);
finally
ini.Free;
end;
end;
// Read values from an INI file
procedure TForm1.Button2Click(Sender: TObject);
var
ini: TIniFile;
res: string;
begin
// Create INI Object and open or create file test.ini
ini := TIniFile.Create('c:\MyIni.ini');
try
res := ini.ReadString('Section_Name', 'Key_Name', 'default value');
MessageDlg('Value of Section: ' + res, mtInformation, [mbOK], 0);
finally
ini.Free;
end;
end;
// Read all sections
procedure TForm1.Button3Click(Sender: TObject);
var
ini: TIniFile;
begin
ListBox1.Clear;
ini := TIniFile.Create('MyIni.ini');
try
ini.ReadSections(listBox1.Items);
finally
ini.Free;
end;
end;
// Read a section
procedure TForm1.Button4Click(Sender: TObject);
var
ini: TIniFile;
begin
ini: = TIniFile.Create('WIN.INI');
try
ini.ReadSection('Desktop', ListBox1.Items);
finally
ini.Free;
end;
end;
// Read section values
procedure TForm1.Button5Click(Sender: TObject);
var
ini: TIniFile;
begin
ini := TIniFile.Create('WIN.INI');
try
ini.ReadSectionValues('Desktop', ListBox1.Items);
finally
ini.Free;
end;
end;
// Erase a section
procedure TForm1.Button6Click(Sender: TObject);
var
ini: TIniFile;
begin
ini := TIniFile.Create('MyIni.ini');
try
ini.EraseSection('My_Section');
finally
ini.Free;
end;
end;