梶さん、おはようございます。

早速のご返事有難うございます。

済みません。私の説明が足りませんでした。元のファイルはデータ復元時に
あるとは限らないのです。OLEコントロールの中にあるデータを
BMPとして取り出したいのです。

＞schemaさん、おはようございます。
＞
＞＞これに InsertFile で BMP ファイルを読み込ますことには成功したのですが、
＞＞これから元の BMP データを blob として取得する方法が分かりません。
＞
＞BMPファイルのパスが取得できているのであれば、後はそのファイルを
＞バイナリモードで読み込むだけで良いと思います。
＞
＞以下、PB7.0のヘルプから「SetPicture PowerScript 関数」の例を
＞抜粋します。
＞-----
＞integer fh, ret
＞blob Emp_pic
＞string txtname, named
＞string defext = \"BMP\"
＞string Filter = \"bitmap Files (*.bmp), *.bmp\"
＞
＞ret = GetFileOpenName(\"Open Bitmap\", txtname, &
＞　　named, defext, filter)
＞IF ret = 1 THEN
＞　　fh = FileOpen(txtname, StreamMode!)
＞　　IF fh <> -1 THEN
＞　　　　FileRead(fh, Emp_pic)
＞　　　　FileClose(fh)
＞　　　　p_1.SetPicture(Emp_pic)
＞　　END IF
＞END IF
＞-----
＞
＞