Carregar Arquivo INI

[emarcolongo]

Boa tarde.

Estou tentando carregar um arquivo INI pelo programa de exemplo

procedure TfrmACBreSocial.btnCarregarINIClick(Sender: TObject);
var
  i: Integer;
begin
  OpenDialog1.Title := 'Selecione o Evento (Arquivo INI)';
  OpenDialog1.DefaultExt := '*.ini';
  OpenDialog1.Filter :=
    'Arquivos INI (*.ini)|*.ini|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBreSocial1.Configuracoes.Arquivos.PathSalvar;

  if OpenDialog1.Execute then
    ACBreSocial1.Eventos.LoadFromINI(OpenDialog1.FileName);

  MemoResp.Clear;
  MemoResp.Lines.Clear;
  MemoResp.Lines.Add('INI de Eventos Carregado com Sucesso!');
  MemoResp.Lines.Add(' ');

  for I := 0 to ACBreSocial1.Eventos.Gerados.Count -1 do
  begin
    MemoResp.Lines.Add('Tipo Evento.: ' + TipoEventoToStr(ACBreSocial1.Eventos.Gerados.Items[i].TipoEvento));
    MemoResp.Lines.Add('Evento Salvo: ' + ACBreSocial1.Eventos.Gerados.Items[i].PathNome);
  end;

  pgRespostas.ActivePageIndex := 2;
end;

Após selecionar o arquivo INI (inclusive os da pasta INI do projeto de exemplo) a linha 

  for I := 0 to ACBreSocial1.Eventos.Gerados.Count -1 do

Sempre retorna   ACBreSocial1.Eventos.Gerados.Count = 0

Anteriormente conseguia utilizar normalmente, houve alguma alteração ? O INI continuará a ser suportado ?

Grato

 

[emarcolongo]

Bom dia.

Consegui avançar um pouco nesta questão e verifiquei que é necessário ter no arquivo INI um ID=", porém não entendi como coloca-lo.

Alguem sabe ?

Grato

[Rozelo]

Boa Noite,

acredito que o problema está em pcesConversaoeSocial.

na função:

function StringINIToTipoEvento(out ok: boolean; const s: string): TTipoEvento;
begin
  Result := StringXMLToTipoEvento(ok,s);
end;

não deveria ser:

result := StrEventoToTipoEvento (ok, s);

Atenciosamente

Rogerio Barbosa

 

 

[Juliana Tamizou]

Boa tarde,

Com esta mudança seu problema foi resolvido?

At.

[emarcolongo]

Bom dia.

Eu modifiquei meu programa para leitura de outra forma.

Vou testar da forma sugerida e em seguida informo.

Grato

[EMBarbosa]

Em 14/04/2022 at 21:34, Rozelo disse:

acredito que o problema está em pcesConversaoeSocial.

Em 02/05/2022 at 10:04, emarcolongo disse:

Bom dia.

Eu modifiquei meu programa para leitura de outra forma.

Vou testar da forma sugerida e em seguida informo.

Grato

Para futura referência: Esse problema deve ter sido resolvido na revisão 25417.

Caso continuem tendo problemas, favor criar novo tópico.