Скачать: CL | DM;

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

← →
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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c