|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как сделать передачу данных от клиента к серверу
Пишу клиент-серверное приложение с помощью компонентов TClientSocket и TServerSocket. Мне нужно из полей на форме клиента отправлять данные с помощью пакетов на сервер (на сервере бд), там их обработать и отправлять результаты обратно клиенту на форму.
Установила соединение на клиенте: Код:
if ClientSocket1.Active then begin ClientSocket1.Close; Exit; end; ClientSocket1.Host:='78.85.164.232'; ClientSocket1.Port:=1001; ClientSocket1.Open; ShowMessage('Соединение установлено'); ClientSocket1.Socket.SendText(Edit1_ssud_schet.Text); На сервере написала код: Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add(Socket.ReceiveText); end; procedure TForm1.FormCreate(Sender: TObject); begin ServerSocket1.Open; end; procedure TForm1.FormDestroy(Sender: TObject); begin ServerSocket1.Close; end; Соединение проходит успешно, но данные на сервере не появляются. Подскажите в чем ошибка. Мне нужно передавать данные из текстовых полей, обрабатывать их на сервере, если все хорошо, записать полученные данные в бд, если где-то ошибка - отправить соответствующее сообщение на клиент. Что мне нужно сделать для этого? |