Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 41 → Rev 42

/trunk/RunPHP.pas
51,7 → 51,6
WorkDir: string;
Handle: Boolean;
testString: AnsiString;
CommandLine: string;
Output, OutputLastCache: string;
const
SIGNAL_END_OF_TRANSMISSION = #1#2#3#4#5#6#7#8;
65,8 → 64,6
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
88,7 → 85,7
hStdError := StdOutPipeWrite;
end;
 
Handle := CreateProcess(nil, PChar('cmd.exe /C "' + CommandLine + '"'),
Handle := CreateProcess(nil, PChar('"'+Self.PhpExe+'" -f "'+Self.PhpFile+'"'),
nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);
CloseHandle(StdOutPipeWrite);