Разработка клиент-серверного приложения на 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 и упростить их обработку, а также поделюсь своими компонентами, упрощающими подобную разработку.

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

Ссылки по теме