2010-12-07 21:18

'------------------------------------------------------------------------------
'  URL download file section
     DECLARE FUNCTION URLDownloadToCacheFile LIB "urlmon" ALIAS "URLDownloadToCacheFileA" _
      (lpUnkcaller AS LONG, _
      szURL AS STRING, _
      byref szFileName AS STRING, _
      dwBufLength AS LONG, _
      dwReserved AS LONG, _
      IBindStatusCallback AS LONG) AS LONG



     DECLARE FUNCTION URLDownloadToFile LIB "urlmon" ALIAS "URLDownloadToFileA" _
      (BYVAL pCaller AS LONG, _
      BYVAL szURL AS STRING, _
      BYVAL szFileName AS STRING, _
      BYVAL dwReserved AS LONG, _
      BYVAL lpfnCB AS LONG) AS LONG


     $DEFINE BINDF_GETNEWESTVERSION &H10
     $DEFINE INTERNET_FLAG_RELOAD &H80000000


     $IFNDEF __WIN32API
      DECLARE FUNCTION ShellExecute LIB "shell32" ALIAS "ShellExecuteA" _
       (hwnd AS LONG, _
       lpOperation AS STRING, _
       lpFile AS STRING, _
       lpParameters AS STRING, _
       lpDirectory AS STRING, _
       nShowCmd AS LONG) AS LONG

      CONST SW_NORMAL = 1

      DECLARE FUNCTION GetDesktopWindow LIB "user32" () AS LONG
     $ENDIF



'for D. Homans debugger
     DECLARE FUNCTION fbParserVersion LIB "fbDBGParser" ALIAS "fbParserVersion@4" (lpRetString AS LONG) AS INTEGER
     DECLARE FUNCTION fbParseFile LIB "fbDBGParser" ALIAS "fbParseFile@20" (lpSrcFile AS LONG, _
      lpDatFile AS LONG, lpInitData AS LONG, lpRetString AS LONG, buflen AS INTEGER) AS INTEGER

'    On a successful call, the fbParseFile function will return a non-zero value (1) (error codes? maybe later)
'7.  Dll Parameters:
'
'    7.1. The address of a QMEMORYSTREAM containing the original source code to be debugged
'    7.2. The address of a QMEMORYSTREAM containing the RapidDBG.dat file
'    7.3. The address of a string containing initialised data (see note 8)
'    7.4. The address of a string buffer for a returned text message from the dll
'    7.5. The length of the return string buffer
'
'    Note:
'    Each memorystream mentioned above can be replaced by calls to malloc() memory function, or
'    just simple STRINGS containing the relevant data, with each line of that data terminated by
'    either a LF character or a CR+LF character pair.
'    This is possible, but not recommended for the RapidQ compiler.
'
'8.  Initialised Data:
'
'    This string MUST contain the following field data, each field separated by the "~" character, and in this order.
'
'    8.1.  "$DEFINE TIDY_TEMP_FILES" or "$UNDEF TIDY_TEMP_FILES"             <------ Leave intermediate files behind?
'    8.2.  Full path + source filename of file under test                    <------ THIS could come in handy!!!!
'    8.3.  Bitmap path (def path RapidDBG.exe) including trailing "\" char   <------ Toolbar bitmap & icon location
'    8.4.  Version string of fbDBGParser.fbb (same as RapidDBG.exe)          <------ Display purposes and checking
'    8.5.  Preset Breakpoints string (each breakpoint separated by ",")      <------ OR "" to stop at first sub/fn executed
'    8.6.  Screen co-ord "Left" of dll Progress Bar
'    8.7.  Screen co-ord "Top" of dll Progress Bar
'
'
'9.  Example call:
'    FUNCTION CreateDebugFile
'    DEFSTR initBuf, retBuf
'
'        SrcStream <= Test source code
'        DatStream <= RapidDBG.dat include code
'        initBuf=" <filled data> "
'        retBuf=SPACE$(BUFFER_SIZE)
'        Result=fbParseFile(SrcStream.Pointer, DatStream.Pointer, VARPTR(initBuf), VARPTR(retbuf), LEN(retbuf))
'    END FUNCTION
'    See also CreateDbgTarget() in RapidDBG.bas
'

2010-12-07 21:18