主页 / coding / 问题

问题[delphi](coding)

Martin Hope
Alfredo Baciu
Asked: 2024-11-08 00:45:57 +0800 CST
  • 8

我正在查看 Delphi包文件文档，并注意到BPL其他操作系统的等效文件分别是dylibMacso和 Linux 的。

我不确定 Delphi 是否有等效的头文件(.h/.hxx)。

在 Mac 中，如果我想共享一个项目（用 c/c++ 构建）而不公开源代码，我会共享dylib文件和h/hxx文件。

例如，在 Delpih 中，如果我想共享一个库而不公开源代码。其他帖子提到您必须提供一个.dcu和.bpl文件。

这使我相信 Delphi 中头文件的等效项必须是一个文件，但文档dcu中的描述 听起来不像头文件。

也许我理解得不正确？

delphi
Martin Hope
Brian THOMAS
Asked: 2024-10-25 18:08:54 +0800 CST
  • 5

我们有一个 Windows 打印机驱动程序需要移植到 ARM

目前构建目标是 x64，驱动程序可以安装在英特尔 Windows 7 - Windows 11 上

该驱动程序进行两次 COM 调用 - 一次调用用 Delphi 编写的 x64 本机 COM dll，另一次调用用 C# 编写的 dotnet AnyCPU COM dll

我非常有信心，本机 ARM 到 AnyCPU dll 调用将起作用，而无需我修改 AnyCPU dll 的构建。

我的问题是 - 我是否需要重建 Delphi COM dll 以使其也针对 ARM，或者 ARM Windows 内置的 x64 模拟器是否会处理它？

delphi
Martin Hope
Jan Doggen
Asked: 2024-10-24 20:13:27 +0800 CST
  • 6

我正在追踪一些字符编码代码，发现System.SysUtils

function TEncoding.GetBytes(const S: string): TBytes;
var
  Len: Integer;
begin
  Len := GetByteCount(S);
  SetLength(Result, Len);
  GetBytes(S, Low(S), Length(S), Result, 0, Low(S));
end;

这里做什么Low(S)？

GetBytes()这里调用的重载是：

function TEncoding.GetBytes(const S: string; CharIndex, CharCount: Integer;
  const Bytes: TBytes; ByteIndex: Integer; const StringBaseIndex: Integer): Integer;

这有一个有点神秘的评论：

// StringBaseIndex : Low(string) on caller's context
delphi
Martin Hope
Craig
Asked: 2024-10-22 05:32:45 +0800 CST
  • 5

仅TFilterHueAdjust允许修改位图的色调。我们如何更新它以应用饱和度和亮度 (HSL)？

procedure AdjustHSL(Source, Dest: TBitmap; H, S, L: Single);
var
  Filter: TFilterHueAdjust;
begin
  Filter := TFilterHueAdjust.Create(nil);
  try
    Filter.Input := Source;
    Filter.Hue := H;
    Dest.Assign(Filter.Output);
  finally
    Filter.Free;
  end;
end;

我尝试分别应用亮度和对比度，TFilterContrast但改变它会丢失色调（似乎一次只能应用一个过滤器？）。

有什么想法吗？

谢谢。

delphi
Martin Hope
user1580348
Asked: 2024-10-20 00:09:11 +0800 CST
  • 6

WIN+.在 Windows 10/11 上，可以通过按下按键（Windows 键 + 句点键）来调用 Windows Emoji 面板

我尝试模拟按下这些键：

procedure ShowEmojiPanel;
var
  Inputs: array[0..3] of TInput;
begin
  // Simulate pressing the Windows Key
  ZeroMemory(@Inputs, SizeOf(Inputs));
  Inputs[0].Itype := INPUT_KEYBOARD;
  Inputs[0].ki.wVk := VK_LWIN;

  // Simulate pressing the '.' key
  Inputs[1].Itype := INPUT_KEYBOARD;
  Inputs[1].ki.wVk := Ord('.');

  // Simulate releasing the '.' key
  Inputs[2].Itype := INPUT_KEYBOARD;
  Inputs[2].ki.wVk := Ord('.');
  Inputs[2].ki.dwFlags := KEYEVENTF_KEYUP;

  // Simulate releasing the Windows Key
  Inputs[3].Itype := INPUT_KEYBOARD;
  Inputs[3].ki.wVk := VK_LWIN;
  Inputs[3].ki.dwFlags := KEYEVENTF_KEYUP;

  // Send the inputs
  SendInput(4, Inputs[0], SizeOf(TInput));
