delphi制作联机帮助的问题

onizuka5211 2005-12-21 04:20:24
我已经有一个word文档的使用手册了，但是要做成在delphi中能够调用的联机文档，
有人能帮助我一下么〉？

我现在比较倾向于用工具做成chm格式的，然后再delphi中调用chm的索引，但问题是word文当如果直接专成html然后在做成chm的话，那么就没有目录结构了，也就是说，只有一个个根目录了。要想保留目录怎么办啊？

有人做过类似的功能么？给小弟一个思路把
...全文
206 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
constantine 2005-12-23
  • 打赏
  • 举报
 回复
MainFormUnit.cpp
//---------------------------------------------------------------------------
// 作者：yifei
//　日期：2005-08-31
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "htmlhelp.h"
#include "MainFormUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TMainForm *MainForm;
static FARPROC OldMenuProc = NULL; // 保存旧的弹出菜单处理函数

// NewMenuProc 为新的消息处理函数--新的PopupList->Window的窗体函数
static long CALLBACK NewMenuProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::MyHelp(Messages::TMessage &Message)
{
HELPINFO *HI = (HELPINFO*)Message.LParam;
TWinControl *WC;
TMenuItem *MI;
TMenu *Menu;
// 主菜单上传来的WM_HELP消息
if(HI->iContextType == HELPINFO_MENUITEM)
{
for(int i=0; i<this->ComponentCount; i++)
{
Menu = dynamic_cast<TMenu *>(this->Components[i]);
if(Menu != NULL)
{
MI = Menu->FindItem(HI->iCtrlId, fkCommand);
if(MI != NULL)
{
break;
}
}
}
if(MI != NULL && MI->HelpContext != 0)
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_HELP_CONTEXT, MI->HelpContext);
}
else
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_DISPLAY_TOPIC, 0);
}

}
// 活动控件上传来的WM_HELP消息
else
{
WC = FindControl(HI->hItemHandle);
if(WC != NULL && WC->HelpContext != 0)
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_HELP_CONTEXT, WC->HelpContext);
}
else
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_DISPLAY_TOPIC, 0);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ActionCloseExecute(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ActionHelpExecute(TObject *Sender)
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_DISPLAY_TOPIC, 0);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
// 还原 PopupList 的消息处理函数，必须要还原，否则会有问题
::SetWindowLong(PopupList->Window, GWL_WNDPROC, (long)OldMenuProc);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
// 更改 PopupList 的消息处理函数并保存旧的PopupList的消息处理函数
OldMenuProc = (FARPROC)::SetWindowLong(PopupList->Window, GWL_WNDPROC, (long)NewMenuProc);
}
//----------------------------------------------------------------------------
// 抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此留些信息。
// 作者：yifei(逸飞) yifei1900@tom.com
// 本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=624&d=a15f8r
//----------------------------------------------------------------------------
static long CALLBACK NewMenuProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
int n;
int ContextID;
TMenu* PopMenu;
TMenuItem* MenuItem;
// 如果消息不是WM_HELP，直接使用CallWindowProc　这个API把消息传递到旧的消息处理函数中处理
if(uMsg != WM_HELP)
return ::CallWindowProc(OldMenuProc, hwnd, uMsg, wParam, lParam);

HELPINFO* phi = (HELPINFO*)lParam;
for(n=0; n<PopupList->Count; n++)
{
PopMenu = (TMenu *)PopupList->Items[n];
if (phi->hItemHandle == PopMenu->Handle)
MenuItem = PopMenu->Items; // 无SubMenu情况
else
MenuItem = ((TPopupMenu*)PopMenu)->FindItem(
(int)phi->hItemHandle, fkHandle); // 有SubMenu的情况
if(MenuItem != NULL)
{
ContextID = PopMenu->GetHelpContext(phi->iCtrlId, true); // iCtrlId保存TMenuItem的Command
if(ContextID == 0)
ContextID = PopMenu->GetHelpContext((int)phi->hItemHandle, false);
if(Screen->ActiveForm==NULL)
break;
if(ContextID == 0)
ContextID = Screen->ActiveForm->HelpContext;
// 这儿弹出 ContextID 的帮助信息
if(ContextID != 0)
{
HtmlHelp(hwnd, Application->HelpFile.c_str(), HH_HELP_CONTEXT, ContextID);
}
else
{
HtmlHelp(hwnd, Application->HelpFile.c_str(), HH_DISPLAY_TOPIC, 0);
}
break;
}
}
return TRUE;
}

解决问题的过程相关的贴子：
(1) http://community.csdn.net/Expert/TopicView.asp?id=4201850
(2) http://community.csdn.net/Expert/TopicView.asp?id=4206790

本文中提到的chm格式和zip格式的资源，可以向我来信索取:yifei1900@tom.com，源文件也可以来信索取。
如果转载本文，请保留原作者及来源，谢谢合作!


http://www.ccrun.com/article/go.asp?i=624&d=a15f8r
这里是原贴
constantine 2005-12-23
  • 打赏
  • 举报
 回复
