C++ Builder – 第 2 页 – QDAC数据访问组件网站

[教程]Delphi 10.3 CentOS 编译提示无法链接 zlib 库的解决办法

2018-11-25 • C++ Builder、Delphi • 暂无评论 • swish •浏览 1,839 次

复制下面的 zlib.a 到你的 SDK 本地缓存目录下的，一般是位于 %UserProfile%\Documents\Embarcadero\Studio\SDKs 的具体平台 sdk 子目录下，比如我本地是 C:\Users\Administrator\Documents\Embarcadero\Studio\S

[公告] RAD Studio 10.3 来了

2018-11-222018-11-22 • C++ Builder、Delphi、公告 • 暂无评论 • swish •浏览 4,341 次

官方原版下载链接：HTTP FTP 官方更新说明：原版【官方更新说明简译】 1、Delphi 语言支持内联变量和内联变量的类型推断，说明参考上一篇 Linux 的内存管理已经不再使用 ARC 模型了，改成和 Windows 一样，NEXTGEN 定义在 Linux 平台上已经无效了 Linux 平台支持 AnsiS

[教程]QLog 分类型记录日志和 TQLogStringsWriter 的用法简单示例

2018-11-18 • C++ Builder、Delphi、QLog • 暂无评论 • swish •浏览 2,718 次

