![]() | 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 Sunday, February 22, 2026 at 11:19 PM | Privacy Policy © 2026 Elevate Software, Inc. All Rights Reserved Questions or comments ? |

