有关httppost编程
谁能将以下的Java代码转化成delphi的
private String postHttpData( String urlStr, String xmlInfo, String charset )
{
StringBuffer response = new StringBuffer();
try {
URL url = new URL(urlStr);
URLConnection con = url.openConnection();
con.setDoOutput(true);
con.setRequestProperty("Pragma:", "no-cache");
con.setRequestProperty("Cache-Control", "no-cache");
con.setRequestProperty("Content-Type", "text ml");
OutputStreamWriter out = new OutputStreamWriter(con.getOutputStream());
FWLog.LogResult(urlStr+"-"+xmlInfo);
// System.out.println("urlStr=" + urlStr);
// System.out.println("xmlInfo=" + xmlInfo);
out.write(new String(xmlInfo.getBytes(charset)));
out.flush();
out.close();
BufferedReader br = new BufferedReader(new InputStreamReader(con.getInputStream()));
String line = "";
for (line = br.readLine(); line != null; line = br.readLine()) {
response.append(line);
}
} catch (MalformedURLException e) {
return "<Response><success>false</success><reason>connect error</reason></Response>";
} catch (IOException e) {
return "<Response><success>false</success><reason>connect error</reason></Response>";
}
if(response.toString().equals("")){
response.append("<Response><success>false</success><reason>connect error</reason></Response>");
}
FWLog.LogResult("response:"+response.toString());
return response.toString();
}