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