Com programlamada buffera verilen yada alınan veri char tipindedir.
Elektronik tarafı ise hexedecimal sayılarla çalışır.
Bunun için com programlama ile uğraşan arkadaşlara tavsiyem: Application ı açar açmaz özel bir unit tanımlıyorum. Her formdan ulaşacağım değişkenlerimi ve çevirme işlemlerimi yapacağım function ve procedurelerimi burada tanımlıyorum. İşte bir unit adı
hextodec
declerationları:
function hextodec(gelen: string): integer;
function dectohex(a: integer): string;
function chartohex(a: char): string;
function hextochar(a: string): string;
fonksiyonlarım:
function hextodec(gelen: string): integer;
var
a:integer;
begin
Result := 0;
Val('$' + gelen, result, a);
end;
function dectohex(a: integer): string; begin dectohex:=format('%x',[a]); end;
function chartohex(a: char): string; begin chartohex:=format('%x',[ord(a)]); end;
function hextochar(a: string): string; begin hextochar:=chr(hextodec(a)); end;
fonksiyonların ne işe yaradığı adlarından belli ama açıklama yapalım :
hextodec: hexedecimal bir stringi decimal e
dectohex: decimal bir sayıyı hexedecimal e
chartohex: asciikodunun hexedecimal karşılığı
hextochar: hexedecimal bir sayının decimal karşılığının ascii kodu olan karakteri verir...