2016年3月 – QDAC数据访问组件网站

[技巧]C++ Builder 中慎用 Supports 函数来取接口的实例

2016-03-312016-04-01 • C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 1,935 次

实际上，这个问题在于 C++ Builder 是通过一个模板来处理接口的自动释放的，实际上相当于玩了一个auto_ptr，但 Supports 需要的第三个参数，确是一个指针，那么这个就用来比较麻烦了。这样用:

_di_IQService AService;
if(Supports(PluginsManager()->ByPath(L"Services/Dock/Forms",__uuidof(IQFormService),AService))

1 2	_di_IQService AService; if(Supports(PluginsManager()->ByPath(L"Services/Dock/Forms",__uuidof(IQFormService),AService))

编译能过去，但是得到的结果是不对的。这

[QPlugins] C++ Builder 做宿主，Delphi 的 DLL 插件（不带包）测试成功

2016-03-31 • C++ Builder、Delphi、QDAC、QPlugin • 暂无评论 • swish •浏览 1,871 次

看一下效果，宿主是用C ++ Builder Seattle 编码，DLL 是用 Delphi Seattle 编译，成功将插件窗口嵌入到了宿主程序中，工作正常。

[QPlugins] DLL 中插件提供窗口服务指南

2016-03-312016-04-05 • C++ Builder、Delphi、QDAC、QPlugin • 1 条评论 • swish •浏览 2,679 次

QPlugins 为了简化大家开发带有窗体的插件，提供了 IQFormService 接口的封装实现。要使用该接口，需要按以下步骤执行：【宿主程序】 1、如果宿主程序是 VCL 程序，在某个模块的 uses 小节，加入 qplugins.vcl.messages 单元，以便引入对 Windows 消息的扩展支持服务；

[Bugs] Delphi 10 在一个 DLL 中嵌入 FMX 窗体时出在退出时出错

2016-03-30 • C++ Builder、Delphi • 暂无评论 • swish •浏览 1,526 次

测试方法： 1、创建一个DLL； 2、加入一个FMX窗体，在提示是否启用 FMX 框架时选择启用； 3、创建一个调用并以模态方式显示这个FMX窗体； 4、在宿主程序（FMX或VCL皆可），动态加载这个DLL，并调用导出的函数； 5、卸载这个DLL，系统出错；示例工程下载

[付费教程] Delphi 中的字符串类型及用法已发布

2016-03-302016-04-26 • Delphi • 暂无评论 • swish •浏览 2,404 次

字符串类型是我们常用的数据类型，那么，关于 Delphi 中字符串的操作你都了解吗？本节视频教程和你一切详细说说 Delphi 字符串类型、编码、解析、转换及其它处理的问题。【价格】以人民币计价：个人用户：50元企业用户：300元【视频长度】约 43 分钟【视频语言】中文，普通话【视频编码】格式：H

[QPlugins] 第一个 FMX 插件工作了~~~

2016-03-28 • Android、C++ Builder、Delphi、QPlugin • 暂无评论 • swish •浏览 1,888 次

QPlugins 对 FMX 的支持目前有一个好消息报告给大家，那就是 FMX 的插件工作了。目前仅限于 Windows 平台，测试的宿主程序是用 VCL 编写的，而插件是用 FMX 编写的一个窗口。当然现在第一版 Bug 多多，退出时还有异常，不过这是一个良好的开始。下面是测试程序的动态截图：未来是光明的，前途是坎

[FMX] 字体大小调整两种方法的另类对比

2016-03-282016-03-28 • Android、C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 1,768 次

在编写跨平台的程序时，一般控件的字体的名称和大小都是平台默认的。我们可以通过两种方式调整字体的大小：设置 TextSettings.Font.Size 的值修改控件的 Scale 属性，按比例缩放我们看一下对比图，第一个是 Windows 下，分别是调整缩放和直接设置 TextSettings.Font.Size

[付费教程] Delphi/C++ Builder 程序调试教程已经录制并上架

2016-03-282016-04-26 • C++ Builder、Delphi • 暂无评论 • swish •浏览 3,036 次

教程以 Delphi 录制，但由于 Delphi 和 C++ Builder 使用同一 IDE，所以绝大部分内容同样适用于 C++ Builder。【价格】以人民币计价：个人用户：50元企业用户：300元【视频长度】约 82 分钟【视频语言】中文，普通话【视频编码】格式：H.264 MP4 分辨率:

[杂谈] 用户、角色及权限漫谈

2016-03-242016-03-24 • C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 1,858 次

用户、角色、权限是一个软件里的多用户系统的基本内容。那么它们之间的相互关系，以及在系统设计中要考虑啥呢？首先，是它们之间的关系，其基本关系我们可以概括为：一个用户隶属于一到多个角色，它的权限来自于自身和所隶属的角色继承而来。而权限本身也可以分组，子权限是父权限的一个子项，如果用户选中了父权限，那么它也就同时拥有了子权

[专题] Delphi / QDAC 付费视频教程专区

2016-03-232017-09-10 • 公告、杂谈 • 暂无评论 • swish •浏览 12,853 次

本专区的内容视频是作者或群友原创，需要付费购买，会根据大家的需要录制和推出。【购买方式】申请加入 QDAC 视频付费教程群：201867767；找到下面视频的价格，然后通过以下方式付费： [支付宝] guansonghuan@sina.com 姓名：管耸寰（请标明QQ号） [QQ] 直接群支付，或给群主发红包

[QMacros] 复杂宏参数的传递

2016-03-23 • Android、C++ Builder、Delphi、QDAC、QMacros • 暂无评论 • swish •浏览 1,676 次

QMacros 的宏支持传递参数，其参数的格式参照 JSON 执行，所以 QMacros 的参数支持 JSON 所有的数据类型：null、true/false、数值、字符串、对象和数组，字符串中内容的转义也遵守 JSON 的规则。【注意】如果 QMacros 调用 Complie 或 Replace 时，标志位指定

[QMacros]示例：使用 QMacros 玩转 HTML 模板

2016-03-23 • Android、C++ Builder、Delphi、QDAC、QMacros • 暂无评论 • swish •浏览 1,853 次

我们在实际开发中，由于各种各样的原因，可能会结合浏览器来实现一些 Delphi 本身不好实现的效果。而如果网页是靠拼字符串来完成，显然其效率不是太理想。而如果结合 QMacros ，你会发现一切都变的那么简单。QMacros 的示例中包含了一个新的 HTML 模板示例代码，我们来解读其中与 QMacros 相关的部分，

[QMacros]更新：新增 MRF_ENABLE_ESCAPE 和 MRF_IGNORE_MISSED 标志位

2016-03-22 • Android、C++ Builder、Delphi、QDAC、QMacros • 暂无评论 • swish •浏览 1,141 次

【更新说明】新增了两个标志位来更好的支持模板功能： MRF_ENABLE_ESCAPE 启用模板中的转义字符支持，转义字符以反斜线引起，后跟要转义的字符，如果非特殊转义字符，则为后面的字符。QMacros 支持的特殊转义字符包括，其含义和 QJson 的转义支持一致，但\后跟其它字符时，会返回其它字符，而不会出错：

[QDAC]QSendmail 单元已经加入到 QDAC 项目家族

2016-03-212016-03-22 • Android、C++ Builder、Delphi、QDAC、未分类 • 2 条评论 • swish •浏览 1,826 次

【注意】QSendMail 支持 XE 以后的版本，以前的版本由于默认携带的 Indy 版本问题，无法直接支持。要在 XE 以前的版本编译，请在其上手动安装新版的 Indy 后再编译。 QSendmail 单元用于实现跨平台的邮件发送，它基于 Indy 的 TIdSmtpServer 实现，并简化了相应的接口，原来没有

[技巧] 以十六进制显示数据内容

2016-03-212016-04-12 • Delphi、杂谈 • 暂无评论 • swish •浏览 2,861 次

下面这个函数没有进行效率优化，如果优化下会很快，会提高很多倍，不过满足一般的使用是够了。如果大家有兴趣，可以自己优化下，优化的主要方式是预先计算好需要的内存空间，然后直接填充，而不是象下面的算法一样，由于频率的拼接字符串，造成内存的不断分配释放。

function HexView(ABytes: TBytes): String;
var
  C, R, L, ARows, ACols: Integer;
  T: String;
  B: Byte;
begin
  L := Length(ABytes);
  ARows := (L shr 4);
  if (L and $F) <> 0 then
    Inc(ARows);
  Result := '     ';
  for C := 0 to 15 do
    Result := Result + IntToHex(C, 2) + ' ';
  Result := Result + SLineBreak;
  for R := 0 to ARows - 1 do
  begin
    Result := Result + IntToHex(R, 4) + ' ';
    ACols := L - (R shl 4);
    if ACols > 16 then
      ACols := 16;
    SetLength(T, 0);
    for C := 0 to ACols - 1 do
    begin
      B := ABytes[R * 16 + C];
      Result := Result + IntToHex(B, 2) + ' ';
      if (B >= $20) and (B <= $7E) then
        T := T + AnsiChar(B)
      else
        T := T + '.';
    end;
    for C := ACols to 15 do
      Result := Result + '   ';
    Result := Result + T + SLineBreak;
  end;
end;

function HexView(ABytes: TBytes): String;

var

C, R, L, ARows, ACols: Integer;

T: String;

B: Byte;

begin

L := Length(ABytes);

ARows := (L shr 4);

if (L and $F) <> 0 then

Inc(ARows);

Result := ' ';

for C := 0 to 15 do

Result := Result + IntToHex(C, 2) + ' ';

Result := Result + SLineBreak;

for R := 0 to ARows - 1 do

begin

Result := Result + IntToHex(R, 4) + ' ';

ACols := L - (R shl 4);

if ACols > 16 then

ACols := 16;

SetLength(T, 0);

for C := 0 to ACols - 1 do

begin

B := ABytes[R * 16 + C];

Result := Result + IntToHex(B, 2) + ' ';

if (B >= $20) and (B <= $7E) then

T := T + AnsiChar(B)

else

T := T + '.';

end;

for C := ACols to 15 do

Result := Result + ' ';

Result := Result + T + SLineBreak;

end;

上面的

[技巧] 使用 THttpClient 时获取跳转后的 URL

2016-03-212018-09-03 • Delphi、杂谈 • 4 条评论 • swish •浏览 2,705 次

Delphi 自带的 THttpClient 是一个很好的 Http/Https 协议的跨平台实现，不过，现在的版本功能有些地方封装的还是不太合理，造成使用中存在一些不便。比如，我们从一个网址通过 HTTP 302 等跳转到另一个网址时，无法对跳转的过程进行精细控制，也无法获取到跳转后的目标地址。本文给大家提供一种方法

[QMacros] 使用宏替换在百度地图上加标注

2016-03-18 • Android、C++ Builder、Delphi、QDAC、QMacros • 4 条评论 • swish •浏览 1,948 次

这段代码是我实际使用的一段代码，贴出来分享给大家。

procedure TBaiduMapMarker.Changed;
var
  S: String;
  ASavePoint: Integer;
const
  STempate: String = 'if(typeof(%MarkerName%) != ''undefined'')'#13#10 +
  // 定义了就直接设置属性
    '  {'#13#10 +
    '  %MarkerName%.setPosition(new BMap.Point(%Pos_Lng%,%Pos_Lat%));'#13#10 +
  // 位置
    '  %MarkerName%.setAnimation(%Animation%);'#13#10 + // 动画
    '  }'#13#10 + //
    'else'#13#10 + // 未定义就添加
    '  {'#13#10 +
    '  %MarkerName%=new BMap.Marker(new BMap.Point(%Pos_Lng%,%Pos_Lat%));'#13#10
    + // 位置
    '  map.addOverlay(%MarkerName%);'#13#10 + // 添加图层
    '  %MarkerName%.setAnimation(%Animation%);'#13#10 + // 添加完成
    '  }' + 'if(%Dragable%)'#13#10 + // 需要拖拽
    ' %MarkerName%.enableDragging();'#13#10 + // 启用
    'else'#13#10 + //
    ' %MarkerName%.disableDragging();'#13#10; // 禁用
begin
  if not Owner.JSVars.Defined[Name] then
    Owner.JSVars.ExecuteScript('var ' + Name);
  with (Owner as TBaiduMapProvider).FMacros do
  begin
    ASavePoint := SavePoint;
    try
      Push('Pos_Lat', FloatToStr(Position.Lat));
      Push('Pos_Lng', FloatToStr(Position.Lng));
      Push('MarkerName', Name);
      if Animate then
        Push('Animation', 'BMAP_ANIMATION_BOUNCE')
      else
        Push('Animation', 'null');
      if Dragable then
        Push('Dragable', 'true')
      else
        Push('Dragable', 'false');
      S := Replace(STempate, '%', '%');
      Owner.JSVars.ExecuteScript(S);
    finally
      Restore(ASavePoint);
    end;
  end;
end;

procedure TBaiduMapMarker.Changed;

var

S: String;

ASavePoint: Integer;

const

STempate: String = 'if(typeof(%MarkerName%) != ''undefined'')'#13#10 +

// 定义了就直接设置属性

' {'#13#10 +

' %MarkerName%.setPosition(new BMap.Point(%Pos_Lng%,%Pos_Lat%));'#13#10 +

// 位置

' %MarkerName%.setAnimation(%Animation%);'#13#10 + // 动画

' }'#13#10 + //

'else'#13#10 + // 未定义就添加

' {'#13#10 +

' %MarkerName%=new BMap.Marker(new BMap.Point(%Pos_Lng%,%Pos_Lat%));'#13#10

+ // 位置

' map.addOverlay(%MarkerName%);'#13#10 + // 添加图层

' %MarkerName%.setAnimation(%Animation%);'#13#10 + // 添加完成

' }' + 'if(%Dragable%)'#13#10 + // 需要拖拽

' %MarkerName%.enableDragging();'#13#10 + // 启用

'else'#13#10 + //

' %MarkerName%.disableDragging();'#13#10; // 禁用

begin

if not Owner.JSVars.Defined[Name] then

Owner.JSVars.ExecuteScript('var ' + Name);

with (Owner as TBaiduMapProvider).FMacros do

begin

ASavePoint := SavePoint;

try

Push('Pos_Lat', FloatToStr(Position.Lat));

Push('Pos_Lng', FloatToStr(Position.Lng));

Push('MarkerName', Name);

if Animate then

Push('Animation', 'BMAP_ANIMATION_BOUNCE')

else

Push('Animation', 'null');

if Dragable then

Push('Dragable', 'true')

else

Push('Dragable', 'false');

S := Replace(STempate, '%', '%');

Owner.JSVars.ExecuteScript(S);

finally

Restore(ASavePoint);

end;

这段代码的功能是在百度地图上，添加一个 marker 标记出指定的位置。当然这段代码你没法直接执行，因为缺少完整的定义，不过可以看出来如何在代码中通过 QMacros 将代码与脚本的模板进行分离。在调用

月度归档： 2016年3月

[技巧]C++ Builder 中慎用 Supports 函数来取接口的实例

[QPlugins] C++ Builder 做宿主，Delphi 的 DLL 插件（不带包）测试成功

[QPlugins] DLL 中插件提供窗口服务指南

[Bugs] Delphi 10 在一个 DLL 中嵌入 FMX 窗体时出在退出时出错

[付费教程] Delphi 中的字符串类型及用法已发布

[QPlugins] 第一个 FMX 插件工作了~~~

[FMX] 字体大小调整两种方法的另类对比

[付费教程] Delphi/C++ Builder 程序调试教程已经录制并上架

[杂谈] 用户、角色及权限漫谈

[专题] Delphi / QDAC 付费视频教程专区

[QMacros] 复杂宏参数的传递

[QMacros]示例：使用 QMacros 玩转 HTML 模板

[QMacros]更新：新增 MRF_ENABLE_ESCAPE 和 MRF_IGNORE_MISSED 标志位

[QDAC]QSendmail 单元已经加入到 QDAC 项目家族

[技巧] 以十六进制显示数据内容

[技巧] 使用 THttpClient 时获取跳转后的 URL

[QMacros] 使用宏替换在百度地图上加标注

[QMacros] 教程: 使用 QMacros 从 PHP 脚本中获取使用的变量名称列表

[QWorker]更新：修正了特定场景下，空闲工作者全部被解雇而引起的问题

[QMacros] 更新：增加对用户自定义规则的宏名称解析的支持

登录