Q&A
- 통신에서의 쓰레드 사용에 대한 질문입니다.
일반적인 쓰레드는 사용해봤지만 통신에서는 사용해보질 않았습니다.
예를 들어서 PLC와 시리얼 통신을 하고자 할 경우
제가 찾아본 소스들을 보면 SendText 쪽에는 쓰레드를 걸어주던데
왜 Receive쪽에는 쓰레드를 멈춰주는지 조금 이해가...
1) 그럴 경우에는 Send 전문을 구성하는 중에 Receive가 들어올 경우 어떻게 될까요?
2) 또는 Send전문을 구성한 후 Send 작업중에 Receive가 들어오면 어찌되는지...
3) Receive된 메세지를 처리하고있을 경우 또다른 Receive가 들어오면 어찌될까요?
진행되는 도중에 Event가 도착했다고 다시 첨부터 시작하지는 않겠지요?
4) TCP/IP의 경우 블로킹 모드를 사용하면 따로 쓰레드를 돌릴 필요가 없나요?
IndyTCP의 경우에는 ThreadMgr을 붙일 경우에 쓰레드를 쓸 필요가 없나요?
고수님들의 조언을 바랍니다...
아래는 미완성인 예제 소스입니다.
별 도움은 안될테지만 참고를 하실 수 있으면 해보시라고...
//Send부분
function Transfer_Command_SC4(P : Pointer):LongInt;StdCall;
var
TxB : TSendBuffer;
CrcSum : WORD;
i : Integer;
begin
EnterCriticalSection(CSection);
//Send 및 Receive 작업
SetLength(Txb,8);
Txb[0] := 01;
Txb[1] := $64;
Txb[2] := 01;
Txb[3] := 03;
Txb[4] := 00;
Txb[5] := 00;
Txb[6] := 04;
CrcSum := Send.Crc_Check(Txb,6);
Txb[7] := CRCSum And $00FF;
Txb[8] := CRCSum Shr 8;
Send.SC_Send_Data := '';
for i := 0 to 8 do
Send.SC_Send_Data := Send.SC_Send_Data + IntToHex(Txb[i],2);
Send.CommSC4.SendString(Send.SC_Send_Data);
LeaveCriticalSection(CSection);
Result := 0;
end;
//Receive 부분
procedure TSend.CommSC1ReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Cardinal);
var
s : string;
CopyS : string;
CrcSum, CRC1, CRC2 : Word;
RxB : TSendBuffer;
Len : Integer;
i,j : Integer;
begin
chkReadFlag := True;
chkRetrySC1 := 1;
s := StringOfChar( ' ', DataSize );
move( DataPtr^, PChar(s)^, DataSize );
CopyS := Copy(s,1,2);
SetLength(RxB,3);
RxB[0] := StrToInt(Copy(s,1,2)); //SA No
RxB[1] := StrToInt(Copy(s,3,2)); //DA No
RxB[2] := StrToInt(Copy(s,5,2)); //명령코드에 응답임을 표시
RxB[3] := StrToInt(Copy(s,7,2)); //CRC부분을 제외한 부분의 Length
Len := RxB[3];
Len := Len + 3 + 2;
SetLength(RxB, Len);
i := 1;
j := 9;
while i <= (Len-3) do begin
RxB[i+3] := StrToInt(Copy(S,j,2));
i := i + 1;
j := j + 2;
end;
CrcSum := Crc_Check(RxB,Len-2);
CRC1 := CRCSum And $00FF;
CRC2 := CRCSum Shr 8;
if (CRC1 = RxB[Len-1]) and (CRC2 = RxB[Len]) then begin //CRC Check가 맞으면
end
else begin //CRC Check가 맞지 않으면
end;
end;
예를 들어서 PLC와 시리얼 통신을 하고자 할 경우
제가 찾아본 소스들을 보면 SendText 쪽에는 쓰레드를 걸어주던데
왜 Receive쪽에는 쓰레드를 멈춰주는지 조금 이해가...
1) 그럴 경우에는 Send 전문을 구성하는 중에 Receive가 들어올 경우 어떻게 될까요?
2) 또는 Send전문을 구성한 후 Send 작업중에 Receive가 들어오면 어찌되는지...
3) Receive된 메세지를 처리하고있을 경우 또다른 Receive가 들어오면 어찌될까요?
진행되는 도중에 Event가 도착했다고 다시 첨부터 시작하지는 않겠지요?
4) TCP/IP의 경우 블로킹 모드를 사용하면 따로 쓰레드를 돌릴 필요가 없나요?
IndyTCP의 경우에는 ThreadMgr을 붙일 경우에 쓰레드를 쓸 필요가 없나요?
고수님들의 조언을 바랍니다...
아래는 미완성인 예제 소스입니다.
별 도움은 안될테지만 참고를 하실 수 있으면 해보시라고...
//Send부분
function Transfer_Command_SC4(P : Pointer):LongInt;StdCall;
var
TxB : TSendBuffer;
CrcSum : WORD;
i : Integer;
begin
EnterCriticalSection(CSection);
//Send 및 Receive 작업
SetLength(Txb,8);
Txb[0] := 01;
Txb[1] := $64;
Txb[2] := 01;
Txb[3] := 03;
Txb[4] := 00;
Txb[5] := 00;
Txb[6] := 04;
CrcSum := Send.Crc_Check(Txb,6);
Txb[7] := CRCSum And $00FF;
Txb[8] := CRCSum Shr 8;
Send.SC_Send_Data := '';
for i := 0 to 8 do
Send.SC_Send_Data := Send.SC_Send_Data + IntToHex(Txb[i],2);
Send.CommSC4.SendString(Send.SC_Send_Data);
LeaveCriticalSection(CSection);
Result := 0;
end;
//Receive 부분
procedure TSend.CommSC1ReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Cardinal);
var
s : string;
CopyS : string;
CrcSum, CRC1, CRC2 : Word;
RxB : TSendBuffer;
Len : Integer;
i,j : Integer;
begin
chkReadFlag := True;
chkRetrySC1 := 1;
s := StringOfChar( ' ', DataSize );
move( DataPtr^, PChar(s)^, DataSize );
CopyS := Copy(s,1,2);
SetLength(RxB,3);
RxB[0] := StrToInt(Copy(s,1,2)); //SA No
RxB[1] := StrToInt(Copy(s,3,2)); //DA No
RxB[2] := StrToInt(Copy(s,5,2)); //명령코드에 응답임을 표시
RxB[3] := StrToInt(Copy(s,7,2)); //CRC부분을 제외한 부분의 Length
Len := RxB[3];
Len := Len + 3 + 2;
SetLength(RxB, Len);
i := 1;
j := 9;
while i <= (Len-3) do begin
RxB[i+3] := StrToInt(Copy(S,j,2));
i := i + 1;
j := j + 2;
end;
CrcSum := Crc_Check(RxB,Len-2);
CRC1 := CRCSum And $00FF;
CRC2 := CRCSum Shr 8;
if (CRC1 = RxB[Len-1]) and (CRC2 = RxB[Len]) then begin //CRC Check가 맞으면
end
else begin //CRC Check가 맞지 않으면
end;
end;
2
COMMENTS
-
-
황광일 wrote:
> 쓰레드를 사용하는 통신에서는 쓰레드를 한개만 사용하십시오.
> 즉, 쓰레드 하나를 돌려놓고 평소에는 읽기만 하다가...
> OnRecieveData 이벤트가 발생하면 그때 쓰레드를 Suspend 시켜놓고
> 들어온 데이터를 분석하고 분석이 끝나면 다시 Resume을 시켜주면 됩니다..
> 그러면 Cpu 사용율도 줄어들고 매우 빠른 통신을 수행하지요..
>
> 그런데 읽기 통신 하고 있는디 과연 언제 쓰기통신을 수행하는가?
> 즉 Send 작업 중 읽기 통신을 하고 있으면 들어오고 있는 패킷은 어찌되는가?
> 요런 물음을 던질 수 밖에 없습니다.
> 이때는 큐를 사용하십시오..
>
> 읽기나 쓰기통신할 때 바로 패킷을 전송하지말고.. 무조건 큐에 집어넣는 겁니다.
> 평소에는
> 읽기통신 순번이나 최소한의 정보만을 큐에 집어넣고
> 이 큐에 들어오는 순서대로 읽기통신을 하거나 쓰기통신을 하십시오...
>
> 주의점은
> 읽기통신패킷이나 쓰기통신 패킷을 전송한 직후..
> 쓰레드는 Suspend시키는 겁니다..
> 그럼 패킷은 전송되고 뭔가 응답이 오겠죠?
> OnReceiveData에 응답이벤트가 걸리면.... 그 분석처리를 완성하고...
> 비로소 쓰레드를 Resume시키는 것이 키포인트가 되겠습니다.
> 이러한 예나 소스를 구경하려면...
> myhome.shinbiro.com/~opencomm에 들러서 강좌를 읽어보시던가..
> OpenFAVCL 패키지를 다운받아서 통신VCL들의 소스를 참고하시면
> 원하시는 답을 얻을 수 있으실거 같군요..
>
> 최철민 wrote:
> > 일반적인 쓰레드는 사용해봤지만 통신에서는 사용해보질 않았습니다.
> > 예를 들어서 PLC와 시리얼 통신을 하고자 할 경우
> > 제가 찾아본 소스들을 보면 SendText 쪽에는 쓰레드를 걸어주던데
> > 왜 Receive쪽에는 쓰레드를 멈춰주는지 조금 이해가...
> > 그럴 경우에는 Send 전문을 구성하는 중에 Receive가 들어올 경우 어떻게 될까요?
> > 또는 Send전문을 구성한 후 Send 작업중에 Receive가 들어오면 어찌되는지...
> > 고수님들의 조언을 바랍니다...
> >
> > 아래는 미완성인 예제 소스입니다.
> > 참고를 하실 수 있으면 해보시라고...
> >
> >
> > //Send부분
> > function Transfer_Command_SC4(P : Pointer):LongInt;StdCall;
> > var
> > TxB : TSendBuffer;
> > CrcSum : WORD;
> > i : Integer;
> > begin
> >
> > EnterCriticalSection(CSection);
> > //Send 및 Receive 작업
> > SetLength(Txb,8);
> > Txb[0] := 01;
> > Txb[1] := $64;
> > Txb[2] := 01;
> > Txb[3] := 03;
> > Txb[4] := 00;
> > Txb[5] := 00;
> > Txb[6] := 04;
> > CrcSum := Send.Crc_Check(Txb,6);
> > Txb[7] := CRCSum And $00FF;
> > Txb[8] := CRCSum Shr 8;
> > Send.SC_Send_Data := '';
> >
> > for i := 0 to 8 do
> > Send.SC_Send_Data := Send.SC_Send_Data + IntToHex(Txb[i],2);
> >
> > Send.CommSC4.SendString(Send.SC_Send_Data);
> > LeaveCriticalSection(CSection);
> > Result := 0;
> >
> > end;
> >
> >
> > //Receive 부분
> > procedure TSend.CommSC1ReceiveData(Sender: TObject; DataPtr: Pointer;
> > DataSize: Cardinal);
> > var
> > s : string;
> > CopyS : string;
> > CrcSum, CRC1, CRC2 : Word;
> > RxB : TSendBuffer;
> > Len : Integer;
> > i,j : Integer;
> > begin
> >
> > chkReadFlag := True;
> > chkRetrySC1 := 1;
> > s := StringOfChar( ' ', DataSize );
> > move( DataPtr^, PChar(s)^, DataSize );
> > CopyS := Copy(s,1,2);
> > SetLength(RxB,3);
> > RxB[0] := StrToInt(Copy(s,1,2)); //SA No
> > RxB[1] := StrToInt(Copy(s,3,2)); //DA No
> > RxB[2] := StrToInt(Copy(s,5,2)); //명령코드에 응답임을 표시
> > RxB[3] := StrToInt(Copy(s,7,2)); //CRC부분을 제외한 부분의 Length
> > Len := RxB[3];
> > Len := Len + 3 + 2;
> > SetLength(RxB, Len);
> >
> > i := 1;
> > j := 9;
> > while i <= (Len-3) do begin
> > RxB[i+3] := StrToInt(Copy(S,j,2));
> > i := i + 1;
> > j := j + 2;
> > end;
> >
> > CrcSum := Crc_Check(RxB,Len-2);
> > CRC1 := CRCSum And $00FF;
> > CRC2 := CRCSum Shr 8;
> > if (CRC1 = RxB[Len-1]) and (CRC2 = RxB[Len]) then begin //CRC Check가 맞으면
> > end
> > else begin //CRC Check가 맞지 않으면
> >
> > end;
> >
> > end;
답변에 감사드립니다.
그런데 한가지 더 의문점이...
이럴 경우에 멀티포트를 사용해서 포트를 16개정도 사용해도 별 문제가 없겠는지요...
정말 감사합니다.
(NOTICE) You must be logged in to comment on this post.
-
- 허걱
- •
- 2000.11.17 22:04
- 4 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.11.17 22:04if strtoint(Edit1.Text) > 9999 then begin MessageBox(Handle, '너무 커.', '오류', ...
-
황광일•2000.11.17 22:05if Edit1.Text > 9999 then 요부분을 if StrToIntDef(Edit1.Text, 10000) > 9999 then 요렇게 하...
-
최은석•2000.11.18 01:04StrToIntDef 함수를 쓸 필요는 없는거 같은데요..... 물론 에디트박스에 숫자만 입력한다는 전제하에서...
-
황광일•2000.11.18 04:15물론 if StrToInt(Edit1.Text > 9999) then 으로 처리해도 됩니다. StrToIntDef는 TEdit를 쓸 경우 공...
-
- 박혜식
- 2000.11.17 20:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 박일용
- 2000.11.17 19:57
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 최철민
- •
- 2000.11.17 20:27
- 2 COMMENTS
- /
- 0 LIKES
일반적인 쓰레드는 사용해봤지만 통신에서는 사용해보질 않았습니다. 예를 들어서 PLC와 시리얼 통신을 하고자 할 경우 제가 찾아본 소스들을 보면 SendText 쪽에는 쓰레드를 걸어주던데 왜 Receive쪽에는 쓰레드를 멈춰주는지 조금 이해...-
황광일•2000.11.17 20:33쓰레드를 사용하는 통신에서는 쓰레드를 한개만 사용하십시오. 즉, 쓰레드 하나를 돌려놓고 평소에는 읽기...
-
최철민•2000.11.18 20:48황광일 wrote: > 쓰레드를 사용하는 통신에서는 쓰레드를 한개만 사용하십시오. > 즉, 쓰레드 하나를 돌...
-
- 김명일
- •
- 2000.11.17 19:36
- 1 COMMENTS
- /
- 0 LIKES
-
mafioso•2000.11.17 20:20김명일 wrote: > x의 y승을 처리하려고 합니다. > x는 integer, y는 real type입니다. > 알려주세요... ...
-
- 한구용
- 2000.11.17 19:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 아이언
- •
- 2000.11.17 19:23
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.11.18 02:39안녕하세요. 까마귀입니다. 저는 잘 되던디... 확인후 F9 대신에 F7로 하나씩 전진하면서 확인해 보세...
-
- skylove
- •
- 2000.11.17 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
병규•2000.11.21 03:59별로 도움은 안되겠지만 제가 몇자 적겠습니다. 일단 미디어 플레이어는 IE 5.0과 연동되어있습니다. M...
-
- 노란병아리
- 2000.11.17 18:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 지승현
- •
- 2000.11.17 20:31
- 1 COMMENTS
- /
- 0 LIKES
-
로비•2000.11.18 02:07프로세스 조회를 하신뒤에 해당프로그램(a)와 필수적인 프로세스(kernell32.dll,explorer.exe등)를 제외...
-
- 임형호
- •
- 2000.11.17 20:36
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.11.17 20:37FindWindow를 사용해 보세여. 임형호 wrote: > shellExecute 함수실행시..리턴되는 값이 핸들값으로 알고...
-
- 조대승
- 2000.11.17 19:16
- 0 COMMENTS
- /
- 0 LIKES
-
- skylove
- 2000.11.17 17:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 박제범
- •
- 2000.11.17 13:22
- 1 COMMENTS
- /
- 0 LIKES
-
bluesky•2000.11.17 18:49박제범 wrote: > 이런 질문 많이 올라오구 팁도 있는거 봤는데요... > > 만약 페널이나 이미지를 클릭...
-
- 박제범
- 2000.11.17 20:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 모르겠당...
- •
- 2000.11.17 10:34
- 2 COMMENTS
- /
- 0 LIKES
-
bluesky•2000.11.17 18:08어떤 팁을 원하시는지는 모르겠지만 한델 자료실에 가면 xProject 라는 실행파일 및 소스가 있습니다. ...
-
모르겠당...•2000.11.17 21:17bluesky wrote: > 어떤 팁을 원하시는지는 모르겠지만 > 한델 자료실에 가면 xProject 라는 실행파일 및...
-
- ☜00☞
- 2000.11.17 19:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 이성윤
- 2000.11.17 09:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 지승용
- •
- 2000.11.17 06:48
- 1 COMMENTS
- /
- 0 LIKES
-
로비•2000.11.17 09:54local machine에서 softwaremicrosoftwindowscurrentversionrunservices 에 값넣으시면 log on 하기전에 ...
즉, 쓰레드 하나를 돌려놓고 평소에는 읽기만 하다가...
OnRecieveData 이벤트가 발생하면 그때 쓰레드를 Suspend 시켜놓고
들어온 데이터를 분석하고 분석이 끝나면 다시 Resume을 시켜주면 됩니다..
그러면 Cpu 사용율도 줄어들고 매우 빠른 통신을 수행하지요..
그런데 읽기 통신 하고 있는디 과연 언제 쓰기통신을 수행하는가?
즉 Send 작업 중 읽기 통신을 하고 있으면 들어오고 있는 패킷은 어찌되는가?
요런 물음을 던질 수 밖에 없습니다.
이때는 큐를 사용하십시오..
읽기나 쓰기통신할 때 바로 패킷을 전송하지말고.. 무조건 큐에 집어넣는 겁니다.
평소에는
읽기통신 순번이나 최소한의 정보만을 큐에 집어넣고
이 큐에 들어오는 순서대로 읽기통신을 하거나 쓰기통신을 하십시오...
주의점은
읽기통신패킷이나 쓰기통신 패킷을 전송한 직후..
쓰레드는 Suspend시키는 겁니다..
그럼 패킷은 전송되고 뭔가 응답이 오겠죠?
OnReceiveData에 응답이벤트가 걸리면.... 그 분석처리를 완성하고...
비로소 쓰레드를 Resume시키는 것이 키포인트가 되겠습니다.
이러한 예나 소스를 구경하려면...
myhome.shinbiro.com/~opencomm에 들러서 강좌를 읽어보시던가..
OpenFAVCL 패키지를 다운받아서 통신VCL들의 소스를 참고하시면
원하시는 답을 얻을 수 있으실거 같군요..
최철민 wrote:
> 일반적인 쓰레드는 사용해봤지만 통신에서는 사용해보질 않았습니다.
> 예를 들어서 PLC와 시리얼 통신을 하고자 할 경우
> 제가 찾아본 소스들을 보면 SendText 쪽에는 쓰레드를 걸어주던데
> 왜 Receive쪽에는 쓰레드를 멈춰주는지 조금 이해가...
> 그럴 경우에는 Send 전문을 구성하는 중에 Receive가 들어올 경우 어떻게 될까요?
> 또는 Send전문을 구성한 후 Send 작업중에 Receive가 들어오면 어찌되는지...
> 고수님들의 조언을 바랍니다...
>
> 아래는 미완성인 예제 소스입니다.
> 참고를 하실 수 있으면 해보시라고...
>
>
> //Send부분
> function Transfer_Command_SC4(P : Pointer):LongInt;StdCall;
> var
> TxB : TSendBuffer;
> CrcSum : WORD;
> i : Integer;
> begin
>
> EnterCriticalSection(CSection);
> //Send 및 Receive 작업
> SetLength(Txb,8);
> Txb[0] := 01;
> Txb[1] := $64;
> Txb[2] := 01;
> Txb[3] := 03;
> Txb[4] := 00;
> Txb[5] := 00;
> Txb[6] := 04;
> CrcSum := Send.Crc_Check(Txb,6);
> Txb[7] := CRCSum And $00FF;
> Txb[8] := CRCSum Shr 8;
> Send.SC_Send_Data := '';
>
> for i := 0 to 8 do
> Send.SC_Send_Data := Send.SC_Send_Data + IntToHex(Txb[i],2);
>
> Send.CommSC4.SendString(Send.SC_Send_Data);
> LeaveCriticalSection(CSection);
> Result := 0;
>
> end;
>
>
> //Receive 부분
> procedure TSend.CommSC1ReceiveData(Sender: TObject; DataPtr: Pointer;
> DataSize: Cardinal);
> var
> s : string;
> CopyS : string;
> CrcSum, CRC1, CRC2 : Word;
> RxB : TSendBuffer;
> Len : Integer;
> i,j : Integer;
> begin
>
> chkReadFlag := True;
> chkRetrySC1 := 1;
> s := StringOfChar( ' ', DataSize );
> move( DataPtr^, PChar(s)^, DataSize );
> CopyS := Copy(s,1,2);
> SetLength(RxB,3);
> RxB[0] := StrToInt(Copy(s,1,2)); //SA No
> RxB[1] := StrToInt(Copy(s,3,2)); //DA No
> RxB[2] := StrToInt(Copy(s,5,2)); //명령코드에 응답임을 표시
> RxB[3] := StrToInt(Copy(s,7,2)); //CRC부분을 제외한 부분의 Length
> Len := RxB[3];
> Len := Len + 3 + 2;
> SetLength(RxB, Len);
>
> i := 1;
> j := 9;
> while i <= (Len-3) do begin
> RxB[i+3] := StrToInt(Copy(S,j,2));
> i := i + 1;
> j := j + 2;
> end;
>
> CrcSum := Crc_Check(RxB,Len-2);
> CRC1 := CRCSum And $00FF;
> CRC2 := CRCSum Shr 8;
> if (CRC1 = RxB[Len-1]) and (CRC2 = RxB[Len]) then begin //CRC Check가 맞으면
> end
> else begin //CRC Check가 맞지 않으면
>
> end;
>
> end;