Удалённый доступ к монитору по локальной сети.

[Nefroz]

Добрый день или вечер!

Мне нужно создать программу для удалённого просмотра монитора ПК, передачи звука с микрофона и звуков винтов (например с проигрывателя). Программу для скриншота нашёл. Но при показе видео ролика на серверном пк все нормально. А вот у клиента чистота обновление очень маленькое. Так что видео очень тормозит у клиента.
На форумах я прочитал что можно как то сжать картинку, но мне не понять как это сделать.
На Delphi я недавно работаю, и его не изучал. В школе изучал Pascal а в институте visual basic немного.
Решил диплом написать про программу удалённого доступа экрана ПК, и выбрал язык программирование Delphi так как в школе изучал Pascal.
Вот кот программы для скриншота экрана.
Сервер.

unit clin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure IdTCPClient1Disconnected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
st:Tmemorystream;
begin
idtcpclient1.WriteLn('jpg');
st:=tmemorystream.Create;
IdTCPClient1.ReadStream(st);
st.Position:=0;
image1.Picture.Bitmap.LoadFromStream(st);
st.Clear;
st.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
idtcpclient1.Connect();
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 timer1.Enabled:=true;
end;

procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);
begin
  timer1.Enabled:=false;
end;

end.

Клиент.

unit clin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure IdTCPClient1Disconnected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
st:Tmemorystream;
begin
idtcpclient1.WriteLn('jpg');
st:=tmemorystream.Create;
IdTCPClient1.ReadStream(st);
st.Position:=0;
image1.Picture.Bitmap.LoadFromStream(st);
st.Clear;
st.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
idtcpclient1.Connect();
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 timer1.Enabled:=true;
end;

procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);
begin
  timer1.Enabled:=false;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[raxp]

...использовать COM объект RDPClient, который для этого и предназначен, не?

[Slym]

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

[Nefroz]

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

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

Открыл сайт http://www.delphimaster.ru/cgi-bin/f...1227604925&n=4, посмотрел. И не как не пойму что на форму располагать, какие кнопки? Только понял что через tServerSocket в кладке internet. И все.

[Slym]

http://www.programmersforum.ru/showt...t=delphimaster

[Nefroz]

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

http://www.programmersforum.ru/showt...t=delphimaster

Спасибо Slym у меня все работе. Работает нормально по локальной сети. Немного исправлю программу и поеду проверять уже через интернет.

[Stilet]

поеду проверять уже через интернет.

99% - птичка Обломинго прилетит )
Адрес у тебя статический? Если динамический то можешь никуда не ездить - не сработает.

[Nefroz]

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

99% - птичка Обломинго прилетит )
Адрес у тебя статический? Если динамический то можешь никуда не ездить - не сработает.

Я через программу hamachi. она из черного делать белый адрес. Или через сайт 2ip.ru там определяться внешний интернет адрес. И с помощью него у меня чат получился, а вот как этот адрес получить в delphi не знаю и в интернете нет не чего.