Re: [delphi-br] Calculo CRC
Cara, se vc quiser acho que vc deve dar uma olhada neste codigo em BASIC
para PIC.
Com ele dá para fazer uma melhor aproximação para o Pascal.
symbol CRCPOLY = $1021 ' CRC-CCITT
symbol CRC = w0 ' CRC Word
symbol Lo_CRC = b0 ' CRC Lo_Byte
symbol Hi_CRC = b1 ' CRC Hi_Byte
' -[ Subroutines ]
'
' Subroutine for calculating CRC value in variable byte
calc_crc:
CRC = Byte * 256 ^ CRC
for temp = 0 to 7
if Bit15 = 0 then shift_only
CRC = CRC * 2 ^ CRCPOLY
goto nxt
shift_only: CRC = CRC * 2
nxt:next
return
' -[ End ]
Dá uma olhada nesste site tb:
http://www.hth.com/snap/
Mas é importante voce saber também de quants bits estamos falando neste CRC,
OK.
Até mais
2009/9/2 José Luis Fernandes Rezende ze...@yahoo.com.br
duBRASIL InformáticaOlá Pessoal,
Estou com um problema, tenho a função abaixo escrita em C e esta é
executada num equipamento (data Logger) por um processador da
família do 8051.
/
uchar CalcCksum(uchar *buf)
{
uchar i, byCksum = 0;
for(i = 0; *(buf + i) != ETX; i++)
byCksum ^= *(buf + i);
byCksum ^= ETX;
return byCksum;
}
/
Preciso fazer este mesmo cálculo no Delphi, pois estou desenvolvendo
um software para substituir este data logger por um PC.
Nunca programei em C, não faço a menor idéia de funcionalidades que
acredito serem básicas, como o uso dos caracteres/operadores *, ^=.
Alguém sabe/pode destrinchar esse caso para mim?
Desde já, obrigado pela atenção!
José Luis Rezende
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OT - Empresa Desenvolvedora em Delphi
Olá a todos. Desculpe está mensagem Off-Topic, mas preciso da ajuda do grupo. Trabalho em uma Empresa de equipamentos eletrônicos e estamos desenvolvendo um sistema de monitoramento remoto via TCP/IP. Por isso estamos procurando empresas, de preferência no estado de SP, que tenham experiência no desenvolvimento de sistemas Client / Server com Sockets. Quem se interessar por favor mandar um e-mail para leo_al...@yahoo.com.br. Por favor não fazer perguntas via FORUM. Mandem via e-mail. Obrigado pela ajuda. Abraços a todos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Vejam, qual a necessidade de acionamento?
Pois se é apenas um pulso ON/OFF a porta paralela é a melhor opção pelos
níveis lógicos que ela trabalha.
Agora se a Porta a Paralela já estiver ocupada por uma impressora por
exemplo dai tudo bem ir para a Serial.
Neste caso você terá que colocar uma MAX232 para converter a lógica (sinais
de tensão) da porta serial para o 5V.
Mas independente do caso, será necessário um circuito eletrônico de
interfaceamento, pois a carga que estás portas são capazes de tocar são
baixas, na ordem de miliAmper.
É bem diferente um porta Serial e Paralela se comparado a uma Porta USB
Agora vejam bem se vale a pena entrar wem um projeto usando Porta Serial,
pois não temos mais PC's saindo com está PORTA.
Se o Amigo quiser posso passar alguns documento que tenho sobre este
assunto...
Aliás vou fazer o seguinte, vou colocar eles em um repositorio do yahoo
quando chegar da faculdade.
Abraços
2009/2/19 omar l m rosa o...@conesul.inf.br
Hi!
O pulso elátrico de uma porta serial não tem potência para acionar uma
catraca.
Deverá existir um circuito isolador entre a porta e a catraca.
Pesquise por RS-232 (também conhecido por EIA RS-232C ou V.24)
- Original Message -
From: Luiz Escobar
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Thursday, February 19, 2009 3:44 PM
Subject: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Vixe então acho que falei besteira la atras heheheheh,
Mas vivendo e aprendendo
Mas garanto que na parelala, vc acende um LED com facilidade
[]s
Luiz Escobar
From: Leonardo Moreira Alves
Sent: Wednesday, February 18, 2009 9:17 PM
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Subject: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Viu pessoal na Saida Serial você não tem 5V, e
sim 12V e -12V vc precisa de um conversor serial para trabalhar com 5V
Sugiro a utilização da Porta Paralela, é mais
fácil e mais simples... além de que tem 5V.
Abraços
At 11:18 18/2/2009, you wrote:
Use WriteFile pois a porta COM (Serial) é
interpretada como um arquivo, veja um bom exemplo no link abaixo:
[
http://www.swissdelphicenter.ch/torry/printcode.php?id=841
http://www.swissdelphicenter.ch/torry/printcode.php?id=841
]
[]'s
Ricardo.
__
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qua, 18/2/09, Fellipe Henrique
mailto:fellipeh%40gmail.com
fellipeh%2540gmail.comfelli...@gmail.comfellipeh%40gmail.com
escreveu:
De: Fellipe Henrique mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
felli...@gmail.com fellipeh%40gmail.com
Assunto: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Para:
mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Data: Quarta-feira, 18 de Fevereiro de 2009, 11:08
hum... to usando essa função pra abrir a porta
function AbrirPorta(NomePort a:String) :boolean;
begin
hCom := CreateFile(
PChar(NomePorta) ,
GENERIC_READ or GENERIC_WRITE,
0, //Dispositivos COM abertos com acesso exclusivo.
nil, //Sem atributos de segurança.
OPEN_EXISTING, //deve usar OPEN_EXISTING
0, //Entrada e saída sem ovelap.
0 //Deve ser NULL para COM.
);
if(hCom = INVALID_HANDLE_ VALUE) then //Se houve algum erro ao abrir a
porta.
result := false
else
result:= true;
end;
Como faria pra enviar algo por ela? Seria a mesma coisa que na LPT1?
WriteLn?
[]s
2009/2/18 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br
Na verdade é só vc enviar uma informação qualquer pela porta serial. É
que o pessoal de eletrônica geralmente pensa tudo na base do 0 ou 5
volts.
Precisei fazer algo parecido um tempo atrás e penei até entender esse
mandar 5v pela serial, quando na verdade era só mandar qualquer coisa
(literalmente) pra serial.
Isso aí é simples. Basta abrir a porta e enviar qualquer coisa pra ela.
[]'s
Ricardo.
_ _ _ _ _ _
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qua, 18/2/09, Fellipe Henrique
felli...@gmail. comfellipeh%40gmail. com
escreveu:
Vixi...bom, eu preciso enviar um pulso pela porta serial pra abrir uma
catraca... o rapaz da catraca falou que teria
que ser um pulso de 5 volts...
agora fiquei encucado.. será que é só abrir a porta e pronto?
O problema é que não tenho a catraca aqui, só mesmo um cabo, com um
led...
diz o cara que se acender o led vai funcionar... hehe
[]s
2009/2/18 Luiz Escobar esco...@megasistem a .com.br
Se vc enviar um pulso de 5 volts da serial vai queimar ela
O que vc realmente precisa ???
Luiz Escobar
From: Fellipe Henrique
Sent: Wednesday, February 18, 2009 11:30 AM
To: delphi...@yahoogrup os.com.br delphi-br
Re: [delphi-br] Re: Duvida com o TOpenDialog.
Este código abaixo funcionou... Valeu pela ajuda procedure TForm1.Button1Click(Sender: TObject); var caminho : String; begin caminho := ExtractFilePath(ParamStr(0)); Edit1.Text := caminho; OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)); OpenDialog1.Execute; end; end. At 17:21 17/2/2009, you wrote: OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName); acho que esse codigo vai te servir []'s --- Em mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br, Departamento Técnico NTI Equipamentos tecn...@... escreveu Olá a todos, sou iniciante com o Delphi e estou precisando de uma ajuda com o TOpenDialog. O meu problema: - Preciso que quando eu execute o TOpenDialog, ele seja direcionado para a pasta onde o programa foi instalado, sempre! - O problema eh que não sei onde será instalado o programa, pois sabendo-se bastava utilizar a opção InitialDir com ForceCurrentDirecotry := True. - Isso se deve a fato deu utilizar o InstallShield para a pessoa escolher o diretorio de instalação. Alguem pode me passar o Código para descobrir a pasta de instalação. Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Viu pessoal na Saida Serial você não tem 5V, e
sim 12V e -12V vc precisa de um conversor serial para trabalhar com 5V
Sugiro a utilização da Porta Paralela, é mais
fácil e mais simples... além de que tem 5V.
Abraços
At 11:18 18/2/2009, you wrote:
Use WriteFile pois a porta COM (Serial) é
interpretada como um arquivo, veja um bom exemplo no link abaixo:
[
http://www.swissdelphicenter.ch/torry/printcode.php?id=841http://www.swissdelphicenter.ch/torry/printcode.php?id=841
]
[]'s
Ricardo.
__
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qua, 18/2/09, Fellipe Henrique
mailto:fellipeh%40gmail.comfelli...@gmail.com escreveu:
De: Fellipe Henrique mailto:fellipeh%40gmail.comfelli...@gmail.com
Assunto: Re: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Para: mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br
Data: Quarta-feira, 18 de Fevereiro de 2009, 11:08
hum... to usando essa função pra abrir a porta
function AbrirPorta(NomePort a:String) :boolean;
begin
hCom := CreateFile(
PChar(NomePorta) ,
GENERIC_READ or GENERIC_WRITE,
0, //Dispositivos COM abertos com acesso exclusivo.
nil, //Sem atributos de segurança.
OPEN_EXISTING, //deve usar OPEN_EXISTING
0, //Entrada e saída sem ovelap.
0 //Deve ser NULL para COM.
);
if(hCom = INVALID_HANDLE_ VALUE) then //Se houve algum erro ao abrir a
porta.
result := false
else
result:= true;
end;
Como faria pra enviar algo por ela? Seria a mesma coisa que na LPT1?
WriteLn?
[]s
2009/2/18 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br
Na verdade é só vc enviar uma informação qualquer pela porta serial. É
que o pessoal de eletrônica geralmente pensa tudo na base do 0 ou 5 volts.
Precisei fazer algo parecido um tempo atrás e penei até entender esse
mandar 5v pela serial, quando na verdade era só mandar qualquer coisa
(literalmente) pra serial.
Isso aí é simples. Basta abrir a porta e enviar qualquer coisa pra ela.
[]'s
Ricardo.
_ _ _ _ _ _
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qua, 18/2/09, Fellipe Henrique
felli...@gmail. comfellipeh%40gmail. com
escreveu:
Vixi...bom, eu preciso enviar um pulso pela porta serial pra abrir uma
catraca... o rapaz da catraca falou que teria
que ser um pulso de 5 volts...
agora fiquei encucado.. será que é só abrir a porta e pronto?
O problema é que não tenho a catraca aqui, só mesmo um cabo, com um led...
diz o cara que se acender o led vai funcionar... hehe
[]s
2009/2/18 Luiz Escobar esco...@megasistem a .com.br
Se vc enviar um pulso de 5 volts da serial vai queimar ela
O que vc realmente precisa ???
Luiz Escobar
From: Fellipe Henrique
Sent: Wednesday, February 18, 2009 11:30 AM
To: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
Subject: [delphi-br] Como enviar um pulso de 5 volts pela serial?
Amigos, preciso enviar um pulso de 5 volts para a porta serial, nunca fiz
isso, alguem tem idéia de como fazer?
[]s
--
_ _ ___
T.·.F.·.A.·.
Fellipe Henrique
Blog: www.digitumsoft. com.br/blogs/ fellipeh
- - - - - -
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de
encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e
que
possam ser usadas por hackers.
# # #
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscahttp://br.maisbusca dos.yahoo. com
--
_
T.·.F.·.A.·.
Fellipe Henrique
Blog: www.digitumsoft. com.br/blogs/ fellipeh
--
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que
apareçam no corpo do e-mail e que possam ser usadas por hackers.
# # #
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.comhttp://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
