Delphi7で

通信技術における
Block Check Character
を得る関数を教えてください

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/09/07 12:17:53
  • 終了:--

回答(1件)

id:aki73ix No.1

aki73ix回答回数5224ベストアンサー獲得回数272005/09/07 14:22:17

ポイント40pt

この位なら作ってしまったほうがいいですね

サンプルをアップしておきます

関数は

BCCCheck(データ列,データ長,奇数パリティなら1、そうでなければ0)

で結果が Integerで返ります


function BCCCheck(inchar: PChar; LEN: Integer; MODE: Integer): Integer; Stdcall;

var

I,J,T: Integer;

TmpAr: array[1..8] of Integer;

begin

// 配列初期化

J:=1;

while J<=8 do

begin

TmpAr[J]:=MODE;

Inc(J);

end;


I:=0;

while I < LEN do

begin

T:=Integer(inchar[I]);

J:=1;

while J<=8 do

begin

TmpAr[J]:=( TmpAr[J]+(T and 1) ) mod 2;

T:=T shr 1;

Inc(J);

end;

Inc(I);

end;

J:=1;

Result := 0;

while J<=8 do

begin

Result:=Result+((TmpAr[J]and 1) shl (J-1));

Inc(J);

end;

end;

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません