From adf25d6b20c488e658a35193deb784d30aef0604 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Tue, 13 Mar 2012 15:03:38 +0000
Subject: [PATCH] Fix SNI on unicode Delphi: 
 https://sourceforge.net/tracker/?func=detail&atid=701386&aid=3464355&group_id=125224

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@148 7c85be65-684b-0410-a082-b2ed4fbef004
---
 ssl_openssl.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ssl_openssl.pas b/ssl_openssl.pas
index 7a2678d..ea4fee6 100644
--- a/ssl_openssl.pas
+++ b/ssl_openssl.pas
@@ -515,7 +515,7 @@ begin
       Exit;
     end;
     if SNIHost<>'' then
-      SSLCtrl(Fssl, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, pchar(SNIHost));
+      SSLCtrl(Fssl, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, PAnsiChar(SNIHost));
     x := sslconnect(FSsl);
     if x < 1 then
     begin