1. Скачиваем boost с официального сайта http://www.boost.org/. Текущая версия на момент написания поста: 1.53.0.

2. Распаковываем архив на диск (я распаковал в c:\boost\boost_1_53_0).

3. Запускаем Visual Studio Command Prompt (2010).

4. Переходим в каталог boost и собираем bjam запустив bootstrap.bat.

5. Собираем boost командой: bjam toolset=msvc-10.0 variant=debug,release threading=multi link=static runtime-link=static

6. Пьем кофе… Ждем завершения…

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

В C++ под Windows есть два способа обработки исключений - традиционный для C++ с пом. try/catch и т.н. структурная обработка исключений или SEH. Основная разница между ними в том, что с помощью try/catch можно реализовывать для разных типов исключений C++ различную реакцию (поведение), а структурная обработка  исключений способна отловить ситуации, которые с пом. catch не ловятся, например, Divide By Zero или Access Violation. SEH - это механизм, предоставляемый операционной системой и на самом деле try/catch реализуется также через него.

Одновременно в одной и той же процедуре использовать оба метода обработки исключений (try/catch и SEH) нельзя. Но можно использовать в одной процедуре try/cath, а в другой SEH.

Оба метода обработки исключений не идеальны и имеют свои достоинства и недостатки.

Основной недостаток try/catch заключается в том, что он не позволяет отловить и обработать все ошибки, а также не показывает место возникновения ошибки. Впрочем, в книжке Джеффри Рихтера (Windows для профессионалов. Создание эффективных Win32-пpилoжeний с учетом специфики 64-разрядной версии Windows) приводится способ перехвата структурных исключений:

1. Нужно создать класс CSE для идентификации структурного исключения:

#include <eh.h>
#include <stdexcept>
 
class CSE
{
public:
    static void MapSEToCE(){ _set_se_translator(TranslateSEToCE); }
    operator DWORD() { return (m_er.ExceptionCode);}
 
private:
    CSE(PEXCEPTION_POINTERS pep)
    {
        m_er = *pep->ExceptionRecord;
        m_context = *pep->ContextRecord;
        if (m_er.ExceptionCode == 0xe06d7363)
        {
            printf("C++ Exception: Code 0x%x, Address 0x%x\n", m_er.ExceptionCode, m_er.ExceptionAddress);
        }
        else
        {
            printf("SEH Exception: Code 0x%x, Address 0x%x\n", m_er.ExceptionCode, m_er.ExceptionAddress);
        }
    }
    static void _cdecl TranslateSEToCE(UINT deEC,PEXCEPTION_POINTERS pep)
    {
        throw CSE(pep);
    }
 
private:
    EXCEPTION_RECORD m_er;
    CONTEXT m_context;
};

2. Для каждого потока надо вызвать один раз CSE::MapSEToCE(), после чего можно обрабатывать структурные исключения как обычные исключения C++:

int DivideByZero()
{
    int x = 100;
    int y = 0;
    return x / y;
}
 
void ThrowException()
{
    throw std::out_of_range("out_of_range");
}
 
void TestCSE()
{
 
    CSE::MapSEToCE();
    try
    {
        //DivideByZero();
        ThrowException();
    }
    catch (CSE se)
    {
        switch(se)
        {
            case EXCEPTION_INT_DIVIDE_BY_ZERO:
                printf("Divide by zero!\n");
                break;
        }
    }
    catch (std::exception & e)
    {
        printf("std::exception: %s\n", e.what());
    }
}

3. Компилировать нужно с опцией /EHa. В противном случае _set_se_translator не сработает и исключения SEH с помощью catch (…) отлавливаться не будут, а компилятор (Visual Studio 2010) выдаст следующее предупреждение:
warning C4535: calling _set_se_translator() requires /EHa

SEH способен отлавливать все исключения и, что важно на мой взгляд, показывать место возникновения ошибки (ExceptionAddress), а также позволяет продолжить выполнение программы с прерванного места. Но, к сожалению, при возникновении исключения C++ в обработчике (фильтре) SEH документированными способами нельзя узнать тип исключения C++ и получить его текст ошибки. Ниже описан недокументированный способ.

Все исключения C++ в фильтре SEH имеют один и тот же код 0xe06d7363. При этом поле NumberParameters содержит 3 (для 32-разрядных приложений), ExceptionInformation[1] указывает на объект-исключение C++, а ExceptionInformation[2] указывает на структуру _ThrowInfo (ExceptionInformation[0] не интересно). _ThrowInfo относится к так называемым Predefined C++ Types. Для использования предопределенных типов не нужно подключать никаких .h файлов. При редактировании IDE Visual Studio подчеркивает их красным цветом и пишет: Error: identifier “_ThrowInfo” is undefined. Но при этом все успешно компилируется и выполняется :-)

