Subversion Repositories fastphp

Rev

Rev 27 | Rev 60 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27 Rev 42
Line 226... Line 226...
226 
        myUrl2 := StringReplace(myUrl2, '%', '%%', []);
 226 
        myUrl2 := StringReplace(myUrl2, '%', '%%', []);
227 
        //myUrl2 := StringReplace(myUrl2, ' ', '%20', []);
 227 
        //myUrl2 := StringReplace(myUrl2, ' ', '%20', []);
228 
        myUrl2 := StringReplace(myUrl2, ' ', '+', []);
 228 
        myUrl2 := StringReplace(myUrl2, ' ', '+', []);
229 
        myUrl2 := 'http://wa.viathinksoft.de/' + myUrl2;
 229 
        myUrl2 := 'http://wa.viathinksoft.de/' + myUrl2;
230 
 
 230 
 
231 
        showmessage(myUrl2);
 231 
        // showmessage(myUrl2);
232 
        WebBrowser1.LoadHTML(GetDosOutput('"'+GetPHPExe+'" "'+myURL+'" "'+ArgGet+'" "'+ArgPost+'" "'+ArgHeader+'"', ExtractFileDir(Application.ExeName)), myUrl2);
 232 
        WebBrowser1.LoadHTML(GetDosOutput('"'+GetPHPExe+'" -f "'+myURL+'" -- "'+ArgGet+'" "'+ArgPost+'" "'+ArgHeader+'"', ExtractFileDir(Application.ExeName)), myUrl2);
233 
      end;
 233 
      end;
234 
      Cancel := true;
 234 
      Cancel := true;
235 
    end;
 235 
    end;
236 
  end;
 236 
  end;
237 
  {$ENDREGION}
 237 
  {$ENDREGION}