Achar valor do end address

Delphi

12/10/2010

Galera,   Preciso encontrar o valor do EndAddress de um endereço(offset) de um arquivo hexa.   Abaixo alguns endereços com ENDADDRESS correto e retorna o resultado OK ao enviar ao celular pele meu programa.   52 00 50 00 06 82 78 ac
Comando para ler(read) Tamanho em bytes que quero ler Endereço inicial (aonde que desejo inciar a leitura) Esse é o valor que preciso encontrar para receber o resultado(valor) do endereço inicial).   Eu fiz esse código abaixo para fazer um loop até encontrar o endaddress porém esta muito demorado.    for I := 1 to 255 do
        begin
         SendCOMFrame('52 00 50 00 06 82 78'+  IntToHex(i,2));
         sleep(300);
         ComPort1.ReadStr(resposta,5000);
         if pos('MG',resposta) > 0 then
            break;
        end;   Alguém pode me ajudar achar o end address ?                
Marcelo Diniz

Marcelo Diniz

Curtidas 0

Respostas

Marcelo Diniz

Marcelo Diniz

12/10/2010

Galera,   Preciso encontrar o valor do EndAddress de um endereço(offset) de um arquivo hexa.   Abaixo alguns endereços com ENDADDRESS correto e retorna o resultado OK ao enviar ao celular pele meu programa.   52 00 50 00 06 82 78 ac
Comando para ler(read) Tamanho em bytes que quero ler Endereço inicial (aonde que desejo inciar a leitura) Esse é o valor que preciso encontrar para receber o resultado(valor) do endereço inicial).   Eu fiz esse código abaixo para fazer um loop até encontrar o endaddress porém esta muito demorado.    for I := 1 to 255 do
        begin
         SendCOMFrame('52 00 50 00 06 82 78'+  IntToHex(i,2));
         sleep(300);
         ComPort1.ReadStr(resposta,5000);
         if pos('MG',resposta) > 0 then
            break;
        end;   Alguém pode me ajudar achar o end address ?    
  Resultado que recebo referente ao endereço "00 06 82 78"  
4d 47 31 35 35 64 50 34 30 46 4c 00 08 00 00 00
98 cb a8 01 37 33 32 2d 31 30 31 00 0d 00 00 00
ac cb a8 01 2a 2a 20 43 4f 4d 43 45 4c 20 2a 2a
00 c0 46 c0 08 00 00 00 c0 cb a8 01 35 37 2d 56
31 30 61 00 06 00 00 00 d4 cb a8 01 48 57 20 50
3a 06
GOSTEI 0
Marcelo Diniz

Marcelo Diniz

12/10/2010

Resultado em string que recebo referente ao endereço "00 06 82 78"  
xüMG155dP40FL˜Ë¨732-101 ¬Ë¨** COMCEL **ÀFÀÀ˨57-V10aÔ˨HW P:
GOSTEI 0
Marcelo Diniz

Marcelo Diniz

12/10/2010


  Se eu alterar o tamanho que desejo ler o endAddress é alterado também.
GOSTEI 0
POSTAR