使用 HTML 进行文件上传,已经是很平常的应用了,在手机App里面,也常常会用到这个作业,例如拍照上传,或是从相簿选取照片上传,都是很常见的。

在 HTML 的 Form 里面,要让使用者选择文件上传,通常会这样写:

<input type=”file” name=”fileId1” id=”fileId1”/>

当我们在 HTML 里面这么写,网页浏览器会自动在画面上显示一个按钮,点选之后,会出现文件选择的对话框让使用者选择文件。

但是,在手机作业系统中,为了提供文件系统的Sandbox 功能,并无法从网页直接提供相簿照片选择或拍照上传的功能,所以大多数类似的功能,还是得透过 App 提供才行。

在这个范例中,为了让使用者能直觉使用文件选择的功能,所以也同时介绍了如何从手机相簿选择与拍照上传的功能。

如何让Delphi程式提供相簿选照片的功能

在Delphi环境中,要提供使用者从相簿选相片,或是启动相机拍照,都要透过 TAction 来完成,只是从相簿选照片跟启动拍照功能,是以两个不同的 TAction 来完成的。虽说是不同的 TAction 处理不同的程序,但取得照片的时候,回传给程式的结果都是用TBitMap 来储存相片。

换句话说,取得了 TBitMap 之后,我们想要对TBitMap做任何影像处理、格式处理,都可以由我们的程式码来操作。

从 Delphi XE6 之后,这些直接使用行动装置功能的程式码,都已经被载入到TAction里面了,我们只需要在使用上了解如何把TAction跟按钮事件绑在一起即可。

首先,我们需要在 Form 上面放上一个 TActionList 元件,然后双击这个元件,就可以显示出 ActionList 的编辑画面:

在这画面中,我们要新增Media Library 的两个 Standard Action,就是上图的TakePhotoFromLibraryAction (从相簿取得照片),以及TakePhotoFromCameraAction (从相机拍摄照片)。

 

建立两个 Action 之后,我们就需要为这两个 Action 设定 onDidFinish 跟 onDidCancel 的事件,前者是用来处理确定拍摄/挑选照片的事件,后者则是用来处理取消拍摄/挑选照片的事件。

在这个范例中,onDidFinish 的时候,会把回传来的图片资料直接放在画面上的 TImage 元件显示,所以它的程式码很单纯:

Procedure TForm2.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);

Begin

Self.Image1.Bitmap.Assign(Image);

End;

Procedure TForm2.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);

Begin

Self.Image1.Bitmap.Assign(Image);

End;

就是直接把 Image Assign 给 Image1.Bitmap 属性即可。

最后,点选按钮上传,完整的程式码如下:

Procedure TForm2.btnUploadClick(Sender: TObject);

Var

newItem: TRESTRequestParameter;

allPass: Boolean;

imgPath, houseNum, floorIdx: string;

nameStr: String;

obj: TJSONObject;

begin

allPass := True;

if self.EditName.Text = ‘’ then begin

allPass := False;

ShowMessage(‘请填写住户名字’);

End

Else if (Length(self.EditCardNo.Text) < 5) or

(Length(self.EditCardNo1.Text) < 5) then begin

allPass := False;

ShowMessage(‘请填写悠游卡卡号10码’);

End

Else if self.Image1.Bitmap.IsEmpty then begin

allPass := False;

ShowMessage(‘请提供悠游卡感应卡号照片’);

End;

If allPass then begin

Self.RectWaiting.Visible := True;

Self.AniIndicator1.Enabled := True;

imgPath := System.IOUtils.TPath.Combine

(System.IOUtils.TPath.GetDocumentsPath, ‘tmp123.png’);

Self.Image1.Bitmap.SaveToFile(imgPath);

Self.RESTClient1.BaseURL :=

‘http://testURL/acceptNewCard.php’;

Self.RESTRequest1.Params.Clear;

RESTRequest1.Method := rmPOST;

nameStr := self.EditName.Text;

self.RESTRequest1.AddParameter(‘cardNum’, self.EditCardNo.Text + ‘:’ +

self.EditCardNo1.Text);

nameStr := TIdURI.ParamsEncode(nameStr, IndyTextEncoding_UTF8);

self.RESTRequest1.AddParameter(‘name’, nameStr,

TRESTRequestParameterKind.pkGETorPOST,

[TRESTRequestParameterOption.poDoNotEncode]);

// self.RESTRequest1.AddParameter(‘name’, nameStr, TRESTRequestParameterKind.pkGETorPOST, [TRESTRequestParameterOption.poDoNotEncode]);

Case self.ComboBoxHouseNum.ItemIndex of

0: begin

houseNum := ‘1’;

end;

1: begin

houseNum := ‘374’;

end;

end;

houseNum := TIdURI.ParamsEncode(houseNum, IndyTextEncoding_UTF8);

self.RESTRequest1.AddParameter(‘houseNum’, houseNum);

floorIdx := IntToStr(self.ComboBoxFloor.ItemIndex + 1);

self.RESTRequest1.AddParameter(‘floorIdx’, floorIdx);

self.RESTRequest1.AddFile(‘picFilename’, imgPath);

self.RESTRequest1.Execute;

obj := TJSONObject.ParseJSONValue(self.RESTRequest1.Response.JSONText)

as TJSONObject;

ShowMessage(obj.GetValue<String>(‘result’));

Self.RectWaiting.Visible := False;

Self.AniIndicator1.Enabled := False;

End;

