小编Dan*_*llo的帖子

如何从Native(C++)代码返回文本

我使用Pinvoke实现本机(C++)代码和托管(C#)代码之间的互操作性.我想要实现的是从本机代码中获取一些文本到我的托管代码中.为此,我尝试了很多东西,例如通过ref传递字符串/ stringbuilder,使用[IN]和[OUT],Marshaling到LPSTR,从函数返回字符串等,但在我的情况下没有任何作用.任何有关一些小代码的帮助都将受到高度赞赏.

c# c++ string pinvoke

33
推荐指数
2
解决办法
1万
查看次数

26
推荐指数
5
解决办法
2万
查看次数

常数的好处

我理解有关常量的一个重要事项是你不必经历并更新代码,在那里使用该常量.多数民众赞成,但是我们说你没有明确地宣布它为常数.如果HAPPENS实际上没有被改变并且使其成为常数,那么存在什么好处(s)是否会节省处理和/或代码的大小等等?

基本上我有一个程序,编译器说一个特定的变量没有改变,因此可以声明为常量,我只是想知道添加常量限定符对它有什么好处,如果它没有区别那么制作这种变化没有增加任何价值,因此没有浪费时间(同样的情况发生在多个地方)回去并"修复"所有这些变量.

programming-languages constants

14
推荐指数
3
解决办法
9351
查看次数


如何自动滚动到RichEdit的末尾?

我以前从不需要使用TRichEdit,总是使用TMemo.

当我添加像TMemo这样的文本时,我希望RichEdit自动滚动到最后.了解添加一些数据后的样子:

在此输入图像描述

如您所见,滚动条保持在顶部,但我希望它在我添加文本时保持在底部.

我已经谷歌搜索了解决方案,但我找不到一个好的和可靠的.

delphi scroll richedit autoscroll

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

如何使用datasnap获取作为标头传递的标记?

在我的客户端应用程序中,我使用以下代码在标头中添加一个标记:

RESTRequest.Params.AddItem('Authorization', 'Bearer ' + MyToken, TRESTRequestParameterKind.pkHTTPHEADER, [TRESTRequestParameterOption.poDoNotEncode]);
Run Code Online (Sandbox Code Playgroud)

我想使用datasnap在我的服务器中获取此令牌.

我试过用这里这里的答案,但没有成功.

可能吗?

我怎样才能做到这一点?

编辑

我可以验证Datasnap执行TIdCustomHTTPServer.DoParseAuthenticationDoParseAuthentication调用FOnParseAuthentication它是否已分配.

那么,我怎么能破解Datasnap分配我自己的OnParseAuthentication

我认为这解决了我的问题.

delphi indy datasnap http-headers firemonkey

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

如何在delphi中没有close和open数据集的情况下刷新dbgrid?

我需要实时刷新dbgrid.关闭和打开数据集工作正常,但闪烁dbgrid.我该怎么做才能避免这种情况?

我想要像Ajax这样的解决方案,只更新必要的解决方案.

谢谢

delphi ajax dataset dbgrid

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

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

Delphi DataSnap框架向JSON消息添加内容

我正在使用Delphi XE DataSnap REST服务器并尝试返回JSON序列化对象.我的方法返回到客户端的结果如下所示:

{"type":"ServerMethodsUnit1.TJSONIssue",
 "id":1,
 "fields":{
           "FIssueNo":90210,
           "FTitle":"Beverly Hills...that''s where I want to be",
           "FKind":"Wishlist"
          }
}
Run Code Online (Sandbox Code Playgroud)

格式良好的JSON.

问题是,当客户端收到消息时,会添加一些东西,它看起来像这样:

{"result": ["{\"type\":\"ServerMethodsUnit1.TJSONIssue\",
              \"id\":1,
              \"fields\":{
                          \"FIssueNo\":90210,
                          \"FTitle\":\"Beverly Hills...that's where I want to be\",
                          \"FKind\":\"Wishlist\"}
             }
            "
           ]
}
Run Code Online (Sandbox Code Playgroud)

"result"在前面得到了一堆反斜杠字符和标签.

我想知道是否有人知道为什么我会得到这些额外的东西以及如何摆脱它.

delphi rest json datasnap

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

如何测试函数和过程,因为它们不属于Delphi中的类?

我在旧单元中有几个小功能Utils.pas.

现在我想重构一些,但我认为最好先编写测试.有了DUnit,我认为没有课程就不可能.

所以我想知道如何在重构之前测试它们?

编辑:

我认为这是不可能的,因为我试图使用测试用例向导在Delphi中添加测试用例.请看下面的图片,没有任何类和方法,所以我无法创建它.

在此输入图像描述

delphi testing unit-testing dunit

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