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;
 

相关阅读 >>

Delphi结构体的方法

Delphi xe7检查android蓝牙权限

Delphi winapi: getwindowtext - 获取窗口标题

Delphi的stringreplace 字符串替换函数

Delphi滚动标题栏文字

Delphi 只限制到4位小数级别

Delphi 文件路径获取文件名不带扩展名

Delphi数据库实现从最后一条记录向上查询至首记录

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi 获得用android应用程序触摸到的位置(坐标)的方法

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

转载请注明出处：木庄网络博客 » delphi Upload 上传文件