end;

procedure ShowEmojiPanel;
begin
  // Press WIN key
  keybd_event(VK_LWIN, 0, 0, 0);

  // Press period (.)
  keybd_event(Ord('.'), 0, 0, 0);

  // Release period (.)
  keybd_event(Ord('.'), 0, KEYEVENTF_KEYUP, 0);

  // Release WIN key
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

但是，似乎这些程序都无法在我的电脑上打开 Windows Emoji 面板Windows 11。

还有其他方法可以以编程方式显示 Windows 表情符号面板吗？

delphi
Martin Hope
Issam
Asked: 2024-10-19 18:12:38 +0800 CST
  • 5

我正在开发一个 Delphi 项目，需要解码从二维码中提取的 base64 字符串。二维码包含文本数据、日期和数值的混合。以下是我正在使用的 base64 字符串的示例：

AT9NVU5JUiBBQkRVTExBSCBBTE1VTklGIEZBQ1RPUlkgRk9SIFBMQVNUSUMgUElQRVMgJiBGSVRUSU5HUyBDTy4CDzMwMDUyODA3OTYwMDAwMwMTMjAyNC0xMC0xM1QwNDo0MDoyMwQINDM5NTIuNDEFBzU3MzIuOTIGLFdPMkt1TE9CS2tkMkdRSnU1ZTA3Zzd3RU5vVXFoVy92UFZVTzA5UkdWTzQ9B2BNRVFDSUVPYm95MjRmNExMYzRFeDlEdkpqbUxnYU5BWS9Ybmo2UGhlUWNxYVYwbUxBaUJjVDZlZ2VpKzBXMFhNbVc1bW9FOWh5QUFwdjJCRUtXS2t6dWJ5UENKSGdnPT0IWDBWMBAGByqGSM49AgEGBSuBBAAKA0IABKjKpalSynCgT1a7cnHqONrPEWyCpcqx2PLnhzmXsH1CtjSbfljxm5adWyeZ2ekTcynTBhMXAkmW85x+SGllB5w=

当我尝试使用 Delphi 中的 TNetEncoding.Base64.Decode 对其进行解码时，出现以下错误：

No mapping for the Unicode character exists in the target multi-byte code page.

我注意到，如果二维码字符串比上面的例子短，就不会发生错误。我还尝试了下一个方法，但仍然出现相同的错误：

DecodedBytes := TNetEncoding.Base64.DecodeStringToBytes(QRstr);
DecodeString := TEncoding.UTF8.GetString(DecodedBytes);

任何建议或示例代码都将不胜感激！

delphi
Martin Hope
Jakub Sluka
Asked: 2024-10-12 00:00:10 +0800 CST
  • 5

我正在学习 Delphi，当我调用执行逻辑的私有函数时，无法显示对话框。它看起来像是一个空指针引用，但我找不到它在哪里。

图像

以下是代码：

unit SandBox;

interface

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

type
  TForm1 = class(TForm)
    AhojButton: TButton;
    procedure AhojButtonClick(Sender: TObject);

  private
    procedure ShowDialog(amount: Integer);

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShowDialog(amount: Integer);

  var td: TTaskDialog;
  var tb: TTaskDialogBaseButtonItem;
begin

  try
    td := TTaskDialog.Create(nil);
    tb := TTaskDialogBaseButtonItem.Create(nil);

    td.Caption := 'Warning';
    td.Text := 'Continue or Close?';
    td.MainIcon := tdiWarning;
    td.CommonButtons := [];

    tb := td.Buttons.Add;
    tb.Caption := 'Continue';
    tb.ModalResult := 100;

    tb := td.Buttons.Add;
    tb.Caption := 'Close';
    tb.ModalResult := 101;

    td.Execute;

    if td.ModalResult = 100 then
      ShowMessage('Continue')
    else if td.ModalResult = 101 then
      ShowMessage('Close');

  finally
    td.Free;
    tb.Free;
  end;

