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

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
;

Другое по теме:

• ISAPI
• IntraBob - 32-битный локальный CGI-WinCGI Тестер и ISAPI Отладчик
• TPageProducer. Взаимодействие свойств HTMLDoc и HTMLFile