Вверх ↑
Этот топик читают: Гость
Ответов: 106
Рейтинг: 0
#1: 2009-09-26 23:27:23 ЛС | профиль | цитата
Вот вопрос, даже незнаю что и спросить!
интеерсует именно реализация удалённого доступа и не простая, а именно с видом рабочего стола, как её бы реализовать? интересно просто, типа по кадрово снимать рабочий стол, передавать эту картинку и хзхзхзхз подскажите
------------ Дoбавленo в 23.30:
или вопрос н2 !
как запустить допустим вообще левую программу таким образом чтобы она не появилась на экране , чтобы можно было найти начало её координат на экране и вывести их. вот 0_о
карма: 1

0
Ответов: 5446
Рейтинг: 323
#2: 2009-09-26 23:30:07 ЛС | профиль | цитата
Kovarnui, да, именно так. Более правильный способ (но труднореализуемый) - передавать не кадры, а разницу с предыдущим. Плюс упаковывать тем же gzip-ом.
Посмотри пример SendPicture.
карма: 1

1
Голосовали:Kovarnui
Ответов: 106
Рейтинг: 0
#3: 2009-09-26 23:46:38 ЛС | профиль | цитата
интересно
а что насчет второго думаю реализовать реально? с фишками где управление окон?
карма: 1

0
Ответов: 373
Рейтинг: 108
#4: 2009-09-27 01:13:05 ЛС | профиль | цитата
Kovarnui писал(а):
а что насчет второго думаю реализовать реально? с фишками где управление окон?

ну да, с ими самыми.
Kovarnui писал(а):
интеерсует именно реализация удалённого доступа и не простая, а именно с видом рабочего стола, как её бы реализовать?

без IC пока не как, компонент ScreenShort для этого не подходит но если очень хочется то можно и его использовать.
карма: 0

0
Разработчик
Ответов: 26324
Рейтинг: 2148
#5: 2009-09-27 01:14:08 ЛС | профиль | цитата
Vlad.- писал(а):
компонент ScreenShort для этого не подходит

Аргументы -- почему
карма: 22

0
Ответов: 106
Рейтинг: 0
#6: 2009-09-27 15:24:21 ЛС | профиль | цитата
убедился в этом
в элементе сендпаже не реал что-то сделать, тока максимум выходит сообщение с ИП адресом и всё, есть рабочие примеры? чего-нибудь? хотябы передача данных с одного компа на другой
карма: 1

0
Ответов: 109
Рейтинг: 4
#7: 2009-09-27 15:35:40 ЛС | профиль | цитата
Kovarnui дай асю или мыло свою
карма: 0

0
Ответов: 106
Рейтинг: 0
#8: 2009-09-27 15:36:50 ЛС | профиль | цитата
icq 578874935
карма: 1

0
Ответов: 109
Рейтинг: 4
#9: 2009-09-27 16:09:12 ЛС | профиль | цитата
войди в него я теб ядобавил
карма: 0

0
Ответов: 373
Рейтинг: 108
#10: 2009-09-27 20:02:16 ЛС | профиль | цитата
nesco писал(а):
Аргументы -- почему

По моему надо мониторить изменения цвета пикселов не в битмапе после скриншота, а в памяти видео карты через указатель на биты цвета, делать скрин этой области или копировать изменившиеся биты для пересылки клиенту.
------------ Дoбавленo в 20.27:
Kovarnui писал(а):
есть рабочие примеры? чего-нибудь? хотябы передача данных с одного компа на другой

смотри папку
HiAsmElementsDelphiExample

почитай
HiAsmHelp
, справку на главной странице,форум.
карма: 0

0
Ответов: 106
Рейтинг: 0
#11: 2009-09-27 21:26:27 ЛС | профиль | цитата
капец, не реал чтоли?
карма: 1

0
Ответов: 373
Рейтинг: 108
#12: 2009-09-27 22:00:06 ЛС | профиль | цитата
Kovarnui писал(а):
капец, не реал чтоли?

тебе же iarspider ответил
Посмотри пример SendPicture.

для перехвата и эмуляции клавиатуры и мыши можно использовать >>
Add(KeyHook,16627857,357,196)
{
}
Add(MouseEvent,14952245,406,196)
{
}
примеры пересылки скрина

code_15046.txt


