![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » Elevate Web Builder Technical Support » Incident Reports » Incident Reports Addressed for Version 1.01 » View Incident Report |
![]() |
Reported By: Alvaro Rodriquez Botti Reported On: 12/4/2012 For: Version 1.01 Build 2 |
The call to the module: TForm1.Button9Click procedure (Sender: TObject); var TempRequest: TServerRequest; begin Plugin1.Visible: = false; Plugin1.MimeType: =''; TempRequest: = MyRequestQ.GetNewRequest; TempRequest.URL: = 'http://jalsoftware.sytes.net/modules/calcula'; TempRequest.Params.Add ('value1 =' + Edit8.Text); TempRequest.Params.Add ('value2 =' + Edit9.Text); TempRequest.ResponseContent.LineSeparator: = # 10; TempRequest.OnComplete: = RequestComplete; MyRequestQ.AddRequest (TempRequest); end; Reading the PDF: TForm1.RequestComplete procedure (Request: TServerRequest); begin if (Request.StatusCode = 200) then begin Plugin1.MimeType: = 'application / pdf'; Plugin1.URL: = 'http://jalsoftware.sytes.net/pdfs/prueba.pdf'; Plugin1.Visible: = true; end else EError.Create raise ('Response Error:' + Request.StatusText); end; The OnExecute Module: TEWBModule1.EWBModuleExecute procedure (Request: TEWBServerRequest); var valu: Integer; cont: String; MyProject: TRaveProjectManager; MyReport: TRaveReport; MyPage: TRavePage; MyText1: TRaveText; MyText2: TRaveText; begin RvProject1.open; MyProject: = RVProject1.Projman; MyReport: = RVProject1.Projman.FindRaveCOmponent ('Report1', nil) as TRaveReport; MyPage: = RVProject1.Projman.FindRaveComponent ('Page1' MyReport) as TRavePage; MyText1: = RVProject1.Projman.FindRaveComponent ('Text4' MyPage) as TRaveText; MyText1.Text: = Request.RequestParams.Values ['value1']; MyText2: = RVProject1.Projman.FindRaveComponent ('text5' MyPage) as TRaveText; MyText2.Text: = Request.RequestParams.Values ['value2']; RvSystem1.DefaultDest: = rdFile; RvSystem1.DoNativeOutput: = false; RvSystem1.RenderObject: = RvRenderPDF1; RvSystem1.OutputFileName: = 'd: \ EWBServer \ www \ images \ prueba.pdf'; RVProject1.ExecuteReport ('Report1'); valu: = 1; Request.ResponseHeaders.Add('Cache-Control: no-cache'); // Added line Request.SendCustomContent (IntToStr (valu),'',''); end;
This web page was last updated on Wednesday, February 8, 2023 at 07:22 AM | Privacy Policy![]() © 2023 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |