本文整理自网络,侵删。
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 idhttp post json 上传 php 接收
Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex
Delphi tbitmap创建时提示object or class type required
检测是否按下键盘或鼠标,如果超过5分钟没有操作则认为用户已经离开
更多相关阅读请进入《Delphi》频道 >>