строки в dll

[xanrias]

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

[GunSmoker]

Судя по:

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

использовать widestring ... даёт ошибку памяти сразу при вызове функции

Проблема у вас вовсе не в строках. Скорее всего, напутали в сигнатуре функции.

Показывайте код.

[xanrias]

library Project2;

uses ShareMem,SysUtils, Classes;

function info(str:widestring): WideString; stdcall; export;
begin
result:=str+'!';
end;

exports info;
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;
     info:function(s:WideString): WideString;
     LibHandle: THandle;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  {"×èñòèì" àäðåñ ôóíêöèè îò "ãðÿçè"}
  @info := nil;
  {Ïûòàåìñÿ çàãðóçèòü áèáëèîòåêó}
  LibHandle := LoadLibrary('project2.DLL');
  {Åñëè âñå OK}
  if LibHandle >= 32 then begin
    {...òî ïûòàåìñÿ ïîëó÷èòü àäðåñ ôóíêöèè â áèáëèîòåêå}
    @info := GetProcAddress(LibHandle,'info');
    {Åñëè è çäåñü âñå OK}
    if @info <> nil then
      {...òî âûçûâàåì ýòó ôóíêöèþ è ïîêàçûâàåì ðåçóëüòàò}
      ShowMessage(info('f'));
  end;
  {È íå çàáûâàåì îñâîáîäèòü ïàìÿòü è âûãðóçèòü DLL}
  FreeLibrary(LibHandle);
end;

end.

а не могли бы ы не оценивая что за бред я там только не писал =) набросать вкратце маленький примерчик?

From Stilet: Попрошу код оформлять спецтегом по кнопке #

[igh0st]

В dll

...
function MyFunction(Str: WideString): WideString; stdcall;
exports MyFunction;

implementation

{$R *.dfm}

function MyFunction(Str: WideString): WideString; stdcall;
begin
  // Текст тела функции
end;

В модуле формы

...
var
  MyFunction: function(Str: WideString): WideString; stdcall;

implementation

...

procedure TForm.Button1OnClick(Sender: TObject)
var
  LibraryHnd: THandle;
  MyFuncResult: WideString;
begin
  MyFuncResult := '';
  LibraryHnd := LoadLibrary('mylib.dll');
  try
    if LibraryHnd <> 0 then
      begin
        MyFunction := GetProcAddress(LibraryHnd, 'MyFunction');
        if Assigned(MyFunction) then
          MyFuncResult := MyFunction('Hello, world!');
      end;
  finally
    FreeLibrary(LibraryHnd);
  end;
  ShowMessage(MyFuncResult);
end;
...

[xanrias]

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

[chertovich]