paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 17:51:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ new tests for dispinterface parsing

Browse Source 
git-svn-id: trunk@5799 -
This commit is contained in:
florian 2007-01-03 21:19:26 +00:00
parent a2ec2e72b6
commit af372691eb
3 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -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

15
tests/webtbs/tw2647.pp Normal file
View File

@ -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.

21
tests/webtbs/tw2649.pp Normal file
View File

@ -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.