Using CGI exe with IW - Printable Version

Code:

procedure TIWUserSession.load_dicom();

var

  CGIRunner: TIWCGIRunner;

  CGIModuleName: string;

  LFileName: string;

begin

  CGIModuleName := TIWAppInfo.GetAppPath + 'wwwroot\cgi-bin\newweb\dgate.exe';

  CGIRunner := TIWCGIRunner.Create;

  try

    // Set the name of the CGI module which runs our report

    CGIRunner.CGIModule := CGIModuleName;

    CGIRunner.CustomFields.Add('mode=top');

    // call the CGI application

    CGIRunner.Execute(WebApplication, WebApplication.Request);

    // Check status result. Zero indicates success. Anything else is an error

    if CGIRunner.StatusResult = 0 then

    begin

      //what I have to do here????

    end else

    begin

      WebApplication.ShowMessage('Error creating report: ' + CGIRunner.ErrorMessage);

    end;

  finally

    CGIRunner.Free;

  end;

end;

Code:

HTML("Content-type: text/html\nCache-Control: no-cache\n");

HTML("<HEAD>")

print [[<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">]]

HTML("<TITLE>Conquest DICOM server - version %s</TITLE>", version)



HTML("</HEAD>")



HTML("<BODY BGCOLOR='CFDFCF'>")





HTML("<H1>Welcome to Conquest DICOM server - version %s</H1>", version)

HTML("<H2>Written by Conquest Project</H2>", version)

HTML("<IMG SRC='%sconquest.jpg' ALT='Written by Conquest Project'>", Global.WebCodeBase)

HTML("<HR>")



HTML("<HR>");



HTML("<table>");

key=''  

HTML("<tr>");

HTML("<FORM ACTION=\"dgate%s\"  onSubmit=\"if (this.patientnamematch.value == '' && this.patientidmatch.value == '') {alert('Please, fill the entry fields');return false;}\">", ex);

HTML("<INPUT NAME=mode    TYPE=HIDDEN VALUE=listpatients>");

HTML("<INPUT NAME=port    TYPE=HIDDEN VALUE=%s>", port);

HTML("<INPUT NAME=address TYPE=HIDDEN VALUE=%s>", address);

HTML("<INPUT NAME=key    TYPE=HIDDEN VALUE=%s>", key);

HTML("<td>Local Patient List");

HTML("<td>Patient ID: <INPUT NAME=patientidmatch TYPE=Text VALUE=>");

HTML("<td>Name: <INPUT NAME=patientnamematch TYPE=Text style=\"text-transform:uppercase;\" onkeyup=\"javascript:this.value=this.value.toUpperCase();\" VALUE=>");

HTML("<td>");

HTML("<td><INPUT TYPE=SUBMIT VALUE=Submit>");

HTML("</FORM>");

HTML("</tr>"); 



HTML("<tr>");

HTML("<FORM ACTION=\"dgate%s\" onSubmit=\"if (this.patientnamematch.value == '' && this.patientidmatch.value == '' && this.studydatematch.value == '') {alert('Please, fill the entry fields');return false;}\">", ex);

HTML("<INPUT NAME=mode    TYPE=HIDDEN VALUE=liststudies>");

HTML("<INPUT NAME=port    TYPE=HIDDEN VALUE=%s>", port);

HTML("<INPUT NAME=address TYPE=HIDDEN VALUE=%s>", address);

HTML("<INPUT NAME=key    TYPE=HIDDEN VALUE=%s>", key);

HTML("<td>Local Studies List");

HTML("<td>Patient ID: <INPUT NAME=patientidmatch TYPE=Text VALUE=>");

HTML("<td>Name: <INPUT NAME=patientnamematch TYPE=Text style=\"text-transform:uppercase;\" onkeyup=\"javascript:this.value=this.value.toUpperCase();\" VALUE=>");

HTML("<td>Date: <INPUT NAME=studydatematch id=studydatematch TYPE=Text VALUE=>");

HTML("<td><INPUT TYPE=SUBMIT VALUE=Submit>");

HTML("<tr><td><td><td><td>")

HTML([[<INPUT TYPE=BUTTON VALUE=Today onClick="var d=new Date(); document.getElementById('studydatematch').value=(d.getFullYear()).toString()+(d.getMonth()+101).toString().substring(1,3)+(d.getDate()+100).toString().substring(1,3)">]]);

HTML([[<INPUT TYPE=BUTTON VALUE=Yesterday onClick="var d=new Date(); d=new Date(d.valueOf()-864E5); document.getElementById('studydatematch').value=(d.getFullYear()).toString()+(d.getMonth()+101).toString().substring(1,3)+(d.getDate()+100).toString().substring(1,3)">]]);

HTML([[<INPUT TYPE=BUTTON VALUE='Last 7 days' onClick="var d=new Date(); var d1=new Date(d.valueOf()-7*864E5); document.getElementById('studydatematch').value=(d1.getFullYear()).toString()+(d1.getMonth()+101).toString().substring(1,3)+(d1.getDate()+100).toString().substring(1,3)+'-'+(d.getFullYear()).toString()+(d.getMonth()+101).toString().substring(1,3)+(d.getDate()+100).toString().substring(1,3)">]]);

HTML("</FORM>");

HTML("</tr>"); 





HTML("</table>");

HTML("</BODY>")

Code:

WebApplication.Response.WriteString('<html><head></head><body>test</body></html>');

Code:

Exception message : Reply type already set.

Exception class : Exception

Exception address : 006A1103

Exception Time : 2019-09-09 21:50:12.351

Code:

C:\AppProg\GestanCloud\wwwroot\cgi-bin\newweb>dgate

>>dgate.exe returned nothing

Code:

C:\AppProg\GestanCloud\wwwroot\cgi-bin\newweb>set QUERY_STRING=hallo



C:\AppProg\GestanCloud\wwwroot\cgi-bin\newweb>dgate

Content-type: text/html

Cache-Control: no-cache

<HEAD>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<TITLE>Conquest DICOM server - version 1.4.19</TITLE>

<style type="text/css">

body { font:10pt Verdana; }

a { color:blue; }

#content { background-color:#dddddd; width:200px; margin-top:2px; }

h1 {background-color:#6495ed;}

</style>

</HEAD>

<BODY BGCOLOR='CFDFCF'>

<H1>Welcome to Conquest DICOM server - version 1.4.19</H1>