Resultado da Comunicação Serial

Delphi

23/09/2003

Olá galera... é o seguinte:

Tenho que dar suporte a um sistema que lê dados através da porta seriaL. Quanto a isto tudo bem, porém eu preciso entender como funciona, pois notei que após a leitura é gerado um arquivo com um monte de caracteres por exemplo: BA-5F-00-00-00-00-00-00-00-B9-00-00-00-0A-D3-37-00-00-00-56-00-22-09-03-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00

A dúvida é a seguinte. Isto aqui é realmente o resultado que entra pela porta serial? Se for eu preciso converter isto para linguagem ´de gente´, alguém saberia me dizer como?

Se alguém tiver alguma dica pelo menos ficarei imensamente agradecido.

Abraços.

Oberdan :?:


Oberdan

Oberdan

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

23/09/2003

Colega,

Se estiver correto, é isso:

procedure TForm1.Button1Click(Sender: TObject);
var LineData, Palavra, Expressao: String;
i: Integer;
begin

Expressao := ´´;
LineData := ´BA-5F-00-00-00-00-00-00-00-B9-00-00-00-0A-D3-37-00-00-00-56-00-22-09-03-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00-00´;
  Palavra := ´´;

For I := 1 To length(LineData) do
  begin
if LineData[i]=´-´ then
    begin
Expressao := Expressao + TraduzHexa(Palavra);
      Palavra   := ´´;
    end else
    Palavra   := LineData[I];
  end;
  ShowMessage(Expressao);
end;

function TForm1.TraduzHexa(Hexadecimal: String): String;
begin
Result := IntToStr(StrToInt(´$´ + Hexadecimal));
end;



GOSTEI 0
Oberdan

Oberdan

23/09/2003

Agora a coisa começa a tomar forma. Valeu obrigado.

[]
Oberdan :!:


GOSTEI 0
POSTAR