Форматирование строки для CGI-запроса

Delphi , Интернет и Сети , CGI и Cookies

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function FormatStringforCGI(str: string): string;
 var
   i: integer;
 begin
   for i := 1 to Length(str) do
   begin
     if str[i] in ['a'..'z', 'A'..'Z', '0', '1'..'9'] then
       Result := Result + Str[i]
     else if Str[i] = ' ' then
       Result := Result + '+'
     else
       Result := Result + '%' + IntToHex(Byte(Str[i]), 2);
   end;
 end;

Функция Delphi, именуемая FormatStringforCGI, принимает строку в качестве входного параметра и возвращает форматированную строку, подходящую для использования в запросе CGI (Common Gateway Interface).

Функция проходит по каждому символу входной строки с помощью цикла for. Для каждого символа она проверяет, является ли он:

1. Буквой (большой или маленькой), цифрой (0-9) или подчерки (_). Если так, она просто добавляет оригинальный символ к результату.
2. Простым пробелом. В этом случае она заменяет пробел на знак плюс (+).
3. Любым другим символом. В этом случае она кодирует символ с помощью hexadecimal-нотации, конвертируя ASCII-значение символа в двухзначный код hexadecimal и добавляя % перед этим кодом к результату.

Форматированная строка затем возвращается как выход функции.

Пример использования этой функции:

Вход: Hello World! Выход: Hello+World%21

Кодированные символы:

• H: без изменений
• e: без изменений
• l: без изменений
• o: без изменений
• (простой пробел): заменен на +
• W: без изменений
• o: без изменений
• r: без изменений
• l: без изменений
• d: без изменений
• !: кодирован как %21

Обратите внимание, что эта функция не обрабатывает символы Unicode корректно, поскольку она только проверяет ASCII-символы. Если вам нужно поддерживать символы Unicode, вы можете захотеть использовать болееadvanced encoding scheme или библиотеку URL-encoding.

Альтернативное решение с использованием встроенной функции Delphi URLEncode:

function FormatStringforCGI(str: string): string;
begin
  Result := URLEncode(str);
end;

Эта функция более компактна и эффективна, поскольку она использует встроенную функциональность Delphi для выполнения URL-encoding. Однако если вам нужно иметь больше контроля над процессом кодирования или поддерживать старые версии Delphi, которая не имеет функции URLEncode, оригинальное решение может быть более подходящим.

Функция FormatStringforCGI преобразует строку в форматированную строку для отправки в CGI-запрос, заменяя пробелы на плюсы и символы вне ASCII-кодирования на соответствующие коды.

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

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

:: Главная :: CGI и Cookies ::