WinSock и Delphi

Сегодня столкнулся со знатным подводным камнем, объяснить который я не в состоянии.

Нам пришёл запрос о том, что приложение, скомпилированное с EurekaLog, не запускается на китайской Windows XP. Просто ничего не происходит, без каких-либо внешних сообщений.

После обычной процедуры (попробуйте на пустом проекте и т.п.), мне пришлось удалённо подключиться к машине клиента и отлаживать проблему на месте. Опуская процедуру поиска причины (это не заняло много времени, хотя местами ему пришлось переводить мне текст :) ), оказалось, что в системе отсутствует wsock32.dll.

EurekaLog статически связана с wsock32.dll для отправки отчётов разработчикам. Не удивительно, что приложение, скомпилированное с EurekaLog, не запускалось. Ну, обычно в таких случаях бывает сообщение типа "компонент приложения отсутствует", но в данном случае, видимо, клиент отключил показ сообщений.

Вопрос в том, почему отсутствует библиотека. Замечу, что никаких других видимых проблем на этой машине не было. Все сетевые программы работали, как положено.

Ну, я ничего не понимаю в программировании сокетов, но насколько я понимаю, wsock32.dll - это старая версия WinSock. Может ли она отсутствовать в системе? Зная политику Microsoft по обратной совместимости - скорее всего, нет. Тем не менее, вот реальный случай.

Дальнейший поиск информации показал, что wsock32.dll упоминается очень редко (в документации не упоминается вообще). Вся документация ссылается на ws2_32.dll (сам WinSock) или mswsock.dll (расширения Microsoft для WinSock).

Как EurekaLog использует WinSock? Может это проблема только EurekaLog, её заголовочников? Хм, я посмотрел в код и увидел, что она использует стандартный модуль Delphi WinSock.pas. Открываем WinSock.pas (Delphi 2010) и видим:

const
  winsocket = 'wsock32.dll';

Гм, сюрприз.

Indy и Джедаи используют ws2_32.dll.

Решение? Сделать свой модуль WinSock, где динамически грузить ws2_32.dll, а если её нет - то wsock32.dll. Этот фикс вошёл в очередную RC версию.

Да, это не проблема EurekaLog, но её приходится исправлять нам. Клиенты не очень хорошо разбираются в том, кто виноват, зато они очень хорошо видят разницу, когда что-то работает, а когда - нет.