procedure TfrmOleMDIParent.FormShow(Sender: TObject);
var
i: Integer;
memStr: TMemoryStream;
begin
frmGenReportRWer:=nil;
Rights:='R';
DocModel:='';
if ParamCount>1 then
begin
bLocalFile:=false;
bNewReport:=true;
if ParamStr(1)='readreport' then bNewReport:=false;
filename:=ParamStr(2);
Rights:=ParamStr(3);
if (Rights='W') or (Rights='w') then
begin
for i:=0 to MainMenu1.Items[0].Count-1 do
begin
MainMenu1.Items[0].Items[i].Enabled:=true;
end;
end;
end;
if ParamCount<=1 then
begin
bNewReport:=true;
ShowMessage('外部未传入远程存放路径信息!');
end;
if bNewReport then
begin
memStr:=TMemoryStream.Create;
memStr:=aBDSrv.BlobData2Stream(filename);
if memStr.Size>0 then bNewReport:=false;
memStr.Free;
if bNewReport then
begin
frmReportChoose:=TfrmReportChoose.Create(Self);
frmReportChoose.ShowModal;
DocModel:=frmReportChoose.SelectedURL;
frmReportChoose.Free;
end;
end;