корневую директорию веб-сервера и наберите в браузере адрес сайта. Должна появиться приветственная страничка

Your database configuration file is not present.

Нужно прописать соединение с базой данных. Делается это в директории app/config - берем за основу database.php.default и переименовываем его в database.php. Прописываем в файле параметры соединения с базой. Если все ОК то CakePHP сообщит об этом.

Your database configuration file is present.

Cake is able to connect to the database.

Все готово для творчества.

Модуль новостей

Напишем простейший модуль новостей, чтобы проиллюстрировать технологию создания сайтов на Фреймворке. Создадим в базе данных таблицу posts, в которой будут храниться новости.

CREATE TABLE `posts` ( `id` bigint(20) NOT NULL auto_increment, `post_date` date NOT NULL default '0000-00-00', `post_header` varchar(255) NOT NULL default '', `post_text` text NOT NULL, `archived` tinyint(4) NOT NULL default '0', PRIMARY KEY (`id`) )

Вопрос: почему бы таблицу не назвать “news”? Таблица должна иметь имя сущности во множественном числе.
В английском “новости” news всегда употребляется во множественном числе, тем более слово new является
ключевым в php, что приводит к ошибке.

Модель

В папке app/models создадим файл модели post.php

<?php class Post extends AppModel { var $name = 'Post'; var $validate = array( 'post_header' => VALID_NOT_EMPTY, 'post_text' => VALID_NOT_EMPTY, 'post_date' => VALID_NOT_EMPTY ); } ?>

В массиве $validate описываются ограничения накладываемые логикой приложения на данные. Мы запретили пустые поля
Текст, Заголовок и Дата.

Контроллер

В папке app/controllers создадим файл posts_controller.php. Создадим объект, который реализует основные функции
модуля новостей: отображение списка (index), просмотр новости (view), удаление новости (delete), добавления новости (add).

<?php class PostsController extends AppController // наследуемся // от AppController { var $name = 'Posts'; function index() // эта функция должна быть обязательно { $this->set('posts', $this->Post->findAll()); // выборка всех записей //из таблицы $this->pageTitle = 'Новости'; } function view($id) // просмотр новости { $this->Post->id = $id; $this->set('post', $this->Post->read()); } function add() // добавление новости { if (!empty($this->data)) { if ($this->Post->save($this->data)) { $this->flash('Новость была успешно добавлена','/posts'); // flash выдает сообщение пользователю в виде ссылки на страницу, указанной во втором аргументе функции } } } function delete($id) // удаление новости { $this->Post->del($id); $this->flash('Новость была удалена', '/posts'); } function edit($id = null) // редактирование новости { if (empty($this->data)) { $this->Post->id = $id; $this->data = $this->Post->read(); } else { if ($this->Post->save($this->data['Post'])) { $this->flash('Новость была отредактирована','/posts'); } } } } ?>

Виды

В папке app/views создадим папку posts. В этой папке необходимо создать файлы видов для каждой функции,
кроме функции Delete, которая не требует своего вида, а использует только функцию flash.
app/views/posts/index.thtml

<h1>Новости</h1>

<?

// длина строки новости, которая будет
// показываться до "далее" или "..."

  $news_teaser_length = 12;

  $news_more_annex = ' >>';

  if (count($posts)>0)

  {

?>

<table>

<tr>

 <th>Дата</th>

 <th>Заголовок</th>

 <th>Текст</th>

 <th> </th>

 <th> </th>

</tr>

    <?php foreach ($posts as $post): ?>

    <tr>

        <td>

        <?php

          echo $post['Post']['post_date'];

        ?>

        </td>

        <td>

        <?php

        echo $post['Post']['post_header'];

        ?>

        </td>

        <td>

            <?php

            // если новость слишком длиная
            //(слов больше чем $news_teaser_length)
            // то надо показать только $news_teaser_length
            // слов

            $line = $post['Post']['post_text'];

            $tmpline = preg_replace("/s+/", " ", $line);

            $mes_words = explode(' ',$tmpline);

            $text = "";

            if (count($mes_words) >= $news_teaser_length)

            {

              $last_word = $mes_words[$news_teaser_length -1];

              for ($i = 0; $i <= $news_teaser_length -1 ; $i++)

              {

                $text = $text.$mes_words[$i]." ";

              }

              echo $html->link($text.$news_more_annex,

                       '/posts/view/'.$post['Post']['id']);

            }

            else

            {

              echo $html->link($post['Post']['post_text'],
                  '/posts/view/'.$post['Post']['id']);

            }

            ?>

        </td>

        <td>

            <?php

            echo $html->link('Редактировать',
               '/posts/edit/'.$post['Post']['id']);

           ?>

        </td>

        <td>

           <?php

            echo $html->link('Удалить',
               '/posts/delete/'.$post['Post']['id']);

           ?>

        </td>

    </tr>

    <?php endforeach; ?>

</table>

<?

}

  else

  {

    echo "<p>Новостей пока нет</p>";

  }