end;

procedure TForm1.AhojButtonClick(Sender: TObject);
begin
  ShowDialog(100);
end;

end.

我试图实例化并释放TTaskDialog和TTaskDialogBaseButtonItem。

此行引发错误：

tb := TTaskDialogBaseButtonItem.Create(nil);
delphi
Martin Hope
Ivan
Asked: 2024-10-11 23:13:06 +0800 CST
  • 5

我正在尝试过滤从数据库加载到 DBGrid 的产品。当我尝试过滤时，无法执行查询。它返回一个空白sql.Text。我不知道为什么会这样？

这是我的代码

procedure TProizvodiForm.PronadjiButtonClick(Sender: TObject);

var Filter: string;

begin
     Filter := 'SELECT productid as ID, name as Proizvod, code as Kod, manufname as Proizvodjac, unitname as Pakovanje FROM product WHERE ';

    if prizvodFilterTEdit.Text <> '' then
      begin

          Filter := Filter + '`name` LIKE ' + QuotedStr(prizvodFilterTEdit.Text+'%');

      end;
    if kodFilterTEdit.Text <> '' then
      begin
        Filter := Filter + ' AND code LIKE ' + QuotedStr(kodFilterTEdit.Text+'%');
      end;
    if proizvodjacFilterTEdit.Text <> '' then
      begin
        Filter := Filter + ' AND manufname LIKE ' + QuotedStr(proizvodjacFilterTEdit.Text+'%');
      end;

     with DB.ZQuerySelect do
      begin
        Active := false;
        sql.Clear;
        sql.Text := Filter;
        Active := true;

        ShowMessage(sql.Text); // debug
      end;
     
end;

但是， 当我直接输入查询时sql.Text，它可以工作，但是当设置变量时，它不起作用。

with DB.ZQuerySelect do
      begin
        Active := false;
        sql.Clear;
        sql.Text := 'SELECT productid as ID, name as Proizvod, code as Kod, manufname as Proizvodjac, unitname as Pakovanje FROM product WHERE `name` LIKE ' + QuotedStr(prizvodFilterTEdit.Text+'%');
        Active := true;

        ShowMessage(sql.Text);
      end;
delphi
Martin Hope
Hugo
Asked: 2024-10-10 19:58:02 +0800 CST
  • 5
procedure TForm1.Button1Click(Sender: TObject);
var
  pBuffer: PAnsiChar;
begin
  FreeMem(pBuffer);
  ShowMessage('Test1');
end;

此代码是错误的，因为我们先使用FreeMem()而没有使用GetMem()。但我只是想知道，如果这种情况发生在一个大型项目中，为什么 Delphi 会挂起得这么厉害。

从 IDE 运行，我们没有收到任何错误FreeMem()，但是在ShowMessage()：

项目 Project1.exe 引发异常类 $C0000096，消息为“0x02df81f8 处的特权指令”。

运行可执行文件时，整个应用程序会挂起并显示白色消息。无法关闭它。如果您离开该窗口一段时间，则会以“级联”方式收到更多白色消息。

图像

如果您替换ShowMessage()为Application.MessageBox()，则不会引发任何错误，但是当您尝试关闭应用程序时，您会收到错误“无效指针”，但奇怪的是有时会出现这种情况。

procedure TForm1.Button1Click(Sender: TObject);
var
  pBuffer: PAnsiChar;
begin
  FreeMem(pBuffer);
  Application.MessageBox(PChar('Test'), PChar(Application.Title), MB_ICONINFORMATION OR MB_TASKMODAL);
end;

图像

我想知道是否可以FreeMem()安全地使用它。我尝试用这个 proc 来替换FreeMem()这里找到的：使用单个函数在 Delphi 中释放内存和 nil但它没有帮助，在ShowMessage()使用后使用时我得到了同样的错误FreeMemAndNil()。

procedure TForm1.FreeMemAndNil(var P);
var
  Tmp: Pointer;
begin
  Tmp := Pointer(P);
  Pointer(P) := nil;
  FreeMem(Tmp);
end;
delphi