Свалилась второстепенная, но срочная проблемка: определить протокол (SMB/CIFS или SMB2), по которому данная сессия общается с сервером. Исходные данные - имя файла или каталога на сетевом диске (обычно, не UNC), необходимо узнать, через какой протокол работают файловые операции. ОС клиента может быть от NT4 до Win10, ОС сервера может быть любой (DOS Lanmanager, конечно, маловероятен, но я бы не исключал) от NT4 до Win10 и всяких Samba.

Т.к. API для решения этой задачи присутствует только в Win10, приходится придумывать извращения, пока придумалось следующее:
0. Имя сервера получается из имени файла через ExpandUNCFileName
1. На клиенте можно определить, что он может работать по SMB2 по наличию запущенного драйвера mrxsmb20.sys и версии ОС
2. Для определения, что сервер поддерживает SMB2 нужно послать ему "SMB Negotiate protocol request" с выставленной поддержкой SMB2 на клиенте и посмотреть ответ.

Если клиент и сервер поддерживают SMB2, делаю вывод, что работа идет через SMB2

В связи со всем этим вопросы:
Знает ли кто иной способ решения данной задачи?
Нет ли у кого готовых модулей для формирования и парсинга SMB пакетов?
Посылка "SMB Negotiate protocol request", получение ответа и закрытие сокета не приведут к утечкам на сервере?

Изначальная проблема: если клиент и сервер обмениваются через SMB2, функции FileLock/Unlock начинают "косячить" - рушаться индексы в файловой БД...

Dimitry Sibiryakov,

Увы, простого решения нет - скорее проще всех перевести на NT4, которая будет работать в VirtualBox.

Как Вы предсталяете себе перевод из файловой БД на SQL (скорее всего) кода, которому 30 лет? Это большая система, что там и как работает, толком никто уже не помнит (не знает).

С производительностью все хорошо, появилась проблема с SMB2 - что проще решить: всю систему переделать на SQL (или что?) или настоять на SMB1? (Про WannaCry и пр. в курсе)

Dimitry Sibiryakov,

Система не на Delphi - просто DBConnection не заменить.

Не верно - анекдот про "раз круглое - значит оранжевое" напомнило.

northener,

Конкретизирую вопрос:
Нет ли у кого готовых модулей для формирования и парсинга SMB пакетов (да, Delphi - неужели никто не работал с SMB)?

Да :)

alekcvp,

Как Вы себе это представляете? NFS, вроде, не поддерживает блокировки кусков файла.
Перевозить можно все-что-угодно куда-угодно, но задача сформулированна: определить по какому протоколу идет общение клиента и сервера.

ФФФсе просто:
1. Отправляем пакет на 445 порт сервера:
где первые 4 байта - длина всего остального (в "сетевом" формате - начинается старшим байтом, заканчивается младшим - всегда путаю BigEndian vs. LittleEndian). В этом пакете указана поддержка клиентом Smb2.
2. Принимаем длину ответа (4 байта в извращенном "сетевом" формате, поэтому для получения длины необходимо преобразовать через ntohl).
3. Читаем эту длину байт.
4. Если начинается со строки #$FE'SMB' - работает по SMB2, если #$FF'SMB' - SMB1

У Intel по младшему адресу младший байт

В древние времена прочел историю, как будущих мореплавателей учили, на каком борту судна какого цвета фонарь, запомнить не могли. Умудренный опытом и утомленный "тупизной" учеников, старый морской волк сказал:
- Тупицы. Расскажу вам как меня учили: есть слово "*****" - это означает Правый - Зеленый

Я после этой байки сам помню. Может кто сказать подобное мнемоническое правило для Big- и Little-Endian?