[xanrias]

Здравствуйте уважаемые знатоки, хочу задать вопрос по dll в delphi. Вернее хочу увидеть пример кода, задача сдледующая, в библиотеку передаётся строка, обрабатывается функцией и возращается результат, тоже строка, функция выполняется динамически. Казалось бы что проще, но возникает проблема доступа к памяти, поиск по интернету вернул несколько вариантов решения, во первых почитать внимательно комментарий новосозданой dll, да sharemem использовать пробывал, как советуют, строка передаётся, но при выходе из программы всё равно выскакивает ошибка, при использовании pchar, возращаются неверные данные (не имею опыта использования pchar), использовать widestring (брал по примеру на каком то форуме), даёт ошибку памяти сразу при вызове функции, вообщем ответа по различным запросам в поиске я не нашёл, кто может показать рабочий пример кода по моей задаче?

[lmikle]

Код:

// DLL
procedure ProcStr(AIn : PChar; AOut : PChar);
begin
  StrCopy(AIn, AOut);
end;

// Вызов
var
  AIn, AOut : PChar;
begin
  AIn := 'aaa';
  GetMem(AOut,StrLen(AIn)+1);
  ProcStr(AIn,AOut);
  ...
  FreeMem(AOut, StrLen(AIn)+1);
end;

При этом AIn и AOut должны быть инициализированны в вызывающем коде. Если у тебя другая длинна выходной строки, то надо передавать внутрь размер буфера, а на выходе еще получать код возврата в виде размера требуемой памяти (как в WinAPI):

Код:

// DLL
function ProcStr(AIn : PChar; Buf : PChar; BufLen : Integer) : Integer;
begin
  Resul := 0; // Success
  If BufLen >= StrLen(AIn) 
    Then StrCopy(Ain, AOut)
    Else Result := StrLen(AIn);
end;

// Вызов
var
  AIn, AOut : PChar;
  szLen : Integer;
begin
  AIn := 'aaa';
  szLen := 0;
  Repeate
    GetMem(AOut,szLen);
    szLen := ProcStr(AIn, AOut, szLen);
  Until szLen = 0;
  ...
  FreeMem(AOut,szLen);
end;

Если все-таки хочется выделять память в DLL, то надо сделать специальнцю функцию в DLL, которая будет освобождать выделенну. в DLL память. Пример писать не буду, бо как просто - вызов FreeMem переноситься в DLL.

[xanrias]

создал библиотеку

Код:

library Project2;

uses ShareMem,SysUtils, Classes;

procedure ProcStr(AIn : PChar; AOut : PChar);
begin
  StrCopy(AIn, AOut);
end;

exports ProcStr;
begin
end.

пробую вызывать

Код:

unit Unit1;

interface

uses
  sharemem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
     Form1: TForm1;
     ProcStr:procedure (AIn : PChar; AOut : PChar);
     LibHandle: THandle;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  AIn, AOut : PChar;
begin
  @ProcStr := nil;
  LibHandle := LoadLibrary('project2.DLL');
  {Если все OK}
  if LibHandle >= 32 then begin
    @ProcStr := GetProcAddress(LibHandle,'ProcStr');
    if @ProcStr <> nil then
  AIn := 'aaa';
  GetMem(AOut,StrLen(AIn)+1);
  ProcStr(AIn,AOut);
  ShowMessage(AOut);
  end;
  FreeLibrary(LibHandle);
  FreeMem(AOut, StrLen(AIn)+1);
end;

end.

получаю ошибку памяти.

[AND_REY]

Простой примерчик, проверял работает:
Длл:

Код:

Library MyDLL;

Uses SysUtils;

Function ProcStr(AIn: PChar): PChar;
Var
 T: PChar;
begin
 T:= PChar('Надпись: ' + AIn);
 Result:= T;
end;

Exports ProcStr;
begin
end.

Вызов:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 ProcStr: Function(AIn: PChar): PChar;
 LibHandle: THandle;
 AIn: PChar;
begin
 LibHandle:= LoadLibrary('Project1.dll');
 @ProcStr:= GetProcAddress(LibHandle, 'ProcStr');
 AIn:= PChar(Edit1.Text);
 ShowMessage(ProcStr(AIn));
 FreeLibrary(LibHandle);
end;

[xanrias]

Большое спасибо всем кто помог.
Работает, но при выходе из программы всё так же получаем ошибку памяти, вот на другом форуме с исходниками, если кому потребуется.
http://www.cyberforum.ru/delphi-begi...tml#post899869