人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: shochankun
●カテゴリ:コンピュータ
✍キーワード:技術 関数
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● aki73ix
●40ポイント

http://nifberry.727.net/test/hatena144.lzh

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

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

関数は

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;

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