怎么样将WORD文档存入数据中?up有分!
解决方案 »
- 新手求mainmenu,popupmenu的用法
- StringGride
- 怎么样提高自己DELPHI的水平呀~~各位前辈请多多多指导~~谢谢了~~
- 为 东航11.21空难殉难者 致哀!
- 请教,怎样才能查出某个作者的所有贴子?急!
- flogin.showmodal=mrok
- 报错:cannot create forms. No MDI forms are currently active
- 请问:DELPHI可以以程序代码方式动态建立数据表吗?(注意:是代码方式建立)
- 我在LISTVIEW中使用finddata怎么不管用呀!!!请用过的人帮我看看!!
- 不好意思,问个很基础的问题,我一直没用过,pchar怎么用?
- 各位进来看看,关于DBExpress组件的问题?????????????????
- 菜鸟求救!!
var
MemSize:integer;
Buffer:PChar;
MyFIle:TFileStream;
Stream:TStream;
str0 : string;
begin
str0 := str_filename;
str_filename := str_filename+'.tmp';
MyFile := TFileStream.create(str_filename,fmCreate);
with tbl_name do
begin
open;
// Stream := TBlobStream.Create(Fieldbyname(field_name)as TBlobField,bmRead);
Stream := CreateBlobStream(Fieldbyname(field_name),bmRead);
MemSize :=Stream.Size;
Inc(MemSize);
Buffer := AllocMEM(MemSize);
try
Stream.Read(Buffer^,MemSize);
MyFile.Write(Buffer^,MemSize);
finally
MyFile.Free;
Stream.Free;
end;
str0 := str0 +str_type ;//'.doc';
if FileExists(str0) then
Deletefile(str0);
if FileExists(str_filename) then
begin
RenameFile(str_filename,str0);
end;
end;
end;
procedure SaveBlob(str_filename,field_name:String;tbl_name:TAdoTable);
var
MemSize:Integer;
Buffer:PChar;
MyFile:TFileStream;
Stream:TBlobStream;
Filename:String;
begin
// MyFile := TFileStream.Create(str_FileName,fmOpenRead);
with tbl_name do
begin
TBlobField(tbl_name.FieldByName(field_name)).LoadFromFile(str_filename);
Stream := TBlobStream.Create(Fieldbyname(field_name)as TBlobField,bmWrite);
MemSize := MyFile.Size;
Inc(MemSize);
Buffer := AllocMem(MemSize);
try
Stream.Seek(0,soFromBeginning);
MyFile.Read(Buffer^,MemSize);
Stream.Write(Buffer^,MemSize);
finally
MyFile.Free;
Stream.Free;
end;
end;