Hi, I installed 1419d with default settings.

I have configured dicom.ini correctly following the docs.

And , I installed tinyweb(https://www.ritlabs.com/en/products/tinyweb/install.php) to test wado.

As second option, I also used an Intraweb app made in delphi with a code to run cgi.

For both I copied cgi-bin folder into wwwroot.

I can confirm with dgate is executed.

The problem is that nothing is returning from dgate.

I have used 1419d1 version of cgi-script in cgi-bin folder and I tested also with newweb folder.

Both is returning nothing to browser.

Some help will be appreciated.

Regards,

Luiz

Hi Marcel,

Tinyweb is no long inactive development. But the sources are free in old delphi pascal.

But, thanks for show me the problem.

Regards,

Luiz

Hi, Marcel,

I am comming back to this post to ask about CGI.

I am using delphi with INTRAWEB (IW)as back end.

I have a problem with a intraweb cgi runner module doesn´t returning nothing from dgate.exe.

So, I create my owner CGI runner and It works well, if I set the working directory to child process created for my CGI runner executing dgate.exe.

If I don´t set the current work directory in "CreateProcess" function, dgate is unable to find and execute the lua scripts.

I have asked the IW author to modify IW module to allow set the working dir, but he said me that current working directory should be done by dgate.exe.

I ask you if dgate.exe is setting the current working directory or I am making some error.

Here is the thread that I open in IW forum: https://www.atozed.com/forums/thread-1224-page-3.html

Regards, Luiz

Quote from marcelvanherk

However,

it may be enough to add a chdir to the basedir.

However, all web servers that I tested do this, otherwise CGI mode would work on none of them. So IW is the odd one out.

Marcel

Display More

Hi Marcel.

In delphi (object pascal) I have used the next code to run dgate in cgi-mode. Note the createprocess function where I set the working directory.

If I don´t do that, dgate don´t work because it can't find others files such as .ini, .lua ........

If I use the IW cgi runner, It don´t set the working directory and dgate.exe doesn´t work.

procedure RunCGIOutput(CommandLine: string; Stream:TStream;Folder: string = '');
const
CReadBuffer = 2400;
var
saSecurity: TSecurityAttributes;
hRead: THandle;
hWrite: THandle;
suiStartup: TStartupInfo;
piProcess: TProcessInformation;
dRead: DWORD;
Handle,WasOK:Boolean;
Buffer: array[0..CReadBuffer] of AnsiChar;
BytesRead: Cardinal;
WorkingDirP,EnvBlock:PChar;

function BuildEnvBlock(IncludeCurrent: Boolean): PChar;
// create a new environment block including vars listed in memo + optionally
begin
////
end;

begin
saSecurity.nLength := SizeOf(TSecurityAttributes);
saSecurity.bInheritHandle := true;
saSecurity.lpSecurityDescriptor := nil;
EnvBlock := BuildEnvBlock(True);
if Folder <> '' then WorkingDirP := PChar(Folder)
else WorkingDirP := nil;


if CreatePipe(hRead, hWrite, @saSecurity, 0) then
try
FillChar(suiStartup, SizeOf(TStartupInfo), #0);
suiStartup.cb := SizeOf(TStartupInfo);
suiStartup.hStdInput := hRead;
suiStartup.hStdOutput := hWrite;
suiStartup.hStdError := hWrite;
suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
suiStartup.wShowWindow := SW_HIDE;
Handle:=CreateProcess(nil, PChar(CommandLine), @saSecurity, @saSecurity, true, CREATE_UNICODE_ENVIRONMENT, EnvBlock, WorkingDirP, suiStartup,
piProcess);

CloseHandle(hWrite);
if Handle then
try
repeat
WasOK := ReadFile(hRead, Buffer, CReadBuffer, BytesRead, nil) and (BytesRead>0);
if WasOK then
Stream.WriteBuffer(Buffer, BytesRead);
until not WasOK;
WaitForSingleObject(piProcess.hProcess, INFINITE);
finally
CloseHandle(piProcess.hThread);
CloseHandle(piProcess.hProcess);
end;
finally
CloseHandle(hRead);
StrDispose(EnvBlock);
end;
end;