[Z@voorchik]

Помогите!!! Если я закрываю программу, не открывая во время работы с ней файл справки (CHM-файл), то все бывает нормально. Если во время работы с программой я читаю справку, то при закрытии программы создается исключение типа EInvalidPointer: сообщение Invalid Pointer Operation. В чем может быть дело?

[artemavd]

Сообщение от Z@voorchik

Помогите!!! Если я закрываю программу, не открывая во время работы с ней файл справки (CHM-файл), то все бывает нормально. Если во время работы с программой я читаю справку, то при закрытии программы создается исключение типа EInvalidPointer: сообщение Invalid Pointer Operation. В чем может быть дело?

Без кода трудно сказать, но может есть смысл попробовать избавиться от появления этой ошибки при закрытии? Например, я бы попробовал через try...except.

Код:

try 
 //действия при закрытии
except
 on EInvalidPointer do 
  //твои действия
end;

Приведи код в событии закрытия программы. Можно будет поточнее подсказать.

[Z@voorchik]

В событии закрытия код не используется.
Вот код процедуры открытия справки:

Код:

procedure TForm1.N9Click(Sender: TObject);
var
  HelpFile : string;
  HelpTopic : string;
  pwHelpFile : PWideChar;
  pwHelpTopic : PWideChar;
begin
  HelpFile := 'game_15_help.chm';
  HelpTopic := 'what_is_it.htm';

  GetMem(pwHelpFile, Length(HelpFile) * 2);
  GetMem(pwHelpTopic, Length(HelpTopic) * 2);

  pwHelpFile := StringToWideChar(HelpFile, pwHelpFile, MAX_PATH * 2);
  pwHelpTopic := StringToWideChar(HelpTopic, pwHelpTopic, 32);

  Form1.Hhopen1.OpenHelp(pwHelpFile, pwHelpTopic);
end;

Может быть, дело в нем, хотя я делал так, как показано в книге по DELPHI.
И вообще, в каких ситуациях возникает это исключение?

[Drozh]

Не уверен точно, но ИМХО если ты взял память, то ее небоходимо освободить

[Z@voorchik]

Тогда не подскажите, как освободить взятую память:

GetMem(pwHelpFile, Length(HelpFile) * 2);
GetMem(pwHelpTopic, Length(HelpTopic) * 2);

из примера выше?

[artemavd]

Сообщение от Z@voorchik

Тогда не подскажите, как освободить взятую память?

Кажется для этого используется процедура dispose

[lmikle]

Не Dispose, а FreeMem.
А вообще, там вполне пройдет PChar, соответсвенно вызоа можно делать так:

Код:

Form1.Hhopen1.OpenHelp(PChar(HelpFile), PChar(HelpTopic));

[Z@voorchik]

Большое спасибо!!! Работает!!!