Captura dados Serial
10/02/2006
0
Function CapturaDados(StrValor: String) : String;
var
BytesLidos: DWord;
i: Integer;
ReadStr: String;
RetLeitor: LongBool;
begin
RetLeitor := ReadFile(hComm, bRead[0], 255, BytesLidos, nil);
if ord(RetLeitor) = -1 then
exit;
ReadStr := ´´;
If BytesLidos > 0 Then
For I := 0 To BytesLidos - 1 do
ReadStr := ReadStr + chr(bRead[i])
Else
// FlushComm;
Result := ReadStr;
End;
Marcal
Posts
10/02/2006
Massuda
Quanto ao resto, dê mais detalhes, pois não entendi.
10/02/2006
Marcal
Foi desenvolvido um Hardware p uma empresa igual de supermercado um leitor de dados ele captura e envia esses dados para o pc com falei sao 7 bits, então eu preciso pegar este 7 bits e passar para o Banco de dados mais antes tenho q converte-los para o normal ja tentei pra decimal mais da erro pois os campos são CODIGO, DATA e NOME.
A detalhe mussuda eu fiz todo o codigo de captura e leitura na unha mais tenho o componente ComPort sendo usando to testando os dois metodos pra ver o qual consigo fazer primeiro.
e isso ai mussuda
10/02/2006
Massuda
Com relação aos dados que o leitor manda, você precisa saber como eles estão codificados... podem ser caracteres ASCII ou algum formato binário do fabricante do leitor.
10/02/2006
Marcal
Mussuada penso eu q seja caracter ASCII pelo que tive pesquisando sobre este equipamento dele. Massunda o componente ComDataPacket não resolveria este meu problema como vc disse na quela outra duvida minha sobre ComData.
Como seria o o Codigo se trabalhar com ASCII pois as conversões de Hex pra Bin e Bin pra Dec eu desenvolvi mais não consegui foi desenvolver pra ASCII
10/02/2006
Massuda
13/02/2006
Marcal
13/02/2006
Aroldo Zanela
Explica isso melhor, por favor.
A = 65 (Valor na tabela ASCII); [b:922cee833f]Ord[/b:922cee833f]
´100´ = 100 (string para numérico) = [b:922cee833f]StrToStr[/b:922cee833f]
14/02/2006
Marcal
ex.: equipamento envia o codigo (ascii) e converto esse valor para Decimal.
14/02/2006
Michael
É [b:5ca5cb716c]Massuda[/b:5ca5cb716c], vc sofre como eu! ;-)
[]´s
14/02/2006
Massuda
14/02/2006
Marcal
Sem querer desviar o objetivo do forum mas ainda bem nossos amigos Massunda e Michael são karas bons e Gente boa e faz parte do Forum. Alias acho q e por isso q gostei de desenvolver em Delphi porque so tem kra gente boa e isso faz incentivar aqueles que querem aprender a desenvolver e isso so faz com que a comunidade Delphiana venha acrescer. Continuem assim kra o Mundo Precisa de voces rsrsrs.[/code]
15/02/2006
Aroldo Zanela
Explica isso melhor, por favor.
A = 65 (Valor na tabela ASCII); [b:1513fb47bc]Ord[/b:1513fb47bc]
´100´ = 100 (string para numérico) = [b:1513fb47bc]StrToStr[/b:1513fb47bc][/quote:1513fb47bc]
Colega,
Desculpe, onde se lê: StrToStr
Leia-se: StrToInt ou StrToFloat (Conforme o caso).
Resolveu?
15/02/2006
Michael
Acho que o colega não entendeu meu post... Eu quis dizer que o [b:1dc8adf029]Massuda [/b:1dc8adf029](Massuda, Massuda, Massuda, Massuda...) ´sofre´ com as trocas do seu nome, e não em ajudar aos membros do fórum...
Foi apenas uma brincadeira... ;-)
[]´s
10/08/2006
Zlink
Undeclared identifier: ´hCommm´
RetLeitor := ReadFile(hComm, bRead[0], 255, BytesLidos, nil);
Clique aqui para fazer login e interagir na Comunidade :)