Lazarus, TMS WEB Core and TMiletusFirebirdDBDriver demo

WEB TMS WEB Core
5

It should be identical to the Delphi code.

//To write something to the INI file
procedure TForm1.WebButton1Click(Sender: TObject);
var
  ini: TMiletusINIFile;
begin
  ini := TMiletusINIFile.Create('path_to_your_file.ini');
  try
    ini.WriteString('MySection', 'MyID', 'MyValue');
  finally
    ini.Free;
  end;
end;

//To read something from the INI file
procedure TForm1.WebButton2Click(Sender: TObject);
var
  ini: TMiletusINIFile;
  str: string;
begin
  ini := TMiletusINIFile.Create('path_to_your_file.inii');
  try
    str := TAwait.ExecP<string>(ini.ReadString('MySection', 'MyID', ''));
    WebMemo1.Lines.Add(str); 
  finally
    ini.Free;
  end;
end;