Forum Jump

Select Group :
Select Forum :
Sorted By :
Sort Order :
From The :
 
Thread Tools  Search this thread 
dannycat
Total Points:
2,515
Status Points:
2,015
Brown Belt
June 27, 2009 6:19 AM PDT
Integrating Help *.chm files in FORTRAN applications
I'm about to embark in creating a help system for my application. Most current help compilers create HTML Help files (*.chm) whereas previously WinHelp (*.hlp) files were the norm. Apparently the support for Winhelp (*.hlp) has been withdrawn by Microsoft with the advent of Vista. Although you can still download the WinHelp I prefer to use the current format. My question is how do you call up the HTML format help files from within a windows application.  The Generic sample provided still utilises the WinHelp API function which does not recognise HTML files.
Paul Curtis
Total Points:
2,390
Status Points:
1,890
Brown Belt
June 27, 2009 6:40 AM PDT
Rate
 
#1
Quoting - dannycat
I'm about to embark in creating a help system for my application. Most current help compilers create HTML Help files (*.chm) whereas previously WinHelp (*.hlp) files were the norm. Apparently the support for Winhelp (*.hlp) has been withdrawn by Microsoft with the advent of Vista. Although you can still download the WinHelp I prefer to use the current format. My question is how do you call up the HTML format help files from within a windows application.  The Generic sample provided still utilises the WinHelp API function which does not recognise HTML files.

Add the attached .lib file to your project.  Use this interface:

INTERFACE 
	FUNCTION HtmlHelp (hWndMain, lpszHelp, uCommand, dwData)
		USE ifwinTY
		integer(BOOL) :: HtmlHelp ! BOOL
		!DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'HtmlHelpA' :: HtmlHelp
		integer(HANDLE) hWndMain ! HWND hWndMain
		!DEC$ ATTRIBUTES REFERENCE, ALLOW_NULL :: lpszHelp
		character*(*) lpszHelp ! LPCSTR lpszHelp
		integer(UINT) uCommand ! UINT uCommand
		integer(ULONG_PTR) dwData ! ULONG_PTR dwData
	END FUNCTION
END INTERFACE

and then your procs will need to process WM_HELP in the message loop handler:

CASE (WM_HELP)
	rval = HtmlHelp (ghwndmain, helppathname, HH_DISPLAY_TOPIC, NULL)



 Attachments 
htmlhelp.lib
dannycat
Total Points:
2,515
Status Points:
2,015
Brown Belt
June 27, 2009 7:59 AM PDT
Rate
 
#2 Reply to #1
Quoting - Paul Curtis

Add the attached .lib file to your project.  Use this interface:

INTERFACE 
	FUNCTION HtmlHelp (hWndMain, lpszHelp, uCommand, dwData)
		USE ifwinTY
		integer(BOOL) :: HtmlHelp ! BOOL
		!DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'HtmlHelpA' :: HtmlHelp
		integer(HANDLE) hWndMain ! HWND hWndMain
		!DEC$ ATTRIBUTES REFERENCE, ALLOW_NULL :: lpszHelp
		character*(*) lpszHelp ! LPCSTR lpszHelp
		integer(UINT) uCommand ! UINT uCommand
		integer(ULONG_PTR) dwData ! ULONG_PTR dwData
	END FUNCTION
END INTERFACE

and then your procs will need to process WM_HELP in the message loop handler:

CASE (WM_HELP)
	rval = HtmlHelp (ghwndmain, helppathname, HH_DISPLAY_TOPIC, NULL)


Thanks Paul,

Where are HH_DISPLAY_TOPIC and other such constants defined?
Paul Curtis
Total Points:
2,390
Status Points:
1,890
Brown Belt
June 27, 2009 10:43 AM PDT
Rate
 
#3 Reply to #2
Quoting - dannycat

Thanks Paul,

Where are HH_DISPLAY_TOPIC and other such constants defined?

! HTML help command flags
INTEGER, PARAMETER	:: HH_DISPLAY_TOPIC 	 = #0000
INTEGER, PARAMETER	:: HH_DISPLAY_TOC	         = #0001
INTEGER, PARAMETER	:: HH_DISPLAY_INDEX	         = #0002
INTEGER, PARAMETER	:: HH_DISPLAY_SEARCH	 = #0003
INTEGER, PARAMETER	:: HH_KEYWORD_LOOKUP	 = #000D
INTEGER, PARAMETER	:: HH_DISPLAY_TEXT_POPUP = #000E
INTEGER, PARAMETER	:: HH_CLOSE_ALL                 = #0012



