教程 – 第2页 – QDAC官方网站

[QSocket]QSocket 总体设计框架说明

2017-01-072017-01-07 • Android、C++ Builder、Delphi、iOS、QSocket、教程 • 暂无评论 • swish •浏览 1,214 次

QSocket 是 QDAC 开源组件的一个重要的组成部分，终于要开始开工了，为了方便大家了解 QSocket，对 QSocket 的总体设计的一些想法，我在这里给大家简要的描述一下。首先，QSocket 同 QDAC 的其它组成部分一样，是跨平台的，这意味着你可以在不同的操作系统中，体验 QSocket 为你带来的

[FMX]使用 FMX 那些缺失的动画效果

2017-01-06 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 506 次

FMX 里的动画做起来简单So easy! TFloatAnimation 不能对一些整数类型的属性做动态效果。实际上，我们并不需要太沮丧，毕竟天生我材必有用，今天吃饱了明天还饿，这只是因为官方忘了将TIntAnimation注册到面板上而已，我们只需要动态创建它并设置相关属性。 [crayon-59e5e8e34e

[教程]Delphi下的移动教程之二：使用第三方 SDK

2017-01-032017-01-03 • Android、Delphi、iOS、教程 • 暂无评论 • swish •浏览 684 次

【价格】以人民币计价：个人用户：50元企业用户：300元【视频长度】预计 >45 分钟【视频语言】中文，普通话【视频编码】格式：H.264 MP4 分辨率:1920×1080 【教程源码】有【上架时间】预计 2017 年 1 月底~2月初【付款方式】申请加入 QDAC 视

[教程]Delphi下的移动教程之一：移动开发环境设置

2017-01-032017-05-15 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 659 次

【价格】以人民币计价：个人用户：50元企业用户：300元【视频长度】 75 分钟【视频语言】中文，普通话【视频编码】格式：H.264 MP4 分辨率:1920×1080 【教程源码】百度定位 Android 接口【上架时间】 2017年5月14日【付款方式】申请加入 QDAC 视频

[教程]Delphi 下的移动编程之番外篇：移动支付（微信、支付宝）集成教程及实例

2017-01-012017-01-05 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 1,247 次

【价格】以人民币计价：个人用户：50元企业用户：300元【视频长度】 29 分钟【视频语言】中文，普通话【视频编码】格式：H.264 MP4 分辨率:1920×1080 【教程源码】包含微信和支付宝支付的 Delphi 示例，以及移动支付集成向导工具源码【上架时间】 2017 年 1

[教程]如果在 Delphi 中将一个Java传回的父接口转换成支持的子接口类型

2016-12-27 • Android、C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 543 次

好吧，我原本以为可以直接 as 实现，但现实告诉我想多了，所以这块我们需要额外的处理，基本的逻辑步骤是：引用 Androidapi.JNI.JavaTypes 单元，以便我们引用 TJLang_Class。使用 TJlang_Class.JavaClass.forName 获取子类的 Java 原生类型信息。使

[教程]如果在 Delphi 中重载父类重载的接口中的某个非虚函数

2016-12-07 • Delphi、教程 • 暂无评论 • swish •浏览 616 次

好吧，这个问题可能够无聊，反正父类已经实现了，为啥不用父类的一类的问题就不要问了，反正这个事也没啥可争论的，只是告诉大家一种关于接口的写法。我们都知道 Delphi 中接口对象一般从 TInterfacedObject 继承，但 QueryInterface 函数却不是虚函数，所以想重载是无门的，为此 QPlugin

[教程]如何降低 Delphi 编码后的 Debug 版本的程序体积

2016-11-18 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 969 次

又是一个悲伤的教坏孩子的故事：Debug 版本的体积太大，而 Release 版本有时候却有问题，上帝知道问题出在那儿了，反正我是找不出来了，妈妈，快告诉我怎么办？:) 实际上，Debug 版本本身并不会比 Release 版本大多少，真正大的原因在于内嵌了大量的调试符号信息，这些信息用于告诉调试器，某个地址对应的

[教程] Delphi 下基于接口的编程

2016-11-04 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,461 次

一、为什么是接口物种起源：为何而生生存还是死亡：AddRef/Release 不同的ID,不同的人生：QueryInterface A还是B：类还是接口二、接口转换接口到对象对象转接口三、接口使用从 TInterfacedObject 继承并实现接口象 QPlugins 一样重写 TInterfaced

QXML转义问题

2016-09-13 • Delphi、QXML、教程 • 暂无评论 • 老衲 •浏览 397 次

