消息关闭
    暂无新消息!
求大神指教,现在遇到一个很郁闷的事,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报表么

3个回答

︿ 2
1、换台无其它软件的机器试试?可以是其它软件占用。。。
2、查查白天和晚间CPU占用时间。