Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как послать сообщение на другой комп? [D6, Win2k]


Alibaba ©   (2002-05-13 17:25:00) 

Все привет!
Подскажите, плиз, как послать сообщение на другой комп?


ZZ   (2002-05-14 16:56:00) [1]

Alibaba
И какие ошибки выдает при компиляции???


Alibaba   (2002-05-14 10:33:00) [2]

Не совсем...
С Win2k -> Win2k работает
С Win98 -> Win2k НЕТ! (говорит netapi32.dll нету... однако...)


Alibaba   (2002-05-13 18:55:00) [3]

ЗАРАБОТАЛО!!!!!!!


mrcat   (2002-05-13 18:52:00) [4]

Client - клиентское место, с него посылаешь сообщения,
Server - сервер, принимает.

Оба сокетных компонента есть на панели компонентов.

удачи


Alibaba   (2002-05-13 18:38:00) [5]

2ZZ
А ты сам пробовал этот примерчик?
Что-то он у меня компилиться не хочет...


Alibaba   (2002-05-13 18:25:00) [6]

2mrcat
У тебя есть два разных компонента
ClientSocket и Socket - это так надо?


mrcat   (2002-05-13 18:21:00) [7]

>> 2Alibaba
Естественно,на сервере тебе это сообщение надо принять:
procedure TMCServerForm.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);

begin
ShowMessage(Socket.ReceiveText); // или что-то в этом роде...
end;


Alibaba   (2002-05-13 18:16:00) [8]

2mrcat
Самое толковое предложение.
Сейчас попробую.


mrcat   (2002-05-13 17:54:00) [9]

procedure TMCForm.SendTextToVasaClick(Sender: TObject);
begin
with ClientSocket do begin
Address := "10.11.12.13";
Port := 1234;
Active := true;
end;
end;

procedure TMCForm.ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
with Socket do begin
SendText("Привет, Вася!");
Active := false;
end;
end;


ZZ   (2002-05-13 17:48:00) [10]

Без клиентов и серверов - стандартной службой сообщений
http://delphi.xonix.ru/faq/show.php?m=lan&n=2


Song   (2002-05-13 17:45:00) [11]

Можно определить IP по имени (GetHostByName) либо написать имя в TClientSocket.Host (первое предпочтительнее)


Alibaba   (2002-05-13 17:40:00) [12]

Приведи, плиз, пример. (IP пусть 10.11.12.13)


mrcat   (2002-05-13 17:36:00) [13]

ну, дык, используй IP компа Vasa


Alibaba   (2002-05-13 17:35:00) [14]

Нет, мне не надо ЛОВИТЬ сообщение.
Мне необходимо просто послать сообщение на комп "Vasa".


mrcat   (2002-05-13 17:33:00) [15]

Организуй клиент/сервер, например на сокетах - все это очень понятно описано в DelpHelp


Наверх

Титульная страница Поиск, карта сайта Написать письмо