我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。

procedure TForm4.btn1Click(Sender: TObject);
var
  MyQXML: TQXML;
begin
  MyQXML := TQXML.Create;
  try
    mmo2.Lines.Clear;
    MyQXML.Parse('<xml name="<![CDATA[奥&巴马]]>希拉&里">abc</xml>');
    mmo2.Lines.Add(MyQXML.AsXML);
    mmo2.Lines.Add('---------------------------------');
    MyQXML.Parse('<xml><![CDATA[奥&巴马]]>希拉&里</xml>');
    mmo2.Lines.Add(MyQXML.AsXML);
  finally
    MyQXML.Free;
  end;
end;

procedure TForm4.btn1Click(Sender: TObject);

var

MyQXML: TQXML;

begin

MyQXML := TQXML.Create;

try

mmo2.Lines.Clear;

MyQXML.Parse('<xml name="<![CDATA[奥&巴马]]>希拉&里">abc</xml>');

mmo2.Lines.Add(MyQXML.AsXML);

mmo2.Lines.Add('---------------------------------');

MyQXML.Parse('<xml><![CDATA[奥&巴马]]>希拉&里</xml>');

mmo2.Lines.Add(MyQXML.AsXML);

finally

MyQXML.Free;

end;

Qjson中把json字符串，当做子节点的方法

2016-09-092016-09-09 • Delphi、QDAC、QJSON、教程 • 暂无评论 • 老衲 •浏览 614 次

我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。

procedure TForm4.btn2Click(Sender: TObject);
const
  //外部的一个Json做子节点
  AJsonStr = '{"name":"奥巴马","age":18}';
var
  MyQj: TQJson;
begin
  MyQj := TQJson.Create;
  try
    MyQj.Add('country', '美国');
    MyQj.Add('address', '华盛顿');


    //美国有很多人，奥巴马是其中一员，而奥巴马的信息可能来自一个Json字符串，
    //我们需要把这个Json字符串当做一个子节点插入进来.
    with MyQj.AddArray('person') do
    begin
      Add.AsObject := AJsonStr;
    end;


    Memo1.Lines.Clear;
    Memo1.Lines.Add(MyQj.AsJson);
  finally
    MyQj.Free;
  end;
end;

procedure TForm4.btn2Click(Sender: TObject);

const

//外部的一个Json做子节点

AJsonStr = '{"name":"奥巴马","age":18}';

var

MyQj: TQJson;

begin

MyQj := TQJson.Create;

try

MyQj.Add('country', '美国');

MyQj.Add('address', '华盛顿');

//美国有很多人，奥巴马是其中一员，而奥巴马的信息可能来自一个Json字符串，

//我们需要把这个Json字符串当做一个子节点插入进来.

with MyQj.AddArray('person') do

begin

Add.AsObject := AJsonStr;

end;

Memo1.Lines.Clear;

Memo1.Lines.Add(MyQj.AsJson);

finally

MyQj.Free;

end;

[FMX]从摄像头获取照片并转换为特定的格式

2016-09-08 • Android、C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 638 次

首先，我们要使用 TTakePhotoFromCamera 这个 Action 来获取一幅照片，在其 OnDidFinishTaking 事件中，可以得到一个 TBitmap 的图片。这块我们跳过代码。然后，我们要将这个位图保存为我们希望的格式，如JPEG。默认调用它的 SaveToStream 它会保存为 PNG

qjson中把记录或类型或泛型数组转换为json字符串

2016-09-022016-09-09 • Delphi、QDAC、QJSON、教程 • 暂无评论 • 老衲 •浏览 642 次

我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm4 = class(TForm)
    btn1: TButton;
    Memo1: TMemo;
    lbl1: TLabel;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

/// <summary>
/// 新手留意，一定要定义在implementation关键词的上方.
/// </summary>
type TRenLei = record
  name: string;
  age: Integer;
  sex: Boolean;
end;


var
  Form4: TForm4;

implementation

{$R *.dfm}

uses qjson;

procedure TForm4.btn1Click(Sender: TObject);
var
  ARenLei: TRenLei;
  MyQj: TQJson;
begin
  MyQj := TQJson.Create;
  try
    //这个例子比较好理解
    ARenLei.name := '奥巴马';
    ARenLei.age := 1;
    ARenLei.sex := True;

    MyQj.FromRecord<TRenLei>(ARenLei);
    Memo1.Lines.Clear;
    Memo1.Lines.Add(MyQj.AsJson);
  finally
    MyQj.Free;
  end;
end;