文档标题：BCB6/Delphi7下完美调用CHM帮助　　作者： yifei(逸飞)

关 键 字：BCB,Delphi,Windows Help,CHM,WM_HELP消息

本文转自 C++Builder 研究 - http://www.ccrun.com/article/go.asp?i=624&d=a15f8r



本文主要讲解如何在C++Builder6.0及之前的版本中使用Microsoft的新型帮助："CHM格式帮助文件"，对于如何制作CHM格式帮助，以及如何获取帮助文件制作工具，本文只会一笔带过，给出官方链接或推荐其它这方面好的教程，就不再赘述。

CHM格式帮助文件制作工具
需要Microsoft的html help workshop来制作CHM格式的帮助，可以到Microsoft站点下载：
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownloads.asp

好的CHM帮助制作教程
学习如何制作CHM格式帮助文档，请参考：
Html Help Sample in Delphi[卡夫].chm 作者：卡夫[cgcalf@263.net]
跟我学HtmlHelp Workshop[冯惠军][石家庄铁道学院].chm 作者：冯惠军[石家庄铁道学院]

如果想了解更多关于Microsoft Html Help的知识，可以查阅：
Microsoft Html Help Docs.zipMicrosoft官方文档
更好的是直接在线查阅Microsoft的官方文档，到MSDN搜索关键字："html help"，可以搜索到很多关于Microsoft html help的内容，有最新的html workshop下载、在线API手册、制作帮助文件示例等等。

到这里，我假设读者已经安装了Microsoft html help workshop，且已掌握如何制作CHM格式帮助文件。
本文中程序中调用的示例帮助文件包含四个主题，这四个主题的源代码如下：
1001.htm
<html>
<head>
<title>第一个主题</title>
</head>
<body>
<p>第一个主题</p>
</body>
</html>

1002.htm
<html>
<head>
<title>第二个主题</title>
</head>
<body>
<p>第二个主题</p>
</body>
</html>

1003.htm
<html>
<head>
<title>第三个主题</title>
</head>
<body>
<p>第三个主题</p>
</body>
</html>

1004.htm
<html>
<head>
<title>第四个主题</title>
</head>
<body>
<p>第四个主题</p>
</body>
</html>

添加索引“第一个主题”、“第二个主题”、“第三个主题”、“第四个主题”，添加搜索关键定“第一个主题”、“第二个主题”、“第三个主题”、“第四个主题”，制作好CHM帮助文件。下一步的工作，是添加此帮助文件对程序UI界面的上下文敏感关系。方法如下：
用文本编辑器写一个.h文件(头文件，CHM编译器需要用它)，文件名任意,内容如下：
#define 第一个主题 1001
#define 第二个主题 1002
#define 第三个主题 1003
#define 第四个主题 1004
即把主题“第一个主题”定义为一个数字1001...，向CHM工程文件中添加这个.h文件，方法如下：
(1).打开HTML HELP WorkShop,打开刚才这个CHM工程，在Project页面上左侧，点击第四个按钮“HtmlHelp API information”，在弹出的界面上点击“Alias”,添加主主题的别名，添加“第一个主题”对应html文件1001.htm...；
(2).在刚才的“HtmlHelp API Information”弹出界面上点击“Map”，点击右侧第一个按钮“Head Files”，选择“include”刚才制作的那个.h文件
(3).重新编译CHM工程，生成的文件就是满足要求的有上下文敏感关系的CHM帮助文件了。
测试一下您的CHM格式帮助文件是否正确，点击HTML HELP WorkShop的“Text”->“HTMLHelp API”，在弹出的界面上，浏览刚才生成的CHM文件，“Command”选择“HH_HELP_CONTEXT”，第二个参数“Window”默认，第三个参数“Map Numbers”，输入那个.h文件中定义的数字，点击确定，就会打开这个CHM文件并激活相关的主题了。