End;

上面的程式码里面,处理文件的重点只有一行:

Self.RESTRequest1.AddFile(‘picFilename’, imgPath);

在更前面一点的程式码中,imgPath 是由TImage.Bitmap即时存下来的照片,这个范例只适用于 Delphi 10.2 (Tokyo) 以后的版本,因为在 Berlin 当中,对于文件的 MIME Type 还没有完全支援,所以在 Berlin 或 Seattle 当中要使用这个方法上传文件的朋友,请升级吧,我也没办法直接提供 TRESTClient 在新版的程式码给大家。

使用 TRESTClient 與 TRESTRequest 作為 HTTP Client 之二 (POST 檔案)的更多相关文章

  1. 使用 TRESTClient 与 TRESTRequest 作为 HTTP Client

    在 Delphi XE 推出以前的年代,Delphi的发展方向是笔直朝向资料库连结Windows 应用程式这个目标不断前进的,从Delphi 1开始,到Delphi 7,Delphi奠定了VB Kil ...

  2. 使用 TRESTClient 与 TRESTRequest 作为 HTTP Client(转)

    使用 TRESTClient 与 TRESTRequest 作为 HTTP Client 转自:http://www.cnblogs.com/dennieschang/p/6966403.html   ...

  3. ZooKeeper源码阅读——client(二)

    原创技术文章,转载请注明:转自http://newliferen.github.io/ 如何连接ZooKeeper集群   要想了解ZooKeeper客户端实现原理,首先需要关注一下客户端的使用方式, ...

  4. Hadoop HBase概念学习系列之HBase里的Client(二十二)

    这个,很简单,但凡是略懂大数据的,就很清楚,不多说,直接上图.

  5. 一步一步实现视频播放器client(二)

    实现主体界面:                 222.png (64.46 KB, 下载次数: 0) 下载附件  保存到相冊 前天 21:02 上传 比較常见的一种布局.以下几个button.点击后 ...

  6. 7-MySQL-Ubuntu-操作数据表的基本操作(二)

    修改数据表的结构 (1)向数据表中添加新的字段 alter table 表名 add 字段名 类型及约束;  (2)修改字段的属性(字段的数据类型和约束) 注:modify不能修改字段名,只能修改字段 ...

  7. PAM 認 證 模 組

    作者:陳柏菁 E-mail 作用:限制哪些用户或者组可以从哪里登陆,或者可以建立/etc/nologin立即阻止一般用户登陆,限制 user可以使用的资源.例如cpu,文件,登陆数量,某些服务的登陆时 ...

  8. Cen0S下挂载设备

    在CentOS中,如果我们要查看光驱,U盘或者要把安装包挂载到某个文件夹,我写下我的一些理解. 所谓的挂载,就是把物理设备或者文件(包含安装文件,压缩包等等),与系统中的某个目录建立一个快捷方式,然后 ...

  9. X86 Booting Sequence

    1.BIOS 0xFFFF0 電源正常啟動後,x86 CPU 會先執行 0xFFFF0,也就是 BIOS ROM 的進入點.由於 0xFFFF0 ~ 0xFFFFF 只有少的很可憐的 16 bytes ...

随机推荐

  1. Linux中Too many open files

    1.ulimit –a open files一项就是默认的句柄数,最大为 65536 2.修改最大open files /etc/security/limits.conf文件中,加入以下配置: * s ...

  2. webpack是什么

    1,打包工具 模块打包 2.前端工程师 ,必不可少工具webpack作用 1.打包 (多个文件,打包成一个文件) 2.转化(less,sass,ts) 需要核心 技术 loader 3优化(SPA越来 ...

  3. 项目debug启动不起来解决办法

    debug起服务,读取文件可能会出错,eclipse自动加断点,这时候就卡住了,这时候eclipse——window——show view breakpoints-——remove all,重新启动t ...

  4. SpringMVC是怎么工作的,SpringMVC的工作原理

    SpringWeb MVC 是怎么工作的,SpringMVC的原理,SpringMVC源码 分析. 介绍 SpringWeb MVC是Spring Framework中的一部分,当我们需要使用spri ...

  5. flex"

    很久以前,有面试官问过我如何实现"

  6. Codeforces 959F Mahmoud and Ehab and yet another xor task 线性基 (看题解)

    Mahmoud and Ehab and yet another xor task 存在的元素的方案数都是一样的, 啊, 我好菜啊. 离线之后用线性基取check存不存在,然后计算答案. #inclu ...

  7. 022 Jquery总结

    1.大纲 jQuery 库中的 $() 是什么? 网页上有 5 个div元素,如何使用 jQuery来选择它们? jQuery 里的 ID 选择器和 class 选择器有何不同? 如何在点击一个按钮时 ...

  8. 蓝桥杯 卡片换位(bfs)

    卡片换位 你玩过华容道的游戏吗?这是个类似的,但更简单的游戏.看下面 3 x 2 的格子 在其中放5张牌,其中A代表关羽,B代表张飞,* 代表士兵.还有一个格子是空着的. 你可以把一张牌移动到相邻的空 ...

  9. Thread类和Runnable接口实现多线程--2019-4-18

    1.通过Thread实现 public class TestThread extends Thread{ public TestThread(String name) { super(name); } ...

  10. huginn website agent对提取结果排序

    当配置好huginn的website之后,想给提取的内容排个序,那就用下面这堆代码,因为官网里也这么说的, "events_order": [ [ "{{date_pub ...