How to convert ascii to Dec ?

[ahmetnurideniz]

Hi,
my device send mi ascii data. i sometimes i can read data. But sometines i can't read data.

my device send me
'#232#3#13#10' for  1000 and i can read it 1000
'#219 for 65499 and i can read it 219
is it normal?


is anyone has asciitodec function?

[typo]

Code: [Select]

ShowMessage(IntToStr(Ord('A')));
or

Code: [Select]

uses LCLProc;

var
  CharLen :integer;
begin
  ShowMessage(IntToStr(UTF8CharacterToUnicode(PChar('ت'), CharLen))); 
end;


[ahmetnurideniz]

Code: [Select]

ShowMessage(IntToStr(Ord('A')));

i test this the result is 2196232 it should be 65499


or

Code: [Select]

uses LCLProc;

var
  CharLen :integer;
begin
  ShowMessage(IntToStr(UTF8CharacterToUnicode(PChar('ت'), CharLen))); 
end;
when i test this lazarus is crash.
my code is

Code: [Select]

      if len = 3 then begin
      result := result +   (IntToStr(UTF8CharacterToUnicode(PChar(b), len)));
      end; 
len =3
and b = 219

[ahmetnurideniz]

i have c# code for my device
the code is

Code: [Select]


                            // Word
                            UInt16 b16 = BitConverter.ToUInt16(m_buffer, 0);
                            resultL.Text = b16.ToString();
how can i port this lines Lazarus?

[Laksen]

result.Text := IntToStr(PWord(@buffer[0])^);

[bobc]

Hi,
my device send mi ascii data. i sometimes i can read data. But sometines i can't read data.

my device send me
'#232#3#13#10' for  1000 and i can read it 1000
'#219 for 65499 and i can read it 219
is it normal?

I would suggest if you received just #219, it is only part of the message. From your description of the PLC protocol, I would expect to see #219#255#13#10 for 65499. (219 + 255*256 = 65499)

[bobc]

i have c# code for my device
the code is

Code: [Select]


                            // Word
                            UInt16 b16 = BitConverter.ToUInt16(m_buffer, 0);
                            resultL.Text = b16.ToString();
how can i port this lines Lazarus?

I would write

Code: [Select]

var
  b16: word;
  resultL: TLabel; // a label on the form
...
  b16 := m_buffer[0] + m_buffer[1] * 256;
  resultL.Caption := IntToStr (b16);


[ahmetnurideniz]

i tested that

Code: [Select]


  var
  b,bb: byte;
  buf: pchar;
    b16: word;

begin
  if len = 3 then begin
    b16 :=  (buf[0]) + (buf[1]) + 256 ;
    result := IntToStr(b16) ;
  end;         
end;

there is error message "Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead"

then i tested this code

Code: [Select]

  var
  b,bb: byte;
  buf: pchar;
    b16: word;

      if len = 3 then begin
        b16 :=  ord(buf[0]) + ord(buf[1]) + ord(buf[2]) + 256;
        result := IntToStr(b16);
      end;   
then result is 569 when plc send 65499
i check
buf[0] = 219
buf[1]= 62
buf[2]= 32