function chk_gtdata(rtdata : string): string;
const
CRCMASK = $DF;
STATROFPACKET = $25;
ENDOFPACKET = $7F;
var
i, length, sum, parity : byte;
temp : array [0..79] of byte;
rtdate : string;
begin
sum := 0;
for i := 0 to 79 do
temp[i] := $0;
temp[0] := STATROFPACKET;
temp[1] := STATROFPACKET;
appendstr(^temp, trdata); <<------
for i := 2 to high(temp) do
sum := sum + temp[i];
parity := sum and $DF;
chk_gtdata := temp; <<---------
end;
<<------ 부분에서 에러가 발생합니다.
한 번 살펴주세요....
무엇이 잘 못 되어있나요....
바이트배열을 PChar형태로 타입캐스팅하시면 됩니다.
chk_gtdata := PChar(@temp); // <<---------
^^ 항상 즐코하세요.
hanminet wrote:
> function chk_gtdata(rtdata : string): string;
> const
> CRCMASK = $DF;
> STATROFPACKET = $25;
> ENDOFPACKET = $7F;
> var
> i, length, sum, parity : byte;
> temp : array [0..79] of byte;
> rtdate : string;
> begin
> sum := 0;
> for i := 0 to 79 do
> temp[i] := $0;
> temp[0] := STATROFPACKET;
> temp[1] := STATROFPACKET;
> appendstr(^temp, trdata); <<------
>
> for i := 2 to high(temp) do
> sum := sum + temp[i];
>
> parity := sum and $DF;
>
> chk_gtdata := temp; <<---------
>
> end;
>
> <<------ 부분에서 에러가 발생합니다.
> 한 번 살펴주세요....
>
> 무엇이 잘 못 되어있나요....
>
>