procedure TForm4.btn2Click(Sender: TObject);
var
  RenLeiArray: TArray<TRenLei>;
  MyQj: TQJson;
begin
  MyQj := TQJson.Create;
  try
    SetLength(RenLeiArray,2);
    with RenLeiArray[0] do
    begin
      name := '拜登';
      age := 1;
      sex := True;
    end;
    with RenLeiArray[1] do
    begin
      name := '希拉里';
      age := 2;
      sex := False;
    end;

    //这里不是很好理解了，我也不理解，这里用TArray<TRenLei>就可以把泛型数组转换为Json，谁知道原理的请下方留言。
    MyQj.FromRecord<TArray<TRenLei>>(RenLeiArray);
    Memo1.Lines.Clear;
    Memo1.Lines.Add(MyQj.AsJson);
  finally
    MyQj.Free;
  end;
end;

end.

unit Unit4;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm4 = class(TForm)

btn1: TButton;

Memo1: TMemo;

lbl1: TLabel;

btn2: TButton;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

/// <summary>

/// 新手留意，一定要定义在implementation关键词的上方.

/// </summary>

type TRenLei = record

name: string;

age: Integer;

sex: Boolean;

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

uses qjson;

procedure TForm4.btn1Click(Sender: TObject);

var

ARenLei: TRenLei;

MyQj: TQJson;

begin

MyQj := TQJson.Create;

try

//这个例子比较好理解

ARenLei.name := '奥巴马';

ARenLei.age := 1;

ARenLei.sex := True;

MyQj.FromRecord<TRenLei>(ARenLei);

Memo1.Lines.Clear;

Memo1.Lines.Add(MyQj.AsJson);

finally

MyQj.Free;

end;

procedure TForm4.btn2Click(Sender: TObject);

var

RenLeiArray: TArray<TRenLei>;

MyQj: TQJson;

begin

MyQj := TQJson.Create;

try

SetLength(RenLeiArray,2);

with RenLeiArray[0] do

begin

name := '拜登';

age := 1;

sex := True;

end;

with RenLeiArray[1] do

begin

name := '希拉里';

age := 2;

sex := False;

end;

//这里不是很好理解了，我也不理解，这里用TArray<TRenLei>就可以把泛型数组转换为Json，谁知道原理的请下方留言。

MyQj.FromRecord<TArray<TRenLei>>(RenLeiArray);

Memo1.Lines.Clear;

Memo1.Lines.Add(MyQj.AsJson);

finally

MyQj.Free;

end;

end.

[FMX] 获取 iOS 设备的类型名称

2016-08-312017-09-23 • Delphi、iOS、教程 • 暂无评论 • swish •浏览 954 次

[更新] 2016.10.10 增加 iPad 和 iPod 的几款新型设备 2016.9.30 修改了 GetDeviceModel 函数，由 sysctl 改成使用 uname（Delphi 没有声明，需要声明下）增加对 iPhone 7 的设备型号列表好吧，我承认这个函数不是必需的，只是为了满足我无耻的偷窥欲

新版 THttpClient组件同步下载文件方法。

2016-08-292016-08-30 • Delphi、教程、杂谈 • 6 条评论 • 老衲 •浏览 1,341 次

我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。下面是我下载文件的写法，如果有更简单的方法，请留言告知。

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Net.HttpClient,
  Vcl.ComCtrls;

type
  TForm3 = class(TForm)
    btnStart: TButton;
    ProgressBar1: TProgressBar;
    edt1: TEdit;
    procedure btnStartClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

    /// <summary>
    /// 下载的时候不允许关闭窗体
    /// </summary>
    FAllowFormClose: Boolean;

    /// <summary>
    /// 接收数据事件
    /// </summary>
    procedure ReceiveDataEvent(const Sender: TObject; AContentLength: Int64; AReadCount: Int64; var Abort: Boolean);
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.ReceiveDataEvent(const Sender: TObject; AContentLength: Int64; AReadCount: Int64; var Abort: Boolean);
begin
  //加上这句界面不卡死.
  Application.ProcessMessages;
  ProgressBar1.Position := AReadCount;
end;

procedure TForm3.btnStartClick(Sender: TObject);
var
  MyHTTPClient: THTTPClient;
  MyHTTPResponse: IHTTPResponse;
  MyMemoryStream: TMemoryStream;
  downloadUrl: string;
