c++ builder2010 indy控件idhttp, post页面获取数据(要注意编码的问题,双方都使用UTF-8最好)
推荐一个我自己做的一个电影站,绝对没弹窗:-) www.fastdy.com 速看电影吧,每天都更新,
最新的电影电视剧都在速看电影吧!~
UnicodeString RemoteDBact(UnicodeString Action, UnicodeString id,
UnicodeString xmltype, UnicodeString sqlstr, UnicodeString tabalename,
UnicodeString data) {
try {
UnicodeString rst = "";
// TStringStream *ss =new TStringStream("",TEncoding->UTF8);
TStrings *Source = new TStringList();
Source->Add("did=" + id);
Source->Add("xmltype=" + xmltype);
Source->Add("action=" + Action);
Source->Add("sql=" + sqlstr);
Source->Add("tablename=" + tabalename);
Source->Add("dbname=" + strHttpDbname);
Source->Add("data=" + data);
rst = idhtp1->Post(strHttppath, Source);
if (rst.Pos("error") > 0) {
// if (rst == NULL || rst == "") {
// "读取id="+id+",xmltype="+strxml+" 没有值返回"
// MessageBox(this->Handle,AnsiString("无任何内容!").c_str(), "提示",
// MB_OK | MB_ICONINFORMATION);
// / } else
rst = "";
}
delete Source;
return rst;
}
catch(Exception & E) {
MessageBox(this->Handle, "连接读取失败!", "提示", MB_OK | MB_ICONINFORMATION);
return "";
// SendDebugMessage(
// "Exception caught in TManageForm::cxTreeListFormDetailSelectionChanged of type :" +
// E.ClassName() + " with the message :" + E.Message);
};
}
UnicodeString xmltype, UnicodeString sqlstr, UnicodeString tabalename,
UnicodeString data) {
try {
UnicodeString rst = "";
// TStringStream *ss =new TStringStream("",TEncoding->UTF8);
TStrings *Source = new TStringList();
Source->Add("did=" + id);
Source->Add("xmltype=" + xmltype);
Source->Add("action=" + Action);
Source->Add("sql=" + sqlstr);
Source->Add("tablename=" + tabalename);
Source->Add("dbname=" + strHttpDbname);
Source->Add("data=" + data);
rst = idhtp1->Post(strHttppath, Source);
if (rst.Pos("error") > 0) {
// if (rst == NULL || rst == "") {
// "读取id="+id+",xmltype="+strxml+" 没有值返回"
// MessageBox(this->Handle,AnsiString("无任何内容!").c_str(), "提示",
// MB_OK | MB_ICONINFORMATION);
// / } else
rst = "";
}
delete Source;
return rst;
}
catch(Exception & E) {
MessageBox(this->Handle, "连接读取失败!", "提示", MB_OK | MB_ICONINFORMATION);
return "";
// SendDebugMessage(
// "Exception caught in TManageForm::cxTreeListFormDetailSelectionChanged of type :" +
// E.ClassName() + " with the message :" + E.Message);
};
}