보고서 작성 - 설치 중에 사용자가 선택한 파일 형식을 찾는 방법은 무엇입니까?

Question

Delphi 7을 사용하고 있습니다. Rave를 사용하여보고 메커니즘을 구현했습니다. 또한 HTML, PDF 및 TXT로 내보내기가 사용됩니다. 그래도 문제가 있습니다. 사용자가 보고서를 파일에 직접 저장하면 (미리보기없이) 파일 확장명이 Rave에 의해 파일 이름에 추가되지 않습니다. 따라서 작성된 파일은 Report (Report.pdf 대신)처럼 보이므로 사용자는이 보고서를 수동으로보기 위해 응용 프로그램을 지정해야합니다. 이 문제를 해결하기 위해 나는 RvSystem1 BeforeRrint 이벤트에 다음 코드를 작성 :

procedure TRepAllForm.RvSystem1BeforePrint(Sender: TObject); 
begin 
    if RvSystem1.ReportDest=rdFile then 
     RVSystem1.OutputFileName:=RVSystem1.OutputFileName+'.pdf'; 
End; 

을 그러나 문제는 사용자가 다른 형식을 선택 어떤 경우입니까? 누구가 어떤 렌더링 사용자가 선택 하는지를 어떻게 알 수 있습니까? 즉 HTML, PDF 또는 TXT?

는

Answer 1

내가) 솔루션 나 자신을 발견 한 나는 RVSystem의 RenderObject 속성을 사용하는 것으로 보인다 Tofig 하사 노프, 감사합니다. 여기에 코드가 있습니다 :

프로 시저 TRepAllForm.RvSystem1BeforePrint (보낸 사람 : TObject);

는

if RvSystem1.ReportDest=rdFile then 
Begin 
    if RVSystem1.RenderObject=RvRenderPDF1 then 
     RvSystem1.OutputFileName:=RvSystem1.OutputFileName+'.pdf' 
    else if RvSystem1.RenderObject=RvRenderHTML1 then 
     RvSystem1.OutputFileName:=RvSystem1.OutputFileName+'.html' 
    else if RvSystem1.RenderObject=RvRenderText1 then 
     RvSystem1.OutputFileName:=RvSystem1.OutputFileName+'.txt'; 

End; 

끝을 시작;