begin
  MyHTTPClient := THTTPClient.Create;
  MyMemoryStream := TMemoryStream.Create;
  try
    btnStart.Enabled := False;
    FAllowFormClose := False;
    downloadUrl := Trim(edt1.Text);

    //获取文件的大小
    MyHTTPResponse := MyHTTPClient.Head(downloadUrl);
    ProgressBar1.Position := 0;
    ProgressBar1.Max := MyHTTPResponse.ContentLength;

    //开始下载,保存到本地
    MyHTTPClient.OnReceiveData := ReceiveDataEvent;
    MyHTTPResponse := MyHTTPClient.Get(downloadUrl, MyMemoryStream);
    if MyHTTPResponse.StatusCode = 200 then
    begin
      MyMemoryStream.SaveToFile('c:\aa.exe');
      ShowMessage('下载完成');
    end;
  finally
    MyHTTPClient.Free;
    MyMemoryStream.Free;
    //最终都允许关闭窗体
    btnStart.Enabled := True;
    FAllowFormClose := True;
  end;
end;

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FAllowFormClose;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown := True;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
  btnStart.Enabled := True;
  FAllowFormClose := True;
  ProgressBar1.Position := 0;
end;

end.

100

101

102

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Net.HttpClient,

Vcl.ComCtrls;

type

TForm3 = class(TForm)

btnStart: TButton;

ProgressBar1: TProgressBar;

edt1: TEdit;

procedure btnStartClick(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

/// <summary>

/// 下载的时候不允许关闭窗体

/// </summary>

FAllowFormClose: Boolean;

/// <summary>

/// 接收数据事件

/// </summary>

procedure ReceiveDataEvent(const Sender: TObject; AContentLength: Int64; AReadCount: Int64; var Abort: Boolean);

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.ReceiveDataEvent(const Sender: TObject; AContentLength: Int64; AReadCount: Int64; var Abort: Boolean);

begin

//加上这句界面不卡死.

Application.ProcessMessages;

ProgressBar1.Position := AReadCount;

end;

procedure TForm3.btnStartClick(Sender: TObject);

var

MyHTTPClient: THTTPClient;

MyHTTPResponse: IHTTPResponse;

MyMemoryStream: TMemoryStream;

downloadUrl: string;

begin

MyHTTPClient := THTTPClient.Create;

MyMemoryStream := TMemoryStream.Create;

try

btnStart.Enabled := False;

FAllowFormClose := False;

downloadUrl := Trim(edt1.Text);

//获取文件的大小

MyHTTPResponse := MyHTTPClient.Head(downloadUrl);

ProgressBar1.Position := 0;

ProgressBar1.Max := MyHTTPResponse.ContentLength;

//开始下载,保存到本地

MyHTTPClient.OnReceiveData := ReceiveDataEvent;

MyHTTPResponse := MyHTTPClient.Get(downloadUrl, MyMemoryStream);

if MyHTTPResponse.StatusCode = 200 then

begin

MyMemoryStream.SaveToFile('c:\aa.exe');

ShowMessage('下载完成');

end;

finally

MyHTTPClient.Free;

MyMemoryStream.Free;

//最终都允许关闭窗体

btnStart.Enabled := True;

FAllowFormClose := True;

end;

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose := FAllowFormClose;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

ReportMemoryLeaksOnShutdown := True;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

btnStart.Enabled := True;

FAllowFormClose := True;

ProgressBar1.Position := 0;

end;

end.

分类：教程

[QSocket]QSocket 总体设计框架说明

[FMX]使用 FMX 那些缺失的动画效果

[教程]Delphi下的移动教程之二：使用第三方 SDK

[教程]Delphi下的移动教程之一：移动开发环境设置

[教程]Delphi 下的移动编程之番外篇：移动支付（微信、支付宝）集成教程及实例

[教程]如果在 Delphi 中将一个Java传回的父接口转换成支持的子接口类型

[教程]如果在 Delphi 中重载父类重载的接口中的某个非虚函数

[教程]如何降低 Delphi 编码后的 Debug 版本的程序体积

[教程] Delphi 下基于接口的编程

QXML转义问题

Qjson中把json字符串，当做子节点的方法

[FMX]从摄像头获取照片并转换为特定的格式

qjson中把记录或类型或泛型数组转换为json字符串

[FMX] 获取 iOS 设备的类型名称

新版 THttpClient组件同步下载文件方法。

[iOS] 测试应用在 IPv6 环境下是否能够正常工作

[教程] 在 FMX 中通过样式实现自定义样式的 TCheckBox

[FMX] 为你的移动应用加入在线更新支持

[FMX] 在应用中检测是否已经联网

[教程] 手动将微信开放平台的 iOS SDK 转换到 Delphi 接口

登录