일단 간략하게 설명드리겠습니다......
cport통신이용할려고하는데요
에디트창을만들어서 입력받은값을 헥사로 바꿔서 쓸려고 하는데요 잘안되네요........
제가 장비로 보내고 싶은값은
#$02#$30#$30#$42#$30#$30#$ㅁㅁ#$33#$67#$03;
또는#$02+#$30+#$30+#$42+#$30+#$30+#$30+#$ㅁㅁ+#$67+#$03;
입니다.....요걸 그냥 write써서 보내면 반응을 합니다. 문제는 이 값들이 바꿔주어야 한다는 겁니다.
예를 들어 텍스트창에 3을 입력하면 ㅁㅁ 자리에 hex값이 입력되게끔 구현하고 싶은데요
어찌하면될까요?
무작정물어보는건아니구요 제생각을 말씀드리면 일단 텍스트는 스트링으로 받으니 그걸 int로 변환한후 ㅁㅁ 자리에 넣주면 된다는 굉장히 어설푼 생각인데요 이리 하면 형변환문제가 발생하네요 pchar 이랑 안맞는다고......ㅡ.ㅡ;;; 소스 올려볼게요 수정이나 아니면 방법을 알려주세요...ㅡ.ㅡ
<!--CodeS-->
var senddata: pchar;
s:string;
i:integer;
begin
s:=edit1.text; <--------2자리 정수로 입력받아요 1-99 까지
mm:=strtoint(s);
if com1.Connected=true then
begin
SendData:=#$02#$30#$30#$42#$30#$mm#$30#$33#$67#$03
Com1.Write(sendData,Length(SendData));
end;
<!--CodeE-->
이런식으로 하면될거같은데요....ㅡ.ㅡ mm을 헥사값으로 바꾸는거랑 inttohex(mm);<----맞나요
또 mm을 넣는 방법이랑 맞는지좀 봐주세요...ㅡ.ㅡ 너무 허접한걸로 질문드려 대단히 죄송합니다.ㅡ.ㅡ;;;;
끝까지 읽어주셔서 감사합니다....
...+#$30+#$ㅁㅁ+#$67+...
...+#$30+Char(StrToInt(Edit1.Text))+#$67+...