QLog 最近做了一些更新，下面演示下更新的几个地方的使用方法： 1、为 TQLogWriter 基类添加了 AcceptLevels 属性，以便将不同类型的日志输出到不同的目标中。比如，我们要将 llError,llFatal 类型的日志输出到一个单独的文件中，我们可以用类似下面的代码实现（中间省略其它代码）： [c

[教程]QDialogBuilder 使用教程

2018-10-14 • C++ Builder、Delphi • 暂无评论 • swish •浏览 2,077 次

【注】目前 QDialogBuilder 只支持 VCL，同时，为了兼容以前的 Delphi ，所以单元名称为 qdialog_builder。使用 QDialogBuilder 的基本步骤如下： 1、设置搜索路径，包含 QDAC 的 Source 目录，qdialog_builder 单元位于该目录下。 2、在需要

[教程] Resource XXX not found 的解决办法

2018-08-31 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 8,214 次

一查路径：查看程序的搜索和库文件路径中是否有重名的文件，如果资源在这些重名的文件中，链接时如果错误链接到了老版本，就有可能造成此问题。二看定义：在 Delphi 中，如果 DFM 定义和 Pas 对应的文件不完全匹配（比如界面上有的控件，但 pas 中由于某些原因被删除了），编译时并不会提示什么问题，但实际链接到程序

[译]Idera 2018年8月路线图简译

2018-08-07 • C++ Builder、Delphi、公告 • 暂无评论 • swish •浏览 2,615 次

原文：RAD Studio August 2018 Roadmap August 2018 Roadmap Commentary from Product Management 简译：【现状】专业版已经加入了移动开发支持 C++ Builder 支持 Make 命令行支持新的 VCL 界面控件/布局和 FMX

[教程]FMX 下将当前控件的相对坐标转换为屏幕坐标

2018-08-072018-08-07 • C++ Builder、Delphi • 暂无评论 • swish •浏览 2,555 次

好吧，在 VCL 里简单的 ClientToScreen，到了 FMX 就变得不是那么简单了。这就牵涉到了 FMX 的坐标体系，咱们不在这里的展开说明，仅提供实现的介绍： 1、调用控件的 LocalToAbsolute 将控件坐标转换为绝对坐标，这个绝对坐标是相对于 Form 的，所以不要以为它是屏幕坐标，这是人很容易

[教程] 通过 Rtti 设置对象的事件响应函数

2018-07-28 • C++ Builder、Delphi • 暂无评论 • swish •浏览 1,505 次

核心提示：调用 TValue.Make 函数来将事件的响应函数绑定。示例：我们拿 TTimer 来做例子，我们知道它有一个 OnTimer 事件，但我们又不想引用 TTimer 所在的单元，而我们要修改某个实例的 OnTimer 事件响应函数（感觉好绕是吧？因为只是拿来做例子，反正看不懂就当一切在做梦，什么也没发生就

[日积月累]-2018-6-24:早期 Delphi 版本 Base64 解码需要注意的一点小问题

2018-06-24 • C++ Builder、Delphi • 暂无评论 • swish •浏览 1,824 次

早期的 Delphi DecodeBase64 对于不是正常以 = 号结束的 Base64 编码内容进行解码时，结尾会解出乱码，造成程序运行时出问题，要解决这一问题，应对其进行补位，加上一定数量的 “=”，以解决此问题。需要补位的 “=” 个数的计算公式： n=（ mod 4） n=0 ：不需要补位 n>0：补

[教程]为 Delphi 剪贴板加入 CF_HTML 数据支持

2018-06-212018-06-21 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 1,921 次

嗯，直接上代码，需要引用 QDAC 的 QString 单元，不支持太老版本的 Delphi，使用古董版的 Delphi 的请自己改写下：

uses clipbrd, qstring;
type
  THTMLClipboardFormatData = class helper for TClipboard
  private
    class procedure RegisterHtmlFormat;
    function GetAsHtml: String;
    procedure SetAsHtml(const Value: String);
  public
    property AsHtml: String read GetAsHtml write SetAsHtml;
  end;

var
  CF_HTML: WORD = 0;
//此处省略一万字
{ THTMLClipboardFormatData }

function THTMLClipboardFormatData.GetAsHtml: String;
var
  AHandle: THandle;
  pData: PQCharA absolute AHandle;
  AText: QStringW;
  p: PWideChar;
begin
  RegisterHtmlFormat;
  if Clipboard.HasFormat(CF_HTML) then
  begin
    AHandle := Clipboard.GetAsHandle(CF_HTML);
    try
      AText := Utf8Decode(pData, -1);
      p := PWideChar(AText);
      while (p^ <> '<') and (p^ <> #0) do
        SkipLineW(p);
      Result := p;
    finally
      GlobalUnlock(AHandle);
    end;
  end;
end;

class procedure THTMLClipboardFormatData.RegisterHtmlFormat;
begin
  if CF_HTML = 0 then
    CF_HTML := RegisterClipboardFormat('HTML Format');
end;

procedure THTMLClipboardFormatData.SetAsHtml(const Value: String);
var
  S: QStringA;
  AText: String;
  AHandle: THandle;
begin
  RegisterHtmlFormat;
  S := QString.Utf8Encode(Value);
  AText := Format('Version:0.9'#13#10 + //
    'StartHTML:%08u'#13#10 + //
    'EndHTML:%08u'#13#10 + //
    'StartFragment:%08u'#13#10 + //
    'EndFragment:%08u'#13#10 + //
    '<html><body>'#13#10 + //
    '<!--StartFragment -->'#13#10 + //
    '%s'#13#10 + //
    '<!--EndFragment-->'#13#10 + '</body></html>', [97, 172 + S.Length, 111,
    136 + S.Length, Value]);
  S := QString.Utf8Encode(AText);
  AHandle := GlobalAlloc(GMEM_DDESHARE, S.Length + 1);
  if AHandle <> 0 then
  begin
    try
      Move(PQCharA(S)^, GlobalLock(AHandle)^, S.Length + 1);
    finally
      GlobalUnlock(AHandle);
      Clipboard.SetAsHandle(CF_HTML, AHandle);
    end;
  end;
end;

uses clipbrd, qstring;

type

THTMLClipboardFormatData = class helper for TClipboard

private

class procedure RegisterHtmlFormat;

function GetAsHtml: String;

procedure SetAsHtml(const Value: String);

public

property AsHtml: String read GetAsHtml write SetAsHtml;

end;

var

CF_HTML: WORD = 0;

//此处省略一万字

{ THTMLClipboardFormatData }

function THTMLClipboardFormatData.GetAsHtml: String;

var

AHandle: THandle;

pData: PQCharA absolute AHandle;

AText: QStringW;

p: PWideChar;

begin

RegisterHtmlFormat;

if Clipboard.HasFormat(CF_HTML) then

begin

AHandle := Clipboard.GetAsHandle(CF_HTML);

try

AText := Utf8Decode(pData, -1);

p := PWideChar(AText);

while (p^ <> '<') and (p^ <> #0) do

SkipLineW(p);

Result := p;

finally

GlobalUnlock(AHandle);

end;

class procedure THTMLClipboardFormatData.RegisterHtmlFormat;

begin

if CF_HTML = 0 then

CF_HTML := RegisterClipboardFormat('HTML Format');

end;

procedure THTMLClipboardFormatData.SetAsHtml(const Value: String);

var

S: QStringA;

AText: String;

AHandle: THandle;

begin

RegisterHtmlFormat;

S := QString.Utf8Encode(Value);

AText := Format('Version:0.9'#13#10 + //

'StartHTML:%08u'#13#10 + //

'EndHTML:%08u'#13#10 + //

'StartFragment:%08u'#13#10 + //

'EndFragment:%08u'#13#10 + //

'<html><body>'#13#10 + //

''#13#10 + //

'%s'#13#10 + //

''#13#10 + '</body></html>', [97, 172 + S.Length, 111,

136 + S.Length, Value]);

S := QString.Utf8Encode(AText);

AHandle := GlobalAlloc(GMEM_DDESHARE, S.Length + 1);

if AHandle <> 0 then

begin

try

Move(PQCharA(S)^, GlobalLock(AHandle)^, S.Length + 1);

finally

GlobalUnlock(AHandle);

Clipboard.SetAsHandle(CF_HTML, AHandle);

end;

用法是直接操作 Clipboard.AsHtml 属性就可以了，例如： [crayon-61ef319c40e0

分类： C++ Builder

[教程]Delphi 10.3 CentOS 编译提示无法链接 zlib 库的解决办法

[公告] RAD Studio 10.3 来了

[教程]QLog 分类型记录日志和 TQLogStringsWriter 的用法简单示例

[教程]QDialogBuilder 使用教程

[教程] Resource XXX not found 的解决办法

[译]Idera 2018年8月路线图简译

[教程]FMX 下将当前控件的相对坐标转换为屏幕坐标

[教程] 通过 Rtti 设置对象的事件响应函数

[日积月累]-2018-6-24:早期 Delphi 版本 Base64 解码需要注意的一点小问题

[教程]为 Delphi 剪贴板加入 CF_HTML 数据支持

[日积月累]-20180621：[Warning] W1000 Symbol ‘%1’ is deprecated: ‘Use %2’

[教程]QDAC FMX VirtualTreeView 入门教程

[杂谈]编写 Delphi 组件时的一些小问题总结

[教程]DateTimeFromString 函数的使用说明

[公告] Rad studio 10.2.3 来了

[译] RAD Studio 2018 年激动人心的开发进程（简译）

[FMX] FMX 动画类的一个辅助增强

[杂谈]系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

[更新]RAD Studio 非官方补丁（部分）

[iOS] XCode 9 发布时提示 Provisioning profile “iOS Team Store Provisioning Profile: xxx” is Xcode managed 时的解决办法

登录