这要自己去试呀。要不然怎么知道p是什么,hc又是什么.
解决方案 »
- 求助在线程中创建的WebBrowser的DocumentComplete没有启动
- 做了个简单的COM:调用COM时提示“不支持此接口”的问题
- 求一条SQL语句!
- 有没有介绍VCL中非组件类的书啊??????
- function StrPas(const Str: PChar): string;这个函数是做什么用的?
- cellclick问题 在线等待
- 在线等!!菜鸟一问:用什么函数使‘空’返回为零,就像foxpro的iif...
- 怎样用程序得到共享文件的共享名?在线等待!
- 各位高手!100分奉送!!!帮帮忙!!
- 请教BDE连接SQL的问题?
- 要交工了,运行程序时老是出现这种错,怎么办?
- Delphi不能做硬件?
p=查询的内容
得到其提交信息格式
然后在程序里这样做
比如在这里得到提交信息
TReplaceFlags rf;
rf << rfReplaceAll;
AnsiString tempStr = ComMemo->Text;//这里是我要发的帖子的内容 tempStr = StringReplace(tempStr,'\%',"%25",rf);
tempStr = StringReplace(tempStr,'\=',"%3d",rf);
tempStr = StringReplace(tempStr,'\&',"%26",rf);
tempStr = StringReplace(tempStr,'\\',"%5c",rf);
tempStr = StringReplace(tempStr,'\/',"%2f",rf);
tempStr = StringReplace(tempStr,'\?',"?",rf);
tempStr = StringReplace(tempStr,'\r',"%0a",rf);
tempStr = StringReplace(tempStr,'\n',"%0d",rf);
tempStr = StringReplace(tempStr,'\ ',"%20",rf);
tempStr = StringReplace(tempStr,'\<',"%3c",rf);
tempStr = StringReplace(tempStr,'\>',"%3e",rf);
tempStr = StringReplace(tempStr,'\#',"%23",rf);
tempStr = StringReplace(tempStr,'\$',"%24",rf);
//以上是屏蔽一些特殊字符
AddStr = ("PUT http://202.98.201.244/cgi-bin/xybook/bbs.cgi?menu=addtitle&id=" +
Id + "&username=" + UserName.c_str() + "&userpsd=" + UserPsd.c_str()
+ "&mail=" + Mail.c_str() + "&home=" + Home.c_str() + "&emote=" + Emote.c_str()
+ "&titles=" + TitleEdit->Text.c_str() + "&comment=" + tempStr.c_str() + "\r\n");