有关httppost编程

grjs2004 2013-04-18 04:22:50
谁能将以下的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();
}
...全文
146 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
grjs2004 2013-04-19
  • 打赏
  • 举报
回复
string XMLDataDigest(string xml)
{
//xml: 需要发送的xml正文内容,如订单部分<RequestOrders>……</RequestOrders>
//密钥: fineex_S7
string EnPswdStr = FormsAuthentication.HashPasswordForStoringInConfigFile(xml + "fineex", "MD5");

//Post完整内容:
string xmlData = "data_Isdigest=Y&logistics_interface=" + xml + "&data_digest=" + EnPswdStr;
return xmlData;
}
如何转为delphi 代码
grjs2004 2013-04-19
  • 打赏
  • 举报
回复
string XMLDataDigest(string xml) { //xml: 需要发送的xml正文内容,如订单部分<RequestOrders>……</RequestOrders> //密钥: fineex_S7 string EnPswdStr = FormsAuthentication.HashPasswordForStoringInConfigFile(xml + "fineex", "MD5"); //Post完整内容: string xmlData = "data_Isdigest=Y&logistics_interface=" + xml + "&data_digest=" + EnPswdStr; return xmlData; }
sololie 2013-04-18
  • 打赏
  • 举报
回复
算了吧,你还不如说想实现什么功能,让高人来帮你用delphi来实现。

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