Remote Desktop Verbindung erfolgreich?

[terminator1000]

Hi,

ich habe bereits so einiges probiert mit Delphi per Remotedesktop auf einen anderen pc zu connecten..

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MSTSCLib_TLB, StdCtrls; 

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MsRdpClient: TMsRdpClient; 
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MsRdpClient := TMsRdpClient.Create(Self);
  with MsRdpClient do
  begin
    Name := 'MsRdpClient';
    Parent := Self;
    Left := 0;
    Top := 0;
    Width := 800;
    Height := 600;
    TabOrder := 0;
    ControlData := {0003000008000200000000000B000000030000000000};
  end;
  Button1.BringToFront; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   MsRdpClient.Server := edit1.text;
   MsRdpClient.UserName :=edit2.text;
   MsRdpClient.AdvancedSettings.ClearTextPassword := edit3.text;
   MsRdpClient.Connect;
end;

end.

nur irgendwie geht die Zeile
ControlData := {0003000008000200000000000B000000030000000000};
nicht ..
MSTSCLib_TLB ist importiert..

So wenn dann mal das connecten funktioniert, möchte ich eine Ausgabe die mir zeigt, ob die Anmeldung erfolgreich war oder fehlgeschalgen war..

Schonmal vielen Dank für die Hilfe!

[f.siebler]

Zitat:

nur irgendwie geht die Zeile
ControlData := {0003000008000200000000000B000000030000000000};
nicht ..
MSTSCLib_TLB ist importiert..

Wo kommt das eigentlich her? Also die Definition von ControlData?

[terminator1000]

hier ausm board

weiß den link nimmer

aber wenns falsch ist berichtige mich

[f.siebler]

tja, wenn du mir jetzt verraten würdest, was du mit controldata bewirken willst, könnte man versuchen zu helfen :-)

[terminator1000]

sag mir doch einfach den code womit es klappt :D

mehr will ich doch gar nicht ^^

danke ^^

[f.siebler]

sonst ist aber alles klar bei dir oder? Soll ich dir auch gleich noch die Anwendung schreiben? Warum es nicht geht scheint dich nicht zu interessieren oder?

[terminator1000]

ich hatte bisher damit nix zu tun und hab den code hier aus dem board erfahren, da es nicht klappt benötige ich Hilfe.. tut mir Leid wenn das falsch rübergekommen ist

[Remko]

No clue what you're trying to accomplish with Controldata. Why not check the connected property (Boolean), or use the OnConnected event.

[soulies]

wenn's was kosten darf:

http://www.shareit.com/product.html?productid=300076987


cya
soulies

[Matze]

Zitat:

Zitat von terminator1000

nur irgendwie geht die Zeile
ControlData := {0003000008000200000000000B000000030000000000};
nicht ..

Das ist eigentlich dort erklärt, wo du den Code gefunden hast. Wobei dort, wenn ich das richtig sehe, nur erwähnt wird, die Bibliothek zu importieren.
Du hättest die Frage auch getrost dort stellen können, da es in dem Thema u.a. genau darum geht.

Was genau kommen denn für Fehlermeldungen? "Geht nicht" bringt uns auch nicht weiter.