Клиент серверная программа

← →
Socol © (2002-07-04 05:15) [0]

Здаров програмеры)))
Есть проблема с клиентсерверной программой)))
Подскожите как с клиента моей программы отправить строчку записаную в эдите скажем (11111) серверной програме))) Когда они соединены по IP))) Чтоб сервер принял ее и занес тоже в эдит)))
Спосибо всем кто ответил)))

← →
Random bystander © (2002-07-04 10:40) [1]

Вообще-то можно воспользоваться компонентами со странички Internet - ServerSocket и ClientSocket называются.

На клиенте ставишь ClientSocket, на сервере - ServerSocket.
Прописываешь в них одинаковое значение Port. В ClientSocket задаешь Host (имя компьютера сервера) или Address - IP-шник его.
Задавать можно и во время выполнения, но при выключенной розетке.

Потом ClientSocket.Open - соединяешься с сервером (там, соответсно, генерится ServerSocket.ClientConnect).

Дальше, после ввода текста в едит, что-то в районе так:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_Return then begin ClientSocket.Socket.SendText (Edit1.Text); Edit1.Clear; end; end;

А на сервере

procedure TForm2.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket); var Inbound: String; begin Inbound := Socket.ReceiveText; //Чего-нибудь делаем Edit1.Text := (Socket.RemoteHost + " сказал нам : " + Inbound); end;

Телемаркет ?:)

Клиент серверная программа Найти похожие ветки