close

Вход

Забыли?

вход по аккаунту

?

Sozdanie klient server

код для вставкиСкачать
1) Создадим базу в Access:
Наша база будет содержать таблицу one, к-я будет сожержать одно поле, с именем "ChisLa" (тип данных - Числовой). Заполнять базу не нужно. Теперь необходимо сохранить нашу базу в .mdb формате. Для этого сохраним её как Базу данных Access 2002 - 2003.
2) Создание серверного приложения:
* Создаем проект в Delphi.
* Добавляем на форму след. компоненты:
- TIdTCPServer (Indy Servers)
- TADOTable (dbGO)
- TdataSource (Data Access)
- TDBGrid (Data Controls)
* Свяжем TADOTable с нашей базой:
Для это необходимо выбрать свойство ConnectionString и перейти к выбору:
Нажмен на кнопку Build и выберем Microsoft Jet 4.0 OLE DB Provied.
Нажмем на кнопку Далее. И перейдем к выбору нашей сохраненной базы.
* Осуществим связь между компонентами:
В компоненте TDataSource ставим свойство ADOTable1.
В DbGrid свойство DataSourse в DataSourse1.
В TADOTable в параметре TableName выбираем имя таблицы Access, с которой нужно работать. В TADOTable поставить свойство Active = True.
После этого в сетке DBGrid отобразится содержимое таблицы.
* Настроим компонент TIdTCPServer
Здесь все просто - указываем порт, на котором будет работать сервер, и активируем сам сервер.
Для того, чтобы получать данные на сервере от клиента, существует специальное событие "OnExecute". Сделаем так, чтобы мы получали числовое значение от клиента и записывали его в нашу таблицу:
На этом создание серверного приложения завершено. Сохраните проект в папке Server и закройте его.
3) Создание клиентского приложения.
* Создадим новый проект в Delphi.
* Добавим на форму след. компоненты:
- TIdTCPClient (Indy Client) - Tedit (Standard)
- Tbutton (Standard)
* Опишем событие Button Click.
Адрес "127.0.0.1", что говорит о том, что сервером и является компьютер на котором запущен клиент. Такой способ очень удобен для тестирования сетевых приложений.
Работа над клиентской программой тоже закончена.
Сохраните проект в папке Server и закройте его.
4) Протестируем результат.
* Запустим оба наших приложения Client и Server.
* Введем в приложении Client любое число (соответствующее типу Integer).
* Нажмем на Button и проанализируем изменения в Server приложении.
Документ
Категория
Разное
Просмотров
19
Размер файла
2 460 Кб
Теги
server, klient, sozdanie
1/--страниц
Пожаловаться на содержимое документа