Add(MainForm,10230383,490,315)
{
Width=688
Height=545
link(onCreate,65723:doEvent1,[])
}
Add(ScreenShort,11628527,294,210)
{
link(onCapture,15708785:doResize,[])
}
Add(Button,8045911,119,210)
{
Left=240
Top=475
link(onClick,10648325:doTimer,[])
}
Add(Hub,8122056,217,210)
{
OutCount=3
link(onEvent1,11628527:doCapture,[])
link(onEvent2,250013:doData,[(344,223)(344,251)])
link(onEvent3,9275353:doProcessMessages,[(238,230)(238,167)])
}
Add(MemoryStream,3864290,476,147)
{
}
Add(Hub,15239341,420,210)
{
OutCount=3
link(onEvent1,3864290:doClear,[(455,216)(455,160)])
link(onEvent2,9755812:doLoadFromBitmap,[])
link(onEvent3,9755812:doSaveToStream,[])
}
Add(TCP_Client,7190052,609,231)
{
Port=8888
IP="127.0.0.1"
DataType=3
Point(onProgress)
}
Add(TCP_Server,3595514,609,329)
{
Port=8888
DataType=3
Point(onProgress)
link(onRead,5971435:doLoadFromStream,[])
link(onProgress,5971435:doBitmap,[(660,356)(660,342)])
}
Add(Hub,65723,539,329)
{
link(onEvent1,3595514:doOpen,[])
link(onEvent2,7190052:doOpen,[(581,342)(581,237)])
}
Add(Image,4002693,749,315)
{
Left=25
Top=25
Width=625
Height=440
ViewStyle=4
Point(Width)
Point(Height)
}
Add(Jpeg,9755812,476,203)
{
Quality=70
Point(doLoadFromBitmap)
Point(doSaveToStream)
Point(Stream)
Point(doBitmap)
link(Stream,14213241:Var2,[])
}
Add(DoData,250013,525,245)
{
link(onEventData,7190052:doSend,[])
link(Data,14213241:Var3,[(531,187)])
}
Add(GetDataEx,14213241,476,182)
{
link(Data,3864290:Stream,[])
}
Add(Jpeg,5971435,679,315)
{
Point(Stream)
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,4002693:doLoad,[])
}
Add(Application,9275353,245,161)
{
}
Add(Timer,10648325,168,210)
{
Interval=200
Enable=1
link(onTimer,8122056:doEvent1,[])
}
Add(Resize,15708785,357,210)
{
link(onResult,15239341:doEvent1,[])
link(Width,3173747:Var,[])
link(Height,9763747:Var,[])
}
Add(LineBreak,14082543,756,357)
{
Caption="w"
Type=1
link(Data,4002693:Width,[])
Primary=[3173747,-392,-189]
}
Add(LineBreak,13610104,763,378)
{
Caption="h"
Type=1
link(Data,4002693:Height,[])
Primary=[9763747,-392,-196]
}

карма: 0

1
файлы: 1code_15046.txt [1.4KB] [101]
Голосовали:Kovarnui
Ответов: 106
Рейтинг: 0
#13: 2009-09-29 13:45:28 ЛС | профиль | цитата
интересно, влад молодчик, буду думать что и как. а реально задавать координаты курсора и тпиа нажимать, но не перемещая в удалёнке?
------------ Дoбавленo в 13.58:
влад!

слушай ты пробовал сам делать такое на два компа? хотябы на один но с разделением, я тестил не выходит
это приёмка:

Add(MainForm,2953706,140,273)
{
Width=307
Height=112
link(onCreate,7190052:doOpen,[(313,314)(313,244)])
}
Add(ScreenShort,11628527,203,210)
{
link(onCapture,15239341:doEvent1,[])
}
Add(Button,8045911,70,210)
{
Left=190
Top=5
link(onClick,1061640:doStart,[])
}
Add(Hub,8122056,154,210)
{
link(onEvent1,11628527:doCapture,[])
link(onEvent2,1976137:doCompress,[(190,223)(190,258)])
}
Add(MemoryStream,3864290,329,91)
{
}
Add(BitmapStream,10143796,329,210)
{
link(Stream,2573881:Var2,[])
}
Add(Hub,15239341,266,210)
{
link(onEvent1,3864290:doClear,[(301,216)(301,104)])
link(onEvent2,10143796:doWrite,[])
}
Add(TCP_Client,7190052,462,238)
{
Port=8888
DataType=3
Point(onProgress)
link(IP,400132:Text,[(468,170)(195,170)])
}
Add(Edit,400132,189,98)
{
Left=25
Top=5
Width=165
Text=""
}
Add(Thread,1061640,112,210)
{
Delay=200
link(onExec,8122056:doEvent1,[])
}
Add(GetDataEx,2573881,322,175)
{
link(Data,3864290:Stream,[])
}
Add(ZLIB,1976137,378,252)
{
link(onStream,7190052:doSend,[])
link(Stream,2573881:Var3,[(384,184)])
}

это отпрвка:
Add(TCP_Server,3595514,210,231)
{
Port=8888
DataType=3
Point(onProgress)
link(onRead,13934601:doDeCompress,[])
}
Add(BitmapStream,10775830,315,224)
{
link(onRead,4002693:doLoad,[])
}
Add(Image,4002693,364,224)
{
Left=25
Top=25
Width=960
Height=750
}
Add(ZLIB,13934601,266,224)
{
link(onStream,10775830:doRead,[])
}
Add(Button,939761,70,231)
{
Left=25
Top=5
Caption="1"
link(onClick,3595514:doOpen,[(170,237)(170,237)])
}
Add(Button,8024418,77,280)
{
Left=510
Top=5
Caption="2"
link(onClick,3595514:doClose,[(159,286)(159,244)])
}
и 0 внимания, даже на одном компе тестил - не выходит. а потом перешел на два компа(на одно из них виста) ваще тоже самое какбы. отпиши в аську icq 578874935
карма: 1

0
Ответов: 373
Рейтинг: 108
#14: 2009-09-29 14:40:49 ЛС | профиль | цитата
Kovarnui,Код
Kovarnui писал(а):
слушай ты пробовал сам делать такое на два компа? хотябы на один но с разделением, я тестил не выходит

В "приёмке" не прописан ip.
Kovarnui писал(а):
а реально задавать координаты курсора и тпиа нажимать

Во вкладке "система>>устройства" есть "эмулятор мыши" с помощью него можно получать, устанавливать координаты курсора...
-------------------------------------------------------------------------------------------
напротив панели "элементы" справа есть панель "католог проектов"
изучи примеры из "hiasm>>tutorial" и "Windows>>Example" там много интересного , большая часть вопросов отпадёт сама собой.
карма: 0

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