Клиент-Сервер

@Skynetus · Регистрация: 02.04.2010

Студворк — интернет-сервис помощи студентам

Народ целый вечер мучаюсь!!!
Как реализовать такую вещь, есть к примеру клиент и сервер, сервер должен запустится не заметно на компе, клиент должен отправить текстовое сообщение и оно должно вывестись на экран!!! Как это сделать???

@STRATEG · 03.04.2010, 14:13

Поюзай исходники для новичков,работа с TClientSocket&TServerSocket
ClientSocket&ClientServer Простой пример
А вообще за вечер и не такое успел бы сделать

все просто,запускаешь сервер Visible:=false.Либо Application.ShowMainForm :=False;
Кинул сообщение на сервер,и он его показывает ShowMessage Например

@Skynetus · 03.04.2010, 18:09 **[ТС]**

Сообщение от strateg0793

Поюзай исходники для новичков,работа с TClientSocket&TServerSocket
ClientSocket&ClientServer Простой пример
А вообще за вечер и не такое успел бы сделать

все просто,запускаешь сервер Visible:=false.Либо Application.ShowMainForm :=False;
Кинул сообщение на сервер,и он его показывает ShowMessage Например

Плиз глянь мой иходник,что в нём не так???
213424.rar

@STRATEG · 04.04.2010, 10:48

глянь Демку "папка Delphi\Demos\Internet\NetChat"]C:\Program Files\Borland\Delphi7\Demos\Internet\Net Chat
Для начала поставь Active в False,а то у тебя при создании компонента он сразу слушает порт 968 а потом ты опять присваиваешь и начинаешь слушать,эт фигня,потом вот еще

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.lines.add('Установка соединения...');
TcpClient1.RemoteHost := Edit1.Text;
TcpClient1.RemotePort := '2356';
TcpClient1.Connect ;
//Memo1.lines.add('Соединились...'); мы еще не соединились
//а просто пытаемся соедениться
end;

А вот тут мы 100% соединились

Delphi
1
2
3
4
procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
Memo1.lines.add('Соединились...');
end;

Тоже самое про Disconnect могу сказать,плюс форма сервака виснет,прописывай хотябы Application.ProcessMessages....на чуть переделал TCP.rar,вообще для новичков тяжеловато с ними разобраться,бери Client\ServerSocket,они удобнее функциональнее и примеров куча,в частности моих

P.S. если что пиши в личку

@neo_512 · 04.04.2010, 11:54

Skynetus, странно тебе для чего это я как то писал программу с похожей функие и она была для приколов по сети з.ы. локальной

@STRATEG · 04.04.2010, 11:57

Поюзай борландовский пример,разобраться не сложно сделано хорошо

NetChat.rar

@Skynetus · 04.04.2010, 19:49 **[ТС]**

Сообщение от neo_512

Skynetus, СТРАННО ТЕБЕ ДЛЯ ЧЕГО ЭТО Я КАК ТО ПИСАЛ ПРОГРАММУ С ПОХОЖЕЙ ФУНКЦИЕ И ОНА БЫЛА ДЛЯ ПРИКОЛОВ ПО СЕТИ З.Ы.ЛОКАЛЬНОЙ

Плиз если есть то кинь исходник на мыло ashcherbach@gmail.com .

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Skynetus 0 / 0 / 0 Регистрация: 02.04.2010 Сообщений: 3

	Клиент-Сервер 02.04.2010, 23:33. Показов 10838. Ответов 6 Метки нет (Все метки) Народ целый вечер мучаюсь!!! Как реализовать такую вещь, есть к примеру клиент и сервер, сервер должен запустится не заметно на компе, клиент должен отправить текстовое сообщение и оно должно вывестись на экран!!! Как это сделать??? 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	03.04.2010, 14:13
	Поюзай исходники для новичков,работа с TClientSocket&TServerSocket ClientSocket&ClientServer Простой пример А вообще за вечер и не такое успел бы сделать все просто,запускаешь сервер Visible:=false.Либо Application.ShowMainForm :=False; Кинул сообщение на сервер,и он его показывает ShowMessage Например 0

@neo_512 Заблокирован
	04.04.2010, 11:54
	Skynetus, странно тебе для чего это я как то писал программу с похожей функие и она была для приколов по сети з.ы. локальной 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	04.04.2010, 11:57
	Поюзай борландовский пример,разобраться не сложно сделано хорошо NetChat.rar 0