Удалённый просмотр

[nikityan]

Здраствуйте, учусь работать с компонентами clientsocket и serversocket
но пока безрезультатно...
Вообшем задача такая: есть удалённый компьютер, на нём программа которая делает скриншоты экрана по таймеру, и сжимает в поток..

Я, на своём компьютере, когда хочу, подключаюсь к удалённому компьютеру, введя его IP, и принимаю потоки (скриншоты) его экрана.
В свою очередь поток разворачиваеться к примеру в компоненте Image и я вижу что происходит на удалённом компьютере практически в режиме реального времени...
Я знаю что такое есть, но хочу написать сам эти две программы.
Помогите пожалуйста кодом: мне надо:
Снятие скриншота и сжатие в поток
передача потока если я подключен
приём потока на мой компьютер и раскрытие его...
на другом форуме мне ответа не дали.
заранее благодарен за помошь...

[Человек_Борща]

Снимаешь скриншот(На этом форуме, ответов валом на эту тему).
Сохраняекшь не в файл а в TStream(TFileStream)
Сжимаешь этот TStream алгоритмом Zlib или zLibEx(ищем в интернетах).
Далее полученный стим по кускам передаёшь на сервер(SendBuffer или SendBuf уже не помню).
По кускам очень просто, просто пишиль Stream в буфер из байт размером... 64*1024*1024(64 кб).

const
  BUFF_SIZE = 64*1024*1024;
var
 fs:TfileStream;
i:Integer;
Buff:array[0..BUFF_SIZE] of Byte;
begin
 
 fs.Seek(0, SoFromBegining);
 repeat
 ZeroMemory(@Buff,SizeOf(Buff)); //занулим буфер
 fs.position:=fs.Read(Buff,BUFF_SIZE); //прочитаем кусочег, запилим позицию
 ClientSck.SendBuf(@Buff,...); //Отправка в общем ;)
 until fs.Position = fs.size; //пока не выпилили весь стрим 
 {LOL!}
end;

На сервере открываешь стрим, и записывашь туда прилетаемые куски буфера.
Сохраняешь стрим в файл(если надо), а не надо, то и сразу Image.LoadFromStream вот и всО.

Мо поводу сжатия:
Сжимать можно весь стрим, ещё перед отправкой, и можно сжимать тока буффер который посылаешь, и расжимать его на сервере.

Ещё нужно учесть обрыв связи с сервером и много чего ещё....

[Slym]

http://www.delphimaster.ru/cgi-bin/f...1227604925&n=4
http://www.delphimaster.ru/cgi-bin/f...322308094&n=18

[nikityan]

fs.Seek(0, SoFromBegining); ошибка на этой строчке

[nikityan]

сохраняю как stream а выдаёт ошибку при включении таймера JpgImg.SaveToStream(fs);

[pr12msyn]

Thank you for sharing. success in the new studies

[nikityan]

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

[GunSmoker]

Offtopic (не удержался)

Здраствуйте, учусь работать с молотком
но пока безрезультатно...
Вообшем задача такая: есть гараж и надо собрать автомобиль...

Помогите кто чем может, сами мы не местные.

[nikityan]

Сделал я программу, могу просматривать удалённый рабочий стол, правда в паршивом качестве...
как сделать что б я мог, управлять мышью удалённого компьютера, к примеру нажимав на картинку и там срабатывало нажатие???

[3D Hunter]

какой интерес вам в этом? вы ее не продадите никому, даже не надейтесь. винда имеет свой рдп и ваша программулька с таким огромным траффиком никому не нужна.
Про удаленное нажатие клавиш это уже другой вопрос, и весьма сложный.