Фев 282012
 

Обмен информацией в Internet осуществляется по модели «клиент-сервер». Клиент посылает запрос (какие файлы ему нужны), а сервер посылает ответ (запрошенные файлы). Для тесного взаимодействия (так сказать, «полного взаимопонимания») между клиентом и сервером клиент посылает дополнительную информацию о себе: версию и название операционной системы, конфигурацию браузера (включая название и номер версии Вашего браузера) и т.д. Эта информация может быть необходима серверу, чтобы знать какую web страницу предоставить клиенту: для разных конфигураций браузеров могут быть разные варианты web-страниц. Однако поскольку обычно web страницы не зависят от браузеров, имеет смысл эту информацию скрыть от web сервера.

Continue reading »

Фев 282012
 

Функция GetCaptchaFile предназначена для работы с уже скачанным файлом каптчи. Возвращает значение каптчи, в переменную AMes записывается ошибка если такая возникает.
Текст функции:
Continue reading »

 Posted by at 21:27
Фев 282012
 

Привожу простейший пример авторизации на сайтах методом POST на примере своего сайта.
Создаем новый проект, помещаем на форму компонет TMemo, TButton, TIdHTTP, TIdCookieManager. В компоненте IdHTTP1 устнаовим свойство HandleRedirects в True (для того чтоб компонент сам обработал редирект) и свойство CookieManager устанавливаем значение IdCookieManager1.
На собитие OnClick кнопки размещаем следующий код:
Continue reading »

 Posted by at 21:22
Фев 282012
 

В некоторых проектах часто возникает необходимость использования получения подстроки из текста. Мне в этом очень помогает такая функция:

your code herefunction GetSubStr(AInputStr, ABeginStr, AEndStr: String; AInclude: Boolean = False): String;
var
  s: String;
  sp, ep: Int64;
begin
  Result := '';
  if pos(ABeginStr, AInputStr) <> 0 then begin
    sp := pos(ABeginStr, AInputStr) + length(ABeginStr);
    s := copy(AInputStr, sp, length(AInputStr));
    ep := pos(AEndStr, s) - 1;
    if AInclude then
      Result := ABeginStr + copy(s, 1, ep) + AEndStr
    else
      Result := copy(s, 1, ep);
  end;
end;
 Posted by at 20:42
Фев 272012
 

Программа, немного облегчающая жизнь программистов и администраторов Informix.
(тестировалась на Informix 7.31, 9.40 и ClientSDK 2.70)

Возможности программы:

— скрипт SQL может состоять из нескольких SQL запросов разделенных «;»
— выполняется либо текущее SQL выражение либо выделенная часть сочетанием Ctrl+E
— создание пользователем закладок и макросов для текстов скриптов
— подсветка синтаксиса SQL и Undo/Redo
— списки таблиц и полей, и операторов при нажатии Ctrl+Space
— текст хранимых процедур, представлений
— запуск и накат/откат транзакций
— отображение содержимого выделенной таблицы
— автоматическое сохранение содержимого закладок с текстом SQL
— поддерживается выполнение хранимых процедур без предшествующего EXECUTE PROCEDURE и др.
Continue reading »

 Posted by at 00:00