Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi'de Basit Bir Uzak Masaüstü Uygulaması
#1
Öncelikle Component Menüsünün altından Import Component->Vcl for Delphi Win32/64->Import a Type Library 'den rdpcomapi 1.0 type Libarary'yi  Install to New Package olarak ekleyin.Devamı kodlar aşağıda.
Masaüstünü Paylaşan Uygulama
unit Unit15;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleServer,
 RDPCOMAPILib_TLB;

type
 TForm5 = class(TForm)
   RDPSession1: TRDPSession;
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure RDPSession1AttendeeConnected(ASender: TObject;
     const pAttendee: IDispatch);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
inv:IRDPSRAPIInvitation;
begin

RDPSession1.Open();
RDPSession1.colordepth:=8 ;
;                                           //            grupadı/parola/bağlanabilecek uygulama sayısı
inv:=RDPSession1.Invitations.CreateInvitation(String.Empty,'savas','1',5); // 1. parametre NuLL olmazsa hata verebiliyor.
                                                                                    //bağlanabilecek bilgisayar sayısı

Memo1.Text:=inv.ConnectionString;  //burada oluşacak kodun karşıdan bağlanan uygulamanın alması lazım
                                 //ben burada oluşan kodu memonun textine verip oradan  kopyalayıp karşı uygulamanın memo textine gireceğim
                                 //ama siz bunu socket uygulamasıyla karşıya gönderebilirsiniz.vcl'de TServerSocket ve TClientSocket
                                 //bileşenleri bunun için oldukça uygun


end;

procedure TForm5.RDPSession1AttendeeConnected(ASender: TObject;
 const pAttendee: IDispatch);
 var
pRDPAtendee: IRDPSRAPIAttendee;
begin
pAttendee.QueryInterface(IID_IRDPSRAPIAttendee,pRDPAtendee);
pRDPAtendee.ControlLevel:=CTRL_LEVEL_MAX; //Paylaşılan oturumun control seviyesi
 //https://msdn.microsoft.com/en-us/library/aa373265(v=vs.85).aspx burada  seçenekler ve açıklamalar mevcut
end;

end.
   
Masaüstüne Bağlanan Uygulama

unit Unit16;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls,
 RDPCOMAPILib_TLB, Vcl.ExtCtrls;

type
 TForm5 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   Panel1: TPanel;
   RDPViewer1: TRDPViewer;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
RDPViewer1.SmartSizing:=true;  //ekranın büyüklüğüne göre masaüstü oranlanır.
                        //karşıdan gelen kod/grup adı/parola
RDPViewer1.Connect(Memo1.Text,'savas','1');   //Karşıdan alınan kod memonun textine girilmiş olmalı
end;

end.
   

Paylaşmak istedim arkadaşlar.Sizler zaten biliyorsunuzdur ama.
Bizi Toprağa Gömdüler Fakat Tohum Olduğumuzu Bilmiyorlardı.
Cevapla
#2
Hiç bir şey anlaşılmıyor ki Sad
Rdp uygulaması mı bu? Aşağıdaki gibi bir şey mi?
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
(27-09-2017, Saat: 22:03)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlHiç bir şey anlaşılmıyor ki Sad
Rdp uygulaması mı bu?  Aşağıdaki gibi bir şey mi?
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Hocam Ben uygulamayı oraya yazdım,denemeden anlaşılmayabilir Smile.Evet rdp uygulaması ama bu paylaştığınızla aynı library'yi kullanmıyor ve protokolleri farklı.Siz de anlamışsınızdır aynı olmadığını.
(Yanılmıyorsam )sizin kullandığınız library : microsoft terminal services active client 1.0 type library
benim kullandığım:rdpcomapi 1.0 type Library
Bizi Toprağa Gömdüler Fakat Tohum Olduğumuzu Bilmiyorlardı.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi Uygulama Güvenliği hyperxman 12 381 31-03-2018, Saat: 00:29
Son Yorum: mcuyan
  Uzak masaüstünde çalışan program, bağlantı kesildiğinde hata veriyor canbir 0 109 16-03-2018, Saat: 18:50
Son Yorum: canbir
  Delphi Sql Tarih Sorunu Pimapen_Nuri 15 547 14-03-2018, Saat: 17:29
Son Yorum: Pimapen_Nuri
  Delphi 10.2.2 Tokyo narkotik 9 375 09-03-2018, Saat: 13:43
Son Yorum: engerex
  Delphi 10.2 Fast Report Install Error narkotik 5 201 01-03-2018, Saat: 15:02
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi