盒子论坛 v2.1

我的数据库是SQL2000的，其中有一个表Employee有一个“photo”的字段，我如何编写代码将其存入数据库中。或者是从数据库中读出显示在窗体上？谢谢！
----------------------------------------------
where is start ,where is end!

作者：

gigi_hcl (蓝海雨)	★☆☆☆☆	-
	普通会员

2004/4/10 11:19:25

1楼：

好像是用数据流！filestream
你用这个再delphi帮助里面找找看！应该有的！
我以前做过！只是很难找到源代码了！！
----------------------------------------------
生命中，不断地有人离开或进入。于是，看见的，看不见的；记住的，遗忘了。生命中，不断地有得到和失落。于是，看不见的，看见了；遗忘的，记住了。然而，看不见的，是不是就等于不存在？记住的，是不是永远不会消失？

作者：

qzzsh001 (鸟鸟飞啊)	★☆☆☆☆	-
	普通会员

2004/4/10 11:23:12

2楼：

找一下，谢谢了，我想了好久了。做不出来。
----------------------------------------------
where is start ,where is end!

作者：

gigi_hcl (蓝海雨)	★☆☆☆☆	-
	普通会员

2004/4/10 11:27:52

2楼：

我找给你吧！QQ：241268990
晚上吧！我现在要去打球了！！
----------------------------------------------
生命中，不断地有人离开或进入。于是，看见的，看不见的；记住的，遗忘了。生命中，不断地有得到和失落。于是，看不见的，看见了；遗忘的，记住了。然而，看不见的，是不是就等于不存在？记住的，是不是永远不会消失？

作者：

gigi_hcl (蓝海雨)	★☆☆☆☆	-
	普通会员

2004/4/10 12:01:57

3楼：

类似下面这样；你根据你的实际需要改改吧！我就是这样做的！有问题晚上再找我！我打球去咯！
var
FileName: string;
begin
  if OpenDialog1.Execute then
  begin
    FileName := OpenDialog1.FileName;
    Query1.Edit;
    TBlodField(Query1.FieldByName('FieldName')).LoadFromFile(FileName);
  end;
end;
----------------------------------------------
生命中，不断地有人离开或进入。于是，看见的，看不见的；记住的，遗忘了。生命中，不断地有得到和失落。于是，看不见的，看见了；遗忘的，记住了。然而，看不见的，是不是就等于不存在？记住的，是不是永远不会消失？

作者：

qzzsh001 (鸟鸟飞啊)	★☆☆☆☆	-
	普通会员

2004/4/10 15:00:52

4楼：

谢谢了。我的QQ是271719012。
----------------------------------------------
where is start ,where is end!

作者：

jefliy (亮晶晶)	★☆☆☆☆	-
	普通会员

2004/4/13 17:05:04

5楼：

如果你是把Timage控件里显示的图片保存进数据库的，可以如下操作：
var Stream:TStream;

if (Image1.Picture<>nil) and (not Image1.Picture.Bitmap.Empty) then
begin
  Stream:=CreateBlobStream(FieldByName('Photo') as TBlobField, bmReadWrite);
  try
    Image1.Picture.Bitmap.SaveToStream(Stream);
  finally
    Stream.Free;
  end;
end else
  TBlobField(FieldByName('Photo')).Clear;
----------------------------------------------
-

信息

登陆以后才能回复