Changeset 670


Ignore:
Timestamp:
Jan 3, 2009, 11:24:37 PM (16 years ago)
Author:
イグトランス (egtra)
Message:

mlang.abの完成。objidl.sbp、oleidl.abの追加。
(#227)

Location:
trunk/ab5.0/ablib/src
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/basic.sbp

    r603 r670  
    115115
    116116#require <windows.sbp>
     117#require <mlang.ab>
    117118#require <crt.sbp>
    118119

  • trunk/ab5.0/ablib/src/objidl.sbp

    r497 r670  
    170170/* interface AsyncIMultiQI */
    171171/* [uuid][local][object] */
    172 
    173172
    174173Dim IID_AsyncIMultiQI = [&h000e0020, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
    … …  
    709708End Interface
    710709
     710/* interface IEnumFORMATETC */
     711/* [unique][uuid][object] */
     712
    711713Type DVTARGETDEVICE
    712714    tdSize As DWord
    … …  
    730732TypeDef LPFORMATETC = *FORMATETC
    731733
     734Dim IID_IEnumFORMATETC = [&h00000103, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
     735
    732736Interface IEnumFORMATETC
    733737    Inherits IUnknown
    734 End Interface
     738
     739    /* [local] */ Function Next_(
     740        /* [in] */ celt As DWord,
     741        /* [length_is][size_is][out] */ rgelt As *FORMATETC,
     742        /* [out] */ ByRef celtFetched As DWord) As HRESULT
     743    Function Skip(
     744        /* [in] */ celt As DWord) As HRESULT
     745    Function Reset() As HRESULT
     746    Function Clone(
     747        /* [out] */ ByRef penum As *IEnumFORMATETC) As HRESULT
     748End Interface
     749
     750/* interface IEnumSTATDATA */
     751/* [unique][uuid][object] */
     752
     753Const Enum ADVF
     754    ADVF_NODATA = 1
     755    ADVF_PRIMEFIRST = 2
     756    ADVF_ONLYONCE = 4
     757    ADVF_DATAONSTOP = 64
     758    ADVFCACHE_NOHANDLER = 8
     759    ADVFCACHE_FORCEBUILTIN = 16
     760    ADVFCACHE_ONSAVE = 32
     761End Enum
     762
     763Type STATDATA
     764    formatetc As FORMATETC
     765    DWORD advf As DWord
     766    pAdvSink As IAdviseSink
     767    dwConnection As DWord
     768End Type
     769
     770Dim IID_IEnumSTATDATA = [&h00000105, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
    735771
    736772Interface IEnumSTATDATA
    737773    Inherits IUnknown
     774
     775    /* [local] */ Function Next_(
     776        /* [in] */ celt As DWord,
     777        /* [length_is][size_is][out] */ rgelt As *STATDATA,
     778        /* [out] */ ByRef celtFetched As DWord) As HRESULT
     779    Function Skip(
     780        /* [in] */ celt As DWord) As HRESULT
     781    Function Reset() As HRESULT
     782    Function Clone(
     783        /* [out] */ ByRef penum As *IEnumSTATDATA) As HRESULT
    738784End Interface
    739785
    … …  
    836882
    837883    /* [local] */ Sub OnDataChange(
    838         /* [unique][in] */ ByRef Formatetc As FORMATETC,
    839         /* [unique][in] */ ByRef Stgmed As STGMEDIUM)
     884        /* [unique][in] */ pFormatetc As *FORMATETC,
     885        /* [unique][in] */ pStgmed As *STGMEDIUM)
    840886    /* [local] */ Sub OnViewChange(
    841887        /* [in] */ dwAspect As DWord,
    … …  
    847893End Interface
    848894
    849 ' AsyncIAdviseSink
     895/* interface AsyncIAdviseSink */
     896/* [uuid][unique][object] */
     897
     898Dim IID_AsyncIAdviseSink = [&h00000150, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
     899
     900Interface AsyncIAdviseSink
     901    Inherits IUnknown
     902
     903    /* [local] */ Sub Begin_OnDataChange(
     904        /* [unique][in] */ pFormatetc As *FORMATETC,
     905        /* [unique][in] */ pStgmed As *STGMEDIUM)
     906    /* [local] */ Sub Finish_OnDataChange()
     907    /* [local] */ Sub Begin_OnViewChange(
     908        /* [in] */ dwAspect As DWord,
     909        /* [in] */ lindex As Long)
     910    /* [local] */ Sub Finish_OnViewChange()
     911    /* [local] */ Sub Begin_OnRename(
     912        /* [in] */ mk As IMoniker)
     913    /* [local] */ Sub Finish_OnRename()
     914    /* [local] */ Sub Begin_OnSave()
     915    /* [local] */ Sub Finish_OnSave()
     916    /* [local] */ Sub Begin_OnClose()
     917    /* [local] */ Sub Finish_OnClose()
     918End Interface
    850919
    851920' IAdviseSink2

  • trunk/ab5.0/ablib/src/oleidl.ab

    r478 r670  
    2020End Interface
    2121
    22 'IOleCache
     22/* interface IOleCache */
     23/* [unique][uuid][object] */
     24
     25Dim IID_IOleCache = [&h0000011e, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
     26
     27Interface IOleCache
     28    Inherits IUnknown
     29
     30    Function Cache(
     31        /* [unique][in] */ pformatetc As *FORMATETC,
     32        /* [in] */ advf As DWord,
     33        /* [out] */ ByRef dwConnection As DWord) As HRESULT
     34    Function Uncache(
     35        /* [in] */ dwConnection As DWord) As HRESULT
     36    Function EnumCache(
     37        /* [out] */ ByRef enumSTATDATA As IEnumSTATDATA) As HRESULT
     38    Function InitCache(
     39        /* [unique][in] */ DataObject As IDataObject) As HRESULT
     40    Function SetData(
     41        /* [unique][in] */ pformatetc As *FORMATETC,
     42        /* [unique][in] */ pmedium As *STGMEDIUM,
     43        /* [in] */ fRelease As BOOL) As HRESULT
     44End Interface
     45
    2346'IOleCache2
    2447'IOleCacheControl
    … …  
    6083End Enum
    6184
    62 Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
     85Dim IID_IOleClientSite = [&h00000118, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
    6386Interface IOleClientSite
    6487    Inherits IUnknown
Note: See TracChangeset for help on using the changeset viewer.