Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[12930] 장성호님께 조용히 여쭈어 봅니다....(다른분들도 포함입니다.^^;;)
오델로 [k2552016] 1688 읽음    2009-10-05 18:40
일단 간략하게 설명드리겠습니다......
cport통신이용할려고하는데요

에디트창을만들어서 입력받은값을 헥사로 바꿔서 쓸려고 하는데요 잘안되네요........
제가 장비로 보내고 싶은값은
#$02#$30#$30#$42#$30#$30#$ㅁㅁ#$33#$67#$03;
또는#$02+#$30+#$30+#$42+#$30+#$30+#$30+#$ㅁㅁ+#$67+#$03;
입니다.....요걸 그냥 write써서 보내면 반응을 합니다. 문제는 이 값들이 바꿔주어야 한다는 겁니다.

예를 들어 텍스트창에 3을 입력하면 ㅁㅁ 자리에 hex값이 입력되게끔 구현하고 싶은데요
어찌하면될까요?

무작정물어보는건아니구요 제생각을 말씀드리면 일단 텍스트는 스트링으로 받으니 그걸 int로 변환한후 ㅁㅁ 자리에 넣주면 된다는 굉장히 어설푼 생각인데요 이리 하면 형변환문제가 발생하네요 pchar 이랑 안맞는다고......ㅡ.ㅡ;;; 소스 올려볼게요 수정이나 아니면 방법을 알려주세요...ㅡ.ㅡ

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;


이런식으로 하면될거같은데요....ㅡ.ㅡ mm을 헥사값으로 바꾸는거랑 inttohex(mm);<----맞나요
또 mm을 넣는 방법이랑 맞는지좀 봐주세요...ㅡ.ㅡ 너무 허접한걸로 질문드려 대단히 죄송합니다.ㅡ.ㅡ;;;;

+ -

관련 글 리스트
12930 장성호님께 조용히 여쭈어 봅니다....(다른분들도 포함입니다.^^;;) 오델로 1688 2009/10/05
12931     Re:장성호님께 조용히 여쭈어 봅니다....(다른분들도 포함입니다.^^;;) 장성호 1771 2009/10/05
12932         Re:Re:장성호님께 답변 감사드립니다..... 오델로 1311 2009/10/06
12933             Re:Re:Re:장성호님께 답변 감사드립니다..아 그리고 추가질문좀..... 오델로 1636 2009/10/06
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.