Q&A
- CPort 사용중 Hexa를 받아야 합니다. 고수분들의 리풀 부탁합니다.
CPort 사용중 Hexa를 받아야 합니다. 고수분들의 리풀 부탁합니다.
일반적으로는 이렇게 처리했습니다.
procedure TMain_Form.ComPortRxChar(Sender: TObject; Count: Integer);
var S: String;
I: Integer;
begin
ComPort.ReadStr(S, Count);
J:= StrLen(PChar(S));
StrPCopy(A, S);
for I:= 0 to J do
begin
if A[I] = Char(#13) then
begin
Memo.Lines.Add(In_); //''문자열이 들어옴
Break;
end;
if A[I] <> Char(#0) then
In_:= In_ + A[I];
end;
end;
이렇게 하면 문자는 처리됩니다.
그러나 16진수는 어떻게 할까요?
일반적으로는 이렇게 처리했습니다.
procedure TMain_Form.ComPortRxChar(Sender: TObject; Count: Integer);
var S: String;
I: Integer;
begin
ComPort.ReadStr(S, Count);
J:= StrLen(PChar(S));
StrPCopy(A, S);
for I:= 0 to J do
begin
if A[I] = Char(#13) then
begin
Memo.Lines.Add(In_); //''문자열이 들어옴
Break;
end;
if A[I] <> Char(#0) then
In_:= In_ + A[I];
end;
end;
이렇게 하면 문자는 처리됩니다.
그러나 16진수는 어떻게 할까요?
3
COMMENTS
-
-
^0^ 감사합니다.
이성훈님 의 도움으로 해결 하였습니다.
문자열만 주는 것으로 생각했는데...
이런 방법도 있었군요^^
Read(R_PK, Count)
덕분에 엄청난 고뇌의 시간을 단축했습니다.
-
저는 고수는 아니지만...
질문의 내용으로 보아서...
if A[I] = Char(#13) then
위와 같은 비교문을... 캐랙터 형태가 아닌 16진수로 비교하고 싶다는 의미 인 듯 합니다..
답은 간단합니다..
IntToHex 함수를 사용하시면 됩니다..
IntToHex (Integer (A[I], 2) 와 같은 방법을 쓰면..
주어진 특정 캐랙터의 데이타가 16진수로 변환되어서 나타납니다..
답변이 도움이 되었길 바랍니다.. ^^..
(NOTICE) You must be logged in to comment on this post.
-
- 우용우
- •
- 2005.10.29 02:41
- 2 COMMENTS
- /
- 0 LIKES
-
채팅•2005.10.29 05:47bmp를 jpeg로 압축하고 다시 압축할 필요가 있을까요? jpg자체가 압축알고리듬을 사용하므로 한번더 압축...
-
이중철•2005.10.29 04:12마지막 질문내용만요 Wavelet 변환 알고리즘이라는 것이 있습니다. 뭐 내용은 잘 모르겠고 하여간 이...
-
- GiS
- •
- 2005.10.29 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
GiS•2005.11.01 23:41자답입니다. 아래와 같이 스크립트를 작성하면 되겠습니다. [Files] Source: ..\myprogram.exe; Dest...
-
- parch
- •
- 2005.10.28 23:39
- 2 COMMENTS
- /
- 0 LIKES
-
KGun•2005.10.29 02:53버튼 클릭이벤트에 자바스크립트를 호출한후(LogOut 이겠죠?)에 페이지 이동을 시키면 안
-
nilriri™•2005.10.29 00:14글쎄요 해당 사이트에서 로그인 했다는 정보를 어떻게 관리하는지 모르겠지만...보통은 세션으로 하지 않나...
-
- 신철우
- •
- 2005.10.28 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
송상현•2005.10.29 01:51Winexec 나 ShellExecute 함수를(API 함수) 사용하여 DOS 프롬프트에서 처럼 DLL 등록하시면 됩니다. ...
-
신철우•2005.10.29 02:18감사합니다.
-
- 마이크로김
- •
- 2005.10.28 22:36
- 2 COMMENTS
- /
- 0 LIKES
-
착한천사•2005.10.29 05:37글쎄요.. txt 파일을 Access dB에 넣는다는건 순차적으로 처리할 수 밖에 없습니다.. Oracle등과 같은 대...
-
돌고래•2005.10.29 23:32text file의 길이가 일정하다면 먼저 엑셀로 읽어들여서 다시 dbf로 저장하구 data pump를 사용하면 되지 ...
-
- 최승용
- •
- 2005.10.28 22:02
- 2 COMMENTS
- /
- 0 LIKES
-
최승용•2005.10.28 22:47원인을 알았습니다. 메인폼에 TTreeMenu와 TWebBrowser를 Dll로 폼을 만들어서 호출하여 보여주는데...
-
송영석•2007.12.03 20:43저도 그 원인을 알아보다 발견한건데 Dll 사용하실 때는 정적인 방법으로 불러오지 마시고 동적...
-
- webdel
- 2005.10.28 12:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 신철우
- •
- 2005.10.28 08:49
- 2 COMMENTS
- /
- 0 LIKES
-
김종인•2005.10.28 10:15procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCo...
-
신철우•2005.10.29 02:20
-
- kivalan
- •
- 2005.10.28 04:03
- •
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2005.11.17 23:45PING, ICMP는 복수스레드로 구현이 불가능 합니다. 이것을 모르고 PING ALIVE CHEK를 스레드를 구현하곤...
-
- 뉴라이프
- •
- 2005.10.28 02:53
- 2 COMMENTS
- /
- 0 LIKES
-
김종인•2005.10.28 10:16경험입니다만, 확실하지 모르지만 메인메뉴를 올리니까 되는 것 같더군요
-
뉴라이프•2005.10.28 19:14제가 궁금한 것은.. 메인메뉴를 쿨바위에 올린 툴바에 올려놓고서도 최대화 최소화 버튼을 보이게 하...
-
- 김종균
- •
- 2005.10.28 02:20
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.10.28 02:28안녕하세요. 최용일입니다. 간단한데요... 델파이 소스에도 있지만... 그냥 하나하나 만들면 됩니다. &...
-
- 서재덕
- •
- 2005.10.28 00:05
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2005.10.28 02:32안녕하세요. 최용일입니다. ls_path+sFileName란 파일이 존재하는지 먼저 확인해보시구요... MoveFil...
-
서재덕•2005.10.28 18:42말씀하신대로 중간중간 try로 해서 잡아내니깐 되네요.. 감사합니다. 꾸벅 (_ _)
-
- 토니
- •
- 2005.10.27 23:50
- 2 COMMENTS
- /
- 0 LIKES
-
이중철•2005.10.28 02:57다른 DB에서는 Tempary Table을 지원합니다. 전 주로 Informix 와 Sybase에서 사용했죠 오라클에는 없었어...
-
토니•2005.10.28 07:03네, 임시테이블에 데이타를 넣었다가 원테이블에 넣는 것을 설명해 주셨네요. 제가 현재 처한 상황을 ...
-
- 권인식
- •
- 2005.10.27 21:48
- 2 COMMENTS
- /
- 0 LIKES
-
토니•2005.10.27 22:48저도 아직 델파이 두달도 안된 초보입니다만, 제가 배운 방법을 말씀드리면 류종택님의 동영상 강좌를 보면...
-
권인식•2005.10.31 21:34답변감샤 합니다...
-
- 장우석
- •
- 2005.10.27 19:58
- 3 COMMENTS
- /
- 0 LIKES
CPort 사용중 Hexa를 받아야 합니다. 고수분들의 리풀 부탁합니다. 일반적으로는 이렇게 처리했습니다. procedure TMain_Form.ComPortRxChar(Sender: TObject; Count: Integer); var S: String; I: Integer; begin ComPort.ReadStr(S, Cou...-
이성훈•2005.10.28 01:22var R_PK : array [0..1023] of Char ComPort.Read(R_PK, Count) for i := 0 to Count-1 do &...
-
장우석•2005.10.28 05:15^0^ 감사합니다. 이성훈님 의 도움으로 해결 하였습니다. 문자열만 주는 것으로 생각했는데.....
-
한성우•2005.10.27 22:49저는 고수는 아니지만... 질문의 내용으로 보아서... if A[I] = Char(#13) ...
-
- 토니
- •
- 2005.10.27 07:21
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2005.10.27 19:14안녕하세요. 최용일입니다. 이벤트핸들러를 연결시켜주셔야죠... qry := TZQuery.Create(self); qry...
-
토니•2005.10.27 19:18아항~ 그런거였군여~~~~ ^o^ 정말 정말 감사합니다. :) 이제나 저제나 하면서 답글이 올라왔을까하고 게...
-
- 델파이-델짱
- 2005.10.27 02:51
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동명
- •
- 2005.10.27 02:43
- 2 COMMENTS
- /
- 0 LIKES
-
델파이-델짱•2005.10.27 07:21srtPcopy 를 사용하시면 될겁니다.
-
김동명•2005.10.27 19:49감사합니다 근데요 srtpcopy 아니라 strPcopy 아닌가요?
-
-
송상현•2005.10.27 18:30OnActivate OnCreate OnShow Form의 이벤트중에 위에 세개를 잘 활용해 보시면 화면 처음에 시작...
-
-
- 토니
- 2005.10.27 00:06
- 0 COMMENTS
- /
- 0 LIKES
ComPort.Read(R_PK, Count)
for i := 0 to Count-1 do
if R_PK[i] = #13 then begin
Memo.Lines.Add(In_); //''문자열이 들어옴
Break;
end
즐코하세요..