Windows – QDAC数据访问组件网站

[杂谈] 从 Windows 10 到 Linux

2020-05-012020-05-02 • Delphi • 暂无评论 • swish •浏览 1,502 次

自从最近一段时间，我笔记本自带的 Windows 莫名其妙的越来越慢后，已经严重影响自己开发的心情。在找不到什么原因的情况下，决定尝试在 Linux 跑下，看看是不是我的笔记本硬件已经跟不上 Windows 10 更新的步伐。所以，我先下载了 LinuxLite，这个发行版最大的好处是内核更新的比较快，然后使用其中的

[教程]在你的程序中使用 FontAwesome 字体

2017-09-212017-09-23 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 2,087 次

首先是无论什么平台，要使用 FontAwesome 字体需要两步：第一步：添加字体，考虑到字体如果是专用的话，应该是当前程序能够加载字体的目录（下面都假设这一点，你如果装到操作系统字体目录里的话，就直接使用就可以了）；第二步：设置控件的字体为 FontAwesome，然后调整字体大小和样式为合适的大小；【Wind

[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴

2017-08-10 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 8,446 次

VCL 中如何使用剪贴板咱就不说了，FMX 做为一个新的框架，提供了跨平台的剪贴板支持。FMX 对剪贴板的支持来自两个接口： IFMXClipboardService：位于 FMX.Platform.pas 中

  IFMXClipboardService = interface(IInterface)
    ['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']
    /// <summary>
    ///   Gets current clipboard value
    /// </summary>
    function GetClipboard: TValue;
    /// <summary>
    ///   Sets new clipboard value
    /// </summary>
    procedure SetClipboard(Value: TValue);
  end;

IFMXClipboardService = interface(IInterface)

['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']

/// <summary>

/// Gets current clipboard value

/// </summary>

function GetClipboard: TValue;

/// <summary>

/// Sets new clipboard value

/// </summary>

procedure SetClipboard(Value: TValue);

end;

IFMXExtendedClipboard

[技巧] 解决 Windows 8 / 10 无法通过 Screen 的 Imes 正确获取当前安装的输入法列表的问题

2016-01-222016-01-23 • C++ Builder、Delphi • 暂无评论 • swish •浏览 3,611 次

【问题原因】该问题是由于微软从 Windows 8 开始，GetKeyboadLayouts 函数不再有效，而 VCL 中仍然是通过该方法获取输入法列表造成的。希望下个版本的 Delphi/C++ Builder 能够解决。【解决办法】如果是 Win8+，则自己从注册表读，如果是Win 7 等以前的版本，则直接

使用QLogServer来跟踪Linux日志

2014-10-222014-10-23 • C++ Builder、Delphi • 2 条评论 • swish •浏览 3,351 次

1、启用Linux中的日志远程输出功能修改Ubuntu的/etc/rsyslog.conf，添加下面的行，其中的192.168.1.3替换为QLogServer的IP地址：

*.* @192.168.1.3:514

1	. @192.168.1.3:514

2、启动QLogServer，注意不要让防火墙阻止通讯。【实际运行效果】 Q

判断当前操作系统是否是64位操作系统

2014-08-24 • Delphi • 暂无评论 • swish •浏览 1,404 次

实际上就是通过判断64位操作系统上特有的函数来解决就可以，当然前提你的程序是32位的，64位的程序判断是没有必要的，因为32位上跑不起来。下面的代码抄自盒子上的论坛帖子wang_80919 (Flying Wang)的回复：

function IsWOW64: BOOL;
  begin
    Result := False;
    if GetProcAddress(GetModuleHandle(kernel32), 'IsWow64Process') <> nil then
      IsWow64Process(GetCurrentProcess, Result);
  end;

function IsWOW64: BOOL;

begin

Result := False;

if GetProcAddress(GetModuleHandle(kernel32), 'IsWow64Process') <> nil then

IsWow64Process(GetCurrentProcess, Result);

end;

登录