Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

Хук+сеть   Найти похожие ветки 

 
elf_123 ©   (2003-02-18 16:39) [0]

Здрасте!
Вопрос: на компе1 стоит прога А
на компе2 стоит прога Б
А посылает сообщение -- строку Б
и ждет ответного сообщения -- булевского значения

Как это реализовать?


 
gsu ©   (2003-02-18 16:50) [1]

сокеты


 
Digitman ©   (2003-02-18 16:52) [2]

хук-то причем здесь ? непонятно


 
elf_123 ©   (2003-02-18 16:56) [3]



> gsu © (18.02.03 16:50)
> сокеты

сам знаю. не знаю только как именно


> Digitman © (18.02.03 16:52)
> хук-то причем здесь ? непонятно

Прога А отсылает сообщение по срабатыванию хука
Написал его в сабж случайно :)



 
Digitman ©   (2003-02-18 17:11) [4]

вооот) теперь убирай слово "хук" из вопроса, сформулируй вопрос точней и задавай его в "Сети"


 
DikobraZ ©   (2003-02-18 19:45) [5]

Программа на компе A: (на срабатывание хука)
ClientA.Active:=true;
ClientA.Socket.SendText("string");

Программа на компе В: (на событие OnClientRead)
if ServerB.Socket.ReceiveText ="string"
then ServerB.Socket.Connections[0].SendText("1")
else ServerB.Socket.Connections[0].SendText("0");

Программа на компе A: (на событие OnRead)
получаешь 1 или 0 - ClientA.Socket.ReceiveText


 
Digitman ©   (2003-02-19 09:44) [6]


> DikobraZ


Этот примитивный код никогда не будет работать правильно в условиях глоб.сети


 
DikobraZ ©   (2003-02-19 11:38) [7]

что-то я не понял, почему это он не будет работать правильно???


 
Digitman ©   (2003-02-19 11:42) [8]

потому что (предполагается async non-blocking mode):

1. Нет анализа результата и соотв.реакции на вызовы send-методов
2. Нет обработки OnWrite()


 
Anatoly Podgoretsky ©   (2003-02-19 11:52) [9]

Простыми слова нет обработки внештатных ситуаций, предполагается, что все будет хорошо, не будет работать правильно в условиях одного компьютера.



Страницы: 1 вся ветка

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
1-30391
AlexTMP
2003-03-30 12:44
2003.04.10
GetLastError() после Memo1.Lines.Add( test ) равно 5


14-30574
Suvorov
2003-03-25 05:25
2003.04.10
Подскажите, как можно из Delphi вставить в Excel каринку


14-30528
Карелин Артем
2003-03-24 11:20
2003.04.10
Ну янки ваще.


1-30438
Axar
2003-03-31 09:44
2003.04.10
Командная строка ?


1-30433
acsoft
2003-03-31 07:59
2003.04.10
Хотелось бы научиться создавать плагины для своей программы в вид