Ниже приведен SEH-фильтр, который способен анализировать исключения C++ и выводить информацию об исключении (what()). Стоит отметить, однако, что хотя эта процедура успешно работает в Visual Studio 2010, но нет никаких гарантий, что в будущем Microsoft не поменяет структуру _ThrowInfo.

#include <eh.h>
#include <stdexcept>
 
LONG ExceptionFilter(PEXCEPTION_POINTERS pEP, const char * file, const char * function, int line)
{
    PEXCEPTION_RECORD pER = pEP->ExceptionRecord;
    if (pER->ExceptionCode == 0xe06d7363)
    {
        if (pER->NumberParameters == 3)
        {
            const _ThrowInfo * pThrowInfo = (_ThrowInfo*)pER->ExceptionInformation[2];
            if (pThrowInfo != NULL)
            {
                const _CatchableTypeArray * pTypeArray = pThrowInfo->pCatchableTypeArray;
                if (pTypeArray != NULL)
                {
                    const _TypeDescriptor * pExceptionDesc = (_TypeDescriptor*)&typeid(std::exception);  
                    for (int i = 0; i < pTypeArray->nCatchableTypes; i++)
                    {
                        const _CatchableType * pCatchableType = pTypeArray->arrayOfCatchableTypes[i];
                        if (pCatchableType != NULL && pExceptionDesc == pCatchableType->pType)
                        {
                            std::exception * e = (std::exception*)pER->ExceptionInformation[1];
                            printf("File: %s\nFunction: %s\nLine: %i\nC++ Exception: %s\n", file, function, line, e->what());
                            return EXCEPTION_EXECUTE_HANDLER;
                        }
                    }
                }
            }
        }
        printf("File: %s\nFunction: %s\nLine: %i\nC++ Exception (code 0x%x at 0x%x)\n", file, function, line, pER->ExceptionCode, pER->ExceptionAddress);
        return EXCEPTION_EXECUTE_HANDLER;
    }
    else
    {
        printf("File: %s\nFunction: %s\nLine: %i\nSEH Exception (code 0x%x at 0x%x)\n", file, function, line, pER->ExceptionCode, pER->ExceptionAddress);
        return EXCEPTION_EXECUTE_HANDLER;
    }
}
 
int main(int argc, char* argv[])
{
    __try
    {
        //DivideByZero();
        ThrowException();
    }
    __except(ExceptionFilter(GetExceptionInformation(), __FILE__, __FUNCTION__, __LINE__))
    {
        //handle exception here
    }
 
    return 0;
}

В заключении хочу отметить, что ExceptionAddress для исключений C++ не имеет особого смысла, потому что указывает всегда на один и тот же адрес внутри функции __CxxThrowException(), которая выполняется каждый раз, когда вызывается исключение с помощью throw.

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

Как говорится, век - живи, век учись.

Захотелось мне вынести инициализацию данных класса в виртуальную функцию init(), с тем, чтобы классы-наследники могли переопределить ее и добавить в инициализацию что-то своё. Примерно так:

class C1
{
protected:
    int m_count;
    virtual void init() { m_count = 1; }
public:
    C1() { init(); }
    inline int count() const { return m_count; }
};
 
class C2: public C1
{
protected:
    virtual void init() { C1::init(); m_count = m_count+1; }
public:
    C2() : C1() {}
};
 
int _tmain(int argc, _TCHAR* argv[])
{
    C1 c1;
    _tprintf(_T("C1 count: %i\n"), c1.count());
    C2 c2;
    _tprintf(_T("C2 count: %i\n"), c2.count());
    return 0;
}

Результат получается такой:

C1 count: 1
C2 count: 1

Опа! Оказывается переопределенная в классе C2 функция init() не вызывается. Получается, что если вызвать из конструктора класса виртуальную функцию этого же класса, то обычный метод вызова виртуальных функций через vtable задействован не будет - функция будет вызвана как если бы они была не-виртуальной. По-моему такое поведение не выглядит логичным, поэтому от вызова виртуальных функций из конструктора лучше отказаться.

PS. Из деструктора вызывать виртуальные функции тоже не следует.