dannycat
Total Points:
2,515
Status Points:
2,015
Brown Belt
June 27, 2009 1:08 PM PDT
Rate
 
#4 Reply to #3
Quoting - Paul Curtis

! HTML help command flags
INTEGER, PARAMETER	:: HH_DISPLAY_TOPIC 	 = #0000
INTEGER, PARAMETER	:: HH_DISPLAY_TOC	         = #0001
INTEGER, PARAMETER	:: HH_DISPLAY_INDEX	         = #0002
INTEGER, PARAMETER	:: HH_DISPLAY_SEARCH	 = #0003
INTEGER, PARAMETER	:: HH_KEYWORD_LOOKUP	 = #000D
INTEGER, PARAMETER	:: HH_DISPLAY_TEXT_POPUP = #000E
INTEGER, PARAMETER	:: HH_CLOSE_ALL                 = #0012


Thanks again! Everything works fine now.

dannycat
Total Points:
2,515
Status Points:
2,015
Brown Belt
June 27, 2009 1:43 PM PDT
Rate
 
#5 Reply to #4
Quoting - dannycat

Thanks again! Everything works fine now.

Uh Oh. I spoke too soon. I have got the 32-bit version to work but the 64-bit configuration will not link. "Unresolved external symbol HtmlHelpA". Does the interface need some tweaking for 64-bit applications?

mavlik
Total Points:
440
Status Points:
390
Green Belt
June 27, 2009 4:32 PM PDT
Rate
 
#6 Reply to #5
To dannycat

function HtmlHelpA (_HtmlHelpA@16) is realized in file 'hhctrl.ocx'. Try to
search similar file.
I don't know why in Fortran the names of dlls is hidden from user. 
In Delphi for example you can make so:
function HtmlHelp(
                  HwndCaller: hwnd;
                  pszFile: string;
                  uCommand: integer;
                  dwData: integer): hwnd; stdcall;  external 'hhctrl.ocx' 

name 'HtmlHelpA';




Paul Curtis
Total Points:
2,390
Status Points:
1,890
Brown Belt
June 27, 2009 4:49 PM PDT
Rate
 
#7 Reply to #5

I don't work in 64bit, but I suspect that htmlhelp.lib may only contain 32-bit versions of the API functions, so that when your code has flexible defines such as INTEGER(HANDLE) which automatically track 32/64 bits, your calling code's Interface will then differ from the actual library routine.  You will probably have to locate a 64-bit version of the library (which I am unable to supply).
m.furqan.latif
Total Points:
25
Registered User
June 28, 2009 2:25 AM PDT
Rate
 
#8
function HtmlHelpA (_HtmlHelpA@16) is realized in file 'hhctrl.ocx'. Try to
search similar file.
I don't know why in Fortran the names of dlls is hidden from user.


--------
Eye Glasses
dannycat
Total Points:
2,515
Status Points:
2,015
Brown Belt
June 28, 2009 5:37 AM PDT
Rate
 
#9 Reply to #7
Thanks everyone, I've found the library I need in the SDK area.

C:\Program Files\Microsoft SDKs\Windows\v6.0A\Lib\x64
tvinni
Total Points:
20
Registered User
November 7, 2009 9:07 AM PST
Rate
 
#11 Reply to #8
Quoting - m.furqan.latif
function HtmlHelpA (_HtmlHelpA@16) is realized in file 'hhctrl.ocx'. Try to
search similar file.
I don't know why in Fortran the names of dlls is hidden from user.


I am using Windows 7 (64 bit version) and the latest Intel Fortran on top of Microrosft Visual Studio 2008.
I have the same problem of not being able to link my project because of the HtmHelpA missing.

I need further information about how to link my project successfully.
Can you help ?

Best regards,
f8


Intel Software Network Forums Statistics

8435 users have contributed to 31537 threads and 100341 posts to date.
In the past 24 hours, we have 25 new thread(s) 98 new posts(s), and 134 new user(s).

In the past 3 days, the most popular thread for everyone has been Strange results from operator overloading The most posts were made to IVF 11.1.051 freezes during build The post with the most views is Can you show us a test case?

Please welcome our newest member dearjason