Передать процедуры и функции из одной DLL в другую

[spamer]

Кстати, как вариант можно было бы использовать memory mapped file...Хотя не до конца известно, что нужно будет в конце...

[Alter]

Пепел Феникса, хорошо, но не загромождает ли он код. В интернете, что-то не встречал в примерах плагинов, чего-то похожего на то, что пишет mss.

mss Чего нервничаем? Не все сразу гении. Создается впечатление, что думаета так "Я д’Артаньян, а вы все *овно". Не надо набрасываться. Форум создан для помощи. Если не хотели отвечать, не отвечали бы, прошли бы мимо.

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

Хрен редьки не слаще.
Ты хоть задумался что происходит при StrPCopy ?

Функция StrPCopy(Dest: PChar; const Source: string ):PChar;

Функция копирует Паскаль-строку Source в длинную строку Dest и возвращает указатель на Dest. Данная функция не производит проверку длины, поэтому для того, чтобы не возникало ошибок необходимо, чтобы результирующая строка вмещала Length(Source) + 1 символ.

не?

Вариант 2: отсюда "Преобразование String в PChar"

...

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

Будет мудрым решением не путать компилятор смешением переменных PChar и String, только если вы точно не знаете, что вы делаете. Компилятор не воспринимает PChar как String, поэтому он не будет менять счётчик ссылок строковых буферов, если вы нацелите на них PChar. Часто наилучшим решением будет отказ от подобного использования PChar. Просто используйте обычные строки, и делайте приведение типов только в последний момент. Функции, принимающие параметр PChar, должны копировать текст параметра в свои собственные переменные.

Обычно строковые буфера имеют размер достаточный только для того, чтобы вместить лежащий в них (присвоенный им) текст. Но используя SetLength, вы можете установить произвольный размер строки (в символах). Это делает строки полезными для использования в качестве буферов. Например, вызов функции Windows API, которая возвращает текст в символьном массиве, может выглядеть так:

function WindowsDirectory: string;
begin
  SetLength(Result, MAX_PATH);
  GetWindowsDirectory(PChar(Result), Length(Result));
  SetLength(Result, StrLen(PChar(Result)));
end;

Альтернативно, вы можете присвоить PChar-у String, и в результате у вас получится новая строка с копией текста. Поэтому вы можете установить длину строки с помощью такого эквивалентного кода:

Result := PChar(Result);

Последняя строка в функции устанавливает размер строки равный размеру нуль-терминированной C-строке, записанной в ней (длина C-строки всегда меньше или равна длине её String-хранилища – прим.пер.). Если вам нужен результат как PChar-строка для дальнейших действий (например для передачи в другие API-функции), вы могли бы попробовать использовать такой код:

// ПРЕДУПРЕЖДЕНИЕ: ПЛОХОЙ ПРИМЕР
function WindowsDirectoryAsPChar: PChar;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(Buffer, MAX_PATH);
  Result := Buffer;
end;

Однако, это не будет работать. Потому что Buffer является локальной переменной, хранящейся целиком в локальной памяти (процессорном стеке). Как только вы покидаете эту функцию, память, которая была выделена под Buffer, начинает использоваться другими подпрограммами, так что текст, который лежал в буфере, становится мусором. Вы никогда не должны использовать локальные переменные для возвращаемых значений PChar.

Вы могли бы обойти это, делая динамическое выделения памяти для возвращаемого PChar, с помощью, например, StrAlloc, но тогда вызывающему пришлось бы руками освобождать выделенный вами буфер. Обычно, это не самый лучший подход. Лучше следовать примеру GetWindowsDirectory, и позволить вызывающему указать свой буфер и его размер. Тогда вы просто заполните уже готовый буфер (используя StrLCopy) своими данными до допустимого размера.

Есть и альтернативная реализация функции WindowsDirectory, которая может использовать локальный буфер. Это основывается на том, что вы можете присваивать PChar строке String напрямую. Чтобы сделать текст строкой Delphi (с служебными полями длины и счётчиком сылок), будет создан строковый буфер требуемой длины, а текст будет скопирован в него. Поэтому, даже если локальный буфер будет удалён, то текст в строковом буфере всё ещё будет с нами:

function WindowsDirectory: string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(Buffer, MAX_PATH);
  Result := Buffer; // Копируется StrLen(Buffer) символов!
end;

...

[Alter]

...

Но как вам написать функцию, например в DLL, которая должна возвращать данные как PChar? Я думаю, что вы снова можете следовать примеру GetWindowsDirectory. Вот пример простой функции из DLL, возвращающей строку версии:

// Иметь отдельную функцию для получения длины проще, 
// чем просить GetDLLVersion вернуть длину при nil аргументе.
function GetDLLVersionLength: Integer;
begin
  Result := Length(DLLVersion + IntToStr(VersionNum));
end;
 
// Возвращаем длину скопированных символом, исключая терминатор
function GetDLLVersion(Buffer: PChar; MaxLen: Integer): Integer;
begin
  if (Buffer <> nil) and (MaxLen > 1) then
begin
  StrLCopy(Buffer, PChar(DLLVersion +IntToStr(VersionNum)), MaxLen - 1);
  Result := StrLen(Buffer);
end
else
  Result := 0;
end;

Как вы можете видеть, строка просто копируется в предоставленный вызывающим буфер с помощью StrLCopy. Поскольку вызывающий обязан подготовить буфер, вы избегаете любых проблем с управлением памятью. Если вы предоставляете буфер, то вы и знаете, как его удалять. FreeMem не будет работать через границу DLL (в общем случае). Но даже если бы работала (например, с использованием общего менеджера памяти – прим.пер.), то пользователь вашей DLL, работающий в C или Visual Basic, не знал бы, как освободить буфер в своём языке, т.к. управления памятью индивидуально в каждом языке. Позволяя вызывающему указывать свой буфер, вы делаете его или её независимыми от вашей реализации.

PChars: сами строки не включены

// Иметь отдельную функцию для получения длины проще, 
// чем просить GetDLLVersion вернуть длину при nil аргументе.
function GetDLLVersionLength: Integer;
begin
  Result := Length(DLLVersion + IntToStr(VersionNum));
end;
 
// Возвращаем длину скопированных символом, исключая терминатор
function GetDLLVersion(Buffer: PChar; MaxLen: Integer): Integer;
begin
  if (Buffer <> nil) and (MaxLen > 1) then
begin
  StrLCopy(Buffer, PChar(DLLVersion +IntToStr(VersionNum)), MaxLen - 1);
  Result := StrLen(Buffer);
end
else
  Result := 0;
end;

__________________________________

Для удобства сделал такую функцию

function GetStrToBuffer(Txt :string; Buffer: PChar; MaxLen: Integer):Integer;
begin
 if (Buffer <> nil) and (MaxLen > 1) then
 begin
  StrLCopy(Buffer,
           PChar(Txt),
           MaxLen - 1);
  Result := StrLen(Buffer);
 end
  else
 Result := 0;
end;

внутри dll выглядит так, например

function AAA(Buffer :PChar; MaxLen: Integer):Integer; stdcall;
begin
  Result := GetStrToBuffer(TextString, Buffer, MaxLen);
end;