Delphi Programming / Object Pascal
[掲載 2019年10月17日] [更新 2019年10月19日] Delphi 一般・その他 |
数値のディスクへの保存とディスクからの読み込み |
動作確認等 |
Windows 7 U64(SP1) + Delphi XE5(UP2) Pro VCL-32 |
単一の数値をディスクに保存し,保存した数値をディスクから読み込むサンプルです.
数値型の変数を指定して,ストリームに,その変数が使用しているバイト数分だけ書き込みます.そのストリームをディスクに保存します.するとファイルが作成されます.そのファイルに収められたデータが対象の数値のデータということになります.
ディスクから読み込む時は,ストリームにファイルをロードします.すると,ストリームに,ファイルに収められているデータが書き込まれます.そのストリームのデータを目的の数値型の変数の値として取得します.
本ページのサンプルでは,ストリームとして,主に TMemoryStream を使用しています.TMemoryStream とその派生クラスには,引数が数値型の変数だけでよいメソッド類があります.本ページではそれらのメソッド類を使用しています.
ファイル型の変数を使用したサンプルも掲載しています. |
[備考]
TIniFile には,整数型の値と浮動小数点型の値をファイルへ書き込むためのメソッドとファイルから読み込むためのメソッドが実装されています.
|
01_Single 型のデータのディスクへの保存と読み出し |
TMemoryStream とその派生クラスには,数値型の変数のデータをメモリストリームm 自身に書き込むためのメソッド WriteData があります.また,ReadData メソッドを使用すると,数値型の変数にメモリストリームのデータを読み込ませることができます.それらのメソッドを使用するサンプルです.
このサンプルでは Single 型の数値を保存してそれを読み出して表示します. |
|
図1
ディスクに保存したデータを読み出して表示
- 元の数値は 1.23456E5
- 4 バイトの浮動小数点型の値として取得
- 最初の表示は単純に文字列に変換した値
- 次は指数形式で表示
|
//=============================================================================
// 数値をディスクに保存する
// 4バイト(32ビット)の浮動小数点の値をファイルに保存
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LStream : TMemoryStream;
LSingle : Single;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// 対象の数値をストリームに書き込む
LSingle := 1.23456E5;
LStream.WriteData(LSingle);
// そのストリームのデータをファイルに保存
LStream.SaveToFile(LFilePath);
finally
FreeAndNil(LStream);
end;
end;
//=============================================================================
// 保存したデータを数値として取得
// 4バイト(32ビット)の浮動小数点の値として取得
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LStream : TMemoryStream;
LSingle : Single;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// ファイルのデータをストリームに読み込む
LStream.LoadFromFile(LFilePath);
// 読み込んだデータを4バイト(32ビット)の浮動小数点の値として取得
LStream.ReadData(LSingle);
// 取得した値を表示
Memo1.Lines.Add(FloatToStr(LSingle));
Memo1.Lines.Add(FormatFloat('#.000E+00', LSingle));
finally
FreeAndNil(LStream);
end;
end;
02_Integer 型のデータのディスクへの保存と読み出し |
WriteData メソッドと ReadData メソッドは各種の数値型の変数を扱えます.
以下は Integer 型の場合です. |
|
図2
ディスクに保存したデータを読み出して表示
|
//=============================================================================
// 数値をディスクに保存する
// Integer 型 (4バイト - 32ビット) の値をファイルに保存
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LStream : TMemoryStream;
LInteger : Integer;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// 対象の数値をストリームに書き込む
LInteger := 12345678;
LStream.WriteData(LInteger);
// そのストリームのデータをファイルに保存
LStream.SaveToFile(LFilePath);
finally
FreeAndNil(LStream);
end;
end;
//=============================================================================
// 保存したデータを数値として取得
// Integer 型 (4バイト - 32ビット) の値として取得
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LStream : TMemoryStream;
LInteger : Integer;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// ファイルのデータをストリームに読み込む
LStream.LoadFromFile(LFilePath);
// 読み込んだデータを Integer 型の値として取得
LStream.ReadData(LInteger);
// 取得した値を表示
Memo1.Lines.Add(IntToStr(LInteger));
finally
FreeAndNil(LStream);
end;
end;
03_Write と Read メソッドを使用した数値の保存と読み出し |
Delphi 6 等の旧いバージョンの Delphi には WriteData, ReadData 等のメソッドは実装されていません.代わりに Write, Read, WriteBuffer, ReadBuffer 等のメソッドを使用します.
以下のコードはその例です.このサンプルコードは Windows 7 U32(SP1) + Delphi6(UP2) Pro の環境で動作を確認しています.実行結果は,本ページの最初のサンプルと同じです. |
//=============================================================================
// 数値をディスクに保存する
// 4バイト(32ビット)の浮動小数点の値をファイルに保存
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LStream : TMemoryStream;
LSingle : Single;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// 対象の数値をストリームに書き込む
LSingle := 1.23456E5;
LStream.Write(LSingle, SizeOf(LSingle));
// そのストリームのデータをファイルに保存
LStream.SaveToFile(LFilePath);
finally
FreeAndNil(LStream);
end;
end;
//=============================================================================
// 保存したデータを数値として取得
// 4バイト(32ビット)の浮動小数点の値として取得
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LStream : TMemoryStream;
LSingle : Single;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// ファイルのデータをストリームに読み込む
LStream.LoadFromFile(LFilePath);
// 読み込んだデータを Singel 型の値として取得
LStream.Read(LSingle, SizeOf(LSingle));
// 取得した値を表示
Memo1.Lines.Add(FloatToStr(LSingle));
Memo1.Lines.Add(FormatFloat('#.000E+00', LSingle));
finally
FreeAndNil(LStream);
end;
end;
04_TFileStream を使用した数値の書き込みと読み出し |
TFileStream を使用して,データをディスク上のファイルに書き込んだり読み出す例でず.
TFileStream はファイルストリームにデータを書き込むとそのままファイルの内容も更新されます.読み出す時もファイルストリームから直接読み込めます.TFileStream.Create メソッドで,ファイルに対しての読み書きモードを設定します. |
//=============================================================================
// 数値をファイルに保存する
// 4バイト(32ビット)の浮動小数点の値をファイルに保存
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LStream : TFileStream;
LSingle : Single;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
// TFileStream の生成
// 新規にファイルを作成するモードで生成 (既存ファイルは上書きとなる)
LStream := TFileStream.Create(LFilePath, fmCreate);
try
// 対象の数値をストリームに書き込む
LSingle := 1.23456E5;
LStream.WriteData(LSingle);
finally
FreeAndNil(LStream);
end;
end;
//=============================================================================
// 保存したデータを数値として取得
// 4バイト(32ビット)の浮動小数点の値として取得
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LStream : TFileStream;
LSingle : Single;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
// TFileStream の生成
// 読み出しモードで生成
LStream := TFileStream.Create(LFilePath, fmOpenRead);
try
// Single 型の値として取得
LStream.ReadData(LSingle);
// 取得した値を表示
Memo1.Lines.Add(FloatToStr(LSingle));
Memo1.Lines.Add(FormatFloat('#.000E+00', LSingle));
finally
FreeAndNil(LStream);
end;
end;
TFileStream は TFile を使用して生成することもできます.TFile を使用すると,TFile のメソッドを使用してファイルのタイムスタンプや属性等の取得や設定ができます.
TFile を使用するには uses に System.IOUtils
が必要です. |
// TFileStream の生成
// System.IOUtils.TFile を使用する方法
// 新規にファイルを作成するモードで生成 (既存ファイルは上書きとなる)
LStream := TFile.Open(LFilePath, TFileMode.fmCreate);
// TFileStream の生成
// System.IOUtils.TFile を使用する方法
// 読み出しモードで生成
LStream := TFile.Open(LFilePath, TFileMode.fmOpen);
05_TBinaryWriter と TBinaryReader を使用した数値の読み書き |
データをファイルに書き込む時は TBinaryWriter のストリームを使用して,データをファイルから読み込む時は TBinaryReader のストリームを使用する例でず.
TBinaryWriter のストリームにデータを書き込むとそのままファイルの内容も更新されます.読み出す時は TBinaryReader のストリームから直接読み込めます.TBinaryReader
には,数値の型に応じた読み出し用のメソッドが用意されています. |
//=============================================================================
// 数値をファイルに保存する
// 4バイト(32ビット)の浮動小数点の値をファイルに保存
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LBinWriter : TBinaryWriter;
LSingle : Single;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
// TBinaryWriter の生成
// 新規にファイルを作成するモードで生成 (既存ファイルは上書きとなる)
LBinWriter := TBinaryWriter.Create(LFilePath);
try
// 対象の数値を書き込む
LSingle := 1.23456E5;
LBinWriter.Write(LSingle);
finally
FreeAndNil(LBinWriter);
end;
end;
//=============================================================================
// 保存したデータを数値として取得
// 4バイト(32ビット)の浮動小数点の値として取得
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LBinReader : TBinaryReader;
LSingle : Single;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
// TBinaryReader の生成
// 読み出しモードで生成
LBinReader := TBinaryReader.Create(LFilePath);
try
// Single 型の値として取得
LSingle := LBinReader.ReadSingle;
// 取得した値を表示
Memo1.Lines.Add(FloatToStr(LSingle));
Memo1.Lines.Add(FormatFloat('#.000E+00', LSingle));
finally
FreeAndNil(LBinReader);
end;
end;
06_ファイル型 File of Byte を使用した数値の保存と読み出し |
ファイル型のオブジェクトを使用して数値をディスクに保存します.保存した数値もファイル型のオブジェクトを使用して読み出して取得するサンプルです.ファイル型は Byte 型としています. |
|
図3
ディスクに保存したデータを読み出して表示
- 元の値は 5.4321E5
- 4 バイトの浮動小数点型の値として取得
- 最初の表示は単純に文字列に変換した値
- 次は指数形式で表示
|
//=============================================================================
// 数値をディスクに保存する
// 4 バイト(32 ビット)の浮動小数点の値をファイルに保存
// ファイル型 File of Byte を使用する例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LFile : File of Byte;
LSingle : Single;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
// 保存ファイル名をファイル型の変数に割り当てる
AssignFile(LFile, LFilePath);
try
// 新規にファイルを作成して開く(既存ファイルは上書き)
Rewrite(LFile);
// データをファイルに書き込む
LSingle := 5.4321E5;
BlockWrite(LFile, LSingle, SizeOf(Single));
finally
// ファイルを閉じる
CloseFile(LFile);
end;
end;
//=============================================================================
// ディスクに保存してあるデータを数値として取得
// 4バイト(32ビット)の浮動小数点の値として取得
// ファイル型 File of Byte を使用する例
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LFile : File of Byte;
LSingle : Single;
begin
//保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
//ファイル名をファイル型の変数に割り当てる
AssignFile(LFile, LFilePath);
try
// ファイルを開く
Reset(LFile);
// Single 型の変数に読み込む
BlockRead(LFile, LSingle, SizeOf(Single));
// 取得結果を表示
Memo1.Lines.Add(FloatToStr(LSingle));
Memo1.Lines.Add(FormatFloat('#.000E+00', LSingle));
finally
// ファイルを閉じる
CloseFile(LFile);
end;
end;
07_ファイル型 File of Single を使用した数値の保存と読み出し |
前項と同じく,ファイル型のオブジェクトを使用するサンプルですが,ファイル型を,扱う数値型と同じ型の Single 型としています.実行結果は前項のサンプルと同じです. |
//=============================================================================
// 数値をディスクに保存する
// 4バイト(32ビット)の浮動小数点の値をファイルに保存
// ファイル型 File of Singlいe を使用する例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LFile : File of Single;
LSingle : Single;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
// 保存ファイル名をファイル型の変数に割り当てる
AssignFile(LFile, LFilePath);
try
// 新規にファイルを作成して開く(既存ファイルは上書き)
Rewrite(LFile);
// データをファイルに書き込む
LSingle := 5.4321E5;
BlockWrite(LFile, LSingle, 1);
finally
// ファイルを閉じる
CloseFile(LFile);
end;
end;
//=============================================================================
// ディスクに保存してあるデータを数値として取得
// 4バイト(32ビット)の浮動小数点の値として取得
// ファイル型 File of Single を使用する例
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LFile : File of Single;
LSingle : Single;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
// 保存ファイル名をファイル型の変数に割り当てる
AssignFile(LFile, LFilePath);
try
// ファイルを開く
Reset(LFile);
// ファイルから Single 型の変数に読み込む
BlockRead(LFile, LSingle, 1);
// 取得結果を表示
Memo1.Lines.Add(FloatToStr(LSingle));
Memo1.Lines.Add(FormatFloat('#.000E+00', LSingle));
finally
// ファイルを閉じる
CloseFile(LFile);
end;
end;
08_FileWrite / FileRead 関数を使用した数値の保存と読み出し |
FielWrite 関数や FileRead 関数を使用するサンプルです.Double 型の数値の例です.
これらの関数類は,内部で Windows API の WriteFile, ReadFile 関数を使用しています. |
//=============================================================================
// 数値をディスクに保存する
// 8バイト(64ビット)の浮動小数点の値をファイルに保存
// FileCreat, FileWrite を使用する例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LhFile : THandle;
LValue : Double;
begin
// 保存先
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
Memo1.Lines.Clear;
// 保存ファイル名のファイルを作成
LhFile := FileCreate(LFilePath);
try
// データをファイルに書き込む
LValue := 5.4321E5;
FileWrite(LhFile, LValue, SizeOf(Double));
finally
// ファイルを閉じる
FileClose(LhFile);
end;
end;
//=============================================================================
// ディスクに保存してあるデータを数値として取得
// 8バイト(64ビット)の浮動小数点の値として取得
// FileOpen, FileRead を使用する例
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
LFilePath : string;
LhFile : THandle;
LValue : Double;
begin
LFilePath := ExtractFilePath(Application.ExeName) + 'Atest.bin';
if not FileExists(LFilePath) then Exit;
Memo1.Lines.Clear;
// ファイルを開く
LhFile := FileOpen(LFilePath, fmOpenRead);
try
// ファイルからデータを読み込む
FileRead(LhFile, LValue, SizeOf(Double));
// 取得結果を表示
Memo1.Lines.Add(FloatToStr(LValue));
Memo1.Lines.Add(FormatFloat('#.000E+00', LValue));
finally
// ファイルを閉じる
FileClose(LhFile);
end;
end;
本ページの最初のサンプルで 4 バイトの実数値である 1.23456E5 をディスクに保存しました.保存したファイルをバイナリエディタで表示したのが下図です.4 バイトのデータが確認できます. |
|
図4
保存したデータをバイナリエディタで確認
|
本ページと最初のサンプルと同じ 4 バイトの実数値 1.23456E5 をメモリストリームに書き込みます.書き込んだメモリストリームのデータを先頭から 1 バイトづつ読み出して表示したのが下図です.図の下のコードがその処理コードです.この図のバイトデータは,ディスク上のバイトデータと全く同じです.
メモリストリームのデータはそのままディスクに保存されることが確認できます. |
|
図5
メモリストリームに書き込まれたバイトデータ
- 書き込んだ数値は 1.23456E5
- このバイトデータはディスクに保存したバイトデータと全く同じ
|
//=============================================================================
// メモリストリームのバイトデータを取得して表示
// Byte 型の変数に 1 バイト単位で読み込んで表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
LStream : TMemoryStream;
LSingle : Single;
LByte : Byte;
LIndex : Integer;
begin
Memo1.Lines.Clear;
LStream := TMemoryStream.Create;
try
// 対象の数値をストリームに書き込む
LSingle := 1.23456E5;
LStream.WriteData(LSingle);
// メモリストリームのバイトデータを表示
// このバイトデータでディスクに書き込まれる
LStream.Position := 0;
for LIndex := 0 to LStream.Size - 1 do begin
LStream.ReadData(LByte);
Memo1.Lines.Add('$' + IntToHex(LByte, 2));
end;
finally
FreeAndNil(LStream);
end;
end;
|