|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.09.2008, 18:40 | #11 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Слушайте, а вы вообще не знакомы с функциями Windows API ? И будьте добры скажите наконец то в чем проблема, что не получается ?
|
30.09.2008, 21:17 | #12 |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
Смотрите ниже...
Последний раз редактировалось ikot; 30.09.2008 в 23:07. |
30.09.2008, 22:30 | #13 | |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
Цитата:
Есть процедура, которая по идее копирует снимок рабочего стола заносит его в поток и передает на клиент procedure TForm1.ServerSocket1ClientRead(Send er: TObject; Socket: TCustomWinSocket); var canva:tcanvas; screendc:hdc; screenbitmap:tbitmap; recta:trect; ms:tmemorystream; begin if Socket.ReceiveText = 'give' then begin ms:= TMemoryStream.Create; try ScreenDC := GetDC(0); canva:=tcanvas.create; canva.Handle := ScreenDC; ScreenBitMap := TBitMap.Create; recta:=Rect(0,0,Screen.Width,Screen .Height); ScreenBitMap.Canvas.CopyRect(recta, canva, recta); ScreenBitMap.SaveToStream(ms); ReleaseDC(0,screendc); Socket.SendStream(ms); except ms.Free; end; end; end; Не знаю, что в ней неправильно, но я не могу загрузить снимок из потока даже в обычный Timage. Проблема №2: Какой код должен быть у клиента для приема нужного потока и отображения рисунка в каком-то контейнере? Проблема №3: Как осуществить передачу не одной картинки а постоянную передачу снимков, чтобы был эффект наблюдения за рабочим столом? Проблема №4: Как все же осуществить полное управление удаленным рабочим столом? Хотя бы идеи!!! ОЧЕНЬ НУЖНО!!!! P.S. В полезных целях. Заранее огромное спасибо. Последний раз редактировалось ikot; 30.09.2008 в 23:05. |
|
04.10.2008, 14:21 | #14 |
Познаю мир
Форумчанин Подтвердите свой е-майл
Регистрация: 05.10.2007
Сообщений: 387
|
http://delphiworld.narod.ru/base/sim_mouse_click.html
Мышка http://www.anyplace-control.com/demo...-desktop.shtml Пример подобного ) Занимаюсь программой таково же типа ), если интересно - ICQ. Скриншот отправляй при наличии соединения по таймеру ... а не при получении команды . ---
|
04.10.2008, 15:37 | #15 | |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 239
|
Цитата:
Как так не являеться приоритетным? тье если при передачи, без подтверждений, пару пакетов потеряем, то ничего страшного не случиться, а если это хэд какраз будет?) Последний раз редактировалось Ring0Sn; 04.10.2008 в 16:10. |
|
04.10.2008, 16:37 | #16 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Ну если такие вещи писать используя
Код:
|
04.10.2008, 22:47 | #17 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
вот поэтому мы и имеем такой замечательный RDP =)
Ring0Sn, почему обязательно подтверждение ? существуют понятия избыточности и корректирования ошибок
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
05.10.2008, 15:57 | #18 |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
Помогите с RDP.
Помогите разобраться!!! Установил пакет для работы с протоколом RDP, написал следующий код для соединения с сервером, а при нажатии на кнопку Connect выскакивает ошибка (см. ниже). Вот код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MSTSCLib_TLB, OleCtrls; type TForm1 = class(TForm) rdp: TMsRdpClient2; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button2: TButton; server: TLabel; user: TLabel; password: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin rdp.Server:=edit1.Text; rdp.UserName:=edit2.Text; rdp.AdvancedSettings2.ClearTextPass word :=edit3.Text; - тут ошибка. rdp.DesktopHeight:= 600; rdp.DesktopWidth:= 800; rdp.Connect(); end; procedure TForm1.Button2Click(Sender: TObject); begin rdp.Disconnect; end; end. |
05.10.2008, 19:05 | #19 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
а текст ошибки стесняетесь написать ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
05.10.2008, 20:59 | #20 |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
смотрите вложение...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Управление с клавиатуры | kpishnik | Помощь студентам | 10 | 27.07.2008 18:38 |
Управление громкостью | Jupiter | Общие вопросы Delphi | 2 | 29.06.2008 15:43 |
Управление голосом | prizrak1390 | Общие вопросы Delphi | 2 | 24.06.2008 21:04 |
Нужна прграмма с удаленным доступом | POMAH | Фриланс | 2 | 02.06.2008 22:31 |
Управление Монитором | _XspeC_ | Общие вопросы Delphi | 3 | 26.03.2007 19:28 |