Управление удаленным рабочим столом

[BOBAH13]

Слушайте, а вы вообще не знакомы с функциями Windows API ? И будьте добры скажите наконец то в чем проблема, что не получается ?

[ikot]

Сообщение от BOBAH13

Слушайте, а вы вообще не знакомы с функциями Windows API ? И будьте добры скажите наконец то в чем проблема, что не получается ?

Смотрите ниже...

[ikot]

Сообщение от BOBAH13

Слушайте, а вы вообще не знакомы с функциями Windows API ? И будьте добры скажите наконец то в чем проблема, что не получается ?

Немного, посидев в Google, выяснил сам для себя, что похоже даже RADMIN использует передачу снимков рабочего стола, а точнее не изображение экрана, а перехваченные им команды GDI Windows. Поэтому выхода из сложившееся ситуации не нашел, кроме как передавать копии экрана. Но тут же столкнулся со следующей проблемой:
Есть процедура, которая по идее копирует снимок рабочего стола заносит его в поток и передает на клиент


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. В полезных целях.
Заранее огромное спасибо.

[GAGARIN-NEW]

http://delphiworld.narod.ru/base/sim_mouse_click.html
Мышка

http://www.anyplace-control.com/demo...-desktop.shtml
Пример подобного )

Занимаюсь программой таково же типа ), если интересно - ICQ.

Скриншот отправляй при наличии соединения по таймеру ... а не при получении команды .

[Ring0Sn]

Сообщение от Квэнди

Делать на TCP управление удаленным рабочим столом несколько необдуманно именно ввиду специфики самого протокола. Трафик, передающий картинки, не является приоритетным и пускать его через проверки и подтверждения смысла, нет, получите только тормоза на не очень качественных каналах (для России это особенно актуально) стройте лучше на UDP протоколе.
Реализовать сетевую часть приложения, на самом деле, особо труда не составит, ибо это не на столько сложно- передавать текст (комманды) и картинки по сети. Большую сложность составит безопасность.

Както не логично в "Конкретном Случае", даже в локальных сетях многие отдают предпочтение делать, такие вещи, через TCP...
Как так не являеться приоритетным? тье если при передачи, без подтверждений, пару пакетов потеряем, то ничего страшного не случиться, а если это хэд какраз будет?)

[BOBAH13]

Ну если такие вещи писать используя

if Socket.ReceiveText = 'give' then

то скажу что мало вероятно, что нормальная программа ввообще выйдет. Я бы использовал сокеты чистые. Ничего сложного по сути нет... просто понимать как устроена система, да и то что UDP ( я в свое время с ним намучался ) типа хорошая вещь, я уж точно не соглашусь. Сколько по опыту знаю, и юзаю tcp/ip в сочитании с winsock api еще ниразу не подводило.

[Квэнди]

вот поэтому мы и имеем такой замечательный RDP =)
Ring0Sn, почему обязательно подтверждение ? существуют понятия избыточности и корректирования ошибок

[ikot]

Помогите разобраться!!! Установил пакет для работы с протоколом 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.

[Квэнди]

а текст ошибки стесняетесь написать ?

[ikot]

смотрите вложение...