🚀 go-pugleaf

Czego używacie do pobierania danych z REGONU w Windows10

ICS ma problemy z DNS
A indy z ssl (długość klucza)

function SendData(SessionID: string; Akcja: string; Dane: string; URL: 
string = URL_service): string;
var
   Cli: TIdHttp;
   SSLContext: TIdSSLIOHandlerSocketOpenSSL;
   strm: tstringlist;
   Bytes: TBytes;
   i, j: Integer;
begin
   Cli := TIdHTTP.Create(nil);
   SSLContext := TIdSSLIOHandlerSocketOpenSSL.Create(Cli);
   SSLContext.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, 
sslvSSLv3, sslvTLSv1];
   Cli.IOHandler := SSLContext;
   try
     result := '';
     Cli.Request.Clear;
...
     Cli.Request.Method := 'POST';
     if SessionID <> '' then
       Cli.Request.CustomHeaders.Add('Sid: ' + SessionID);
     strm := TStringList.Create;
     try
       try
         strm.text := Dane;
       except
         on E: Exception do
           ShowMessage('SendData -> strm.text' + #13 + 'DANE ' + #13 + 
Dane + #13 + E.Message);
       end;
       Cli.Response.CharSet := 'UTF-8';
       try
         result := Cli.Post(URL, strm);
       except
         on E: Exception do
           ShowMessage('SendData Post Error' + #13 + E.Message);
       end;
     finally
       strm.free;
     end;
   finally
     Cli.IOHandler := nil;
     Cli.Request.Clear;
     FreeAndNil(Cli);
     FreeAndNil(SSLContext);
   end;
end;


Non stop mam Accesviolation w libeay32.dll
przy wołaniu result := Cli.Post(URL, strm);