По поводу того, что при вызове виртуальных функций из конструктора (и деструктора) не используется vtable, - тут я, похоже, был не прав. vtable используется, только в конструкторе класса C1 (см. пример) используется vtable класса C1, а не класса-потомка C2 - вот в чем дело. Аналогично, в деструкторе C1 также используется vtable класса С1.

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

Связь событийного парсера, типа SAX-парсера, с вызывающим приложением обычно осуществляется следующим образом: нужно создать экземпляр класса, реализующего Callback-интерфейс и сообщить о нем парсеру:

class MyCallback : public Callback
{
    virtual void doc_start() { printf("Start of document"); }
    virtual void doc_end() { printf("End of document"); }
    // ...
};
MyCallback obj;
Parser parser;
parser.parse("c:\\test.xml", &obj);

Вся “сила” событийного SAX-парсера заключается в том, что нет необходимости держать в памяти весь XML-документ (или его DOM-модель).

А как может выглядеть парсер, который бы также не требовал загрузки всего документа в память, на не-объектно ориентированном языке программирования, например, на C ? Оказывается это может выглядеть достаточно просто и элегантно:

struct ParseStatus
{
    int currentPos; //current position in file
    int tagName[MAX_TAG_NAME_SIZE]; //current tag name
    // ...
};
ParseStatus status;
if (parse_begin("c:\\test.xml", &status))
{
    while (parse_next_tag(&status))
    {
        printf("Next tag: %s", status.tagName);
    }
}

===

Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

В предыдущем посте на эту тему я не упомянул про важный фактор, который сильно влияет на производительность, -  это наличие у таблицы индекса. Индекс способен довольно существенно замедлить процедуру вставки, поэтому лучше если данные будут загружаться в таблицу без индексов. Но иногда, индекс необходим. Например, если мы хотим загрузить в таблицу только отсутствующие данные, то это делается с пом. SQL-конструкции REPLACE:

REPLACE INTO Table1 (FieldA) VALUES (:v)

При этом, использование REPLACE в примере выше предполагает, что построен уникальный индекс для поля FieldA.

Для того, чтобы загрузка в таблицу с индексом осуществлялась максимально быстро, необходимо, чтобы загружаемые данные были отсортированы по этому индексу.

Это нужно для того, чтобы минимизировать количество операций обращения к диску при поиске значения в индексе. Когда значения в индексе располагаются рядом, то эффективно работает буфер чтения. Выигрыш в скорости при вставке отсортированных данных по сравнению со вставкой неупорядоченных данных на больших объемах может оказаться в десятки раз.

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

Мой твиттер: https://twitter.com/vit_cs

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

Part 1. Веб-сервис (Web Service) в Visual Studio 10 называется “WCF Service Application”.

1. Установить .Net Framework 4.0, если он еще не установлен.
2. Создать каталог на сайте, например C:\inetpub\wwwroot\Service1.
3. Скопировать туда Service1.svc файлы Service1.svc, Web.Config и папку bin с файлами WcfService1.dll и WcfService1.pdb.
4. Дать права “Чтение, Чтение и выполнение” пользователю IIS (IUSR)  на каталог Service1 и все скопированные в него файлы/подкаталоги.
5. В диспетчере служб IIS в контекстном меню каталога Service1 выбрать “Преобразовать в приложение”. В диалоге “Добавление приложения” нажать кнопку “Выбрать…” справа от “Пул приложений”, выбрать пул приложений с версией среды .Net Framework соответствующей веб-сервису (ASP .NET v4.0), и нажать Ok. Каталог Service1 будет преобразован в приложение.

Иногда сразу же приложение не хочет работать в IIS (как случилось и у меня) с формулировкой типа “HTTP Error 404.3 - Not Found The page you are requesting cannot be served because of the extension configuration. If the page is a script, add a handler. If the file should be downloaded, add a MIME map.” В таком случае помогает выполнение команды ServiceModelReg.exe -i. ServiceModelReg.exe находится в C:\Windows\Microsoft .NET\Framework\v4.0.30319. Там же находится aspnet_regiis.exe. Он помогает в том случае, если .Net 4 вдруг оказывается не зарегистрированным (см. картинку ниже) и по этой причине веб-сервис не запускается.

Part 2. Создание клиента для веб-сервиса на Delphi 7.

1. Сервис должен использовать привязку basicHttpBinding, а не wsHttpBinding. Регулируется это в Web.Config. Для его правки в Visual Studio 10 можно воспользоваться утилитой WCF Service Configuration Editor (можно выбрать пункт Edit WCF Configuration из контекстного меню для Web.Config).

