:Приветствую
Делаю прогу-подглядывалку. Нужно 1 проге получать снимок рабочего стола на определенном компе (известен IP).
У меня такая идея: кинуть 2ую прогу на этот комп и пускай она фотографирует и посылает.
Работаю с "TServerSocket и TClientSocket" 'ами.
Картинка фотогарфируется, сохраняется и через каждые 2 секунды посылается (Timer1.Interval=2000). 1ой прогой принимается, сохраняется и отображается.

Ну, буквально, через 10-14 секунд вылазит ошибка (на 5-15 мс) у 2ой проги, неуспеваешь прочесть и прога закрывается.

Если че не поняли, прошу помочь написать прогу "передачи рисунка рабочего стола какможно быстрее и чтоб без ошибок"
Во!

Это сообщение отредактировал(а) Budy - 7.12.2004, 10:52

тебе наверное надо было написать в раздел "Delphi: WinAPI и системное программирование"

Budy А не проще не изобретать снова велосипед, и скачать уже готовое?

Budy
По ощущениям, ошибка связана с сетью или с процедурой снимка стола?
Попробуй увеличить интервал, скажем на 3-5 сек.
Везде вотки ProcessMesanges.

Satana, а что ты можешь посоветовать?

Budy раз http://files.com.ua/index.php?page=1&cid=95
два http://russiantrojans.narod.ru/RAT/IpNet248.html

ну и три http://www.yandex.ru/yandsearch?&stype=www...%fe%f2%e5%f0%e0

Нет, конечно приятно написать такую программу самому хотя бы для самообразования.
Когда я этим занимался я везде, где только можно впихивал try except...
А вообще если хотите мое мнение, то я в свое время отказался от снимка десктопа поскольку интересно конечно, но не информативно. Пусть лучше твоя прога присылает дерево каталога с возможностью скачивать и закачивать файлы, список запущенных приложений. заголовки окон и редактор реестра для возможности обновлять версии троянца. :-)
Может если еще не все забыл -подскажу что....

Тема перенесена из общих вопросов. Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27

Если хочешь очень быстро, можешь написать Mirrior Driver. Быстрее не бывает, так например работает RAdmin. Но быстро ты врядли его напишешь, потому что там гемороя..
.
Но зато с драйверами будешь на ты .
Больше инфы в DDK.
Удачи!

Это сообщение отредактировал(а) magician - 14.12.2004, 07:56

снимок экрана

Код

procedure TForm1.Button1Click(Sender: TObject); var  DeskTop: TCanvas; begin  DeskTop := TCanvas.Create;  try    with DeskTop do      Handle := GetWindowDC(GetDesktopWindow);    with PaintBox1.Canvas do      CopyRect(Rect(0, 0, 200, 200),        DeskTop,        Rect(0, 0, 200, 200))  finally    DeskTop.Free;  end end;

затем этот снимок посылаем серверу на другой комп.

Отсылка файлов через сокеты (потоки) где-то есть на форуме
Добавлено @ 12:47

Код

{Посылка файла через сокет} procedure SendFileBySocket(filename: string); var  srcfile: TFileStream; begin  {Открываем файл filename}  srcfile := TFileStream.Create(filename,fmOpenRead);  {Посылаем его первому подключенному клиенту}  ServerSocket1.Socket.Connections[0].SendStream(srcfile);  {Закрываем файл}  srcfile.Free; end; Метод SendStream используется не только сервером, но и клиентом (ClientSocket1.Socket.SendStream(srcfile))

Я такое уже год назад писал (задра...вал) своих бухгалтеров, так что дерзай
Добавлено @ 12:51
саначала можно послать размер файла

держи пример пересылки файлов через TCP/IP

Присоединённый файл ( Кол-во скачиваний: 197 )
 SendFile.zip

Во спасибо! Клево получается. Короче вместо 1024x768 (размер экрана юзера) сжимаю до 640x480, кач-вом 256color (1 байт) идет аж до 20 кадров в сек. (а больше пока и не пробовал) при скорости LAN 100 мб/с.
Получается обалденно! Вот тока немного сеть тормозить начинает, ну ето уже не мои проблемы
Получилась классная подглядывалка!

Это сообщение отредактировал(а) Budy - 14.1.2005, 19:33

http://forum.vingrad.ru/index.php?showtopic=21411
намек понял?

Слушай, скинь мне на мыло([email protected]) такую гляделку (повод: если я фоткал экран каждые две сек. у меня перегружался процессор и RESET!)ПЛИЗЗЗ!!!

Budy, кидай пример сюда, не жадничай.

Это сообщение отредактировал(а) dsergey - 24.2.2005, 09:57