S
soit
Unregistered / Unconfirmed
GUEST, unregistred user!
程序在我机器上编译正常,将执行文件拷贝到别的机器上运行,在有的机器上运行正常,有的机器就报Stream read error错误。先是估计是缺失Delphi的一些特定文件的问题,但后来发现有的没装过Delphi的机器也可以正常运行。估计是某些公共的函数库或者什么文件缺失,有哪位高手遇到并解决过此类问题的,望解答,谢谢!
另外,报那个错误的代码,根据程序运行情况看,应该出在如下代码上:
if not (TBlobField(DataMdl.Q_FlowChart.FieldByName('Chart')).isNull) then
begin
AStream := TMemoryStream.Create;
TBlobField(DataMdl.Q_FlowChart.FieldByName('Chart')).SaveToStream(AStream);
AStream.Position := 0;
Chart.LoadFromStream(AStream);
AStream.Free;
end;
另外,报那个错误的代码,根据程序运行情况看,应该出在如下代码上:
if not (TBlobField(DataMdl.Q_FlowChart.FieldByName('Chart')).isNull) then
begin
AStream := TMemoryStream.Create;
TBlobField(DataMdl.Q_FlowChart.FieldByName('Chart')).SaveToStream(AStream);
AStream.Position := 0;
Chart.LoadFromStream(AStream);
AStream.Free;
end;