リトルエンディアンのバイナリファイルを整数に直すには？ (ID：32139)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

返答ありがとうございます。
インテルならば自動的にリトルエンディアンになっているのですね。

現在、取り出したデータをテキスト型に変換して表示させているのですが
どこを変えれば、10進法の表記になって表せるのでしょうか。
詰まってしまったため、直し方までわかりません。
よろしければ教えていただきたいです。

procedure  TForm1.DumpToText(FileName:string) ;
var
    fs:TFileStream ;
    bufMemo:TStringList;
    buf:array[1..624] of byte;
    tmpLine:string;
    cnt:integer;
    i:integer;

begin
     { if  OpenDialog1.Execute then
      begin}
                //ファイルストリームを開く
                fs:=TFileStream.Create('ファイル名',fmOpenRead);
                bufMemo:=TStringList.Create;
                repeat
                        //バッファに624バイトずつ読み込む（1列分）
                        cnt:=fs.Read(buf,624);
                        tmpLine:='';
                       { for i:=1 to cnt do}
                          for i:=1 to cnt do
                        begin
                             //1バイトずつ十六進数な文字列に変換
                            tmpLine:= tmpLine+IntToHex(buf[i],2)+' '
                        end;
                        bufMemo.Append(tmpLine);
                until cnt <624;
           //表示する
                form1.Caption:=fileName;
                form1.memo1.Text:=bufMemo.Text;

bufMemo.Free;
                //ファイルストリームを閉じる
                fs.free;
     //   end;

end;

←解決時は質問者本人がここをチェックしてください。

戻る