Загрузка функции из dll библиотеки

[tito tarantula]

Программа для ввода пароля должна вывести в Label1 сообщение о корректности введенного пароля. Проверяю работу dll библиотеки. Оба файла проектов скомпилировались без проблем, а вот Label1.Caption не отображается(не изменяется)
Вот код первого проекта:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

function checkPassword(password: string): string;
external 'Project2.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= checkPassword(Edit1.Text);
end;

end.

Вот код второго проекта(библиотеки):

library Project2;

uses
  SysUtils,
  Classes;

{$R *.res}
function checkPassword(password: string): string;
begin
  if password = 'admin' then
    begin
      result:= 'correct'
    end
  else
    begin
      result:= 'incorrect'
    end;
end;
exports checkPassword;

begin
end.

Попутно задаю вопрос №2:
После открытия .dll файла через WordPad(по глупости), не заметив галочки "использовать выбранную программу для всех файлов такого типа", все файлы этого типа по умолчанию стали открываться через WordPad. Можно ли вернуть "никакую" программу по умолчанию? И может ли это повлиять на работу программ, использующих эти библиотеки(Пока не обнаружил)?

[kropotkina-alice]

1. Строки:

function checkPassword(password: string): string;
external 'Project2.dll';

следует перенести выше, до слова implementation

Выделенное голубеньким обычно не указывается...

2. В редакторе реестра найдите (поиском) параметр .dll (слева), у которого среди значений (справа) будет WordPad и смело удалите такие значения (справа).

[phomm]

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

[tito tarantula]

1)Все сделал как говорите - ничего не помогло(
ShareMem добавил в оба файла, использовал, даже ShortString -нифига.
2)Зашел в редактор реестра, но там программы не отображаются.
Зашел "сопоставление типов файлов или протоколов конкретным программам", но там редактировать (удалить выбранную программу) нельзя, только заменить другой.

[kropotkina-alice]

Не поленилась - проверила. С моими поправками ваш код работает, но вылетает ошибка Invalid pointer operation.
Дело в том, что обмен строковыми переменными с DLL в дельфи реализован с ошибкой, поэтому нужно использовать не string, а PChar, тогда всё будет работать как нужно.
Вот ваш изменённый код, проверенный - работает без ошибок...

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function checkPassword(password: string): PChar; external 'Project4';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=StrPas(checkPassword(Edit1.Text));
end;

end.

DLL:

library Project4;

uses
  SysUtils,
  Classes;

{$R *.res}
function checkPassword(password: string): PChar;
begin
  if password = 'admin' then
    begin
      result:= 'correct'
    end
  else
    begin
      result:= 'incorrect'
    end;
end;

exports checkPassword;

begin
end.

[northener]

Сообщение от kropotkina-alice

Дело в том, что обмен строковыми переменными с DLL в дельфи реализован с ошибкой

Сильно сказано. И с какой именно ошибкой? Вы это выяснили?
И кстати. Шаблон для DLL создаваемый Delphi при выборе New->DLL вы когда-нибудь видели?
P.S. То что ТС утверждает что он якобы

ShareMem добавил в оба файла

ещё ничего не значит. Измененный код он не показал.

[kropotkina-alice]

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

Сильно сказано. И с какой именно ошибкой? Вы это выяснили?

Это известно уже давно, в своём неведении вы, наверное, одиноки...
Попытайтесь освоить приёмы поиска информации в интернете - узнаете много нового и неизведанного...

[tito tarantula]

Странно, но у меня та же ситуация как и прежде, плюс еще получаю предупреждение от компилятора: [Warning]Unit1.pas(25): Unsave tipe ‘Pchar’ и переодически ошибка с Invalid pointer operation дополняется ошибкой:Runtime error 217 at 00413E30

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function checkPassword(password: string): Pchar;
  external 'Project2';

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= StrPas(checkPassword(Edit1.Text));
end;

end.

DLL:
library Project2;

uses
  ShareMem,
  SysUtils,
  Classes;

{$R *.res}
function checkPassword(password: String): Pchar;
begin
  if password = 'admin' then
    begin
      result:= 'correct'
    end
  else
    begin
      result:= 'incorrect'
    end;
end;
exports checkPassword;

begin
end.

[tito tarantula]

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

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

Вот комент, правда мне он никак не помог
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

[Человек_Борща]

Для результата используйте Boolean, вместо string, используйте WideString.