Отладка программы в Delphi



         

Листинг 14 2 Использование компонента Hhopen unit ushh_;



Листинг 14.2. Использование компонента Hhopen unit ushh_;


interface

uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, OleCtrls, HHOPENLibJTLB, StdCtrls;

type

TForm1 = class(TForm) Label1: TLabel;

Editl: TEdit; // файл справки

Edit2: TEdit; //раздел справки (имя HTML-файла)

Button1: TButton; // кнопка Справка

Hhopen1: THhopen; // ActiveX-компонент Hhopen

Label2: TLabel;

Label3: TLabel;

procedure ButtonlClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

// щелчок на кнопке Справка

procedure TForm1.ButtonlClick(Sender: TObject);

var

HelpFile : string; // файл справки

HelpTopic : string; // раздел справки

pwHelpFile : PWideChar;

// файл справки (указатель на строку WideChar)

pwHelpTopic : PWideChar;

// раздел (указатель на строку WideChar)

begin

HelpFile := Edit1.Text;

HelpTopic := Edit2.Text;

// выделить память для строк WideChar

GetMemfpwHelpFile, Length(HelpFile) * 2) ;

GetMemfpwHelpTopic, Length(HelpTopic)*2);

// преобразовать Ansi-строку в WideString-строку

pwHelpFile := StringToWideChar

(HelpFile,pwHelpFile,MAX_PATH*2)

pwHelpTopic := StringToWideChar(HelpTopic,pwHelpTopic,32);

// вывести справочную информацию

Form1.Hhopen1.OpenHelp(pwHelpFile,pwHelpTopic);

end;

end.

Вывод справочной информации выполняет процедура обработки события Onciic на кнопке Справка. Так как параметры метода OpenHelp должны быть строками widechar, то сначала выполняется преобразование ANSI-строки В строку WideChar.







Содержание  Назад  Вперед