Конференция "Corba" » Automation object + Windows7 [Delphi, Windows]
 
  • C...R...a...S...H © (15.03.11 12:06) [0]
    Народ, подскажите пожалуйста. А то я себе всю голову сломал уже.
    Написал простой объект автоматизации, наследник от TAutoObject

    unit Unit1;
    interface
    uses ComObj,Project1_TLB, StdVcl;
    type
    TFileZapper = class(TAutoObject, IFileZapper)
     public
       function Method1(const Param1: WideString): WideString; safecall;
    end;
    implementation
    uses ComServ, Registry, SysUtils,Dialogs;
    function TFileZapper.Method1(const Param1: WideString): WideString;
    begin
     ShowMessage('1');
    Result:=   Param1+'asdasdasd';
     ShowMessage('2');
    end;
    initialization
    TAutoObjectFactory.Create(ComServer, TFileZapper, CLASS_FileZapper, ciMultiInstance, tmApartment);
    end.



    Всё просто и без фанатизма.
    Проблема в том, что на Windows7 при выполнении простого скрипта

    set MyManager = CreateObject("Project1.FileZapper")
    MsgBox(MyManager.Method1("test-"))



    после отображения ShowMessage('2') CScript валится с Exception Code: c0000374

    Хотя делаю всё то же самое но на C# (или под XP) и всё работает.
    Что может быть такое или хоть в каком направлении рыть?
  • clickmaker © (18.03.11 15:52) [1]
    в просмотре событий в application log что-нмть появляется?
 
Конференция "Corba" » Automation object + Windows7 [Delphi, Windows]
Есть новые Нет новых   [118241   +25][b:0][p:0.001]