Вверх ↑
Этот топик читают: Гость
Ответов: 537
Рейтинг: 14
#1: 2018-03-29 21:27:28 ЛС | профиль | цитата
Нужно передать серию картинок по сети оптимальным способом
Add(MainForm,14832119,14,112)
{
link(onCreate,9599049:doEvent1,[])
}
Add(ScreenShort,15491505,196,154)
{
link(onCapture,14383426:doPack,[])
}
Add(Timer,11727950,154,154)
{
Interval=500
Enable=1
link(onTimer,15491505:doCapture,[])
}
Add(StreamPack,14383426,245,154)
{
DataCount=#3:bmp|
link(onPack,6042066:doSend,[])
}
Add(StreamUnPack,13992887,490,126)
{
DataCount=#3:bmp|
link(onUnPack,10089804:doWork2,[])
}
Add(ChildForm,10089804,560,119)
{
link(Data1,13992887:bmp,[(566,107)(517,107)(517,170)(496,170)])
}
BEGIN_SDK
Add(EditMulti,16039528,21,21)
{
WorkCount=2
DataCount=1
link(doWork1,457651:doVisible,[(28,27)(28,139)])
link(doWork2,6179071:doLoad,[(53,34)(53,111)])
}
Add(MainForm,457651,35,105)
{
Left=35
Top=105
Visible=1
Caption="Экран монитора"
Point(doVisible)
}
Add(Image,6179071,84,105)
{
Left=160
Top=105
Align=5
link(Bitmap,16039528:Data1,[(90,63)(27,63)])
}
END_SDK
Add(TCP_Server,730034,441,126)
{
Port=155
DataType=3
link(onRead,13992887:doUnPack,[])
}
Add(TCP_Client,6042066,322,140)
{
Port=155
IP="127.0.0.1"
DataType=3
}
Add(Hub,9599049,413,126)
{
link(onEvent1,730034:doOpen,[])
link(onEvent2,6042066:doOpen,[(433,139)(433,115)(302,115)(302,146)])
}
Add(IndexToChanel,8855637,56,147)
{
link(onEvent1,11727950:doStop,[(134,153)(134,167)])
link(onEvent2,2825178:doEvent1,[])
}
Add(CheckBox,1140216,14,147)
{
Left=250
Top=5
Width=95
Caption="Экран"
link(onCheck,8855637:doEvent,[])
}
Add(Hub,2825178,105,154)
{
link(onEvent1,11727950:doTimer,[])
link(onEvent2,10089804:doWork1,[(145,167)(145,125)])
}

Придумал только так, может можно ускорить схему и уменьшить нагрузку на процессор?

Редактировалось 1 раз(а), последний 2018-03-29 21:30:10
карма: 4

0
vip
#1.1контекстная реклама от партнеров
Ответов: 537
Рейтинг: 14
#2: 2018-03-29 22:57:46 ЛС | профиль | цитата
Там если таймер поставить на 250, то программа совсем зависает, а по настоящей сети можно передавать картинки только раз в секунду без зависаний. Так в чем проблема? А новый компонент альтернативный TCP вообще сыпется ошибками и ничего не передает, делал так: поток-строка-строка-поток и куча ошибок сыпется. Тут пока моих знаний не хватает вот и прошу помочь
карма: 4

0
Ответов: 537
Рейтинг: 14
#3: 2018-03-29 23:58:05 ЛС | профиль | цитата
Я так понял картинку сложно передать, там на Delphi у всех с этим проблема, но теоретически в моей "хитрой" схеме должно работать нормально но бряк, так кто нибудь может мне внятно объяснить в чем трабл?
карма: 4

0
Ответов: 4621
Рейтинг: 746
#4: 2018-03-30 10:49:18 ЛС | профиль | цитата
Sersey писал(а):
А новый компонент альтернативный TCP вообще сыпется ошибками и ничего не передает
Что, и этот пример "сыпется"? /topic/63600/9#p277633
Sersey писал(а):
там на Delphi у всех с этим проблема
Нет с этим у Delphi никаких проблем, которых нет "у других". Просто у конкретного автора кода может не быть готового решения и он может не знать, как его реализовать самому.

Редактировалось 2 раз(а), последний 2018-03-30 10:51:52
карма: 26

0
Ответов: 8888
Рейтинг: 823
#5: 2018-03-31 12:41:09 ЛС | профиль | цитата
Netspirit, а где достать DataAccumulator, сам устал искать в вашей теме про Альтернативные компоненты сервера и клиента TCP
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#6: 2018-04-01 06:35:21 ЛС | профиль | цитата
Леонид, http://forum.hiasm.com/post/277705

Редактировалось 1 раз(а), последний 2018-04-01 06:35:46
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8888
Рейтинг: 823
#7: 2018-04-01 09:45:18 ЛС | профиль | цитата
Tad, в упор не видел, зрение слабовато стало Спасибо
карма: 19

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