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

[Bars1992]

Проблема решена. Для техкто вляпается также:
1. Ищем в нете моулю FastShareMem
2. ДОбавляем в свой проект и в ДЛЛ в Uses. Даный модуль должен быть самым первым в списке.
3. Запускаем и всё работает.

[Aristarh Dark]

А что, стандартный ShareMem не прокатывает?

[Thrasher]

Когда используешь ShareMem, то приходится таскать за собой BORLNDMM.DLL.

[NumLock]

не совсем по-русски:
http://www.codexterity.com/fastsharemem.htm
имхо, а почему бы вообще от передачи string в/из dll не отказаться вовсе?

[Bars1992]

Сообщение от Thrasher

Когда используешь ShareMem, то приходится таскать за собой BORLNDMM.DLL.

Ты прав. По етой причине я отказался от стандартного модуля.

Сообщение от NumLock

имхо, а почему бы вообще от передачи string в/из dll не отказаться вовсе?

1. Обычный юзер не вскроет код
2. До данной библиотеки будут додаватца другие финкции и процедуры.
3. Не хочется замарачиватся с обыными файлами, их шифрофкой и дешифровкой.

В моем случае DLL как раз подходит