Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2012-04-29 22:15:45 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:07
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2012-04-29 22:24:13 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:08
карма: 0

0
Ответов: 3851
Рейтинг: 159
#3: 2012-04-29 22:34:59 ЛС | профиль | цитата

используй точку onConnect у сервера
карма: 0
начавший
0
Разработчик
Ответов: 4698
Рейтинг: 426
#4: 2012-04-29 22:37:41 ЛС | профиль | цитата
85.26.165.27 писал(а):
Была такая попытка реализации (не увенчалась успехом):

Это верная реализация. Только вот список IP черный неверный - клиент подключается с IP = 127.0.0.1, а его в черном списке нету.
карма: 10
0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2012-04-29 22:38:55 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:08
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2012-04-29 22:41:16 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:08
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2012-04-29 23:00:30 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:09
карма: 0

0
Ответов: 3851
Рейтинг: 159
#8: 2012-04-29 23:07:42 ЛС | профиль | цитата

у сервера проблемка со стримом - http://forum.hiasm.com/forum.html?q=3&p=205973
карма: 0
начавший
0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2012-04-29 23:11:06 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:09
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2012-04-29 23:18:46 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:09
карма: 0

0
Разработчик
Ответов: 26206
Рейтинг: 2137
#11: 2012-04-29 23:22:15 ЛС | профиль | цитата
В натуре, че мозги парить, файловый поток нормально передается через клиент-сервер-клиент



Add(MainForm,6281821,266,182)
{
Caption="test"
BorderStyle=3
Position=1
}
Add(TCP_Server,1565123,448,182)
{
Port=80
DataType=3
Point(onServerConnect)
link(onRead,7391394:doCopy,[])
link(Data,7391394:Stream,[(454,170)(500,170)(500,226)(566,226)])
link(onServerConnect,7370736:doOn,[(492,209)(492,258)])
}
Add(TCP_Client,8336211,602,336)
{
Port=80
IP="127.0.0.1"
DataType=3
link(onRead,14896029:doDeCompress,[(650,342)(650,349)])
link(onConnect,290351:doOn,[(650,349)(650,391)])
}
Add(DoData,14219562,399,350)
{
Data=String(Hello)
link(onEventData,725654:doConvert,[])
}
Add(StreamConvertor,725654,448,350)
{
Mode=7
link(onResult,11242823:doCompress,[])
}
Add(LZMA,11242823,497,350)
{
link(onStream,8336211:doSend,[])
}
Add(InfoTip,15203036,336,301)
{
Info=#22:Часть клиент-программы|
Width=470
Height=123
}
Add(InfoTip,2509120,336,98)
{
Info=#22:Часть сервер-программы|
Width=470
Height=193
}
Add(MemoryStream,7391394,560,182)
{
link(onCopy,1565123:doSend,[(607,188)(607,154)(426,154)(426,202)])
}
Add(LZMA,14896029,665,336)
{
link(onStream,4317513:doConvert,[])
}
Add(StreamConvertor,4317513,714,336)
{
Mode=6
link(onResult,7430922:doMessage,[])
}
Add(Message,7430922,763,336)
{
}
Add(Button,7724664,357,182)
{
Left=10
Top=15
TabOrder=-1
Caption="Open"
link(onClick,1565123:doOpen,[])
}
Add(LED,7370736,504,238)
{
Left=75
Top=15
}
Add(LED,290351,665,371)
{
Left=75
Top=75
}
Add(Button,12623838,350,308)
{
Left=10
Top=75
TabOrder=-1
Caption="Connect"
link(onClick,8336211:doOpen,[(517,314)(517,342)])
}
Add(Button,742541,349,350)
{
Left=10
Top=100
TabOrder=-1
Caption="Send"
link(onClick,14219562:doData,[])
}

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#12: 2012-04-29 23:49:15 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:09
карма: 0

0
Разработчик
Ответов: 26206
Рейтинг: 2137
#13: 2012-04-30 00:01:33 ЛС | профиль | цитата
85.26.234.188 писал(а):
я сегодня добрый. Вот готовое решение... ваше

А че не через верхнюю точку, а через поток, так лишний компонент нужен
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2012-04-30 00:10:04 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:44:10
карма: 0

0
Разработчик
Ответов: 26206
Рейтинг: 2137
#15: 2012-04-30 00:26:30 ЛС | профиль | цитата
85.26.234.188 писал(а):
мозг забывает, но руки помнят

Что-то я Вас не узнаю в гриме
карма: 22

0
15
Сообщение
...
Прикрепленные файлы
(файлы не залиты)