本文整理自网络,侵删。
uses System.Net.Mime,System.Net.HttpClient;
function Upload(const aFilePath: string): boolean;var vData: TMultipartFormData; // uses System.Net.Mime vHTTP: THTTPClient; // uses System.Net.HttpClient vCRC: cardinal; vURL: string; vResp: TStringStream;begin vURL := 'PHP url'; vResp := TStringStream.Create(''); vData := TMultipartFormData.Create(); vHTTP := THTTPClient.Create; try try vData.AddField('version', MyVerField.ToString); vData.AddField('crc', MyCRC.ToString);
vData.AddFile('db_file', aFilePath); Result := vHTTP.Post(vURL, vData, vResp).StatusCode = 200;
if Result then Result := vResp.DataString.ContentAsString().Contains('"result":true');
except Result := false; end; finally vHTTP.Free; vData.Free; vResp.Free; end;end;
相关阅读 >>
windows关机函数exitwindowsex使用大全(适用windows所有操作平台)
Delphi如何获取系统服务(即service服务程序)列表
Delphi 使用openjdk进行Delphi android开发
Delphi xe(indy10)tidbytes转ansistring的实现
更多相关阅读请进入《Delphi》频道 >>