2. Необходимо обновить утилиту импорта WSDL. Взять ее можно здесь: http://cc.embarcadero.com/item/24535. Пользоваться ею просто, например так:

    WSDLImp.exe -P http://localhost:2708/Service1.svc?wsdl

В результате будет создан файл Service1.pas, который нужно подключить к проекту клиента в Delphi 7. Пользоваться очень просто:

uses Service1.pas;
var
  Client: IWcfService1;
  ws: WideString;
begin
  Client := GetIWcfService1(True, 'http://localhost:2708/Service1.svc?wsdl');
  ws := Client.GetDate(10);
  MessageBoxW(0, PWideChar(ws), 'Result', MB_ICONINFORMATION);
end;

3. Delphi 7 BUG. При попытке обратиться к веб-сервису из клиента, написанного на Delphi 7, может возникать Access Violation (см. картинку ниже). Возникает эта ошибка не везде. У меня на Windows 7 ее нет, а на Windows Server 2008 - проявилась.

Фикс для этой ошибки находится в том же архиве, что и новая утилита импорта WSDL (http://cc.embarcadero.com/item/24535). НО НЕ ТОРОПИТЕСЬ заменять ваши исходники SOAP на файлы из архива. Этот “патч” что-то лечит, а что-то калечит :-) У меня при его использовании перестали передаваться в веб-сервис строковые параметры вызова (в значениях параметров всегда содержался null). Для того, чтобы справиться с ошибкой Access Violation, нам необходимы только два файла из этого патча: PrivateHeap.pas и Rio.pas. Их (только их!) нужно добавить в Delphi-проект клиента веб-сервиса.

Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

HTTP-сервер в Indy 9 представлен компонентом TIdHTTPServer. Чтобы включить использование SSL (HTTPS), нужно у объекта TIdHTTPServer свойство IOHandler связать с объектом типа TIdServerIOHandlerSSL, в котором в поле CertFile прописать путь к файлу сертификата, а в KeyFile - путь к файлу с приватным ключом.

Файл сертификата имеет примерно такое содержимое:

Файл с приватным ключом выглядит примерно так:

Но что делать, если необходимо, чтобы сертификат и ключ были “вшиты” в приложение? Я использую следующую технику - после загрузки и инициализации библиотеки ssleay32.dll подменяю указатели на функции IdSslCtxUseCertificateFile и IdSslCtxUsePrivateKeyFile (они объявлены в IdSSLOpenSSLHeaders) на мои реализации этих функций, которые читают сертификат и ключ не из файлов, а из памяти.

unit uOpenSSL;
(*
Copyright 2012 Coolsoftware. http://blog.coolsoftware.ru/
You can freely use this code for your needs.
Please, don't remove this copyright.
*)
interface
uses Windows, SysUtils, IdSSLOpenSSL, IdSSLOpenSSLHeaders;
function MySslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: PChar; _type: Integer): Integer cdecl;
function MySslCtxUseCertificateFile(ctx: PSSL_CTX; const _file: PChar; _type: Integer): Integer cdecl;
type
  PBIO            = Pointer;
  PPBIO           =^PBIO;
  PBIO_METHOD     = Pointer;
  PRSA         = Pointer;
var
  MySslCtxUsePrivateKey : function(ctx: PSSL_CTX; pkey: PEVP_PKEY): 
    Integer cdecl = nil;
  MySslCtxUseCertificate : function(ctx: PSSL_CTX; x: PX509): 
    Integer cdecl = nil;
  EVP_PKEY_new : function(): PEVP_PKEY cdecl = nil;
  EVP_PKEY_free : procedure(pkey: PEVP_PKEY) cdecl = nil;
  EVP_PKEY_set1_RSA : function(pkey: PEVP_PKEY; key: PRSA) : 
    Integer cdecl = nil;
  BIO_s_mem : function () : PBIO_METHOD cdecl = nil;
  BIO_new : function(t: PBIO_METHOD): PBIO cdecl = nil;
  BIO_free : function(a: PBIO): Integer cdecl = nil;
 BIO_puts : function(bp: PBIO; buf: PChar): Integer cdecl = nil;
  RSA_new: function (): pRSA; cdecl = nil;
  RSA_free: procedure (r: pRSA); cdecl = nil;
  RSA_public_encrypt: function (flen: integer; from: PChar; _to: PChar;
    rsa: pRSA; padding: integer): integer; cdecl = nil;
  RSA_public_decrypt: function (flen: integer; from: PChar; _to: PChar;
    rsa: pRSA; padding: integer): integer; cdecl;
  d2i_RSAPrivateKey : function(a: Pointer; pp: Pointer; length: Integer): 
    PRSA cdecl = nil;
  PEM_ASN1_read_bio : function(d2: Pointer; name: PChar; bp: PBIO; x: Pointer;
    cb: Pointer; u: Pointer): PChar cdecl = nil;
  PEM_read_bio_X509 : function(bp: PBIO; x: Pointer; cb: Pointer; u: Pointer): 
    PX509 cdecl = nil;
  PEM_read_bio_RSAPublicKey: function (bp: pBIO; x: pRSA;
    cb: Pointer; u: pointer): pRSA; cdecl = nil;
