Удаленный просмотр рабочего стола

[Fahman]

Есть код я тестировал на виртуалке все робит все гуд) код может не идеал но делал строго по уроку и вообще впервый раз связываюсь с этим компонентам так вот и у меня сразу такой вопрос возник чтоб подключится к виртуалке мне не составило труда взял ip адрес ввел и уаля) а тут вопрос если я запущу у себя клиент а сервер возьму к себе на работу то как мне подключится от туда ко мне? как мне взять свой ип адрес не программно? короче цель подключится с одного пк на другой вот код что сделал...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    img1: TImage;
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    tmr1: TTimer;
    grp1: TGroupBox;
    btn1: TButton;
    edt1: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    edt3: TEdit;
    btn2: TButton;
    sknmngr1: TsSkinManager;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure IdTCPClient1Disconnected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
IdTCPClient1.Host:=edt1.Text;  // ип адрес
IdTCPClient1.Connect;
tmr1.Enabled:=True;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
tmr1.Interval:=StrToInt(edt3.Text);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
  st:TMemoryStream;
begin
 IdTCPClient1.WriteLn('jpg');
 st:=TMemoryStream.Create;
 IdTCPClient1.ReadStream(st);
 st.Position:=0;
 img1.Picture.Bitmap.LoadFromStream(st);
 st.Clear;
 st.Free;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
tmr1.Enabled:=False;
end;

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

end.

вот еще

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdIdentServer;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    IdIdentServer1: TIdIdentServer;
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure jpg (connection: TIdTCPServerConnection);
var
 steam:TMemoryStream;
 desktopconvas : Tcanvas;
 Bitmap: TBitmap;
 begin
   desktopconvas:=TCanvas.Create;
   desktopconvas.Handle:=GetDC(HWND_DESKTOP);
   Bitmap:=TBitmap.Create;
   Bitmap.Width:=Screen.Width;
   Bitmap.Height:=screen.height;
   Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, desktopconvas, desktopconvas.ClipRect);
   if not DrawIcon(Bitmap.Canvas.Handle,Mouse.CursorPos.X, Mouse.CursorPos.Y, GetCursor) then
   begin
     steam:=TMemoryStream.Create;
     Bitmap.SaveToStream(steam);
     connection.WriteStream(steam, True, True);
     steam.Clear;
     steam.Free;
     Bitmap.free;
   end;
 end;  

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var a:string;
begin
  a:=AThread.Connection.ReadLn;
  if a='jpg' then
  begin
    jpg(AThread.Connection);
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// скрытие формы Application.ShowMainForm:=False;
end;

end.

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

а тут вопрос если я запущу у себя клиент а сервер возьму к себе на работу то как мне подключится от туда ко мне?

Купить для дома выделенный IP-адрес у провайдера. Тогда тебя будет видно в интернете как отдельный ПК.

2 вопроса:
1. Почему вместо RDP вы предпочли извращение со скриншотами?
2. Почему нельзя взять полнофункциональный TeamViewer(проблемы с IP тут вообще по барабану)?

[Streletz]

Сообщение от Человек_Борща

Почему нельзя взять полнофункциональный TeamViewer(проблемы с IP тут вообще по барабану)?

И не только TeamViewer. В настоящее время полно программ для "удалёнки", как говорится, "на любой вкус и цвет". Зачем заново изобретать велосипед?

[Fahman]

Заново лучше для меня) ну чтоб дома ни кто не узнал ) а почему тим виевер по барабану какой у меня ип? можно сделать так же?

[Stilet]

а почему тим виевер по барабану какой у меня ип?

Потому что Тимка пользуется VPN технологией. Он подключается не напрямую, а через свой сервер в главном оффисе фирмы. Ты регистрируешь свой акк на этом серваке, сервак теперь знает твой IP (вернее при старте тимка постоянно обновляет твой текущий IP и видимо открывает подключение, по которому другие тимки и подключаются к тебе) поэтому удаленное подключение возможно даже при динамических IP.

можно сделать так же?

Ну можно конечно ) Сервак нужен внешний с белым IP.

[DarkEvil]

Еще можно использовать какой-то сервис с родни no-ip

[Fahman]

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

Потому что Тимка пользуется VPN технологией. Он подключается не напрямую, а через свой сервер в главном оффисе фирмы. Ты регистрируешь свой акк на этом серваке, сервак теперь знает твой IP (вернее при старте тимка постоянно обновляет твой текущий IP и видимо открывает подключение, по которому другие тимки и подключаются к тебе) поэтому удаленное подключение возможно даже при динамических IP.

Ну можно конечно ) Сервак нужен внешний с белым IP.

Сервак есть а точнее будет на днях)

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

Еще можно использовать какой-то сервис с родни no-ip

это как?

[Stilet]

Сервак есть а точнее будет на днях)

Тогда найми профессионала, пусть замутит тебе схему а-ля тимвьювер )

[DarkEvil]

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

это как?

Регаешся на вот этом сервисе придумываешь доменное имя а-ля moyserv.no-ip.org
ставишь клиент сервиса себе на комп и радуешься :-)

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

тоже что и TEamViewer