1.QRImage, 自己处理数据库blob的读取与转换与写入QRImage的操作.
2.]
od1是个 打开文件的通用对话框控件
procedure TForm1.Button1Click(Sender: TObject);
var
B :Tbitmap;
begin
if od1.Execute then
begin
B := Tbitmap.Create;
B.LoadFromFile(od1.FileName);
DBImage1.Picture.bitmap.Assign(b);
end;
end;