【结贴】请问如何打开二进制流里的文件

didi0225

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;

我使用这个保存了数据

现在使用
//－－－－打开附件－－－－
procedure TFJZYJ.btnOpenClick(ds:TSQLDataSet;const OldOrderFormManifold,AccessoriesName:String);
var
  lFileDoc : TFileDoc;
begin
  lFileDoc :=TFileDoc.Create(ds,OldOrderFormManifold,AccessoriesName);
  try
    lFileDoc.OpenExecute;
  finally
    lFileDoc.free;
  end;
end;
出现这问题如图 初步测试对XLS,.doc文件打开不了

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=22213

didi0225

搞定了,结贴