[Bars1992]

Имеется код загрузки библиотеки и вытаскивание с нее код ХТМЛ страници

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". Пошагово проверял процедуру. Функция находится, ХТМЛ код достается, а вот на этой строке возникает исключение. В программе есть почи такой же код и он прекрасно работает. Возможно у кого-то возникала такая проблема? Помогите пожалуста....