请问用DELPHI如何把WORD里的图片放到数据库表的TBlobfield字段里(100分)

  • 主题发起人 主题发起人 songyanzhao
  • 开始时间 开始时间
S

songyanzhao

Unregistered / Unconfirmed
GUEST, unregistred user!
在WORD文挡里有张图片(很小,几十K),我的数据库表里面的其中一个字段类型
为:Tbolofield类型,我想把这张图片存到这个字段上,如何做到,请大家赐教!
 
取出图片单独保存恐怕不太好办,要不把整个word文件保存吧
 
应该可以的吧,从数据库往WORD里导可以,从WORD里往回导也应该可以吧,
 
to songyanzhao:
 本从很菜。请赐教!
  数据库中的能导到word里吗?我没做过,如何进行?
  
  
 
我假设在一个按钮事件里来实现:
procedure TForm1.btnLoadFromFileClick(Sender : TObject) ;
var
sFileName : string ;

Function BlobContentToString(const FileName : string) : string ;
begin
with TFileStream.create(FileName , fmOpenRead) do
try
SetLength(Result,Size) ;
Read(Pointer(Result)^ , Size) ;
finally
Free ;
end ;
end ;

begin
if (OpenDialog1.Excute) then
begin
sFileName := OpenDialog1.FileName ;
adoBlobs.Edit ;
adoBlobs.FieldByName('Blob').AsString := BlobContentToString(sFileName) ;
adoBlobs.Post ;
end ;
end ;
试试吧 !
 
to cwmdelpher
我说的是在WORD文档里的图片,就在其中一个表格里面,而不是图片框,
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部