Respostas a este tópico

Permalink Responder até Almir Bispo dos S.Filho em 13 setembro 2015 at 14:03

Esse rapaz aqui eu ajudei a ele fazer a conexão,mas desistiu do projeto quase pronto por não saber qual Porta COM ele conectou o dispositivo.
Ele não conseguiu achar o Baudrate,nem paridade e nem porta COM onde se localiza o dispositivo.
Se algum adivinho puder ajudar,ou algum médium eu agradeço.

Permalink Responder até Almir Bispo dos S.Filho em 13 setembro 2015 at 14:24

Continuando o projeto de ontem faça isso:(pelo amor de Deus não duvide,não comecei ontem).
Coloque no seu projeto um objeto Tmemo (está na aba Standard do Lazarus)
-No seu componente serial você vai por na propriedade name o nome de "S" .(Apenas S para facilitar)
-No inspetor de objetos,na aba "Eventos",você vai dar duplo clique no evento OnRxdata e escrever o seguinte codigo no editor de codigo (que aparece depois do duplo click.Deixe codigo assim).

procedure TForm1.SRxData(Sender: TObject);
var porta:integer;
begin
//verificar porta
//faça teste mudando um a um o baudrate no inpetor de Objetos

for porta:=1 to 100 do
begin
application.processmessage;
S.Device:='COM'+inttostr(porta);
S.Open;
S.Active:=true;
If S.Active=true then
begin

memo1.text:=S.ReadData;
//anote o valor da porta exibido aqui
showmessage('Porta Com '+inttostr(porta)+' recebeu');
exit;
end;
end;
end;