Ajd, posto nikog nema da pitam ovako mozda neko i odgovori.

Ako neko moze da mi postavi primer za sledece

Imam fajl u .bin formatu i treba da procitam odredjeni deo fajla i da ga prikazem u decimalnom zapisu.
Sada mi cita i prikazuje u u hex-u.


Trenutno je

Program Prog1;
var Read_A, A1, A2, A3, Write_A, A: string;
procedure ReadA;

begin
if not ReadDevice then begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else
begin
A1:=inttohex(GetByteHexEdit($E8),2);
A2:=inttohex(GetByteHexEdit($E7),2);
A3:=inttohex(GetByteHexEdit($E6),2);
Read_A:=A1+A2+A3;
MsgBox( Read_A, 'Read_A', MB_OK or MB_ICONINFORMATION );
Read_A := 'ewqwe';
end;
end;


i tako dobijam u hex-u.Kako da mi pokazuje u decimalnom zapisu.
Na primer

hex = dec
01E0DC = 123100

I isto tako mi treba primer kako izracunati 8bit cheksum.

Na primer
22 11 = 8bit cheksum je 33
65 05 = 8bit cheksum je 6A
64 07 = 8bit cheksum je 6b

Ovo je prvi deo problema.Kad savladam mislim da cu imati jos par pitanja, ali mozda i zavrsim ostatak sam.

Niko?

Posle samo 2 minuta druzenja sa cika Google-om nasao sam ovu funkciju za prebacivanje hexadecimalnih brojeva u decimalne:



samo joj prosledi string sa hex brojem i vratice ti int tog hex broja. npr.:



Ni drugi deo nije problem, ali sad ne mogu da pisem resenje posto sam premoren, tj. mozak mi vec spava :)...

Sutra... ;)

Samo mi reci odakle dobijas, tj. u kom formatu ih imas u programu ove brojeve:

22 11
65 05
64 07

Da li su ti u nekom stringu ili kako vec?

Hvala za ovo prvo .
Snaci cu se valjda.

Za drugo , ovo su delovi fajla gde se to nalazi

0000D0 : 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000E0 : 00 00 00 00 00 00 00 64 07 6B 00 00 00 00 00 00
0000F0 : 00 64 07 6B 00 00 00 00 00 00 00 00 00 00 00 00

ili

0000D0 : 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000E0 : 00 00 00 00 00 00 00 65 05 6A 00 00 00 00 00 00
0000F0 : 00 65 05 6A 00 00 00 00 00 00 00 00 00 00 00 00

ili

0000D0 : 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0000E0 : 00 00 00 00 00 00 00 22 11 33 00 00 00 00 00 00
0000F0 : 00 22 11 33 00 00 00 00 00 00 00 00 00 00 00 00



P.S.Nisam ja u ovim vodama pa da znam sta trazim od cika Googla.Muka me je naterala na pravljenje ovoga .I sad sto bi neko sve ovo sta ja radi napravio za 3-4 dana meni ce trebati 1-2 meseca.

Nikako da odradim po ovom primeru


Code:
function HexToInt(HexNum: string): LongInt;
begin
Result:=StrToInt('$' + HexNum) ;
end;


Code:

var broj: lingint;
begin
broj:= HexToInt('AAD123');
end;


A sta bi za racunanje cheksuma?