本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);var T: TStringStream; ts: TStringList; SvrUrl, postUrl: string;begin SvrUrl := 'http://app.25hours.cc:6077/webservice/25hours.asmx/StruUp'; postUrl := ''; ts := TStringList.Create; ts.Text := 'data={"ShopID":1,"SyncVer":200}'; T := TStringStream.Create('', tencoding.UTF8); IdHTTP1.Post(SvrUrl + postUrl, ts, T); Memo1.Text := T.DataString;end; 相关阅读 >>
Delphi新建服务,停止系统服务,以及获取服务状态和新建系统服务器的方法
Delphi将n个相同字符提取到左边,m个相同字符提取到右边
Delphi stringgrid 实例3: 本例功能: 1、修改 tstringgrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.
Delphi str1.compare 比较两个字符是否相同
更多相关阅读请进入《Delphi》频道 >>