盒子论坛 v2.1

procedure TFmBmp.DBGrid1DblClick(Sender: TObject);
var
Ms:TMemoryStream;
Jpeg:TJPEGImage;
begin
Jpeg:=TJPEGImage.Create;
Ms:=TMemoryStream.Create;
TBlobField(ADOTable1.FieldByName('fpicture')).SaveToStream(ms);
ms.Position :=0;
Jpeg.LoadFromStream(Ms);
Image1.Picture.Assign(Jpeg);
Jpeg.Free;
Ms.Free;
end;

不知错在何方！
----------------------------------------------
好好学习，天天向上！
→我： ●-(不许动!)  ●　←：你：
　　　 █┳        ┗█┛
      ┏┓          ┛┗

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/4 16:09:50

1楼：

写：
if opendialog1.Execute then
begin
datamodule1.c_zywbxx.Edit;
datamodule1.c_zywbxxZP.Clear;
image1.Picture.LoadFromFile(opendialog1.FileName);
tblobfield(datamodule1.c_zywbxx.Fields[14]).loadfromfile(opendialog1.FileName);
END;
读：
if c_zywbxx.Fields[14].IsNull then
     frmzywblr.image1.picture.Assign(nil)
  else
  begin
         l_path:=extractfilepath(application.ExeName);
         L_file :=l_path+'^tmp'+'.jpg';
         tblobfield(c_zywbxx.Fields[14]).savetofile(l_file);
         try
         frmzywblr.image1.picture.LoadFromFile(l_file);
         finally
         deletefile(l_file);
         end;
  end;

其中：datamodule1.c_zywbxx.Fields[14]是图片类型

----------------------------------------------

作者：

zxm (认真学习)	★☆☆☆☆	-
	盒子活跃会员

2004/2/4 16:40:04

2楼：

我用的是Access库
  图片可以保存，但为什么不能读取呢！！
错误如下图
----------------------------------------------
好好学习，天天向上！
→我： ●-(不许动!)  ●　←：你：
　　　 █┳        ┗█┛
      ┏┓          ┛┗

作者：

zxm (认真学习)	★☆☆☆☆	-
	盒子活跃会员

2004/2/4 16:41:48

3楼：

我知道了，我是Bmp的图片格式
要是Bmp的图片格式要怎么读！！
----------------------------------------------
好好学习，天天向上！
→我： ●-(不许动!)  ●　←：你：
　　　 █┳        ┗█┛
      ┏┓          ┛┗

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/4 16:47:07

4楼：

偶以前试一样的
----------------------------------------------

作者：

zxm (认真学习)	★☆☆☆☆	-
	盒子活跃会员

2004/2/4 17:13:44

5楼：

那有什么办法，去存取Bmp的图片？？？？？？？？
----------------------------------------------
好好学习，天天向上！
→我： ●-(不许动!)  ●　←：你：
　　　 █┳        ┗█┛
      ┏┓          ┛┗

信息

登陆以后才能回复