몇일째 씨름하다가 도저히 안되겠다 싶어 메일을 띄웁니다.

문제를 해결할수 있는 작은 힌트라도 부탁드리겠습니다.



SendBuf의 ProtoType이 다음과 같습니다.



SendBuf(PotNum : Integer; SendData : WideString; Length : Integer);





Procedure WriteCom;

Var

Command : Byte;

xoBuf : Array[0..10] Of Byte;

i : Integer;

Begin



Command := 'R';



xoBuf[0] := STX; ---+ 보낼 데이터들을

XoBuf[1] := Ord(Command)); + 조합하는 부분

XoBuf[2] := ETX; +

XoBuf[3] := $0; ---+



for i := 0 to 2 do ---- BCC를 구하는 부분.

Begin

XoBuf[3] := XoBuf[3] + Byte(XoBuf[i]);

End;

XoBuf[3] := Ord(XoBuf[3] Mod 256);



// 이부분에서 에러가 납니다.

SendBuf(Port_Num, String(XoBuf), Length(String(XoBuf)));

End;