procedure UpdateParamsFile;
var
sl: TStringList;
lResCU: TServiceCustomAnswer;
i: Integer;
lsection: string;
lvar, lvalue: string;
begin
lResCU.Status := 0;
lResCU.Content := '';
lResCU := ARService.FileService_GetContentFile('\MainUpd\ParmsUpdate.ini');
if lResCU.Status <> 200 then
begin
Log('@E cannot get the ParmsUpdate.ini file: %s', [lResCU.Content]);
ShowMessage('No se puedo obtener el archivo: '+lResCU.Content)
end else
begin
inifile := TIniFile.Create('c:\WorkDir\Params.ini');
sl := TStringList.Create;
sl.Text := lResCU.Content;
lsection := '';
lvar := '';
lvalue := '';
for i := 0 to sl.Count-1 do
begin
if LeftStr(sl[i],1) = '[' then
lsection := sl[i]
else
begin
lvar := sl.Names[i];
lvalue := sl.Values[sl.Names[i]];
end;
if (lsection <> '') and (lvar <> '') then
begin
inifile.WriteString(lsection, lvar, lvalue); lvar := '';
lvalue := '';
end;
end;
end;
sl.Free;
end;