到这为止，已经成功了一半，我们已经用HTML HELP WorkShop制作出了上下文敏感的CHM格式帮助，下一步的重点是在C++Builder和Delphi中来调用这个上下文敏感的CHM帮助文件。
早期的Windows中，Microsoft 为其设计了一套API，用于Windows Help系统，一直到Windows XP SP2仍然保留这套API，它的问题是，只能表现文字等简单内容，不能象HTML而那样表现丰富的内容。因此，Microsoft在1998年推出了全新一代的帮助系统:Compiled Help Manual,将HTML文件编译和压缩，提供了WEB页一样的丰富的表现力，停止了对旧的Windows Help的开发。
Borland C++ Builder 6.0/Delphi7.0及之间的版本的用户手册等资源都是旧的Windows Help的，而VCL也只提供了对旧的Windows Help的支持，在当今WEB流行的今天，如果你的软件还用旧的Windows Help，未免有些老土吧！
我搜索了大量的网络资源并在季老大的帮助下，完美解决了在C++Builder6.0/Delphi7.0及以前版本中使用上下文敏感的CHM格式帮助的方法。
VCL默认支持旧的上下文敏感的Windows Help，通过设置控件的HelpContext值来指定与控件相关的帮助主题，如果Application收到WM_HELP消息，就会解析WM_HELP消息中的HelpContext，调用Windows Help，显示相关的主题，因此，调用CHM格式帮助时，我们也需要设置相应控件的HelpContext(值就是上面定义的.h文件中的与主题相关的数值)，我们需要截获发到程序中的WM_HELP消息，分析HelpContext，并调用我们自己制作的CHM帮助，一切就完成了。但是事实却没有这么简单。
(1).HTML Help的API都封装在hhctrl.ocx库中(Windows 98及以后的Windows系统安装这一个库)，因此，我们使用Borland开发工具中的导入工具implib.exe即可以导入这个库的静态版本：implib hhctrl.lib hhctrl.dll，把这个静态库添加到我们的工程中，在我们的程序中添加htmlhelp.h头文件(Borland开发工具已包含这个头文件)，即可以调用HELP Help的API了；
(2).VCL构架的应用程序在以下三种方式中收到WM_HELP消息：在主菜单及其菜单项上按F1、在窗体元素上按F1、在弹出的PopupMenu上按F1，第一种和第二种情况下的消息很容易截取，但是第三种情况却比较特殊，VCL对PopupMenu消息的处理比较特殊，它封装了一个不可见的窗体PopupList->Window来统一管理弹出菜单的消息，十分感激季老大，我才截取了第三种方式的WM_HELP消息。

实现的细节如下：
在上述的第一种和第二种方式的WM_HELP消息来源，只要自定义一个WM_HELP消息处理句柄即可，然后根据菜单消息还是其它控件消息来分开处理；
对于上述第三种WM_HELP消息来源，需要在程序运行时重设PopupList->Window的窗体函数，并在程序退出还原，然后在自己定义的这个窗体函数中处理WM_HELP消息。
说再多也没有代码有说服力，我实现的代码如下：
　
MainFormUnit.h
//---------------------------------------------------------------------------
// 作者：yifei
// 日期：2005-08-31
//---------------------------------------------------------------------------
#ifndef MainFormUnitH
#define MainFormUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ActnList.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <AppEvnts.hpp>
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include <ToolWin.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TMainMenu *MMenu;
TMenuItem *F1;
TMenuItem *cdefg1;
TPopupMenu *PPMenu;
TActionList *AList;
TAction *ActionNew;
TAction *ActionOpen;
TAction *ActionClose;
TAction *ActionHelp;
TMenuItem *O1;
TMenuItem *X1;
TMenuItem *H1;
TMenuItem *C1;
TButton *Button1;
TEdit *Edit1;
TButton *Button2;
TComboBox *ComboBox1;
TMenuItem *N1;
TMenuItem *O2;
TMenuItem *X2;
TMenuItem *N2;
TMenuItem *C2;
TLabel *Label1;
TLabel *Label2;
TCheckBox *CheckBox1;
TMenuItem *N3;
TImageList *ImageList;
TToolBar *ToolBar1;
TToolButton *ToolButton1;
TToolButton *ToolButton2;
TToolButton *ToolButton3;
TToolButton *ToolButton4;
TToolButton *ToolButton5;
TToolButton *ToolButton6;
void __fastcall ActionNewExecute(TObject *Sender);
void __fastcall ActionOpenExecute(TObject *Sender);
void __fastcall ActionCloseExecute(TObject *Sender);
void __fastcall ActionHelpExecute(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
protected:
// 取消编译器内联优化，避免编译器警告
#pragma option push -vi-
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_HELP, Messages::TMessage, MyHelp)
END_MESSAGE_MAP(TForm)
#pragma option pop
// 自定义的WM_HELP消息处理句柄
void __fastcall MyHelp(Messages::TMessage &Message);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif

lextm 2005-12-22
  • 打赏
  • 举报
 回复
ComponentOne公司的Doc-2-Help似乎比较适合，但是我对这家公司没有什么好感。

为什么要做成联机文档呢？

Borland做得调查是绝大部分用户希望Delphi除了在线帮助之外还是提供可打印版本的手册。

我自己的开源项目也是只有手册的。
Delphi制作CHM联机帮助示例源码
资源主体来自网络，但原来有一个简单的错误：HHControlInstance := LoadLibrary(P); 现在已经修改过来。试运行无误！
delphi 制作并调用资源文件
delphi 制作并调用资源...在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于\Delphi\BIN目录下）,我们完全可以做出跟VC一样效果的文件来。
DelphiXE10零基础实战快速入门
通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。
使用Regware.v4.02制作的软件注册Dll
使用regware.v4.02制作的软件注册dll，以方便大家以后的使用。目录中有三个文件夹：1）Dll。...该文件夹存放生成的钥匙盘3）TestDll。是一个测试工程注意事项：请将dll...控件的具体用法请参考regware.v4.02的联机帮助。
DELPHI构件制作方法
发人员仍有必要自己制作构件。 采用构件形式可以把对象严密封装，并加上一层直观外壳，有 利于软件调试和代码重用。开发群体以构件为功能单位分工协作， 比较容易实现工程化管理，从软件规划设计到测试修改都可以...
语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章