+ new tests for dispinterface parsing

git-svn-id: trunk@5799 -

.gitattributes

@@ -7517,6 +7517,8 @@ tests/webtbs/tw2627.pp svneol=native#text/plain
 tests/webtbs/tw2631.pp svneol=native#text/plain
 tests/webtbs/tw2643.pp svneol=native#text/plain
 tests/webtbs/tw2645.pp svneol=native#text/plain
+tests/webtbs/tw2647.pp svneol=native#text/plain
+tests/webtbs/tw2649.pp svneol=native#text/plain
 tests/webtbs/tw2650.pp svneol=native#text/plain
 tests/webtbs/tw2651.pp svneol=native#text/plain
 tests/webtbs/tw2656.pp svneol=native#text/plain

tests/webtbs/tw2647.pp

@@ -0,0 +1,15 @@
+{$mode Delphi}
+type
+  ISensLogon = interface (IDispatch)
+  ['{d597bab3-5b9f-11d1-8dd2-00aa004abd5e}']
+    function Logon(bstrUserName: WideString): HRESULT; stdcall; dispid 1;
+    function Logoff(bstrUserName: WideString): HRESULT; stdcall; dispid 2;
+    function StartShell(bstrUserName: WideString): HRESULT; stdcall; dispid 3;
+    function DisplayLock(bstrUserName: WideString): HRESULT; stdcall; dispid 4;
+    function DisplayUnlock(bstrUserName: WideString): HRESULT; stdcall; dispid 5;
+    function StartScreenSaver(bstrUserName: WideString): HRESULT; stdcall; dispid 6;
+    function StopScreenSaver(bstrUserName: WideString): HRESULT; stdcall; dispid 7;
+  end;
+
+begin
+end.

tests/webtbs/tw2649.pp

@@ -0,0 +1,21 @@
+{$mode objfpc}
+type
+  IADsDisp = dispinterface
+    ['{FD8256D0-FD15-11CE-ABC4-02608C9E7553}']
+    property Name: WideString readonly dispid 2;
+    property Class_: WideString readonly dispid 3;
+    property GUID: WideString readonly dispid 4;
+    property ADsPath: WideString readonly dispid 5;
+    property Parent: WideString readonly dispid 6;
+    property Schema: WideString readonly dispid 7;
+    procedure GetInfo; dispid 8;
+    procedure SetInfo; dispid 9;
+    function  Get(const bstrName: WideString): OleVariant; dispid 10;
+    procedure Put(const bstrName: WideString; vProp: OleVariant); dispid 11;
+    function  GetEx(const bstrName: WideString): OleVariant; dispid 12;
+    procedure PutEx(lnControlCode: Integer; const bstrName: WideString; vProp: OleVariant); dispid 13;
+    procedure GetInfoEx(vProperties: OleVariant; lnReserved: Integer); dispid 14;
+  end;
+
+begin
+end.