?>

 <p><a href="/posts/add">Добавить новость?</a></p>

app/views/posts/add.thtml

<h1>Добавить новость</h1>

<form method="post" action="<?php
  echo $html->url('/posts/add')?>">

    <p>

        Название: <br>

        <?php echo $html->input('Post/post_header',
           array('size' => '40'))?>

        <?php echo $html->tagErrorMsg('Post/post_header',
           'Название не может быть пустым.') ?>

    </p>

    <p>

        Дата: <br>

        <?php echo $html->input('Post/post_date',
           array('size' => '40'))?>

        <?php echo $html->tagErrorMsg('Post/post_data',
            'Дата не может быть пустой.') ?>

    </p>

    <p>

        Текст:<br>

        <?php echo $html->textarea('Post/post_text',
           array('rows'=>'10')) ?>

        <?php echo $html->tagErrorMsg('Post/post_text',
             'Сообщение не может быть пустым.') ?>

    </p>

    <p>

        <?php echo $html->submit('Отправить') ?>

    </p>

</form>

app/views/posts/edit.thtml

<h1>Редактирование новости</h1>

<form method="post" action="<?php
   echo $html->url('/posts/edit')?>">

    <?php echo $html->hidden('Post/id'); ?>

    <p>

        Заголовок:<br>

        <?php echo $html->input('Post/post_header',
           array('size' => '40'))?>

        <?php echo $html->tagErrorMsg('Post/post_header',
           'Необходим заголовок.') ?>

    </p>

    <p>

        Дата:<br>

        <?php echo $html->input('Post/post_date',
           array('size' => '40'))?>

        <?php echo $html->tagErrorMsg('Post/post_date',
           'Необходима дата.') ?>

    </p>

    <p>

        Текст:<br>

        <?php echo $html->textarea('Post/post_text',
           array('rows'=>'10')) ?>

        <?php echo $html->tagErrorMsg('Post/post_text',
            'Текст не должен быть пустым!') ?>

    </p>

    <p>

        <?php echo $html->submit('Сохранить') ?>

    </p>

</form>

app\views\posts\view.thtml

<h1><?php echo $post['Post']['post_header']?></h1>

<p><small>Создана: <?php
  echo $post['Post']['post_date']?></small></p>

<p><?php echo $post['Post']['post_text']?></p>

Фу: вроде все почти готово  Теперь осталось перенаправить пользователя c приветственной странички CakePHP на страничку app/posts.

Для этого идем в app/config/routes.php и меняем там строку

$Route->connect(’/’, array(’controller’ => ‘pages’, ‘action’ => ‘display’, ‘home’));

на строку

$Route->connect (’/’, array(’controller’=>’posts’, ‘action’=>’index’));

Теперь можете в браузере набрать адрес сайта и понаблюдать CakePHP в действии 

Небольшая обработка напильником

Полюбовавшись на полученное приложение, пытливый читатель скоро почувствует разочарование. Как поменять стиль страницы,
убрать маленький баннер снизу и гордое “CakePHP Rapid Development” в верху каждой страницы? Как заставить функцию
flash отображать текст по-русски? Для этой цели служат layouts. (Долго думал, как перевести layouts и решил
остановиться на слове “шаблоны”). Бодро идем в папку app/views/layouts и помещаем там нужные файлы:
default.thtml, например, такой:

<html>

<head>

<META http-equiv="content-type"
content="text/html;charset=windows-1251" />

<title>CAKE_TEST<?php echo $title_for_layout?></title>

<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon">

<link rel="stylesheet" type="text/css" href="/css/cake.generic.css" />

