Delphiでバイナリーファイルをexe内に内包する方法

こんにちは

やましょうです。

今回は、電子工作+winのexe系のネタです。

Delphiではバイナリーファイルをリソースとして簡単にexe内に内包できます。

 1.プロジェクト=>リソースと画像を選択
追加でファイルを選択
リソースの識別子にuniq名称割り当て(BinData)

 

 

 2.あとは読むコード追加

var
  RS: TResourceStream;
begin
  RS := TResourceStream.Create(HInstance, 'BinData', RT_RCDATA);
  Rs.Read(Buf,sizeof(Buf));
  RS.DisposeOf;
end;

これだけで、バイナリーデータを読めます。
あとはmbedドライブ見つけてコピーするもよし、
デバッガ起動してロードさせるもよし、
232cでarduinoに送ってもよしです。

以上
やましょうでした。