delphi Upload 上传文件


本文整理自网络,侵删。

 
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 写dll注入器

Delphi xe(indy10)tidbytes转ansistring的实现

Delphi 禁止用户关闭操作系统

Delphi 绘制精美的签名图片

Delphi 中 使用 tidhttp 提交post数据

Delphi is1251char

Delphi常用数据类型

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...