implementation
uses SyncObjs;
const
  SSL_DLL_name       = 'ssleay32.dll';  {Do not localize}
  SSLCLIB_DLL_name   = 'libeay32.dll';  {Do not localize}
var
  hIdSSL    : Integer = 0;
  hIdCrypto : Integer = 0;
function LoadFunction(FceName:String):Pointer;
begin
  FceName := FceName+#0;
  Result := GetProcAddress(hIdSSL, @FceName[1]);
//  if (Result = nil) then ShowMessage('Error loading: ' + FceName);  {Do not localize}
end;
function LoadFunctionCLib(FceName:String):Pointer;
begin
  FceName := FceName+#0;
  Result := GetProcAddress(hIdCrypto, @FceName[1]);
//  if (Result = nil) then ShowMessage('Error loading: ' + FceName);  {Do not localize}
end;
const
  fn_SSL_CTX_use_RSAPrivateKey = 'SSL_CTX_use_RSAPrivateKey';  {Do not localize}
  fn_SSL_CTX_use_PrivateKey = 'SSL_CTX_use_PrivateKey';  {Do not localize}
  fn_SSL_CTX_use_certificate = 'SSL_CTX_use_certificate';  {Do not localize}
  fn_EVP_PKEY_new = 'EVP_PKEY_new';  {Do not localize}
  fn_EVP_PKEY_free = 'EVP_PKEY_free';  {Do not localize}
  fn_EVP_PKEY_set1_RSA = 'EVP_PKEY_set1_RSA';
  fn_BIO_s_mem = 'BIO_s_mem';  {Do not localize}
  fn_BIO_new = 'BIO_new';  {Do not localize}
  fn_BIO_free = 'BIO_free';  {Do not localize}
  fn_BIO_puts = 'BIO_puts';  {Do not localize}
  fn_RSA_new = 'RSA_new';  {Do not localize}
  fn_RSA_free = 'RSA_free';  {Do not localize}
  fn_RSA_public_encrypt = 'RSA_public_encrypt';  {Do not localize}
  fn_RSA_public_decrypt = 'RSA_public_decrypt';  {Do not localize}
  fn_d2i_RSAPrivateKey = 'd2i_RSAPrivateKey';  {Do not localize}
  fn_PEM_ASN1_read_bio = 'PEM_ASN1_read_bio';  {Do not localize}
  fn_PEM_read_bio_X509 = 'PEM_read_bio_X509';  {Do not localize}
  fn_PEM_read_bio_RSAPublicKey = 'PEM_read_bio_RSAPublicKey';  {Do not localize}
var
  c_PrivateKeyPassword: PChar = 'put the password of your private key here';
  c_PrivateKey: PChar = 'put your private key here';
  c_Certificate: PChar = 'put your certificate here';
  LockPassCB: TCriticalSection;
function MyPasswordCallback(buf:PChar; size:Integer; rwflag:Integer; 
  userdata: Pointer):Integer; cdecl;
begin
  LockPassCB.Acquire;
  try
    size := StrLen(c_PrivateKeyPassword);
    StrCopy(buf, c_PrivateKeyPassword);
    Result := size;
  finally
    LockPassCB.Release;
  end;
end;
function MySslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: PChar; 
  _type: Integer):Integer cdecl;
var
  pk: PEVP_PKEY;
  rsakey: PRSA;
  pMemBIO: PBIO;
begin
    pk := EVP_PKEY_new();
    try
      pMemBIO := BIO_new(BIO_s_mem());
      try
        BIO_puts(pMemBIO, c_PrivateKey);
        rsakey := PEM_ASN1_read_bio(
          @d2i_RSAPrivateKey, OPENSSL_PEM_STRING_RSA, pMemBIO, nil,
          @MyPasswordCallback, nil);
      finally
        BIO_free(pMemBIO);
      end;
      EVP_PKEY_set1_RSA(pk, rsakey);
      Result := MySslCtxUsePrivateKey(ctx, pk);
    finally
      EVP_PKEY_free(pk);
    end;
