Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 42 → Rev 41

/trunk/RunPHP.pas
51,6 → 51,7
WorkDir: string;
Handle: Boolean;
testString: AnsiString;
CommandLine: string;
Output, OutputLastCache: string;
const
SIGNAL_END_OF_TRANSMISSION = #1#2#3#4#5#6#7#8;
64,6 → 65,8
if not FileExists(Self.PhpExe) then exit;
if not FileExists(Self.PhpFile) then exit;
 
CommandLine := '"'+Self.PhpExe+'" "'+Self.PhpFile+'"';
 
Output := '';
OutputLastCache := '';
with SA do begin
85,7 → 88,7
hStdError := StdOutPipeWrite;
end;
 
Handle := CreateProcess(nil, PChar('"'+Self.PhpExe+'" -f "'+Self.PhpFile+'"'),
Handle := CreateProcess(nil, PChar('cmd.exe /C "' + CommandLine + '"'),
nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);
CloseHandle(StdOutPipeWrite);