Текущий архив: 2002.09.09;
Скачать: 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 вся ветка
Текущий архив: 2002.09.09;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.005 c
