如何从Delphi中的函数返回一个对象而不会导致访问冲突？
在Delphi中，从函数返回一个对象时，可以使用智能指针（如TObject或TInterfacedObject）来避免访问冲突。以下是一个示例：
type
TMyObject = class(TInterfacedObject)
private
FValue: Integer;
public
constructor Create(AValue: Integer);
property Value: Integer read FValue;
end;
constructor TMyObject.Create(AValue: Integer);
begin
inherited Create;
FValue := AValue;
end;
function GetMyObject: TMyObject;
begin
Result := TMyObject.Create(42);
end;
var
MyObject: TMyObject;
begin
MyObject := GetMyObject;
try
// 使用MyObject
ShowMessage(IntToStr(MyObject.Value));
finally
MyObject.Free;
end;
end.在这个示例中，我们创建了一个名为TMyObject的类，该类继承自TInterfacedObject。我们使用TInterfacedObject作为基类，因为它实现了引用计数，可以避免访问冲突。
我们创建了一个名为GetMyObject的函数，该函数返回一个TMyObject实例。在函数中，我们创建了一个TMyObject实例，并将其作为函数的返回值。
在主程序中，我们调用GetMyObject函数，并将返回的TMyObject实例赋值给MyObject变量。我们可以使用MyObject变量来访问TMyObject类的属性和方法。
最后，我们需要在finally块中释放MyObject实例，以避免内存泄漏。
总之，在Delphi中从函数返回一个对象时，使用智能指针可以避免访问冲突。
相关·内容
当我向Delphi项目添加文件或表单时，通常会遇到访问冲突。然后我必须重新启动Delphi，打开这个项目，然后再试一次。它有时起作用，有时我也会受到同样的访问冲突。自XE8以来，在所有Delphi版本中，我都有这个问题。
其他Delphi程序员似乎也有同样的问题，比如Embarcadero社区：
有人说这是由第三方图书馆造成的。我怀疑这一点。当您查看堆栈跟踪时，没有第三方库。
复制：
在(某种程度上)较大的项目中工作，并在添加单元之前进行一些代码更改。
添加一个新的单元/表单: File>New>Unit -或使用拖放或“向项目添加文件”添加现有文件，或者从项目中删除文件。
浏览 3提问于2018-09-26得票数 2
回答已采纳
我需要创建一个这样的类
unit Classname;
interface
type
TSomeClass = class
public
member1 : SomeType;
member2 : AnotherDataType;
....
function SomeFunction: SomeType; stadcall;external 'ExternalDll.dll';
end;
这是可以做到的吗？
如何从Delphi中的类声明外部函数(存储在c dll中)
我使用的是Delphi
浏览 0提问于2016-08-04得票数 3
我使用AllocMem/GetMem/New例程来分配内存，然后使用FreeMem/Dispose例程来释放内存。但是我发现(通过Process Explorer)进程的内存大小并没有减小。
如果我使用GlobalAllocPtr/HeapAlloc和GlobalFreePtr/HeapFree API，内存大小将会减小。
下面是我的测试代码：
type
TMyRec = record
Name: string;
TickCount: Cardinal;
Buf: array[0..1024 - 1] of byte;
end;
PMyRec = ^TMyR
浏览 2提问于2011-04-03得票数 10
回答已采纳
我是Delphi的新手，我的问题可能很基本。
我在Delphi过程中创建了一个表单。到目前为止，我一直在使用ShowModal()，然后在关闭表单后释放我希望避免泄漏的所有对象。
现在，我想展示无模式窗体，但我不知道如何释放OnClose事件中的对象。
有谁知道它的解决方案吗？
浏览 8提问于2017-05-26得票数 2
我使用Delphi10.4.1 Enterprise并使用SQLite数据库编写了一个VCL程序。
正如我所怀疑的OneDrive问题，我提到源代码文件夹是由OneDrive管理的区域的一部分。
有时，在调试过程中，我的Delphi程序由于未知的原因而挂起，而Delphi则在没有进一步通知的情况下退出了。每当发生这种情况时，MainForm和DataModule (DM1)之间的连接就会丢失:在MainForm的对象检查器中，所有的DataSource赋值(即与DataModule中的DataSources的连接)都会消失。此外，当我重新加载程序时，会出现错误消息。
模块'rtl270
浏览 5提问于2020-12-10得票数 1
在Delphi2010中使用下面的代码时，会出现"Access Violation“错误，但同样的代码在VC++中运行良好。
Delphi 2010代码是
var
hMyInf : HINF;
begin
hMyInf := SetupOpenInfFile('.\\DIGIMHID.INF','Mouse', INF_STYLE_WIN4,Nil);
VC++代码是
hMyInf = SetupOpenInfFile(".\\DigimHID.inf", "Mouse", INF_STYLE_WIN4, NULL);
浏览 1提问于2011-02-13得票数 3
回答已采纳
Delphi联机帮助指出，应使用Release从内存中删除表单。然而，在许多模态形式的示例中，我看到了这种结构：
MyForm := TMyForm.Create(nil);
try
MyForm.ShowModal;
finally
MyForm.Free;
end;
免费是一种安全的销毁模式表单的方式吗？正如我在ShowModal的源代码中看到的，Application.HandleMessage将被调用，直到ModalResult不为0。这就是为什么Free不能干扰挂起的windows消息的原因吗？
浏览 5提问于2009-05-27得票数 13
回答已采纳
5回答
我的程序有以下代码：
function FooBar(const s: string): string;
var
sa: AnsiString;
begin
// ..........................
sa := AnsiString(s);
sa := AnsiString(StringReplace(string(sa), '*', '=', [rfReplaceAll]));
sa := AnsiString(StringReplace(string(sa), ' ', '+', [r
浏览 6提问于2014-04-29得票数 7
回答已采纳
首先，我对Delphi和COM非常陌生，但我应该用Delphi构建COM应用程序。我在互联网上读了很多文章和笔记，但我对Delphi中的COM和COM仍然不太清楚。
我的资源- (大约80行)。
我尝试创建一个COM接口和Impl类-如果我从Delphi调用一个接口方法(我通过TestClient.Create创建一个impl对象)，但如果我试图从外部世界(从Java语言，通过com4j)创建一个对象，我的应用程序崩溃，并出现以下异常：
Project Kernel.exe raised exception class $C0000005 with
message 'access
浏览 3提问于2010-04-23得票数 2
回答已采纳
1回答
环境: VS2008 (ATL)，Borland Developer Studio2006。
大家好。我在处理ActiveX控件事件时遇到了一些麻烦。
以下是对我的应用程序架构的简要描述：
有一个inproc COM服务器，其中包含STA控件(又称控件)和MTA对象(又称对象)。
下面是控件和对象接口的IDL定义：
[
object,
uuid(2338CCAF-BBAF-4E29-929B-A67285B1E772),
dual,
nonextensible,
pointer_default(unique)
]
interface IObject :
浏览 0提问于2008-10-04得票数 0
我使用了Spyder，运行Python2.7。
刚刚发现了有趣的事情：
散列(-1)和散列(-2)都返回-2，有问题吗？我认为不同对象上的散列函数应该返回不同的值。我读过以前的文章-1是作为Python中的一个错误保留的。
散列(‘s’)返回1835142386，哈希(1835142386)返回相同的值。这又是另一个问题吗？
谢谢。
浏览 1提问于2016-07-14得票数 8
我正在看一些代码(Delphi 7)，在每个特定对象的方法调用的顶部都有以下检查：
if not Assigned(self) then
raise Exception.CreateRes(@sAbstractError);
{ Real code for this method}
我猜这会阻止我尝试调用空对象指针上的方法。但是在这种情况下，只要我试图访问成员数据，我就会得到一个异常，对吧？
这是一种我从未见过的标准吗？有问题的对象是从TPersistent派生的。
浏览 1提问于2009-06-24得票数 9
回答已采纳
我认为DELPHI语言通过属性方法和清晰的getter和setter函数提供了一个非常清晰和漂亮的数据封装实现。
我希望通过getter和setter函数访问类字符串列表strlst。代码示例中的选项1运行良好，但调用Stringlist.Commatext函数的选项2实际上不起作用。
这是DELPHI的错误，还是我错过了一些关于类设计的内容？
目标:填充类字符串列表，而不创建外部Tstringlist列表类，只需传递逗号。
program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, classes;
ty
浏览 3提问于2022-01-02得票数 -1
我试图在Delphi中的一个FullScreen应用程序中使用TForm的FireMonkey属性，但是FullScreen := true不起作用。
浏览 2提问于2019-09-09得票数 1
回答已采纳
我们正在尝试将内置浏览器组件从TWebBrowser更改为。它主要用于显示谷歌和必应的地图。从javascript到Delphi的通信是用COM完成的。
当试图将浏览器更改为TChromium时，它无法编译此代码。
if supports(fBrowser.defaultInterface, IOleObject, fOLE) then
因为defaultInterface从TChromium中消失了。
编辑：还可以用Chromium从javascript到Delphi进行通信吗？我知道它们是不兼容的，我必须重写代码。我只想知道如何从javascript到delphi获得结果。注意，我使用的是
浏览 5提问于2011-07-27得票数 2
回答已采纳
1回答
我需要你的帮助拜托。我试图从Delphi 10，西雅图，从Inno安装程序(ANSI)中调用DLL中的函数。但我不明白问题出在哪里。如果我用Delphi进行应用程序，并从DLL调用这个函数，它就能很好地工作！请参见代码清单：
Delphi：
function Process(Pb: TProgressBar): Integer; stdcall;
var
I: integer;
begin
for I := 0 to 1000 do
begin
Pb.Position := I;
Pb.Update;
Sleep(10);
end;
end;
Expo
浏览 14提问于2016-02-08得票数 1
回答已采纳
我在Delphi中编写了一系列用于其他开发环境的ActiveX控件(如Visual或dBASE for Windows，作为两个示例)
我使用作为的一部分提供的ActiveX向导为基于VCL的控件生成ActiveX“绑定”(因为缺少一个更好的词)，但是它似乎没有生成使它们出现在IDE组件托盘上所需的源代码。
通常，在这些IDE (Visual和dBASE Plus)上，我可以简单地导入一个ActiveX控件，它将显示在它们的工具箱(组件托盘的版本)上，并使用它们定义的图标完成。
好吧，我自己用Delphi生产的ActiveX控件没有(它们导入得很好，但是没有出现在托盘/工具箱上)，过去两周我一
浏览 2提问于2013-02-04得票数 3
回答已采纳
IDE: Delphi XE6。
我的主窗体创建另一个窗体，该窗体创建TFormZoom的一个实例。一切似乎都运行得天衣无缝。
我只想确保我在FormClose中清空指针的过程没有扭曲Delphi的一些内部工作。
procedure TFormZoom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
// if I did not set it to nil here, the next time I would create this form I would get
/
浏览 51提问于2018-06-02得票数 0
回答已采纳
可能重复：
假设我有以下显示模块模式的实现：
var myModule = (function() {
var myVar,
_self = this;
function setMyVar( myVar ) {
_self.myVar = myVar;
}
return {
setMyVar: setMyVar
}
})()
myModule.setMyVar('happy');
我想要做的是将模块级别的myVar设置为“高兴”。这不起作用，因为' This‘等于匿
浏览 2提问于2012-09-23得票数 2
回答已采纳
我正在尝试在某个Delphi项目中构建自己的类。代码如下：
type
TMyClass = class(TObject)
private
hwnMain, hwnChild: HWND;
Buffer, URL: string;
Timer: TTimer;
public
procedure ScanForClass;
end;
var
Form1: TForm1;
TimerAccess: TMyClass;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
TimerAccess.Scan
浏览 0提问于2012-07-24得票数 1
回答已采纳
下面所示的两个程序尝试使用这里描述的技术( )测试一个对象是否被释放。
下面所示的第一个程序如果在Delphi 7下编译，就会正确运行，但是如果在Delphi和上级编译的话，则会错误地运行。也就是说，它的输出
D7 DXE
True True
True True
True False
True True
False True
False False
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
function Vali
浏览 9提问于2015-10-24得票数 1
回答已采纳
在我的Delphi7中，这个代码
var MStr: TMemoryStream;
...
FreeAndNil(MStr);
MStr.Size:=0;
在模块“Project1.exe”中的地址0041D6D1处生成AV:访问冲突。读取地址00000000。但有人坚持，无论发生什么，都不应提出任何例外。他还说，他的Delphi 5确实不例外。他称这为“陈旧的指针错误”。换句话说，他说不能使用FreeAndNil作为调试器来检测释放对象或使用已释放对象的双重尝试。
有人能指点我吗？这个引发和错误(总是/随机的)或者程序应该没有问题地运行这个错误吗？
谢谢
我问这个问题是因为我认为我的程序
浏览 9提问于2008-12-12得票数 8
1回答
在我的Delphi应用程序中，我希望拥有和空闲一样的行为(它使用Python4Delphi，并有Py控制台)。
当我在空闲中输入例如f=func()时，将按原样执行该命令。
当我输入像2+3或math.sin(math.pi/2)这样的简单值时，空闲会隐式地调用print(2+3)或print(math.sin(math.pi/2))。
在何种情况下空闲调用隐式print(...)？这如何取决于我输入空闲提示符的命令字符串？
浏览 4提问于2014-01-28得票数 1
回答已采纳
在将一些代码从Delphi7移植到Delphi2010时，我正在重写我的LoadTextFromFile()函数。
function LoadTextFromFile(const aFullFileName: string): string;
var
lBuffer: TBytes;
lEncoding: TEncoding;
lFileStream: TFileStream;
lSize: Integer;
begin
if not FileExists(aFullFileName) then
begin
raise Excepti
浏览 1提问于2010-08-15得票数 5
回答已采纳
4回答
我正在研究一个用互斥保护全局双变量的例子，但是我得到了错误-
在Lab7.exe中0x77b6308e处未处理的异常: 0xC0000005:访问冲突写入位置0x00000068。
我想这和获得分数有关吧？(全球双倍)
#include <windows.h>
#include <iostream>
#include <process.h>
double score = 0.0;
HANDLE threads[10];
CRITICAL_SECTION score_mutex;
unsigned int __stdca
浏览 0提问于2011-05-12得票数 9
回答已采纳
5回答
我有一个奇怪的问题，一个旧的Delphi应用程序失去了它的数据库连接。实际上，我认为它失去了其他东西，从而使连接要么下降，要么无法使用。该应用程序是用Delphi 6编写的，并使用Direct组件(v4.0.7.1)连接到Oracle 9i数据库。该应用程序作为服务运行，并定期使用TOracleQuery对象(qryAlarmList)查询数据库。为此调用的方法如下所示：
procedure TdmMain.RefreshAlarmList;
begin
try
qryAlarmList.Execute;
except
on E: Exception do
be
浏览 4提问于2010-06-11得票数 2
在访问计算机时，会出现访问冲突错误。当试图访问一个巨大的数据时，这个错误是不一致的，只有可重复的。我有2900个组件，对于每个组件，我都要调用一个函数。在这个函数中，我访问一个ccompter，而这个应用程序会在任意位置崩溃，比如200,210,2500等等。当它崩溃时，位置不是固定的。
此问题特定于具有以下配置的系统: Window 2003 R2 Xeon，2.66GHz 2GB内存
这是我的密码
XGGraphicAttribute* pAttr = pExtraGraphicInfo->GetAttribute();
if(pAttr)
{
DBAttributes* d
浏览 0提问于2011-09-20得票数 0
2回答
有一篇由Raymond Chen写的帖子，在那里。
我不太明白它是如何应用于Delphi的。正常情况下(即不调用IsBadXxxPtr)应该由谁以及如何处理此异常？我知道Delphi插入了一段代码，它(例如)访问大型静态数组的内存-正是出于这个原因:扩展堆栈。
但是如果出现了防护页面异常:谁会在Delphi应用程序中处理它呢？除了以不适当的方式使用try/之外，我不能意外地把它搞乱吗？Delphi的调试器会通知我这些异常吗？
浏览 1提问于2009-04-19得票数 6
回答已采纳
在Delphi 7 a中，创建一个对象是这样的：
A := TTest.Create;
try
...
finally
A.Free;
end;
然而，在一个中，马尔科·坎托说，在Embercadero，他们使用
A1 := nil;
A2 := nil;
try
A1 := TTest.Create;
A2 := TTest.Create;
...
finally
A2.Free;
A1.Free;
end;
在版本升级过程中，尝试最终阻塞的逻辑是否发生了变化？第二个例子对我来说似乎是一个典型的错误！
浏览 0提问于2018-02-05得票数 12
回答已采纳
我在delphi IDE专家中工作，现在为了避免依赖问题，我在考虑将这个专家重建为dll专家，正如其中一个所建议的那样，现在我的专家(编译为bpl)访问Screen和Application全局变量( Delphi IDE的实例)，所以我想知道如果我将我的专家编译为dll我仍然可以访问这些变量，我也想知道which are the main differences between a bpl delphi expert and a dll delphi expert?
浏览 2提问于2011-05-20得票数 4
回答已采纳
我使用Delphi类已经有一段时间了，但从来没有真正开始使用接口。我已经读过一些关于它们的文章，但还想了解更多。
我想听听你在Delphi中使用接口时，在编码、性能、可维护性、代码清晰度、层分离以及你能想到的任何方面都遇到了哪些利弊。
感谢并致以最良好的问候
浏览 0提问于2011-02-01得票数 28
回答已采纳
每次我尝试编译一个使用Delphi (2007) activex的VB项目时，我在delphi activex中得到一个DAX错误。只有当我尝试编译VB项目时，才会发生这种情况。
有人知道可能会发生什么吗？
浏览 0提问于2010-09-22得票数 1
回答已采纳
5回答
最坏情况哈希函数
、、
课堂上提到了一些类似“最坏情况下的散列函数，h(x) = 1”的内容。
(我的讲师出城几周了；我显然会问他我是否可以)。
我的问题是：“最坏情况散列函数”到底是什么意思？是为每个元素赋予相同的值1 (或1%的tableSize)，还是为elementOne赋予散列值1、elementTwo 2、elementThree 3，依此类推？
这可能是个菜鸟问题，但我想我还是要问一下。
浏览 2提问于2017-05-03得票数 3
1回答
我有一个dll库。我已经排除了delphi类型的内存单元。
这样，函数声明的适当Boolean类型是什么？
是BOOL还是别的什么？
问题是，在方法签名中：
function Test(Param1: BOOL; Param2: BOOL; docContent: PCharArray): Integer;
当程序离开这个功能时我会得到AV。
我假定这是这两个第一参数的数据类型的问题。
浏览 0提问于2011-05-05得票数 3
我创建了一个简单的类来解释我的问题：
ttest =class
private
val:boolean;
published
function get:boolean;
end;
...
function ttest.get: boolean;
begin
val:=not val;
result:=val;
end;
现在，如果我声明一个局部ttest变量并调用my_var.get，那么一切都会正常工作，但是如果我将它声明为一个全局变量，那么它就不能再访问val字段，它会显示一条错误消息，上面写着"Access violation...“。我读了一些关于D
浏览 0提问于2012-02-15得票数 1
1回答
我有一个带导出功能的dll
extern "C" __declspec(dllexport) IDriver * __stdcall GetDriver()
有一个用Delphi编写的程序。它看不到GetDriver()函数。这是双重糟糕的，因为我不能获得和修改这个程序的源代码。
我的dll (根据日志文件)加载成功，调用导出功能失败的原因可能是什么？谢谢。
Window 7 x64，Visual Studio2010，用于x86目标的C++项目
浏览 2提问于2012-10-26得票数 0
回答已采纳
2回答
我正在尝试做以下事情
class a{
public:
void Start();
void Tick();
bool IsTimeOut;
};
void a::Start()
{
boost::thread thread1(boost::bind(&a::Tick,this));
}
void a::Tick()
{
while(!IsTimeOut)
{
boost::this_thread::sleep(boost::posix_time::millisec(1000));
}
}
我的环境是vs2005和win7。
然而，我总是在调试中遇
浏览 1提问于2011-08-09得票数 1
使用Python4Delphi，将Delphi方法公开给Python，以便Python可以调用到Delphi应用程序中是相当简单的。但是，我无法将由Delphi方法创建的Python列表返回给Python。例如：
function TDelphiAPI.callMethod : PPyObject;
begin
// Create a new empty list of three elements
result := GetPythonEngine.PyList_New(3);
end;
import mylib
p = mylib.DelphiAPI()
print p.call
浏览 0提问于2018-01-18得票数 5
我们有两个应用程序，第一个是VCL项目，另一个是windows服务。
在VCL项目中，我们这样做：
try
except
on E: Exception do
// do something with E.Message
end
但是，在windows服务(它使用多个线程)中，我们使用：
try
except
// do something with Exception(ExceptObject).Message
end
我从同事那里得到的信息是：“我们必须在线程中使用ExceptObject，在使用GUI的应用程序中使用E: Exception”。但我找不到关于这件事的任
浏览 1提问于2018-02-19得票数 12
回答已采纳
我在Delphi 5中有一个应用程序，旧版，在一些实现之后，访问冲突和系统外资源开始在不同的点发生，没有明显的原因出现问题。
这个系统有几个类型，其中主类可以变成多个类。
示例：
(Teste as TCaixa).Element
我能做些什么或者怎样去尝试去发现问题的根源呢？
浏览 1提问于2014-10-22得票数 0
2回答
我有个大问题。我有一个调用c#动态链接库的delphi5应用程序。我想从delphi调用一个函数，它需要一个指向c#过程的指针作为输入参数。在这个c#函数中，delphi过程是随后调用的。
我尝试使用IntPtr在c#端声明函数指针：
ourFunction(IntPtr fct){
...
helpFct = (OurType)Marshal.GetDelegateForFunctionPointer(fct, typeof(OurType));
...
}
如果我从c#调用这个函数，一切都很正常。但如果我想从Delphi调用它(以delphi过程作为输入参数)，它就会崩溃
浏览 1提问于2011-03-10得票数 3
有一个用C++编写并编译成DLL的函数，我想在我的Delphi应用程序中使用它。
Scraper.cpp:
SCRAPER_API bool ScraperGetWinList(SWin winList[100])
{
iCurrWin=0;
memset(winList,0,100 * sizeof(SWin));
return EnumWindows(EnumProcTopLevelWindowList, (LPARAM) winList);
}
Scrper.h：
#ifdef SCRAPER_EXPORTS
#define SCRAPER_API __decls
浏览 4提问于2009-10-19得票数 2
回答已采纳
我正在尝试写一个例程，它将从Delphi2010应用程序中执行DOS批处理程序。我在Delphi6中工作的老例程总是给我一个错误信息：
"Project1.exe引发异常类EAccessViolation，并显示消息'Access violation at address 7C82F29C in module 'kernel32.dll'. Write of address 004A3B82“。
以下是我在Delphi 6中工作的旧例程：
Procedure TForm1.BatchProgramCall;
var
StartInfo: TSta
浏览 3提问于2009-11-18得票数 1
回答已采纳
在问题中，可以创建一个添加abstract键棒的抽象类。我正在用Delphi翻译一个项目，但我看到它允许创建一个抽象类。这是代码：
type
TCableSPF = class abstract
//code
end;
当然，这是一个抽象类，我有很多实现它的子类。顺便说一句，我看到是否有可能创建这样的一个实例；
a := TCableSPF.Create;
当我试图调用它的方法是虚拟的和抽象的，我得到了错误，这是可以的，但我能阻止类的创建吗？或者Delphi默认允许这样做？谢谢你的帮助
浏览 1提问于2017-05-28得票数 4
回答已采纳
2回答
在Delphi 7中关闭应用程序时，我收到以下错误：
“位于0x011c34a6的指令引用了位于0x018333f4的内存。无法读取内存。”
你知道是什么导致了这个问题吗？
浏览 1提问于2012-08-17得票数 0
回答已采纳
2回答
我正在尝试编写一个函数，该函数从两个指向其他类对象的指针创建一个类对象，但我一直收到读访问冲突错误。我的程序有三个类：
class A {
public:
A(const A& a2); // Special copy constructor
private:
int a = 0;
}
class B {
public:
B(const B& b2); // Special copy constructor
private:
int b = 0;
}
class C {
浏览 1提问于2021-02-04得票数 0
1回答
我正在从c#的dll中调用一个delphi函数。下面是delphi函数的签名：
function CALinkDecode(sCode: PWideChar; SubscriberID, MailshotID, LinkID: PDWORD):
PAnsiChar; stdcall;
我是这样称呼它的。
string input = "qvoxyetvr7wksss2zbrmr";
int cas, cam, cal;
var errorString = CALinkDecode(input, out cas,
浏览 1提问于2013-05-26得票数 3
回答已采纳
经过大量的实验，我找到了一种方法来交换PChar从FreePascal编译的动态链接库与Delphi编译的可执行文件。我负责动态链接库和可执行文件的源代码，但一个必须在FreePascal中，另一个必须在Delphi中。我的解决方案涉及DLL中的以下方法：
function GetAString(): PChar;
var aString: string;
begin
aString := 'My String';
result := StrAlloc(length(aString) + 1);
StrPCopy(result, aString);
end;
p
浏览 0提问于2010-04-14得票数 4
回答已采纳
1回答
我从一个带有斜杠的WebService接收JSON字符串。
当我解析它们时，Delphi会添加反斜杠。
V := TJSONObject.ParseJSONValue( '{"Kode":"ABC/123" }') ;
V.ToString returns : {"Kode":"ABC\\/123"}
在Delphi中解析JSON字符串的最佳实践是什么？
为什么函数V.Value总是返回空字符串？
在单元System.JSON中，我看到了以下代码：
function TJSONAncestor.Value: s
浏览 0提问于2021-05-11得票数 1
在delphi中从函数/过程返回简单对象的最佳实践是什么？
例如：2种代码：
传递创建对象作为引用，在Proc中填充对象，然后销毁它。
procedure Proc(var Obj: TMyObject);
begin
// populate Obj
end;
O := TMyObject.Create;
try
Proc(O);
// manipulate populated object
finally
O.Free;
end;
或将作为函数的结果创建对象，操作后销毁
function Func: TMyObj;
begin
Result := TMyObj.Crea
浏览 5提问于2009-11-08得票数 9
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
