EMBarbosa

NOTA: ainda estava escrevendo enquanto você e o Daniel postaram... Estou postando apenas para referência futura... Me parece certo. Não precisa dessas linhas. A primeira é apenas quando você procura erros de consistência na memória. A segunda para o FastMM não mostrar nenhuma mensagem durante a execução. Então remova essas linhas. Você precisa da "ReportMemoryLeaksOnShutdown := True;" se quiser que uma mensagem apareça no final. Nas opções do projeto, na aba "Compiler option", tenha certeza que as seguintes opções estão marcadas: Debug Information Local Symbols Reference Info ou (Symbol reference info) Nas opções do projeto, na aba "linker" uma das duas opções ajudam... Mas geralmente eu não mexo aqui... TD32 Debug info Map file Depois de marcá-las você fez um build no projeto. Se isso tudo estiver certo, mas mesmo assim nenhuma mensagem ou arquivo esteja sendo criado, então é porque não está havendo vazamento de memória.

Funciona no Delphi 7. Inclusive, se você usa o Delphi 7 e não usa o FastMM deveria começar a usar logo. Talvez esteja faltando você alterar as opções do projeto para gerar o arquivo. Está gerando o projeto em modo debug? Fez um "Build" após alterar as opções? Teoricamente, não... Mas veja que ainda não conseguimos reproduzir seu problema... Precisamos diagnosticar exatamente onde ele ocorre.

No log, são objetos do Fortes Report que estão "vazando". Não estou familiarizado com o código do Fortes Report, então o que vou escrever é uma possibilidade. Parece que um objeto TRLPreviewForm é alocado cada vez que um preview é mostrado. Mas não está sendo destruído. Para encurtar a história... chegamos no método abaixo PreviewPagesWithOptions da unit RLPreviewForm: procedure PreviewPagesWithOptions(APages: TRLGraphicStorage; AShowModal: Boolean; AFormStyle: TFormStyle; APosition: TPosition; AWindowState: TWindowState; ABorderIcons: TBorderIcons; const AHelpFile: string; AHelpContext: Integer; ACaption: TCaption); begin SentToPrinter := False; with TRLPreviewForm.Create(nil) do begin Preview.Pages := APages; if DefaultZoomFactor = ZoomFactorFullWidth then Preview.ZoomFullWidth else if DefaultZoomFactor = ZoomFactorFullPage then Preview.ZoomFullPage else if DefaultZoomFactor = ZoomFactorMultiplePages then Preview.ZoomMultiplePages else if DefaultZoomFactor > 0 then Preview.ZoomFactor := DefaultZoomFactor; UpdateComboBoxZoom; Position := APosition; WindowState := AWindowState; BorderIcons := ABorderIcons; HelpFile := AHelpFile; HelpContext := AHelpContext; if ACaption <> '' then Caption := ACaption; FormStyle := AFormStyle; if AShowModal then ShowModal else if Visible then BringToFront else Show; end; end; Como podem ver. É criado um objeto TRLPreviewForm logo no começo (junto com o with). É passado como owner para ele 'nil', o que significa que temos que destruí-lo manualmente. Mas parece que esse objeto não é destruído em nenhum lugar... Talvez resolvesse boa parte do problema se o código fosse alterado para: (note o try..Finally Free;) procedure PreviewPagesWithOptions(APages: TRLGraphicStorage; AShowModal: Boolean; AFormStyle: TFormStyle; APosition: TPosition; AWindowState: TWindowState; ABorderIcons: TBorderIcons; const AHelpFile: string; AHelpContext: Integer; ACaption: TCaption); begin SentToPrinter := False; with TRLPreviewForm.Create(nil) do begin try Preview.Pages := APages; if DefaultZoomFactor = ZoomFactorFullWidth then Preview.ZoomFullWidth else if DefaultZoomFactor = ZoomFactorFullPage then Preview.ZoomFullPage else if DefaultZoomFactor = ZoomFactorMultiplePages then Preview.ZoomMultiplePages else if DefaultZoomFactor > 0 then Preview.ZoomFactor := DefaultZoomFactor; UpdateComboBoxZoom; Position := APosition; WindowState := AWindowState; BorderIcons := ABorderIcons; HelpFile := AHelpFile; HelpContext := AHelpContext; if ACaption <> '' then Caption := ACaption; FormStyle := AFormStyle; if AShowModal then ShowModal else if Visible then BringToFront else Show; finally Free; end; end; end;

EmulFITH? Onde tem isso no site da Bematech? Já tentou com com0com ao invés do VSPE?

É exatamente isso que precisamos Daniel. Nesse momento estou analisando o log postado.

Estranho não?

Normalmente não existe summary se não existe details. Se você quer um relatório sintético, então faça a soma já no SQL. De quebra você trafega menos dados na rede.

Verifique o manual da balança. Talvez ele explique se pode ser configurada para algum protocolo que já implementado no ACBrBAL.

Você precisa debugar seu aplicativo e verificar qual a diferença entre ele e o ECFTeste. Observação: Você escreveu "ECF virtual" no título do tópico. Veja que conectar a um "ECF virtual" é diferente de conectar a um "ECF via porta virtual". Detalhe melhor seu problema.

Antes deste quadro tem uma tabela dizendo que o botão é necessário... Mas se continuar com dúvida a melhor opção é fazer uma consulta a SEFAZ-MG.

Leia os anúncios sobre o assunto, por favor:

Estranho o log não menciona o erro...

O anúncio não está mais na página principal do fórum, mas a versão atual no SVN continua a dar suporte ao Delphi 7.

Você consegue gerar o arquivo utilizando o DEMO? Anexe o log do ACBrECF.

Procure ler a cartilha requisitos comentados disponibilizado no site da SEFAZ-MG. Acho que ela esclarece essa dúvida.

Moderação: Movido.

Pode ser tanta coisa que é chutar uma correção. Depende da quantidade de registros que está retornando, dos componentes de acesso, etc... Algo que pode ajudar: Você está utilizando o FastMM?

Verifique seus códigos. Talvez o código esteja desatualizado. O log gerado pelo xe não tem nem a ativação da balança igual ao do Lazarus: -------------------------------------------------------------------------------- ATIVAR - 04/10/16 11:56:33:533 - Modelo: Filizola - Porta: COM3 Device: BAUD=2400 DATA=8 PARITY=N STOP=1 HANDSHAKE= MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0 --------------------------------------------------------------------------------

Não. Procure nos componentes da JVCL.

AcbrEcf.Device.ProcessMessages indica se o ACBr.Device vai chamar o método ProcessMessages enquanto aguarda a resposta da porta serial. Chamar esse método pode significar seu programa enviar outro comando ao ACBrECF e este responder com a mensagem de erro: "Componente ACBrECF ocupado Aguardando resposta do comando anterior". Então basicamente é isso mesmo.

Acho que tem que personalizar. Exemplo: Altere o DisplayFormat para dfFloatFixed e implemente o evento onDecimalRounding para truncar o valor da forma que você deseja.

Não deixa, porque ele precisa do compilador e a versão Starter não possui compilação por linha de comando.

Moderação: Tópico dividido.

Acho que se precisa ler as páginas citadas...

Esse não é o aplicativo da Epson? Entre em contato com eles. O ACBr apenas usa as dlls do fabricante neste caso.