Разработване на клиент-сървърно приложение в Delphi - Delphi - Софтуерни продукти

В тази статия ще се опитам да споделя моя опит в създаването на клиент-сървърни приложения, използвайки стандартни компоненти Indy HTTPServer и Инди HTTPClient.

Нека създадем 2 проекта: MyServer.dpr и MyClient.dpr. Добавете компонент към основния формуляр на MyServer TIdHTTPS сървър (Раздел Indy Servers) и TMemo (за показване на клиентска заявка). Нека малко редактираме параметрите на сървъра: "Active = true", "DefaultPort = 56001" (можете да посочите всяка друга) и "Name = MyServer". Този компонент има събитие OnCommandGet. Нека да продължим с редактирането му.

Стойност ARequestInfo.Params.Text съхранява информацията, получена от клиентското приложение. AResponseInfo.ContentText - резултатът, който сървърът трябва да върне. Нека все още не го докосваме, но нека преминем към конфигуриране на приложението MyClient.

Всичко, което трябва да направите тук, е да поставите компонент във формуляра TIdHTTPClient (Раздел Indy Clients). Не е необходимо да конфигурирате нищо за него, освен ако не сменим името на "MyClient". Сега към забавната част. Поставяме обикновен бутон на формуляра и по събитие OnClick направете следното:

---