Календарь на Апрель 2024 года: calendar2008.ru/2024/aprel/
Навигация
Главная »  Delphi 

Разработка клиент-серверного приложения на Delphi


Источник: softerium
Беднягин Павел
В этой статье я постараюсь поделиться опытом по созданию клиент-серверных приложений с использованием стандартных компонентов Indy HTTPServer и Indy HTTPClient.

Создадим 2 проекта: MyServer.dpr и MyClient.dpr. На главную форму MyServer добавим компонент TIdHTTPServer (закладка Indy Servers) и TMemo (для отображения клиентского запроса). Немного отредактируем параметры сервера: "Active=true", "DefaultPort=56001" (можно указать любой другой) и "Name=MyServer". У этого компонента есть событие OnCommandGet. Переходим к его редактированию.

procedure TForm1.MyServerCommandGet(AThread: TIdPeerThread; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin Memo.Text := ARequestInfo.Params.Text; AResponseInfo.ContentText := 'OK'; end;
Значение ARequestInfo.Params.Text хранит в себе ту информацию, которая пришла от клиентского приложения. AResponseInfo.ContentText - результат, который сервер должен вернуть. Пока не будем его трогать, а перейдём к настройке приложения MyClient.

Всё, что здесь нужно сделать - положить на форму компонент TIdHTTPClient (закладка Indy Clients). Настраивать у него ничего не надо, разве что изменим имя на "MyClient". Теперь переходим к самому интересному. Кладём на форму обыкновенную кнопку и по событию OnClick делаем следующее:

procedure TForm1.ButtonClick(Sender: TObject); begin MyClient.Get('http://127.0.0.1:56001/?command=test¶m1=value1&' +'param2=value2'); end;
Разберём этот код по частям. Про его начало "http://127.0.0.1:56001/?" писать особо нечего. Это обычный http запрос. Главное правильно указать IP-адрес и порт сервера. Дальше начинается перечисление параметров запроса и их значений, разделенных символом &. Как правило, основной целью работы клиент-серверного приложения является передача и выполнение команд, поэтому назовём первый параметр "command". Используется он для того, чтобы сервер знал, что ему следует выполнять. Вот пример рабочего запроса:

procedure TForm1.ButtonClick(Sender: TObject); var serverResult: string; begin serverResult := MyClient.Get('http://127.0.0.1:56001/?command=userLogin&' +'login=admin&password=202CB962AC59075B964B07152D234B70'); if serverResult = 'result_OK' then ShowMessage('Пользователь "Admin" вошел в систему') else ShowMessage('Ошибка ввода логина/пароля'); end;
В данном случае мы просим сервер выполнить вход в систему пользователя "admin" с паролем, зашифрованным при помощи md5.

Теперь немного перепишем обработку события сервера OnCommandGet таким образом, чтобы при получении команды "userLogin" он выполнял функцию UserLogin. В случае успешного её выполнения, клиенту вернётся результат "result_OK", иначе "result_Error".

procedure TForm1.MyServerCommandGet(AThread: TIdPeerThread; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin AResponseInfo.ContentText := 'unknown_Command'; Memo.Text := ARequestInfo.Params.Text; if ARequestInfo.Params.Values['command'] = 'userLogin' then begin if UserLogin(ARequestInfo.Params.Values['login'], ARequestInfo.Params.Values['password']) then AResponseInfo.ContentText := 'result_OK' else AResponseInfo.ContentText := 'result_Error'; end; end;
Вот таким нехитрым способом можно создавать клиент-серверные приложения. Чтобы не запутаться в именах параметров, рекомендую сделать отдельный unit с константами, который знали бы и сервер, и клиент. В следующей статье я объясню, как оптимизировать передачу данных по http и упростить их обработку, а также поделюсь своими компонентами, упрощающими подобную разработку.

Узнать подробнее можно здесь



 

 Как найти удаленную работу, а не проблемы (часть I).
 База данных методами Object Pascal.
 Лицензирование Crystal Reports for .NET.
 Delphi всемогущий (исходники).
 Приглашаем всех желающих на семинар Borland.


Главная »  Delphi 

© 2024 Team.Furia.Ru.
Частичное копирование материалов разрешено.