Porta Serial Não Abre Com Kernel 3.x Placa Moschip

[Roman]

Ajuste a classe: synaser

 

De:

 

 

procedure TBlockSerial.Connect(comport: string);

.

.

.

 

{$IFNDEF FPC}

  FHandle := THandle(Libc.open(pchar(FDevice), O_RDWR or O_SYNC));

{$ELSE}

  FHandle := THandle(fpOpen(FDevice, O_RDWR or O_SYNC));

{$ENDIF}

.

.

.

end;

 

 

Para:

 

procedure TBlockSerial.Connect(comport: string);

.

.

.

 

{$IFNDEF FPC}

  FHandle := THandle(Libc.open(pchar(FDevice), O_RDWR or O_NONBLOCK or O_NOCTTY));

{$ELSE}

  FHandle := THandle(fpOpen(FDevice, O_RDWR or O_NONBLOCK or O_NOCTTY));

{$ENDIF}

.

.

.

end;

 

 

 

[Juliomar Marchetti]

anexa a unit para ficar mais fácil o merge e testes. obrigado

[EMBarbosa]

Poderia explicar melhor o motivo das alterações? Quais erros encontrou e o porquê dessa ser a correção?

 

Se não me engano, as classes na unit Synaser é parte do projeto Synapse. Então acredito que teremos que reportar à eles o bug.

O Daniel que está mais acostumado com o projeto talvez possa me corrigir se estiver enganado.

[Daniel Simoes]

Dificilmente incorporarei modificações nos fontes do SynaSer ou SynaList...

 

Essas modificações precisam ser sugeridas a lista do projeto original

http://www.ararat.cz/synapse/doku.php/support