Клиент серверная программа [D6, WinXP]
Socol © (2002-07-04 05:15:00)
Здаров програмеры)))
Есть проблема с клиентсерверной программой)))
Подскожите как с клиента моей программы отправить строчку
записаную в эдите скажем (11111) серверной програме))) Когда они
соединены по IP))) Чтоб сервер принял ее и занес тоже в эдит)))
Спосибо всем кто ответил)))
Random bystander (2002-07-04 10:40:00) [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;
Телемаркет ?:)
Наверх 
ЧАТ |
Орешник |
|
