Преобразование URL в имя файла Win32 для кэширования QR-кодов в Delphi

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

Задача преобразования URL в имя файла для кэширования QR-кодов в Delphi может быть решена несколькими способами. В этой статье мы рассмотрим два подхода: кодирование URL и использование функции PathGetCharType из Windows API.

Кодирование URL

Один из способов преобразовать URL в имя файла – закодировать URL и добавить к нему расширение. Этот подход гарантирует, что полученное имя файла будет всегда валидным. Кроме того, процесс является обратимым, что позволяет восстановить исходный URL из имени файла.

Вот пример кода на Object Pascal (Delphi), который реализует этот подход:

{$APPTYPE CONSOLE}

uses
  SysUtils;

function URLEncode(const AUrl: string): string;
var
  Index: Integer;
begin
  Result := '';
  for Index := 1 to Length(AUrl) do
  begin
    case AUrl[Index] of
      'A'..'Z', 'a'..'z', '0'..'9', '-', '_', '.': Result := Result + AUrl[Index];
      ' '                                        : Result := Result + '%20';
    else
      Result := Result + '%' + IntToHex(Ord(AUrl[Index]), 2);
    end;
  end;
end;

function UrlToFileName(const AUrl, Ext: string): TFileName;
begin
  Result := Format('%s.%s', [URLEncode(AUrl), Ext]);
end;

begin
  try
    Writeln(UrlToFileName('http://stackoverflow.com/questions/5784218/convert-a-url-to-a-valid-win32-filename-in-delphi', 'png'));
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  Readln;
end.

Этот код определяет две функции: URLEncode и UrlToFileName. Функция URLEncode кодирует входную строку, заменяя все недопустимые символы на их процентное представление. Функция UrlToFileName принимает URL и расширение файла в качестве параметров, кодирует URL с помощью функции URLEncode и возвращает результат в формате "кодированный_URL.расширение".

Пример вывода кода:

http%3A%2F%2Fstackoverflow.com%2Fquestions%2F5784218%2Fconvert-a-url-to-a-valid-win32-filename-in-delphi.png

Использование PathGetCharType

Другой способ преобразовать URL в имя файла – использовать функцию PathGetCharType из Windows API. Эта функция определяет тип символа в заданной позиции строки и может помочь удалить недопустимые символы из имени файла.

Вот пример кода на Object Pascal (Delphi), который реализует этот подход:

uses
  ShLwApi;

var
  s: string;
  i: Integer;
begin
  s := 'http://stackoverflow.com/questions/5784218/convert-a-url-to-a-valid-win32-filename-in-delphi';

  for i := 1 to Length(s) do
    if PathGetCharType(s[i]) in [GCT_INVALID, GCT_SEPARATOR] then
      s[i] := '_';

  Writeln(s);
end.

Этот код использует функцию PathGetCharType для проверки каждого символа в строке. Если символ является недопустимым или разделителем, он заменяется символом подчеркивания.

Пример вывода кода:

http__stackoverflow.com_questions_5784218_convert-a-url-to-a-valid-win32-filename-in-delphi

Заключение

В этой статье мы рассмотрели два подхода к преобразованию URL в имя файла для кэширования QR-кодов в Delphi: кодирование URL и использование функции PathGetCharType из Windows API. Оба подхода имеют свои преимущества и могут быть использованы в зависимости от конкретных требований к приложению.

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

В статье рассматриваются два способа преобразования URL в имя файла для кэширования QR-кодов в Delphi: кодирование URL и использование функции PathGetCharType из Windows API.

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

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

:: Главная :: URL ::