Question

我很遗憾不得不问这个问题，但我显然不明白德尔福的一些基本要素。

当您声明类似TIdSSLIOHandlerSocketOpenSSL的类的变量时，您需要将其启动到什么位置？显然，如果它是一个字符串或一个整数，那么必需的值将是一个整数的字符串，但在这种情况下，它不那么明显（对于像我这样无能为力的人）。不启动它会导致访问冲突，我理解为什么在其上找到了一篇文章here at about.com，但该文章没有解释要启动的内容。

下面是提供访问冲突的代码，因为我没有启动变量客户端（它是一个没有gui的应用程序）

program New;

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Sockets, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdServerIOHandler, IdSSL, IdSSLOpenSSL;


function Handshake(target: string; port: integer) : string;
var client: TIdSSLIOHandlerSocketOpenSSL;
begin
client.Create();
client.Port := port;
client.Destination := target;
client.Destroy;
end;


begin

  Handshake('127.0.0.1',15);

end.

为我的无知道歉，

<磷>氮

Answer 1

您需要使用语法TIdSSLIOHandlerSocketOpenSSL.Create来调用构造函数并将结果保存到实例变量中：

function Handshake(target: string; port: integer) : string;
var
  client: TIdSSLIOHandlerSocketOpenSSL;
begin
  client := TIdSSLIOHandlerSocketOpenSSL.Create;
  try
    client.Port := port;
    client.Destination := target;
    Result := ...;//don't forget to assign the return value to something
  finally
    client.Free;
  end;
end;

还可以使用try/finally来保护面对异常时对象的生命周期。 finally块将始终执行，前提是执行通过尝试。

要销毁对象，您应该调用Free而不是Destroy。这在这里并不重要，但是当您销毁另一个对象的析构函数中的对象时非常重要。要了解有关Free主题的更多信息，我会将您（我知道的不诚实）推荐给another answer of mine。

在Delphi xe2中初始化给定类的变量

1 个答案: