Tweet
I need to use a Dll supplied with TradeStation. The documetation
is poor for it. I know roughly what i am looking for but i dont
know the exact Function name and the variable types it expects.
I found some code a while back while surfing (pls claim it if its yours)
that will list all the exported functions. I have converted it
to drag and drop using the same code we used for the variable stuff
I want to see ALL the functions in the Dll (not just the exported ones
AND i would like to see the number and type of variables each function
expects.
I have read the WINAPI and Poffs on the subject (whats rebasing mean?)
but I dont see how to get this information.
I am a little out of my depth here tho so can you tell me
if this is even possible?
Heres the code ...
------------------
Kind Regards
Mike
is poor for it. I know roughly what i am looking for but i dont
know the exact Function name and the variable types it expects.
I found some code a while back while surfing (pls claim it if its yours)
that will list all the exported functions. I have converted it
to drag and drop using the same code we used for the variable stuff
I want to see ALL the functions in the Dll (not just the exported ones
AND i would like to see the number and type of variables each function
expects.
I have read the WINAPI and Poffs on the subject (whats rebasing mean?)
but I dont see how to get this information.
I am a little out of my depth here tho so can you tell me
if this is even possible?
Heres the code ...
Code:
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤'
' Show a Dlls Contents - Converted by Mike Trader 2001
'
#COMPILE EXE "DllReadr.exe"
#INCLUDE "WIN32API.INC" ' Basic Win API definitions
'xConfirm 4000
'xErrors 5000
TYPE DLLENTRY_IMAGE_DEBUG_INFORMATION ' Struct to retrieve the DLL information.
nList AS LONG
nSize AS LONG
MappedBase AS LONG
Machine AS LONG
Characteristics AS LONG
CheckSum AS LONG
ImageBase AS LONG
SizeOfImage AS LONG
NumberOfSections AS LONG
Sections AS LONG
ExportedNamesSize AS DWORD
ExportedNames AS DWORD
NumberOfFunctionTableEntries AS LONG
FunctionTableEntries AS LONG
LowestFunctionStartingAddress AS LONG
HighestFunctionEndingAddress AS LONG
NumberOfFpoTableEntries AS LONG
FpoTableEntries AS LONG
SizeOfCoffSymbols AS LONG
CoffSymbols AS LONG
SizeOfCodeViewSymbols AS LONG
CodeViewSymbols AS LONG
ImageFilePath AS LONG
ImageFileName AS LONG
DebugFilePath AS LONG
TimeDateStamp AS LONG
RomImage AS LONG
DebugDirectory AS LONG
NumberOfDebugDirectories AS LONG
OriginalFunctionTableBaseAddress AS LONG
Reserved0 AS LONG
Reserved1 AS LONG
Reserved2 AS LONG
END TYPE
GLOBAL DllContents AS DLLENTRY_IMAGE_DEBUG_INFORMATION ' an instance of the TYPE
Global hDlg as long, Done as long
GLOBAL Wdth AS LONG, Hght AS LONG, BtnH AS LONG, FrmS AS LONG, FrmW AS LONG, TxtH AS LONG
GLOBAL TempStr AS STRING, FileNameStr AS STRING, FilePathStr AS STRING, DestFile AS STRING
GLOBAL Files() AS STRING, Folders() AS STRING
DECLARE FUNCTION DLLENTRY_MapDebugInformation ( BYVAL FileHandle AS LONG, _ 'use Call Dword to call the procedures in Imagehlp.dll.
FILENAME AS ASCIIZ, SymbolPath AS ASCIIZ, BYVAL ImageBase AS LONG ) AS DWORD
DECLARE FUNCTION DLLENTRY_UnmapDebugInformation( BYVAL DebugInfo AS DWORD ) AS LONG
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤'
FUNCTION DLLENTRY_GetEntries(BYVAL sDllName AS STRING, sExpNames() AS STRING) AS LONG 'dll name(full path), returns a string array.
LOCAL Result AS STRING
LOCAL Found AS LONG, hFile AS LONG, hLib AS LONG, i AS LONG
LOCAL pMDI AS DWORD, pUDI AS DWORD
LOCAL pDBG AS DLLENTRY_IMAGE_DEBUG_INFORMATION PTR
hLib = LoadLibrary( "Imagehlp.dll" ) 'Load the imagehlp dll.
IF hLib = 0 THEN EXIT FUNCTION
pMDI = GetProcAddress( hLib, "MapDebugInformation" ) 'Retrieve the procedures we need.
IF CLNG( pMDI ) = 0 THEN GOTO DLLENTRY_GetEntries_Close
pUDI = GetProcAddress( hLib, "UnmapDebugInformation" )
IF CLNG( pUDI ) = 0 THEN GOTO DLLENTRY_GetEntries_Close
hFile = CreateFile( BYVAL STRPTR( sDLLName ), %GENERIC_READ, %FILE_SHARE_READ OR %FILE_SHARE_WRITE, _ 'Open the DLL as file.
BYVAL 0&, %OPEN_EXISTING, %FILE_ATTRIBUTE_NORMAL, BYVAL 0& )
IF hFile = 0 OR hFile = %INVALID_HANDLE_VALUE THEN GOTO DLLENTRY_GetEntries_Close
CALL DWORD pMDI _ 'Call the debuginfo and get the necessary struct.
USING DLLENTRY_MapDebugInformation( hFile, BYVAL STRPTR( sDLLName ), BYVAL 0&, 0& ) TO pDBG
IF pDBG = 0 THEN GOTO DLLENTRY_GetEntries_Close
'DllContents = ?????
IF CLNG( @pDBG.ExportedNames ) THEN 'Retrieve the string data and copy this into a local string.
Result = PEEK$( @pDBG.ExportedNames, @pDBG.ExportedNamesSize )
end if
Found = PARSECOUNT( Result, CHR$(0) ) 'Count the amount of functions in the DLL.
FUNCTION = Found 'Return Number Found.
IF Found THEN 'Parse the names into the array provided.
REDIM sExpNames( 1 TO Found )
FOR i = 1 TO Found
sExpNames(i) = PARSE$( Result, CHR$(0), i )
NEXT i
END IF
DLLENTRY_GetEntries_Close:
IF hLib AND pDBG THEN CALL DWORD pUDI USING DLLENTRY_UnmapDebugInformation( pDBG ) 'Destroy the debuginformation.
IF hFile THEN CloseHandle hFile 'Close the filehandle.
IF hLib THEN FreeLibrary hLib 'Unload library.
END FUNCTION
'************************************************************************
' Pad a string to a fixed length
'************************************************************************
FUNCTION Pad ( BYVAL PadStr AS STRING, length AS LONG ) AS STRING ' adjust to taste
FUNCTION = LEFT$(PadStr + SPACE$(length), length)
END FUNCTION
'************************************************************************
' Seperate FileName and FilePath, return Long Filename
'************************************************************************
FUNCTION Seperate(pf AS STRING, p AS STRING, f AS STRING) AS LONG ' seperate
LOCAL i AS LONG
i = INSTR(-1, pf, ANY "\/") ' find last backslash
p = LEFT$(pf, i) ' Path ShortName
f = RIGHT$(pf, LEN(pf)-i) ' File ShortName
f = DIR$(p+f) ' File LongName
FUNCTION = i
END FUNCTION
'************************************************************************
' GetDroppedFiles - FUNCTION Loads File/Folder names into the GLOBAL arrays
'************************************************************************
FUNCTION GetDroppedFiles(BYVAL hDrop AS LONG, Fi() AS STRING, Fo() AS STRING) AS LONG 'returns %true, if any files where placed in Files
LOCAL Cnt AS DWORD, i AS LONG, j AS LONG, k AS LONG, Pos AS LONG
LOCAL fString AS ASCIIZ*%MAX_PATH
Cnt = DRAGQUERYFILE(hDrop, &HFFFFFFFF&, "", BYVAL 0&) ' Get number of dropped files
IF Cnt > 0 THEN ' Do we really need this check?
REDIM Fi(Cnt) ' Make room in the GLOBAL array
REDIM Fo(Cnt) ' Make room in the GLOBAL array
FOR k = 1 TO Cnt
fString = SPACE$(%MAX_PATH) 'clear zero terminators
Pos = DRAGQUERYFILE(hDrop, k-1, fString, LEN(fString)-1) 'put FileName(i-1) into fString And Get Position
TempStr = LEFT$(fString, Pos)
IF GETATTR(TempStr) = 16 THEN ' check if it's a dir
INCR i
Fo(i) = TempStr ' directorys
ELSE
INCR j
Fi(j) = TempStr ' Files
END IF
NEXT
REDIM PRESERVE Fi(j) 'Make array the correct size
REDIM PRESERVE Fo(i) 'Make array the correct size
FUNCTION = %True
END IF
CALL DRAGFINISH(hDrop)
END FUNCTION
'************************************************************************
' GetCommandFiles - FUNCTION Loads File/Folder names into the GLOBAL arrays
'************************************************************************
FUNCTION GetCommandFiles(BYVAL CmdStr AS STRING, Fi() AS STRING, Fo() AS STRING) AS LONG 'Returns the number of files in the string
LOCAL i AS LONG, j AS LONG, k AS LONG, Cnt AS LONG, pStr AS STRING
IF INSTR(CmdStr, $DQ) THEN
pStr = $DQ
ELSE
pStr = " "
END IF
Cnt = PARSECOUNT(CmdStr, pStr)
FUNCTION = Cnt
REDIM Fi(Cnt) 'Make room in the GLOBAL array
REDIM Fo(Cnt) 'Make room in the GLOBAL array
DO
INCR k
TempStr = TRIM$(PARSE$(CmdStr, pStr, k))
IF LEN(TempStr) = 0 THEN EXIT DO
IF (GETATTR(TempStr) AND 16) THEN ' check if it's a dir
INCR i
Fo(i) = TempStr ' directorys
ELSE
INCR j
Fi(j) = TempStr ' Files
END IF
LOOP
REDIM PRESERVE Fi(j) 'Make array the correct size
REDIM PRESERVE Fo(i) 'Make array the correct size
END FUNCTION
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤'
FUNCTION ReadDllMAIN ( ) AS LONG
Local FileNum as long, i as long
LOCAL ExpNames() AS STRING
Dim ExpNames(1) ' Starting value
Done = 0
FileNum = 0
DO WHILE FileNum < UBOUND(Files) AND Done = 0
INCR FileNum
Seperate Files(FileNum), FilePathStr, FileNameStr ' Extract Path and Name
CHDIR FilePathStr
'===================================================
TempStr = RIGHT$(UCASE$(FileNameStr), 4)
IF TempStr <> ".DLL" THEN
MSGBOX "Source File MUST be a .Dll extension.",,"Error"
EXIT FUNCTION
END IF
'===================================================
i = DLLENTRY_GetEntries( FilePathStr+FileNameStr, ExpNames() ) ' the Dlls Exported functions
'===================================================
if i then
CONTROL SET TEXT hDlg, 114, STR$(i)+" Functions Found"
'ARRAY SORT ExpNames()
DestFile = PARSE$(FileNameStr, ANY ".", 1)+".log"
OPEN FilePathStr+DestFile FOR OUTPUT AS 300 LEN = 32768' open output file Error Log
PRINT# 300,
PRINT# 300, DATE$+": "+STR$(Ubound(ExpNames))+" Functions Found in "+FileNameStr
PRINT# 300,
PRINT# 300, Pad("", 5) + pad(" Functions", 34)
PRINT# 300,
PRINT# 300,
FOR i = 1 TO Ubound(ExpNames)
PRINT# 300, Pad(Str$(i), 5) + Pad(ExpNames(i), 34)
NEXT
CLOSE #300
SLEEP 20
SHELLEXECUTE 0, "open", FilePathStr+DestFile, BYVAL 0, BYVAL 0, %SW_SHOWNORMAL ' launch log file
ELSE
CONTROL SET TEXT hDlg, 114, "Nothing Found"
END IF
'===================================================
WEND
'DIALOG END hDlg ' QUIT
END FUNCTION
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤'
CALLBACK FUNCTION MainCB() AS LONG
SELECT CASE CBMSG
CASE %WM_INITDIALOG
DIM Files(1), Folders(1) ' Starting condition
IF LEN(COMMAND$) THEN
CALL GetCommandFiles(COMMAND$, Files(), Folders()) ' Retrieve the contents of the Command String
REDIM PRESERVE Files(1)
LOCAL sTimer AS LONG
sTimer = SETTIMER(CBHNDL, 1, 400, %NULL) ' wait for window to draw
END IF
CONTROL SET TEXT hDlg, 114, "DRAG and DROP here"
CASE %WM_TIMER
KILLTIMER CBHNDL, 1
CALL ReadDllMain
CASE %WM_DROPFILES
REDIM Files(0) ' Reset Array
CALL GetDroppedFiles(CBWPARAM, Files(), Folders()) ' Retrieve the Dropped filenames
CALL ReadDllMain
CASE %WM_DESTROY
CALL DRAGACCEPTFILES(CBHNDL, 0)
CASE %WM_COMMAND
SELECT CASE CBCTL
CASE 124 ' Quit
Done = 1 ' jump out of any loops
DIALOG END hDlg ' and QUIT
END SELECT
END SELECT
END FUNCTION
FUNCTION PBMAIN
LOCAL rc AS RECT
Wdth = 130 : Hght = 80 : FrmS = 4 : FrmW = Wdth-2*FrmS
DIALOG NEW 0, " Read Dll contents", 0, 0, Wdth, Hght, %WS_SYSMENU OR %WS_CAPTION TO hDlg
IF hDlg = 0 THEN EXIT FUNCTION
DRAGACCEPTFILES hDlg, %True 'enable drag&drop
CONTROL ADD LABEL, hDlg, 114, "", FrmS, Hght-31, FrmW, 12, %SS_CENTER OR %SS_SUNKEN
CONTROL ADD BUTTON, hDlg, 124, "&Quit", FrmS, Hght-16, FrmW, 14, 1
SYSTEMPARAMETERSINFO %SPI_GETWORKAREA, BYVAL 0, VARPTR(rc), 0 'grab desktop cordinates
DIALOG PIXELS hDlg, rc.nRight, rc.nBottom TO UNITS rc.nRight, rc.nBottom 'convert to dialog units
DIALOG SET LOC hDlg, rc.nRight/2 - Wdth/2, rc.nTop + 20 'rc.nBottom - 100 'place dialog center top
SETWINDOWPOS hDlg, %HWND_TOPMOST, 0, 0, 0, 0, %SWP_NOMOVE OR %SWP_NOSIZE 'set dialog topmost
DIALOG SHOW MODAL hDlg CALL MainCB
END FUNCTION
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Kind Regards
Mike
Comment