Оптимизация доступа к сетевым ресурсам: устранение проблемы высокой загрузки трафика при использовании Delphi XE

Delphi , Интернет и Сети , Сеть

При работе в условиях удаленного доступа к корпоративным ресурсам через VPN на компьютерах с Windows 10 может возникнуть проблема повышенной загрузки трафика при попытке доступа к сетевым папкам, содержащим исполняемые файлы, созданные в Delphi XE. Эта проблема может быть вызвана особенностями, которыми обладают исполняемые файлы, скомпилированные в Delphi, и может быть связана с тем, как операционная система обрабатывает ресурсы этих файлов.

Исследование проблемы

При подключении к сетевым дискам через VPN было замечено, что при открытии директории с использованием Windows Explorer происходит значительный рост трафика. После проведения ряда тестов, в том числе отключения антивирусных программ и создания дубликатов файлов, было установлено, что:

1. Директория с PDF-файлами не вызывает значительного трафика.
2. Директория с исполняемым файлом от другой компании (например, графический редактор Affinity) также не приводит к высокой нагрузке на трафик.
3. Исполняемый файл, созданный в Delphi XE, вызывает трафик более чем 1 ГБ. Файлы отображаются в Windows Explorer без иконок, которые появляются только после полной загрузки данных.

Подтвержденный ответ

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

• Несколько стандартных курсоров мыши
• Битмапы с различными стандартными иконками
• Исполняемые иконки
• Несколько стандартных строк для отображения на различных сообщениях об ошибках
• RCData, содержащий информацию о всех включенных пакетах и DFM, необходимых для создания форм
• Версионная информация
• Встроенный манифест

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

Альтернативный ответ

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

Возможные решения

1. Переупорядочение данных в секции ресурсов: Убедитесь, что иконки находятся в начале секции ресурсов.
2. Создание локальной копии сетевой папки: Включение синхронизации папки может создать локальную копию, что уменьшит необходимость загрузки ресурсов из сети.

Примеры кода

Для изменения порядка данных в секции ресурсов можно использовать инструменты, такие как PE Explorer. Однако, для программистов, знакомых с Object Pascal, можно использовать встроенные средства Delphi для работы с ресурсами. Вот пример кода, который может помочь в переупорядочении ресурсов:

uses
  SysUtils, TypInfo, Winapi.Windows, Winapi.Resourcestd;

function MoveResourceToTop(const ExecutableFile: TFileName; const ResourceType: Word; const ResourceID: Word): Boolean;
var
  hModule: THandle;
  hResource: THandle;
  pResourceData: PResourceData;
  dwSize, dwDataSize, dwLanguage: DWORD;
begin
  hModule := LoadLibrary(ExecutableFile);
  if hModule = 0 then
    Exit(False);

  try
    // Получение информации о ресурсе
    if not FindResource(hModule, ResourceID, ResourceType) then
      Exit(False);

    hResource := LoadResource(hModule, FindResource(hModule, ResourceID, ResourceType));
    if hResource = 0 then
      Exit(False);

    // Получение данных о размере и языке ресурса
    GetResourceHandleSizeEx(hModule, ResourceType, ResourceID, dwSize, dwDataSize, dwLanguage);

    // Выделение памяти для хранения ресурса
    GetMem(pResourceData, dwSize);
    try
      // Чтение данных о ресурсе
      ReadResource(hModule, ResourceType, ResourceID, dwLanguage, @pResourceData, dwSize);

      // Перемещение ресурса на начало файла (в данном примере предполагается, что исполняемый файл уже открыт для записи)
      // Здесь должен быть код для перемещения данных в начало файла
      // ...

      // После перемещения необходимо обновить информацию о ресурсе в таблице ресурсов исполняемого файла
      // ...

      // Освобождение памяти
      SetLength(pResourceData, 0);
    finally
      // Освобождение памяти в любом случае
      SetLength(pResourceData, 0);
    end;
  finally
    // Освобождение модуля
    FreeLibrary(hModule);
  end;
  Result := True;
end;

Обратите внимание, что код выше является лишь примером и требует доработки. Перемещение ресурсов внутри исполняемого файла - задача не из легких и может потребовать глубоких знаний о структуре исполняемых файлов и работе с ними.

Заключение

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

Создано по материалам из источника по ссылке.

Проблема связана с повышенной загрузкой трафика при доступе к сетевым папкам через VPN на Windows 10, вызванной особенностями обработки ресурсов исполняемых файлов, созданных в Delphi XE.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сеть ::