오명석 wrote:

> 자꾸 질문만 올려서 미안합니다.

>

> TComm을 구해 스캐너(시리얼)로 읽으니 Hex값이 나오는 것 같습니다.

>

> Hex값을 10진수로 바꾸는 방법을 알고싶습니다.

>

> 예) 9 (B7) (B8) (B8) 9 (B7) 6 (B2) (B7) 5 6 0 (B8) (8D) (0A)

>

> 위는 TComm에 나오는 예제 소스를 가지고 했습니다.

>





제가 알기로는 Tcomm으로 넘어오는 값이 Hex가 아닙니다.

아래의 프로시져 선언을 보면, Pointer형과 word형으로 데이타가 넘어옵니다.

다시 말해 읽은 값과 그 길이가 넘어오죠.

아래는 그 넘어온 값을 뿌리는 예제입니다.

procedure TForm1.Comm321ReceiveData(Buffer: Pointer; BufferLength: Word);

var

S ,S1 : string;

i : integer;

begin

setlength(S1, Bufferlength);

move(Buffer^,Pchar(S1)^,Bufferlength);



for i := 1 to length(S1) do

if ((S1[i] >= '0') and (S1[i] <= '9')) or (S1[i] = #13) then begin

if S1[i] = #13 then break;

S := S + S1[i];

if Length(S) >= 13 then break;

end;



edit1.text:= S;

end;

오명석 wrote:

> 자꾸 질문만 올려서 미안합니다.

>

> TComm을 구해 스캐너(시리얼)로 읽으니 Hex값이 나오는 것 같습니다.

>

> Hex값을 10진수로 바꾸는 방법을 알고싶습니다.

>

> 예) 9 (B7) (B8) (B8) 9 (B7) 6 (B2) (B7) 5 6 0 (B8) (8D) (0A)

>

> 위는 TComm에 나오는 예제 소스를 가지고 했습니다.

>

>



Edit1에 입력한 Hex값을 10진수로 바꾸는 간단한 예제 입니다



var

s: Integer;



begin

s := StrToInt('$'+Edit1.Text);

ShowMessage(Format('%d', [s]));

end;