Q&A
- ascii 값을 보낼때 이렇게 하면 되나요??
안녕하세요...
'A01', 'A02'... 와 같은 문자를 각각 바이트로 헥사값으로 변형시켜서
시리얼 포트를 통해 보내야 하는데요~~
제가 작성한 코드가 맞는건지 잘 모르겠네요~~
procedure TForm1.SendButtonClick(Sender: TObject);
var
iCode, i : integer;
begin
iCode := 0;
str := 'A00';
for i:=1 to length(str) do begin
iCode := iCode + Byte(str[i]);
end;
ComPort.WriteStr(IntToStr(iCode) + #13#10)
memo.lines.add(inttostr(iCode));
end;
이렇게 하면 제대로 가는 건가요???
iCode를 저렇게 + 시켜도 되는건지...
IntToStr로 변형시켜서 보내도 되는건지 모르겠네요...
memo에 출력시켜 보믄 그냥,,, int값들이 더해져서 뿌려지는데...
저걸 받아서 "A01" 이라는걸 알까요??
'A01', 'A02'... 와 같은 문자를 각각 바이트로 헥사값으로 변형시켜서
시리얼 포트를 통해 보내야 하는데요~~
제가 작성한 코드가 맞는건지 잘 모르겠네요~~
procedure TForm1.SendButtonClick(Sender: TObject);
var
iCode, i : integer;
begin
iCode := 0;
str := 'A00';
for i:=1 to length(str) do begin
iCode := iCode + Byte(str[i]);
end;
ComPort.WriteStr(IntToStr(iCode) + #13#10)
memo.lines.add(inttostr(iCode));
end;
이렇게 하면 제대로 가는 건가요???
iCode를 저렇게 + 시켜도 되는건지...
IntToStr로 변형시켜서 보내도 되는건지 모르겠네요...
memo에 출력시켜 보믄 그냥,,, int값들이 더해져서 뿌려지는데...
저걸 받아서 "A01" 이라는걸 알까요??
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이대근
- 2002.10.16 20:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김해성
- •
- 2002.10.16 19:24
- 2 COMMENTS
- /
- 0 LIKES
-
정성훈•2002.10.16 20:09WinExec 도 있습니다. WinExec( 'c:winntnotepad.exe', 0 ); WinExec( 'c:winntcalc.exe', 0 );
-
머슴•2002.10.16 19:46* 메모장 ShellExecute(0, 'open', PChar('notepad.exe'), &nbs...
-
- 김종균
- •
- 2002.10.16 10:50
- 1 COMMENTS
- /
- 0 LIKES
-
김종균•2002.10.16 14:39ADOQuery는 레코드값을 반환하기때문에 select를 이용해서 결과값을 받아서 사용해야 하는거구,,, ADOC...
-
- 김종균
- •
- 2002.10.16 10:31
- 1 COMMENTS
- /
- 0 LIKES
-
미소나눔•2002.10.16 19:59ExecSQL 은 데이타 셋을 가지지 않는 SQL 실행입니다. INSERT, UPDATE, DELETE, DROP, 등등... Open ...
-
- 이태원
- •
- 2002.10.16 10:17
- 3 COMMENTS
- /
- 0 LIKES
-
박홍재•2002.10.16 19:49안녕하세요. 도움이 되셨으면 하는 군요. 일단 전체를 조회 할때의 쿼리문에는 valu02 라는 파라메터가 ...
-
이태원•2002.10.16 21:40if cbxemp01.text<>'전체' then 이거 넣으니깐.. 잘 되는군요.. 제 나름대로 조건...
-
머슴•2002.10.16 18:37안녕하세요... 제 잚은 소견으로는 emptxt.text 가 Null인경우 파라미터를 ''을 넘기는 것...
-
- 이재환
- •
- 2002.10.16 09:47
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2002.10.17 04:51NumLock 키를 계속해서 관찰합니다. 켜져있는지 꺼져있는지, 꺼졌다면 다시 켭니다. 위의 방법은 ...
-
- 이정일
- 2002.10.16 08:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 박정찬
- 2002.10.16 05:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영철
- •
- 2002.10.16 05:06
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.16 22:35조건문이 틀린것 같은데요...Query1.RecordCnt가 아님니다. Query1.RecordCount 입니다. 이렇게 한번 ...
-
이추형•2002.10.16 18:35혹, DataSource를 쓰시나여? if DataSource.DataSet.EOF Then begin DataSource.DataSet....
-
- 이수정
- •
- 2002.10.16 04:20
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요... 'A01', 'A02'... 와 같은 문자를 각각 바이트로 헥사값으로 변형시켜서 시리얼 포트를 통해 보내야 하는데요~~ 제가 작성한 코드가 맞는건지 잘 모르겠네요~~ procedure TForm1.SendButtonClick(Sender: TObject); var iCod...-
바다를향해•2002.10.17 02:33procedure TForm1.SendButtonClick(Sender: TObject); begin str := 'A00'; C...
-
- 수서니
- •
- 2002.10.16 03:49
- 2 COMMENTS
- /
- 0 LIKES
-
이성훈•2002.10.16 08:16uses절에 Qrprntr 추가하세요.. 그럼 즐푸..
-
수서니•2002.10.16 19:56잘되네용~ 감사합니당... *^*^*
-
- 김영철
- •
- 2002.10.16 03:36
- 1 COMMENTS
- /
- 0 LIKES
-
이도현•2002.10.16 21:58서버소켓 중에 ActiveConnections 을 이용하면 될꺼 같습니다. 예) procedure TForm1.ServerSocket...
-
-
박홍재•2002.10.16 19:52두개의 Database가 같은 오라클 인지 모르겠습니다. 일단 동일한 오라클 이라면 DB Link를 사용해서 두개의...
-
-
- 주관석
- 2002.10.16 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 김현학
- •
- 2002.10.16 03:00
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.16 22:44인터베이스에서 설정은 다음과 같이 합니다. Dataabase Name=컴퓨터명;경로명 예) Dataabase Name=192...
-
김현학•2002.10.18 02:01답변 너무 너무 감사합니다. 정말 답답하고 갑갑했는데, 답변 너무 너무 감사합니다. 그럼 수ㅡ고하세요
-
- 델리
- •
- 2002.10.16 02:44
- 2 COMMENTS
- /
- 0 LIKES
-
한원희•2002.10.16 19:00안녕하세요. 한원희입니다. 저는 RxLib를 사용해서 GIF를 폼에 표현합니다. 애니메이션 GIF도 지원해서 ...
-
안경옥•2002.10.16 19:05전에 gif쓰느라 쓴적이 있는데 제 기억으로 리소스 반환에 문제가 있었던것 같은데요........
-
- 노동옥
- 2002.10.16 02:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대훈
- •
- 2002.10.16 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
DelChoBo•2002.10.16 02:42세금계산서는 색깔과 양식만 맞으면 폼지를 쓰던 인쇄를 하던 상관이 없습니다. 구성방법이라 해봤자 A4...
-
- 느믈이
- •
- 2002.10.16 02:05
- 4 COMMENTS
- /
- 0 LIKES
-
KYH•2002.10.16 03:59쿼리컴포넌트에서 해당필드의 ongettext 이벤트에서 아래와 갗이 코딩해두 됩니다. if Sender.field...
-
머슴•2002.10.16 03:261. 코딩으로 해결하는 방법 CalcField를 이용하는&nb...
-
KDDG_hyun•2002.10.16 03:15ACCESS 는 잘 모르고.. sql 에서 쓰는 방법 설명 드리께요 참고 하세요.. sql 콤포 에서 컬럼 하나 만들...
-
느믈이•2002.10.16 08:13우왕~~ 답변 감사드립니당... ^^ 님들덥분에 많이 배웠네염....^^.. 답변주신 KYH님, 머슴님...
-
- 짱아
- •
- 2002.10.16 01:57
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2002.10.16 03:491.조인문을 쓰시던가 아님 루핑돌리시면 될것 같은데요... 어떤 DB를 쓰시는지 몰라 MS-SQL 로 했습니다 ...
begin
str := 'A00';
ComPort.WriteStr(str + #13#10)
memo.lines.add(str);
end;
음...왜 헥사로 변환을 안하고 전송하냐믄요...
받는 측에서 보낸 바이트 만큼 Hex로 받으면 되기 때문이죠
기본적으로 ASCII로 보낸다면 받는쪽에서 Hex든 ASCII든
받고 싶은데로 받으면 됩니다.
만약 'A00' 라는 문자열을 $41$30$30 이라고 보낸다면
받는쪽에서는 총바이트수를 3바이트가 아닌 9바이트로 받겠쬬...
그렇게 되면 더 엉뚱한 값을 받지 않을까여..^^;;;
근데 혹시 이렇게 받아야 한다면 ASCII를 Hex로 변환해서 String타입으로
리턴 해주는 함수 하나만 만들면 되죠...이건 QnA에 있을텐데...
그럼 즐프 하세여..^^;;