Передача строк из dll

[sprofxx]

Народ, как правильно передавать строки из длл в основную программу?

Изрыл весь интернет, так и не пойму до конца.

Вот что сам наваял после безумно долгих мучений:

//Код dll

...

procedure DllProc(str1: pointer); stdcall;
begin
  StrPCopy(PChar(str1^),'Текст из dll');
end;

...

//Код программы 

...

procedure TForm1.Button1Click(Sender: TObject);
var Lib: Cardinal;
    DllProc: procedure(str1: pointer); stdcall;
    str:PChar;
begin
  Lib := LoadLibrary('MyDll.dll');
  if Lib <> 0 then
  try
    DllProc := GetProcAddress(Lib, 'DllProc');
    GetMem(str,25);
    DllProc(@str);
    Label1.Caption:=str;
    FreeMem(str);
  finally
    FreeLibrary(Lib);
  end;
end;

...

Здесь правильно используется память?

Возьмем например API функцию GetWindowText, одним из параметров в ней является переменная типа PChar (т.е. ссылка на Char'ы). Тогда каким образом функция вызванная из dll и получив этот указатель, сможет выделить место для этой переменной в области памяти основной программы так, чтобы после выгрузки dll переменная и ее значение еще были живы и вообще, как dll может управлять чужой областью памяти в этом случае? Как вообще работает эта API и подобные ей, в них даже не @PChar передается как у меня, а вообще просто PChar (тела подобных функций не нашел)?

Если можно, пожалуйста, приведите простейший код передачи строк из dll в основную прогу и обратно.

[Пепел Феникса]

GetWindowText

вообще то вы должны выделить память для нее, и вашим указателем на то куда запишет функцию нужные данные и есть тот указатель что вы передаете функцию, то есть вы выделяете память, и вы в этой памяти получаете результат

int GetWindowText(

    HWND hWnd,	// handle of window or control with text
    LPTSTR lpString,	// address of buffer for text
    int nMaxCount 	// maximum number of characters to copy
   );	
 

Parameters

hWnd

Identifies the window or control containing the text. 

lpString

Points to the buffer that will receive the text. 

nMaxCount

Specifies the maximum number of characters to copy to the buffer. If the text exceeds this limit, it is truncated.

так же внутрь функции передается размер вашей области памяти(точнее то число символов, которая наша область может в себя принять)

function DllProc:PChar;stdcall;
begin
  Result:='Текст из dll';
end;

[sprofxx]

function DllProc:PChar;stdcall;
begin
  Result:='Текст из dll';
end;

Здесь как я понимаю грубейшая ошибка. Мы создаем константу в пределах памяти dll и возвращаем на нее указатель, который присваивается указателю в основной программе, т.е. они начинают указывать на одну и ту же область памяти, которая находится в пределах dll! Указатель, возвращаемый функцией, указывает на область памяти, которая считается свободной — после того как значение строки ('Текст из dll') вышла за пределы области видимости, память, которую занимала эта строка, освободилась. Таким образом, выгрузив dll, освобождается память на которую указывает указатель в основной программе и значение теряется, что приводит к исключениям. Это можно проверить выгрузив dll до вывода значения переменной в лейбл. Или я не понимаю чего то?

Вопрос по GetWindowText остается открытым, интересно как именно функция заполняет переданный ей буфер.

[Пепел Феникса]

Здесь как я понимаю грубейшая ошибка.

нет, это символьная константа находится в памяти только для чтения и грузится вместе с DLL ошибка может возникнуть только если DLL выгрузить из памяти.
в таком случае выделяем память в процедуре и возвращаем на нее указатель(предварительно заполнив)
но тогда в основной программе нужно освобождать её.

Таким образом, выгрузив dll, освобождается память на которую указывает указатель в основной программе и значение теряется, что приводит к исключениям.

тут вы правы.
но такой подход, не очень хорош, но я обьяснил выше

Указатель, возвращаемый функцией, указывает на область памяти, которая считается свободной — после того как значение строки ('Текст из dll') вышла за пределы области видимости, память, которую занимала эта строка, освободилась.

константа не копируется, ей не выделяется новая область памяти.
мы возвращаем PChar а не array of Char(и то статический)...ибо массив статический уже будет распределен динамически при входе в функцию.(в стеке, как локальная паременная)

Вопрос по GetWindowText остается открытым, интересно как именно функция заполняет переданный ей буфер.

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

[FaTaL]

А не легче тогда в DLL использовать не процедуру, а функцию, которая и возвратит в основную прогу строку?!

[sprofxx]

Хм... тогда если мы хотим независимости от dll, то реализовывается моим способом из первого поста (вы не ответили о правильности)?...

Вообще хотелось бы увидеть простейший пример, подобие использования GetWindowText.

код основной программы:

procedure TForm1.Button1Click(Sender: TObject);
var Lib: Cardinal;
    DllProc: function(str1:PChar):integer; stdcall;
    str:PChar;
begin
  Lib := LoadLibrary('MyDll.dll');
  if Lib <> 0 then
  try
    DllProc := GetProcAddress(Lib, 'DllProc');
    strNew(str);
    if DllProc(str)=1 then Label1.Caption:=str;
  finally
    FreeLibrary(Lib);
  end;
end;

код длл:

var s:PChar;

function DllProc(str1:PChar):integer;stdcall;
begin
   s:=PChar('Текст из dll');
   str1:=s;
   Result:=1;
end;

По идее должно тоже работать, ведь s тоже будет жить пока жива длл? Но оно все равно не работает... как правильно это, допишите плиз.....

[sprofxx]

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

А не легче тогда в DLL использовать не процедуру, а функцию, которая и возвратит в основную прогу строку?!

Я хочу чтобы значения переменных в основной программе не зависили от подключенных или отключенных dll.


При этом всем как используется GetWindowText... часто разработчики даже не выделяют память для переменной PChar, а просто объявляют ее, в моих экспериментах это вызывало исключения, поэтому я подумал что может сама функция как то умеет это делать. И еще не ясно как заполнять указатель переданный в функцию, каким оператором? str^:='бла бла' ведь не то....

[MaxNik2009]

Попробуй вот так:

procedure TForm1.Button1Click(Sender: TObject);
var Lib: Cardinal;
    DllProc: function(str1:PChar):PChar; stdcall;
    str:string;
begin
  Lib := LoadLibrary('MyDll.dll');
  if Lib <> 0 then
  try
    @DllProc := GetProcAddress(Lib, 'DllProc');
    if @DllProc<> nil then 
    begin
      
      Label1.Caption:=StrPas(DllProc('Запрос');
    end;
  finally
    FreeLibrary(Lib);
  end;
end;


///// dll

function DllProc(str1:PChar):PChar;stdcall;
var
  s: string;
begin
   if StrPas(str1) = 'Запрос' then
   s:='Ответ';
   Result:=PChar(s);
end;

[Пепел Феникса]

По идее должно тоже работать, ведь s тоже будет жить пока жива длл? Но оно все равно не работает... как правильно это, допишите плиз.....

и не будет, либо добавьте var к параметру и создайте новую строку(strnew вроде. или GetMem + CopyMemory(или чтото иное для копирования, на ваш выбор))
но вообще это на самом деле тоже самое что я написал, только через Ж...

Хм... тогда если мы хотим независимости от dll, то реализовывается моим способом из первого поста (вы не ответили о правильности)?...

верно, практически.
вот вам пример функции подобной GetWindowText
Модуль программы

function GetConstLen:integer;stdcall;external 'My.Dll';
procedure GetConst(p:PChar);stdcall;external 'My.dll';
//я использую статическую линковку.
procedure TForm1.Button1Click(Sender: TObject);
var p:PChar;
begin
 GetMem(p,(GetConstLen+1)*SizeOf(Char));
{для совместимости со всеми версиями Делфи, ибо символ Юникода это 2 байта а не один.(+1для терминального нуля)}
 p[GetConstLen]:=#0;//конец строки на всякий случай ставим в 0(на инициализацию не надеюсь)
 //, также индексация с нуля.
 GetConst(p);//функция скопирует свою строку в наш буфер.
 Label1.Caption:=p;
 FreeMem(p);//освободили память.
end;

Код ДЛЛ.

const
 str='Hello World!';

function GetConstLen:integer;stdcall;
begin
 Result:=Length(str);
end;

procedure GetConst(p:PChar);stdcall;
begin
 StrCopy(P,str);
end;

и еще один вариант.(я б сделал наверно так(по крайнем мере при межпоточном обмене, я использовал чтото подобное)).
код проги.

function GetConst:PChar;stdcall;external 'My.dll'

procedure TForm1.Button1Click(Sender: TObject);
var p:PChar;
begin
 p:=GetConst;
 Label1.Caption:=p;
 StrDispose(p);//освободили память которую выделила нам ДЛЛ
end;

код ДЛЛ

function GetConst:PChar;stdcall;external 'My.dll'
begin
 Result:=StrNew('Hello World!');
end;

Я хочу чтобы значения переменных в основной программе не зависили от подключенных или отключенных dll.

выгружать ДЛЛ в середине работу программы на мой взгляд не очень хороший тон.

[sprofxx]

благодарю, теперь все понятно!!!