теория .inc

Раздел посвящен программированию с использованием Power Basic.
Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

теория .inc

Сообщение Димитрий » 21.02.2013 (Чт) 12:22

Растолкуйте конструкцию:
Код: Выделить всё
#IF %DEF(%USEPBDECL)
DECLARE FUNCTION URLDownloadToFileA LIB "UrlMon.dll" _
    ALIAS "URLDownloadToFileA" ( _
    BYVAL pCaller    AS DWORD, _
    szURL            AS ASCIIZ, _
    szFileName       AS ASCIIZ, _
    BYVAL dwReserved AS DWORD, _
    BYVAL lpfnCB     AS DWORD) AS LONG
#ELSE
DECLARE FUNCTION URLDownloadToFileA IMPORT "URLMON.DLL" ALIAS "URLDownloadToFileA" ( _
   BYVAL pCaller AS IUnknown _                          ' __in LPUNKNOWN pCaller
, BYREF szURL AS ASCIIZ _                              ' __in LPCSTR szURL
, BYREF szFileName AS ASCIIZ _                         ' __in LPCSTR szFileName
, BYVAL dwReserved AS DWORD _                          ' __in DWORD dwReserved
, BYVAL lpfnCB AS IBindStatusCallback _                ' __in LPBINDSTATUSCALLBACK lpfnCB
) AS LONG                                              ' HRESULT
#ENDIF

что есть - %USEPBDECL ? или точнее как сделать чтобы URLDownloadToFileA декларировалась по первому виду?
(код из urlmon.inc)
Где можно почитать про организацию файлов .inc ?

volo
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 10.12.2004 (Пт) 11:18
Откуда: Soviet Union

Re: теория .inc

Сообщение volo » 25.02.2013 (Пн) 14:29

Димитрий писал(а):Растолкуйте конструкцию:
Код: Выделить всё
#IF %DEF(%USEPBDECL)
DECLARE FUNCTION URLDownloadToFileA LIB "UrlMon.dll" _
    ALIAS "URLDownloadToFileA" ( _
    BYVAL pCaller    AS DWORD, _
    szURL            AS ASCIIZ, _
    szFileName       AS ASCIIZ, _
    BYVAL dwReserved AS DWORD, _
    BYVAL lpfnCB     AS DWORD) AS LONG
#ELSE
DECLARE FUNCTION URLDownloadToFileA IMPORT "URLMON.DLL" ALIAS "URLDownloadToFileA" ( _
   BYVAL pCaller AS IUnknown _                          ' __in LPUNKNOWN pCaller
, BYREF szURL AS ASCIIZ _                              ' __in LPCSTR szURL
, BYREF szFileName AS ASCIIZ _                         ' __in LPCSTR szFileName
, BYVAL dwReserved AS DWORD _                          ' __in DWORD dwReserved
, BYVAL lpfnCB AS IBindStatusCallback _                ' __in LPBINDSTATUSCALLBACK lpfnCB
) AS LONG                                              ' HRESULT
#ENDIF

что есть - %USEPBDECL ? или точнее как сделать чтобы URLDownloadToFileA декларировалась по первому виду?
(код из urlmon.inc)
Где можно почитать про организацию файлов .inc ?


вот что пишет автор "*.INC", кратко:

"I'm working in version III of my headers in which I'm using the constant %USEPBDECL to allow people that has already code written using the PB headers for PB10 to compile them with my headers, if they need to use the additional functionality that they provide, by simply adding #DEFINE %USEPBDECL = 1 at the top of the program, before any #INCLUDEs."

глубже почитать можно тут, там же этот же пример и рассмотрен:
http://www.jose.it-berater.org/smfforum/index.php?topic=4492.0

Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

Re: теория .inc

Сообщение Димитрий » 26.02.2013 (Вт) 10:11

volo, спасибо. прояснил ситуацию.


Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList