Нужна помощ в Delphi 7 + RDP

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by diki_01, 11 Feb 2013.

  1. diki_01

    diki_01 Member

    Joined:
    18 Jan 2013
    Messages:
    18
    Likes Received:
    5
    Reputations:
    0
    Я импортировал в дельфи компонент ActiveX(msrdp.ocx), поставил на форму MsRdpClient21 но при конекте к RDP дает ошибку.
    Вот код:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    MsRdpClient21:=TmsRDPclient4.Create(self);
    MsRdpClient21.Parent:=Form1;
    MsRdpClient21.UserName :='Admin';
    MsRdpClient21.Server :='11.11.11.11';
    MsRdpClient21.AdvancedSettings2.ClearTextPassword:='123456'; //Вот здесь ошибка
    MsRdpClient21.FullScreen:=false;
    MsRdpClient21.Connect;
    end;


    Вот скрин ошибки:
    [​IMG]
    Сама прога компилитса и запускаетса нормально, а когда нажимаю на кнопку вылазит ошибка, если убрать эту строчку то все работает, только мне нужно чтобы прога сама авторизировалась, что делать? ктото сталковалса с таким?
    Ошибка 100% в естой строчке я отладчиком проверил, уже перерыл весь интернет но ничего не помогло.
    Помогите кто работал с RDP, я в долгу не останусь)
     
  2. muip

    muip New Member

    Joined:
    1 Sep 2011
    Messages:
    45
    Likes Received:
    4
    Reputations:
    0
    По-моему проблема в этой строчке:
    MsRdpClient21:=TmsRDPclient4.Create(self);

    Неправильно создается объект. Попробуй:
    MsRdpClient21:=TmsRDPclient.Create(nil)
    либо
    MsRdpClient21:=TmsRDPclient.Create(Form1);
     
    #2 muip, 11 Feb 2013
    Last edited: 11 Feb 2013
  3. diki_01

    diki_01 Member

    Joined:
    18 Jan 2013
    Messages:
    18
    Likes Received:
    5
    Reputations:
    0

    Попробывал, ничего не изменилось, незнаю уже что делать
     
  4. Zimper

    Zimper New Member

    Joined:
    12 Jan 2011
    Messages:
    9
    Likes Received:
    1
    Reputations:
    0
    Попробуй пароль в utf8 формате подставить.Сам с этим компонентом когда-то работал.Была такая трабла.
     
  5. piplnet

    piplnet Member

    Joined:
    29 Jan 2012
    Messages:
    44
    Likes Received:
    17
    Reputations:
    10
  6. Zimper

    Zimper New Member

    Joined:
    12 Jan 2011
    Messages:
    9
    Likes Received:
    1
    Reputations:
    0
    diki_01 Попробуй так!
    wchar_t pas[100];
    Form1->MsRdpClient22->AdvancedSettings2->ClearTextPassword=(wchar_t*)&pas;