本文整理自网络,侵删。
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;
相关阅读 >>
Delphi firedac 的recordcount 相关测试 记录
Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>
Delphi读取webbrowse中的图片显示在image中
更多相关阅读请进入《Delphi》频道 >>