Ir para conteúdo
  • Cadastre-se

dev botao

Carregar Arquivo INI


emarcolongo
Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 660 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

 

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

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

 

 

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Administradores

Boa tarde,

Com esta mudança seu problema foi resolvido?

At.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Consultores
  • Solution
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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 660 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.