</head>

<body>

            <div id="wrapper">

                        <div id="container">

            <div id="content">

                                               <?php echo $content_for_layout ?>

                                   </div>

                        </div>

            </div>

</body>

</html>

Вылечим функцию flash от любви к utf8. Для этого разместим там же flash.thtml

<html>

<head>

<title><?php echo $page_title?></title>

<META http-equiv="content-type"
content="text/html;charset=windows-1251" />

<?php if(Configure::read() == 0) { ?>

<meta http-equiv="Refresh" content="<?php
  echo $pause?>;url=<?php echo $url?>"/>

<?php } ?>

<style><!--

P { text-align:center; font:bold small sans-serif }

A { color:red}

A:HOVER { text-decoration: underline; color:#44E }

--></style>

</head>

<body>

<p><a href="<?php echo $url?>"><?php
  echo $message?></a></p>

</body>

</html>

Прототипы этих файлов можно увидеть в папке cake/libs/view/templates/layouts

Вроде бы все  Прошу php пуристов не критиковать мой код, ибо сделан он больше развлечения ради. Рекомендую сходить на cakeforge.org и скачать там мануал и помощь по API в формате chm. Удачи в печении плюшек! 

Перезапуск bind

/etc/init.d/bind9 reload

Справочник будет пополняться

Получить список открытых портов

netstat -tpl

• gkrellshoot — Plugin for gkrellm to lock the screen and make screenshots
• ksnapshot — Screenshot application for KDE
• xbase-clients — miscellaneous X clients

Если установлен ImageMagick, то можно набрать в консоли

Для администрирования базы данных MySQL вы можете использовать web-интерфейс, такой как phpMyAdmin, установка которого тоже будет описана в этом документе. phpMyAdmin — это удобный графический интерфейс, благодаря которому не надо будет ничего делать из командной строки.

В статье используется Debian Etch (Debian 4.0). У вас уже должна быть установлена базовая система Debian Etch, как это описано в первых шести главах этого учебника.

Эта статья является практической и не содержит теоретических отступлений.

Статья не дает каких-либо гарантий! Я не утверждаю что это единчтвенный способ настройки. Есть много способов, добиться той же цели. И я не гарантирую, что приведенный способ будет работать у вас.

Предварительные комментарии

В этой статье я использую имя хоста server1.example.com и IP адресом 192.168.0.100. Эти настройки у вас могут быть другими, поэтому вам надо будет заменить их на соответствующие.

Установка MySQL и phpMyAdmin

Всё можно установить одной командой:

Создайте пароль для MySQL пользователя root (замените yourrootsqlpassword на пароль, который хотите использовать):

Затем с помощью следующей команды проверьте какой адрес слушает MySQL.

Если вывод выглядит примерно так:

то это означает, что MySQL слушает только localhost.localdomain, и вы можете безопасно использовать пароль, установленный ранее. Но если вывод выглядит так:

то вам нужно установить пароль MySQL для вашего имени хоста, иначе любой сможет получить доступ к базе данных и изменить данные:

Установка PureFTPd с поддержкой MySQL

Для Debian доступен сконфигурированный пакет pure-ftpd-mysql. Установить его можно так:

Затем создаем ftp группу (ftpgroup) и пользователя (ftpuser), на которых будут ссылаться все наши виртуальные пользователи. Замените group- и userid 2001 на номер, который свободен в вашей системе:

Создание базы данных MySQL для PureFTPd

Сейчас мы создадим базу данных, которую назовем pureftpd и MySQL пользователя pureftpd, которого демон PureFTPd будет использовать для подключения к базе данных pureftpd.

Замените строку ftpdpass на пароль, который вы хотите использовать для пользователя pureftpd. Затем создадим таблицу, которая будет нам нужна:

Как вы возможно заметили, командой quit; мы завершаем работу с MySQL.

Кстати, (я предполагаю, что имя вашего ftp сервера server1.example.com) вы можете получить доступ используя phpMyAdmin по адресу http://server1.example.com/phpmyadmin/ (вы также можете использовать IP адрес вместо server1.example.com) и войти как пользователь pureftpd. После этого вы можете посмотреть на базу данных. Позже вы сможете использовать phpMyAdmin для администрирования вашего PureFTPd сервера.

Конфигурация PureFTPd

Отредактируйте /etc/pure-ftpd/db/mysql.conf. Это делается примерно так:

Убедитесь, что заменили ftpdpass настоящим паролем пользователя pureftpd в строке MYSQLPassword!! Убедитесь, что используете md5 как MYSQLCrypt метод, что означает, что мы запоминаем пароли пользователей как MD5 строки, что гораздо безопаснее использования обычного текста!

Затем создайте файл /etc/pure-ftpd/conf/ChrootEveryone, содержащий строчку yes:

Это заставит PureFTPd делать chroot для каждого пользователя в его домашний каталог и он не сможет простматривать файлы и папке вне домашнего каталога.

Также создайте файл /etc/pure-ftpd/conf/CreateHomeDir, также содержащий строку yes:

Это заставит PureFTPd создавать домашний каталог пользователя если его не существует.

Теперь нам надо сконфигурировать PureFTPd как самостоятельный демон (пока он конторолируется inetd). Чтобы это сделать, мы откроем /etc/default/pure-ftpd-common и изменим значение параметра STANDALONE_OR_INETD на standalone:

Затем изменим /etc/inetd.conf, раскомментировав строку ftp:

После этого перезапустим Inetd и PureFTPd:

Заполнение базы данных и тесты

Для заполнения базы данных вы можете использовать командный интерпритатор MySQL:

Теперь создадим пользователя exampleuser со статусом 1 (что означает, что его ftp аккаунт — активный), пароль secret (который будет сохранен в заштфрованном виде, используя MySQL функцию MD5), UID и GID 2001 (используйте userid и groupid пользователя/группы, которых вы создали в конце 2 части!), домашний каталог /home/www.example.com, лимит входяшей/исходящей пропускной способности 100 KБ/с (килобайт в секунду), и квоту в 50 MБ:

Теперь откройте FTP клиент на своей рабочей станцие (что-нибудь вроде WS_FTP или SmartFTP если у вас Windows или gFTP в Linux) и попробуйте подключиться. В качестве имени используйте server1.example.com (или соответствующий IP адрес), имя пользователя exampleuser и пароль secret.

Если вам удалось подключиться — поздравляю! Если нет, то что-то пошло не так.

Теперь, если вы выполните

вы должны увидеть, что директория /home/www.example.com (домашний каталог пользователя exampleuser) была автоматически создана, и принадлежит ftpuser и ftpgroup (Пользователь/группа, которых мы создали в конце 2 части):

Администрирование базы данных

Для большинства людей легче всего использовать графическую оболочку для MySQL; однако так же можете использовать phpMyAdmin (в этом примере по адресуhttp://server1.example.com/phpmyadmin/) для администрирования базы данных pureftpd.

Когда вы хотите создать нового пользователя, вам надо создать запись в таблице ftpd. Далее будут описаны все строки этой таблицы:

Таблица ftpd:

• User: Имя виртуального пользователя PureFTPd.
• status: 0 или 1. 0 означает, что аккаунт отключен и пользователь не может подключится.
• Password: Пароль виртуального пользователя.
• UID: userid пользователя, который был создан во 2 части.
• GID: groupid пользователя, который был создан во 2 части.
• Dir: Домашний каталог виртуального пользователя PureFTPd.
• ULBandwidth: Скорость закачки для вирткального пользователя и КБ/с. 0 — не ограничена.
• DLBandwidth: Скорость скачки для вирткального пользователя и КБ/с. 0 — не ограничена.
• comment: Комментарии. Поле можно оставить пустым.
• ipaccess: IP адрес, с которого подключаться с данным аккаунтом.
• QuotaSize: Квота в МБ.
• QuotaFiles: Количество файлов, которое можно сохранять.0 — не ограничено.

Анонимный FTP

Если вы хотите создать анонимный аккаунт (аккаунт, с которым любой может подключаться без пароля), вам надо сделать что-то вроде этого:
Сначала надо создать пользователя ftp (с домашним каталогом /home/ftp) и группу ftp:

Затем создать файл /etc/pure-ftpd/conf/NoAnonymous, содержайщий строку no:

После этого PureFTPd позволит использовать анонимный вход.

перезапустите PureFTPd:

Теперь создадим директорию /home/ftp/incoming, в которую позволим анонимным пользователям закачивать файлы. Дадим директории /home/ftp/incoming права 311 и пользователи смогут закачивать файлы, но не смогут их видеть или скачивать. Директория /home/ftp будет иметь права 555, что позволит видеть и скачивать файлы:

Теперь анонимные пользователи могут подключаться, скачивать файлы из /home/ftp и закачивать в /home/ftp/incoming.

Ссылки

• PureFTPd: http://www.pureftpd.org

• MySQL: http://www.mysql.com

• phpMyAdmin: http://www.phpmyadmin.net

• Debian: http://www.debian.org

Нас интерсует как раз SecRequestBodyLimit, открываем конфигурационный файл Apache2

Выставляем свое значение для SecRequestBodyLimit , к примеру, на класс выше:

Сохраняем файл, перезагружаем Apache2:

Все.

Сервером канала называется процесс, создающий именованный канал.

Клиентом канала называется процесс, подключающийся к созданному именованному каналу.

От других аналогичных объектов именованные каналы отличает гарантированная доставка сообщений, возможность асинхронного ввода/вывода, возможность коммуникации между процессами на разных компьютерах в локальной вычислительной сети и относительная простота использования.

По своему назначению они похожи на каналы операционной системы UNIX.

При создании именованного канала ему назначается уникальное имя, определяется максимальное количество одновременных соединений с клиентами канала и режим работы канала (должен ли канал быть односторонним или двусторонним (дуплексным), ведется ли передача пакетами или потоком байтов. При передаче пакетами данные одной операции записи отделяются в буфере канала от данных другой операции записи).

Базовым объектом для реализации именованных каналов служит объект «файл», поэтому для посылки и приема сообщений по именованным каналам используются те же самые функции Windows API, что и при работы с файлами (ReadFile, WriteFile).

Для каждого процесса-клиента канала создается свой экземпляр канала, с собственными буферами и дескрипторами (handles) и с собственным механизмом передачи данных, не влияющим на остальные экземпляры.

Экземпляры одного канала имеют общее имя, указанное при создании, сервер назначает имя канала в соответствии с универсальными правилами именования (Universal Naming Convention, UNC), которые обеспечивают независимый от протоколов способ идентификации каналов в Windows-сетях [1].

Именованные каналы, также как и файлы, наследуют стандартную защиту объектов Windows, что позволяет разграничить участников коммуникации и обеспечить запрет несанкционированного доступа к каналу.

Создание именованных каналов возможно только в NT-системах, подключение к созданному каналу возможно как в NT-системах, так и в Win9x. Кроме того, API работы с каналами в Win9x не поддерживает асинхронных операций ввода/вывода.

Именованные каналы широко используются внутри самой системы. Например, взаимодействие менеджера сервисов с самими сервисами осуществляется через несколько именованных каналов. Для связи с сервисами RunAs, с планировщиком событий и с сервером локальной аутентификации также используются именованные каналы.

Именованные каналы являются наиболее простым способом организации связи между сервисами и пользовательскими приложениями, нуждающимися в такой связи.

Одним из полезных (и довольно уникальных) свойств именованного канала является возможность сервера заменять права своей учетной записи правами учетной записи клиента, соединившегося с каналом. Эта возможность служит преимущественно для ограничения прав сервера при выполнении операций доступа к различным объектам системы.

Для работы с именованными каналами Windows API предоставляет следующие функции:

Рассмотрим алгоритм работы сервера двустороннего именованного канала, обслуживающего одновременно нескольких клиентов с использованием асинхронного ввода-вывода. Работа данного сервера заключается в пересылке сообщений, полученных от каждого клиента всем клиентам, подключенным к каналу (некий аналог чата).

После инициализации, процесс сервера запускает поток, обслуживающий клиентское соединение. Поток создает именованный канал, используя функцию CreateNamedPipe, указывает максимальное количество экземпляров канала (равное максимально возможному количеству одновременно обслуживаемых клиентов) и режимы работы канала, одновременно с созданием канала создается первый его экземпляр.

Затем поток сервера, обслуживающий этот экземпляр именованного канала, вызывает функцию ConnectNamedPipe для ожидания клиентского подключения.

После того, как клиент подключился к экземпляру именованного канала, сервер инициализирует структуры для обмена данными с клиентом, читает из канала имя подсоединившегося клиента, регистрирует его и запускает копию этого же потока для обслуживания следующего клиентского подключения. Далее, поток обслуживания экземпляра канала входит в цикл чтения канала и рассылки прочитанных сообщений всем подключенным клиентам до тех пор, пока соединение с клиентом не разорвется.

После разрыва соединения поток отключается от экземпляра канала, чтобы освободить ресурсы, выделенные системой под обслуживание этого экземпляра, и завершает свою работу.

Последующие потоки при вызове функции CreateNamedPipe создают дополнительные экземпляры канала, при этом параметры, задающие режимы работы канала функцией игнорируются.

Алгоритм работы клиента следующий: После запуска клиент запрашивает у пользователя имя сервера и свое имя для идентификации, подключается к экземпляру канала вызовом функции CreateFile с указанием имени канала, регистрируется на сервере с помощью посылки в канал своего имени и запускает поток асинхронного чтения сообщений из канала. Основной поток принимает сообщения пользователя и передает их в канал серверу. Поток чтения работает до тех пор, пока не разорвется соединение с сервером, или пока пользователь не завершит клиентский процесс.

Рассмотрим реализацию потока сервера, обслуживающего экземпляр именованного канала:

и процедуры рассылки сообщения клиентам:

Рассмотрим реализацию клиента, взаимодействующего с сервером именованного канала:

И клиентского потока асинхронного чтения данных из канала:

procedure ReadPipe (hPipe: PHANDLE); stdcall;
var
inBuf: array[0..IN_BUF_SIZE] of WideChar;
bytesRead: DWORD;
rc: Boolean;
lastError: DWORD;
hEventRd: THANDLE;
OverLapRd: OVERLAPPED;
bytesTrans: DWORD;
begin
inBuf[0] := #0;
hEventRd := CreateEventW (nil, true, false, nil);
FillChar (OverLapRd, sizeof(OVERLAPPED), 0);
OverLapRd.hEvent := hEventRd;
// Бесконечный цикл чтения из канала, до тех пор,пока не разорвется соединение
// Чтение происходит асинхронно, с ожиданием по событию. После того, как сооб-
// щение прочитано, оно помещается в элемент редактирования.
while true do begin
rc := ReadFile (hPipe^, inBuf, IN_BUF_SIZE*sizeof(WideChar), bytesRead,
@OverLapRd);
if not rc then begin
lastError := GetLastError;
// Проверка на три вида ошибки:
// IO_PENDING (ожидать завершения операции), BROKEN_PIPE (выйти из цикла)
// и остальные (выдать сообщение, выйти из цикла и умереть)
if lastError = ERROR_IO_PENDING then begin
WaitForSingleObject (hEventRd, INFINITE);
end else begin
if lastError = ERROR_BROKEN_PIPE then
MessageBoxW (hWndClient,
‘The connection to this client has been broken.’ , » , MB_OK)
else
ShowLastErrorMessage(hWndClient,
PAnsiChar( ’Client: Debug():ReadFile’ ));
Break;
end;
end;
GetOverlappedResult (hPipe^, OverLapRd, bytesTrans, false);
inBuf[bytesTrans div SizeOf(WideChar)] := #0;  // Завершить полученную строку
SendMessageW (GetDlgItem (hWndClient, IDD_EDITREAD), EM_REPLACESEL,
0, LPARAM(@inBuf));
// Перевести курсор на следующую строку в элементе редактирования
SendMessageW (GetDlgItem (hWndClient, IDD_EDITREAD), EM_REPLACESEL,
0, LPARAM(PWideChar(CrLf)));
end;
// Если соединение с каналом разорвано, завершить программу
PostMessageW (hWndClient, WM_GO_AWAY, 0,0);
ExitThread(0);

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate(‘about:blank’);
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;

if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;

{ …. }

procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ add the used parameters for the script }
data.AddFormField(′param1′, ′value1′);
data.AddFormField(′param2′, ′value2′);
data.AddFormField(′param3′, ′value3′);

{ Call the Post method of TIdHTTP and read the result into TMemo }
Memo1.Lines.Text := IdHTTP1.Post(′http://localhost/script.php′, data);
finally
data.Free;
end;
end;