Разработчики, работающие с Delphi и Pascal, часто сталкиваются с необходимостью оптимизации производительности своих приложений. Одним из способов улучшения отзывчивости приложения является использование локального кэша для ускорения DNS-запросов. В данной статье мы рассмотрим, как можно реализовать такой кэш, используя возможности языка Object Pascal.
Проблема и её решение
Пользователь столкнулся с задачей ускорения DNS-запросов, используя локальный кэш, который загружается из CSV-файла в TStringList с двумя полями: IP-адресом и соответствующим ему именем хоста. Для ускорения поиска по кэшу необходимо, чтобы первый столбец TStringList был отсортирован.
Изначально была предложена идея использовать TStringList с сортировкой, но сообщество разработчиков посчитало, что это не самый эффективный подход. Вместо этого было предложено использовать TDictionary из модуля Generics.Collections, который позволяет хранить пары ключ-значение, где IP-адрес выступает в роли ключа, а имя хоста — в роли значения.
Подробное руководство
Создание TDictionary
Сначала создаем экземпляр TDictionary с типами ключа и значения string:
pascal
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Generics.Collections;
type
TForm1 = class(TForm)
// Компоненты формы
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
IPList: TDictionary<string, string>;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// Создаем экземпляр TDictionary
IPList := TDictionary<string, string>.Create;
// Заполнение кэша данными из CSV-файла
end;
Загрузка данных из CSV
Далее необходимо реализовать функцию загрузки данных из CSV-файла в TDictionary. Это можно сделать с помощью стандартных компонентов Delphi, таких как TFileStream и TStringHelper, или использовать сторонние библиотеки для парсинга CSV.
Поиск данных по ключу
Для поиска имени хоста по IP-адресу используем метод TryGetValue:
pascal
procedure TForm1.Button1Click(Sender: TObject);
var
HostName: string;
begin
// Поиск имени хоста по IP-адресу
if IPList.TryGetValue('81.216.128.0', HostName) then
ShowMessage(HostName)
else
ShowMessage('IP address not found!');
end;
Удаление TDictionary
Не забываем освободить ресурсы, используемые TDictionary, в методе FormDestroy:
pascal
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Освобождение памяти, выделенной под TDictionary
IPList.Free;
end;
Расширение функциональности
Для хранения дополнительной информации можно использовать записи:
type
TIPData = record
HostName: string;
HostLocation: string;
end;
И изменить тип TDictionary на TDictionary<string, TIPData>.
Заключение
Использование TDictionary вместо TStringList значительно ускоряет поиск по кэшу, особенно при большом количестве записей. Это решение является более эффективным и рекомендуется для использования в приложениях, где важна скорость доступа к данным.
Оптимизация DNS-запросов в Delphi с помощью локального кэша на основе TDictionary для ускорения поиска по IP-адресам.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал