|

楼主 |
发表于 2009-9-22 17:30:27
|
显示全部楼层
这个是我上传的全部代码:
var
lStream: TStream;
begin
DataSetSYLJGL.Edit;
if OpenDialog1.Execute then
begin
DG_SYLJGL.FocusedField.AsString := OpenDialog1.FileName.SubString(OpenDialog1.FileName.LastIndexOf('\')+1);
TOleContainer(DEdt_WJNR.InplaceControl).CreateObjectFromFile(OpenDialog1.FileName, False);
lStream := DataSetSYLJGL.CreateBlobStream(DataSetSYLJGL.FieldByName('WJNR'),TBlobStreamMode.bmReadWrite);
TOleContainer(DEdt_WJNR.InplaceControl).SaveToStream(lStream);
lStream.Free;
end;
end;
另存为本地的代码:
TOleContainer(DEdt_WJNR.InplaceControl).SaveAsDocument('C:\GXZJY-DY.XLS');
打开后下另存到本地后,打开这个XLS文件,看不见内容 |
|