end;
function MySslCtxUseCertificateFile(ctx: PSSL_CTX; const _file: PChar; 
  _type: Integer):Integer cdecl;
var
  pCert: PX509;
  pMemBIO: PBIO;
begin
    pMemBIO := BIO_new(BIO_s_mem());
    try
      BIO_puts(pMemBIO, c_Certificate);
      pCert := PEM_read_bio_X509(pMemBIO, nil,
        @MyPasswordCallback, nil);
    finally
      BIO_free(pMemBIO);
    end;
    Result := MySslCtxUseCertificate(ctx, pCert);
end;
var
  ctx: TIdSSLContext;
initialization
  LockPassCB := TCriticalSection.Create;
    
  //this will load the SSL library
  ctx := TIdSSLContext.Create;
  try
    hIdCrypto := GetModuleHandle(SSLCLIB_DLL_name);
    hIdSSL := GetModuleHandle(SSL_DLL_name);
    @MySslCtxUsePrivateKey := LoadFunction(fn_SSL_CTX_use_PrivateKey);
    @MySslCtxUseCertificate := LoadFunction(fn_SSL_CTX_use_certificate);
    @EVP_PKEY_new := LoadFunctionCLib(fn_EVP_PKEY_new);
    @EVP_PKEY_free := LoadFunctionCLib(fn_EVP_PKEY_free);
    @EVP_PKEY_set1_RSA := LoadFunctionCLib(fn_EVP_PKEY_set1_RSA);
    @BIO_s_mem := LoadFunctionCLib(fn_BIO_s_mem);
    @BIO_new := LoadFunctionCLib(fn_BIO_new);
    @BIO_free := LoadFunctionCLib(fn_BIO_free);
    @BIO_puts := LoadFunctionCLib(fn_BIO_puts);
    @RSA_new := LoadFunctionCLib(fn_RSA_new);
    @RSA_free := LoadFunctionCLib(fn_RSA_free);
    @RSA_public_encrypt := LoadFunctionCLib(fn_RSA_public_encrypt);
    @RSA_public_decrypt := LoadFunctionCLib(fn_RSA_public_decrypt);
    @d2i_RSAPrivateKey := LoadFunctionCLib(fn_d2i_RSAPrivateKey);
    @PEM_ASN1_read_bio := LoadFunctionCLib(fn_PEM_ASN1_read_bio);
    @PEM_read_bio_X509 := LoadFunctionCLib(fn_PEM_read_bio_X509);
    @PEM_read_bio_RSAPublicKey := LoadFunctionCLib(fn_PEM_read_bio_RSAPublicKey);
    IdSslCtxUsePrivateKeyFile := MySslCtxUsePrivateKeyFile;
    IdSslCtxUseCertificateFile := MySslCtxUseCertificateFile;
  finally
    ctx.Free;
  end;
finalization
  LockPassCB.Free;
end.

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

В GitHub я выложил обновленную версию VHashedStringList. Сделаны следующие добавления/изменения:

1. Добавлено свойство OwnsObjects. Оно позволяет объекту TVHashedStringList контролировать выделение памяти для индексированных объектов - при удалении объекта из списка или при удалении самого списка автоматически освобождается память, отведенная под указанные объекты. (Это аналог одноименного свойства OwnsObjects у TObjectList).
2. Добавлено свойство ValueObjects. Позволяет обращаться к объекту, хранящемуся в списке, по значению соответствующей ему строки.
3. При удалении элемента списка hash-индекс остается корректным, т.е. не требуется его полное перестроение перед поиском элементов.
4. Добавлено свойство AutoUpdateHash (по-умолчанию его значение = True), которое позволяет на время отключать авто-обновление hash-индекса.

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru

У меня 2 аккаунта на GitHub. И несколько разных репозиториев для разных проектов - некторые должны заливаться на GitHub под первым аккаунтом, другие - под вторым. Я использую Git-клиент TortoiseGit. И столкнулся со странной проблемой - под первым аккаунтом все хорошо работает, а под вторым Push обламывается в формулировкой “error code 128 git did not exit cleanly”. Оказалось, что иногда для второго аккаунта используется ssh-key от первого. Лечится проблема удалением ключей (Remove Key) из Pagent (PuTTY authentication client).

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru