Rev 83 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 83 | Rev 91 | ||
---|---|---|---|
Line 108... | Line 108... | ||
108 | begin |
108 | begin |
109 | // TODO: problem: mysqli::commit has /res/mysqli.commit.html -> keyword is NOT commit alone |
109 | // TODO: problem: mysqli::commit has /res/mysqli.commit.html -> keyword is NOT commit alone |
110 | 110 | ||
111 | outFile := ChangeFileExt(chmFile, '.ini'); |
111 | outFile := ChangeFileExt(chmFile, '.ini'); |
112 | DeleteFile(outFile); |
112 | DeleteFile(outFile); |
113 | test := LoadFileToStr(chmFile); |
113 | test := LoadFileToStr(chmFile); // TODO: RawByteString instead of AnsiString? |
114 | if Pos('/php_manual_', test) = -1 then |
114 | if Pos('/php_manual_', test) = -1 then |
115 | begin |
115 | begin |
116 | result := false; |
116 | result := false; |
117 | exit; |
117 | exit; |
118 | end; |
118 | end; |
Line 211... | Line 211... | ||
211 | 211 | ||
212 | function IsValidPHPExe(const exeFile: TFileName): boolean; |
212 | function IsValidPHPExe(const exeFile: TFileName): boolean; |
213 | var |
213 | var |
214 | cont: string; |
214 | cont: string; |
215 | begin |
215 | begin |
216 | cont := LoadFileToStr(exeFile); |
216 | cont := LoadFileToStr(exeFile); // TODO: RawByteString instead of AnsiString? |
217 | result := (Pos('php://stdout', cont) >= 0) or |
217 | result := (Pos('php://stdout', cont) >= 0) or |
218 | (Pos('PHP_SELF', cont) >= 0); |
218 | (Pos('PHP_SELF', cont) >= 0); |
219 | end; |
219 | end; |
220 | 220 | ||
221 | end. |
221 | end. |