求大神指教,现在遇到一个很郁闷的事,DELPHI编译的程序,在打开同一个报表,异常的卡,白天很正常,一到了晚上,就很卡了,,,s_path := copy(Extractfilepath(paramstr(0)), 0, pos(UpperCase('Bin'), UpperCase(Extractfilepath(paramstr(0)))) - 1);
s_path := s_path + 'report\' + s_rmf; if s_HintOrNo = '1' then
showmessage(s_path); rmreport1.LoadFromFile(s_path); ////问题:变卡 if s_HintOrNo = '1' then
showmessage('1 '+s_path);
rmreport1.Dictionary.Variables['companyname'] := '';
/////LoadFromFile函数,
function TRMReport.LoadFromFile(aFileName: string): Boolean;
var
lStream: TFileStream;
begin
Result := False;
if FBusy then Exit;
if ExtractFileExt(aFileName) = '' then
aFileName := aFileName + '.rmf'; if FileExists(aFileName) then
begin
lStream := TFileStream.Create(aFileName, fmOpenRead + fmShareDenyWrite); ///问题卡
try
LoadFromStream(lStream); ///问题卡
FileName := aFileName;
Result := True;
finally
lStream.Free;
end;
end;
end;跟踪到LoadFromStream,
就异常的卡,电脑重启,关机10分钟都试过,就是在晚上,,这个跟系统的什么文件有冲突吗?
求各位大神,指教指教,怎么解决,,
或者能换个方式打开RMF报表么
s_path := s_path + 'report\' + s_rmf; if s_HintOrNo = '1' then
showmessage(s_path); rmreport1.LoadFromFile(s_path); ////问题:变卡 if s_HintOrNo = '1' then
showmessage('1 '+s_path);
rmreport1.Dictionary.Variables['companyname'] := '';
/////LoadFromFile函数,
function TRMReport.LoadFromFile(aFileName: string): Boolean;
var
lStream: TFileStream;
begin
Result := False;
if FBusy then Exit;
if ExtractFileExt(aFileName) = '' then
aFileName := aFileName + '.rmf'; if FileExists(aFileName) then
begin
lStream := TFileStream.Create(aFileName, fmOpenRead + fmShareDenyWrite); ///问题卡
try
LoadFromStream(lStream); ///问题卡
FileName := aFileName;
Result := True;
finally
lStream.Free;
end;
end;
end;跟踪到LoadFromStream,
就异常的卡,电脑重启,关机10分钟都试过,就是在晚上,,这个跟系统的什么文件有冲突吗?
求各位大神,指教指教,怎么解决,,
或者能换个方式打开RMF报表么
解决方案 »
- 在网络连接不太稳定的情况下用什么数据连接方式稳定点啊
- 关于var该设置在什么位置
- 求getwindowtext函数的用法~[很简单的问题,请求各位仁兄帮忙]
- 求救,SQL数据库恢复问题
- 用try...except捕获异常,用错误类型EConvertError时可以,但用EDBEngineError却
- 怎么动态的设置数组的大小?
- 请问哪里有的下delphi6.0的补丁程序啊,请给个具体的网址,官方网址全是E文,看不懂啊
- 关于close和free 的问题!
- 请问ActiveX中的Tchart图表怎么用?外部数据怎么反映到表格中柱形图高度上?(手头没书)
- 寻找绝世高人 有什么办法实现全局代理访问网络
- dll中 use dbgrideh 导致运行时错误216?
- Delphi 运行期创建报表的功能
2、查查白天和晚间CPU占用时间。