Имеется код загрузки библиотеки и вытаскивание с нее код ХТМЛ страници
PHP код:
procedure ChangeHTMLStyle;
var
h:Thandle;
GetStyle:function:string;
g:string;
begin
if not fileExists(ap+'Styles\'+CurrentStyle) then
begin
MessageDLg('невожможно найти библиотеку',mtError,[mbOk],0);
exit;
end;
//
g:=ap+'Styles\'+CurrentStyle;
h:=loadlibrary(@g[1]);
GetStyle:=GetProcAddress(h,'GetStyle');
body:=GetStyle;
FreeLibrary(h);
body:=stringReplace(body,'dirlink',ap+'Styles\',[rfReplaceAll]);
end;
Проблема вот в чём. При выполнени FreeLibrary(h); возникает искльючение "Access violation". Пошагово проверял процедуру. Функция находится, ХТМЛ код достается, а вот на этой строке возникает исключение. В программе есть почи такой же код и он прекрасно работает. Возможно у кого-то возникала такая проблема? Помогите пожалуста....