delphi masaüstü?

[ozkantas19]

arkadaşlar delphi ile masaüstümü client server uygulamsı şeklinde nasıl paylaştırabilirim? bilgisi olan varmı acaba

[orhancc]

Konferans gibi birşeyden mi bahsediyorsun.

[ozkantas19]

aynen hocam konferans diye sordum ama cevap veren olmadı yada ben anlamadıım. konferans tarzı video chat tarzı bişey yapmam lazım

[G.Arkas]

Delphi Remote Desktop Capture diye aratırsanız fazlasıyla sonuç bulabilirsiniz Google da.

[ozkantas19]

remote dektop delphi kullanımıyla ilgili kaynak bulamadım forumda bu konuda bilgisi olan yokmu acaba

[G.Arkas]

Çook önceden yazdığım bir truva atında kullandığım mouse ve klavye transfer kod bloğunu gönderiyorum kodu bir incele sana önayak olacaktır.
Umarım Truva yazmıyorsundur????

Kod: Tümünü seç

procedure TfrmBmp.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  s:string;
     x1,y1:integer;
begin
   if control=true then
     begin
        if button=mbLeft then s:='leftdown'
        else if button=mbRight then s:='rightdown'
        else if button=mbMiddle then s:='middledown';
        x1:=Round(x*(65535/screen.Width));
        y1:=Round(y*(65535/screen.Height));
        frmClient.csWatch.Socket.SendText('MOUSE'+IntToStr(x1)+'$%&'+IntToStr(y1)+'$%&'+s);
        Sleep(300);
     end;
end;

procedure TfrmBmp.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  s:string;
     x1,y1:integer;
begin
if control=true then
     begin
        if button=mbLeft then s:='leftup'
        else if button=mbRight then s:='rightup'
        else if button=mbMiddle then s:='middleup';
        x1:=Round(x*(65535/screen.Width));
        y1:=Round(y*(65535/screen.Height));
        frmClient.csWatch.Socket.SendText('MOUSE'+IntToStr(x1)+'$%&'+IntToStr(y1)+'$%&'+s);
        Sleep(300);
     end;
end;

procedure TfrmBmp.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var  s:string;
     x1,y1:integer;
begin
if control=true then
     begin
        s:='mouve';
        x1:=Round(x*(65535/screen.Width));
        y1:=Round(y*(65535/screen.Height));
        frmClient.csWatch.Socket.SendText('MOUSE'+IntToStr(x1)+'$%&'+IntToStr(y1)+'$%&'+s);
        Sleep(700);
     end;
end;


procedure TfrmBmp.Image1DblClick(Sender: TObject);
var T:Tpoint;
    x,x1,y,y1:integer;
    s:string;
begin
  if control=true then
     begin
         GetCursorPos(T);
         x:=T.x;
         y:=T.y;
         x1:=Round(x*(65535/screen.Width));
         y1:=Round(y*(65535/screen.Height));
         frmClient.csWatch.Socket.SendText('DOUBL'+IntToStr(x1)+'$%&'+IntToStr(y1)+'$%&'+s);
         Sleep(300);
     end;
end;

procedure TfrmBmp.FormKeyPress(Sender: TObject; var Key: Char);
begin
   frmClient.csWatch.Socket.SendText(Key);
end;

procedure TfrmBmp.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var s:string;
begin
   if key=VK_ESCAPE then s:='VK_ESCAPE'
   else if key=VK_TAB then s:='VK_TAB'
   else if key=VK_CAPITAL then s:='VK_CAPITAL'
   else if key=VK_HOME then s:='VK_HOME'
   else if key=VK_END then  s:='VK_END'
   else if key=VK_INSERT then s:='VK_INSERT'
   else if key=VK_DELETE then s:='VK_DELETE'
   else if key=VK_SNAPSHOT then s:='VK_SNAPSHOT'
   else if key=VK_NUMLOCK then s:='VK_NUMLOCK'
   else if key=VK_UP then s:='VK_UP'
   else if key=VK_DOWN then s:='VK_DOWN'
   else if key=VK_LEFT then s:='VK_LEFT'
   else if key=VK_RIGHT then  s:='VK_RIGHT';
   frmClient.csWatch.Socket.SendText(s);
end;

[ozkantas19]

arkadaşım teşekkür ederim kod için truva yazmıyorum uzak masaüstü ile ders anlatımı projesi var ödev olarak.. kod plogunun delphi hali varmı acaba elinizde delphi bilgim zayıf birazda aslında c# kullanıyordum ama delphi ile istendi ödev

[G.Arkas]

Yukarıda ki kod Delphi ye aittir.

[ozkantas19]

yok hocam anladım delphi olduğunuda delphiye atınca kodu hata veriyor hazır hali varmı sizde demek istedim kusra bakmayın çok oluyorum sanırım

[mkysoft]

daha öncede yazdım ama sizde haklı olarak ödevinizi bitirmeye çalışıyorsunuz. Bu şekilde açtığınız 1-2 mesaj var. Anladığım kadarıyla sahip olduğunuz delphi hakkındaki bilgi seviyesi henüz bu projeyi tamamlamak için yeterli değil. Size bilginizi artırabilmeniz için bir çok yol ve yöntem tarif edildi ama siz ısrarla hazır yazılmış kod bile değil program arıyorsunuz. Yöntemlerden birini seçip üzerine çalışmalıydınız. Hala da çalışabilirsiniz. Eğer ayıracak vaktiniz yada enerjiniz yoksa iş ilanları kısmında ücret karşılığı programı yazmak isteyen birini bulabilirsiniz.

[ozkantas19]

haklısnız bilgim ve enerjim yok malesef