Erro Demo Balança - Access Violation

[rodrigoosm]

Olá, estou tentando rodar o demo para emular a comunicação das balanças, mas retorna Access Violation quando clico no enviar peso.

Debugando ele ocorre quando chama FDevice.CloseSocket; que fica dentro da procedure abaixo

procedure TfrmPrincipal.AtivarComunicacao;
begin
  if cbxPortaComunicacao.Text = EmptyStr then
    raise EFilerError.Create('Porta de comunicação não informada. abortando...');

  FDevice.CloseSocket;
  FDevice.Connect(cbxPortaComunicacao.Text);
  FDevice.Config(9600, 8, 'N', 0, False, False);
end;

Alguma ideia do que possa ser?

Obrigado,

Editado 8 Maio, 2017 por rodrigoosm

[Juliomar Marchetti]

Consegue reproduzir o problema com o exemplo do svn?

[rodrigoosm]

O erro dá no exemplo que baixei do SVN....

13 minutos atrás, Juliomar Marchetti disse:

Consegue reproduzir o problema com o exemplo do svn?

O erro dá no exemplo que baixei do SVN....

[rodrigoosm]

Olá, depois de sofrer um bocado... achei o que era, por algum motivo não carregou o OnCreate do Form.

Assim não criava

  FDevice             := TBlockSerial.Create;
  FDevice.RaiseExcept := True;

Só relacionei no Form e funcionou...

 

obrigado.