Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.006 c
14-27170
Карлсон
2002-08-13 03:54
2002.09.09
Моддинг.


14-27222
Polevi
2002-08-12 16:14
2002.09.09
полосатый грид


14-27234
AL2002
2002-08-14 11:31
2002.09.09
Зашёл на торри нет


1-27082
ssv
2002-08-22 14:12
2002.09.09
Объясните как это работает


14-27214
Nikolay
2002-08-15 14:03
2002.09.09
W2k





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский