在SSL模式下读取和连接套接字(lNet)

时间:2017-02-06 21:25:35

标签: ssl pascal lazarus freepascal

我使用lNet组件。我有证书和pkey。 我为多客户端连接创建服务器。没有SSL,一切都很好。 On Onceceive函数我收到一个Socket:

procedure TFormMain.LTCPComponentReceive(aSocket: TLSocket);
var
  s: string;
begin
  if aSocket.GetMessage(s) > 0 then begin
    //save socket in some array or map - SomeArray[I]:=aSocket;

之后我可以识别套接字,读取和写入某个数组f.ex

中的套接字
TLTCPComponent.SendMessage(SomeArray[I], Message);

但是当我打开SSL模式时,这不起作用:(你能告诉我如何在少数客户端套接字的SSL连接模式下创建SSL连接,读写数据?

现在通常看起来像这样:

  • 客户端连接到服务器
  • 服务器将aSocket保存到数组
  • 服务器可以写入数组中的aSockets

它不使用SSL,SSL不会:(

我查看了演示,但是有一个示例,发送到所有连接的客户端,但我想识别客户端并读取,发送数据以指定一个。

我真的需要一个例子和帮助:(

THX!

0 个答案:

没有答案