小编Wol*_*res的帖子

TURLEncoding.Base64.Encode 添加换行符?

似乎URLEncoding.Base64.Encode在长字符串中添加了换行符。我可以以某种方式将其关闭吗?我没有找到任何属性...

delphi base64

4
推荐指数
1
解决办法
407
查看次数

如何确定 TJSONNumber 是 double 还是 Integer?

我正在编写一个通用调用来通过 JSON 存储和检索数据。因此,当从 JSON 加载数据时,我可以验证它是否是 aTJSONNumber但缺乏正确的方法来确定它是否是integerdouble。目前我是这样做的,但我想还有更好的方法吗?

FDataStore: TDictionary<string, Variant>;


for index := 0 to Value.Count - 1 do begin
   Pair := Value.Pairs[Index];
   if Pair.JsonValue is TJSONNumber then
        try
          FDataStore.AddOrSetValue(Pair.JsonString.Value, (Pair.JsonValue as TJSONNumber).AsInt);
        except
          FDataStore.AddOrSetValue(Pair.JsonString.Value, (Pair.JsonValue as TJSONNumber).AsDouble);
        end;
end;
Run Code Online (Sandbox Code Playgroud)

delphi json numbers

4
推荐指数
1
解决办法
122
查看次数

Indy TIdHTTPServer.OnCommandGet - 连接到哪个端口?

我有一个TIdHTTPServer可以在多个端口上访问的端口(由于迁移),并且我需要找出当前数据(在 中OnCommandGet)的来源。我可以从哪里检索正确的端口号?

delphi indy

3
推荐指数
1
解决办法
214
查看次数

TThread 中的 Application.ProcessMessages?

Application.Processmessages在线程(不是主线程)内部调用是否“可以”,或者我应该期待麻烦吗?

delphi multithreading

2
推荐指数
2
解决办法
290
查看次数

在 Delphi 中连接到 Windows Media Player

我想编写一个应用程序来启动/停止,并淡入/淡出Windows Media Player. 我只有Delphi知识,未能转换所有c++c#此主题相关的内容和示例。有人可以帮我 实现IServiceProviderIWMPRemoteMediaServices实施吗?

提前致谢!

delphi media-player

1
推荐指数
1
解决办法
4090
查看次数

工作线程如何结束应用程序?

我似乎遇到了工作线程知道关闭应用程序的挑战,但既不工作PostQuitMessage()也不Application.Terminate()似乎工作。应用程序只是不退出,没有错误。

我是否必须设置一个标志来从主线程调用其中一个,还是有其他技巧?

该线程检查更新的版本并调用更新程序来替换.exe(一旦它不再被锁定)。调用更新程序后,需要退出应用程序。

delphi multithreading

1
推荐指数
1
解决办法
103
查看次数

如何在 Android 应用程序中存储设置?

我希望我的应用程序保存/加载设置(并在“升级”/安装新版本时保留它们)。我可以为此使用哪个组件?我猜注册表将不可用:-)

更新:像字符串、数字或布尔值这样的设置。应用程序设置,用户在应用程序内部“管理”。

delphi android firemonkey delphi-10.3-rio

1
推荐指数
1
解决办法
162
查看次数

写入 Unicode (UTF-8) 文本文件

如何在 Delphi 中编写 Unicode 文本文件?

目前我只使用AssignFile,RewriteFileWriteln,但这不会写 Unicode 字符。

delphi unicode character-encoding text-files delphi-10.3-rio

0
推荐指数
2
解决办法
417
查看次数

为什么我的表单上发布的事件没有显示在编辑器中

我已在主窗体中添加了一个已发布的事件,希望它会显示在编辑器中,但事实并非如此。我做错了什么,还是事实并非如此?

THIFISongEndEvent = procedure(Sender: TObject; EstimatedEndTime: TDateTime) of object;

  TMain = class(TForm)
[...]
  published
    property OnSongEnd: THIFISongEndEvent read FOnSongEnd write SetOnSongEnd;
Run Code Online (Sandbox Code Playgroud)

编辑:添加代码

delphi delphi-10.4-sydney

0
推荐指数
1
解决办法
150
查看次数

For-In 中的对象清理

下面的代码会从 TStringlist 中产生内存泄漏吗?

function TDemo.GetList:TStringlist;

begin
 Result:=TStringlist.Create;
{...}
end;

procedure TMain.Something;

Var
 S:String;

begin
 For S IN Demo.GetList do begin
 end;
end;
Run Code Online (Sandbox Code Playgroud)

delphi

0
推荐指数
1
解决办法
153
查看次数

Alexa 超出技能授权

我正在尝试访问 Alexa 列表技能,并根据https://developer.amazon.com/en-US/docs/alexa/custom-skills/get-a-user-specific-access-token.html#endpoint -without-account-linking这应该可以通过发送请求来实现。但不幸的是,该文档既没有说明请求应发送到的 URL,也没有说明方法(POS?)。有人可以帮我吗?我尝试过找到的各种 URL,目前正在使用 api.amazon.com/auth/O2/token,但这只是响应

<UnknownOperationException/>
Run Code Online (Sandbox Code Playgroud)

alexa-skills-kit

0
推荐指数
1
解决办法
212
查看次数