Явная загрузка DLL

[FaTaL]

Пытаюсь явно загрузить DLL и выполнить функцию, но либо выдает ошибку Acess Volation, либо считает неправильно. Может я что забыл?
Код DLL

library Summ;

uses
  SysUtils,
  Classes;

function Summa (x:integer; y:integer):integer; stdcall;
begin
  result:=x+y;
end;

exports Summa;
{$R *.res}

begin
end.

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

unit Proga;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
dll : THandle;
Sum : function (x:integer; y:integer):integer;
begin
  @Sum:=nil;
  dll:=LoadLibrary('Summ');
  if dll<>0 then
    begin
      @Sum:=GetProcAddress(dll,'Summa');
      if @Sum<>nil then
        begin
          ShowMessage(IntToStr(Sum(5,2)));
        end else
        begin
          ShowMessage('Функция не найдена');
          exit;
        end;
    end else
    begin
      ShowMessage('DLL не найдена');
      exit;
    end;
end;

end.

[_SERGEYX_]

Добавь
function Summa (x:integer; y:integer):integer; external 'Summ.dll';

[alexBlack]

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

Пытаюсь явно загрузить DLL и выполнить функцию, но либо выдает ошибку Acess Volation, либо считает неправильно. Может я что забыл?

var dll : THandle;
    Sum : function (x:integer; y:integer):integer; stdcall;   // <- добавить stdcall как в dll
begin
  Sum:=nil;
  dll:=LoadLibrary('Summ');
  if dll<>0 then begin
     Sum := GetProcAddress(dll,'Summa');
     if @Sum <> nil then begin           
        ShowMessage(IntToStr(Sum(5,2)));
     end else begin
        ShowMessage('Функция не найдена');
        exit;
     end;
  end else begin
     ShowMessage('DLL не найдена');
     exit;
  end;
end;

2_SERGEYX_ . Тогда будет статическая загрузка, а ему нужно динамическую.

[FaTaL]

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

var dll : THandle;
    Sum : function (x:integer; y:integer):integer; stdcall;   // <- добавить stdcall как в dll
begin
  Sum:=nil;
  dll:=LoadLibrary('Summ');
  if dll<>0 then begin
     Sum := GetProcAddress(dll,'Summa');
     if @Sum <> nil then begin           
        ShowMessage(IntToStr(Sum(5,2)));
     end else begin
        ShowMessage('Функция не найдена');
        exit;
     end;
  end else begin
     ShowMessage('DLL не найдена');
     exit;
  end;
end;

2_SERGEYX_ . Тогда будет статическая загрузка, а ему нужно динамическую.

Спасибо. Вон он что оказывается забыл

[FaTaL]

И ещё вопросик. Если DLL загружать по пути вот так

dll:=LoadLibrary(ExtractFilePath(ParamStr(0))+'Summ');

То компилятор выдает ошибку
[DCC Error] Proga.pas(32): E2010 Incompatible types: 'string' and 'PWideChar'

Как исправить?

[alexBlack]

Вообще-то простое приведение:

dll:=LoadLibrary(PChar(ExtractFileP ath(ParamStr(0))+'Summ'));

только почему PWidePchar ? Должно быть PAnsiChar. Вы используете LoadLibraryW ?
тогда:

    S : WideString;
begin

  S := ExtractFilePath(ParamStr(0))+'Summ';
  dll:=LoadLibraryW(PWideChar(S));

[FaTaL]

Вы используете LoadLibraryW ?

Нет.

S : WideString;
begin

S := ExtractFilePath(ParamStr(0))+'Summ' ;
dll:=LoadLibraryW(PWideChar(S));

Сделал так, тоже работает.
dll:=LoadLibrary(PWideChar(ExtractF ilePath(ParamStr(0))+'Summ'));

Спасибо.

[FaTaL]

Ещё одни вопросик. Не начинал новую тему, потому что в принципе и в эту тему подходит.
Есть DLL с экпортируемой процедурой:

procedure FileSearch(FromPath:String; ToPath:String); StdCall;

Что дальше она делает не столь важно, скажу что ей нужны пути (происходит копирование).

Когда я её вызываю так, то всё нормально работает:

procedure TForm1.Button1Click(Sender: TObject);
var
Run  : procedure (FromPath:String; ToPath:String); StdCall;
DLL : THandle;
begin
Dll:=LoadLibrary('Copy.dll');
      if DLL=0 then
        begin
          ShowMessage('DLL не найдена');
          exit;
        end else
        begin
          @Run:=GetProcAddress(DLL,'FileSearch');
          if @Run<>nil then
            begin
              Run('C:\Archiv\','C:\Arch22222\');
            end else
            ShowMessage ('Функция не найдена');
        end;

end;

Но когда её вызываю ещё через другую процедуру, она не пашет:
Сама процедура вызова:

procedure CallDll (FFrom:String; TTo:String);
var
DLL : THandle;
Run : procedure (FromPath:String; ToPath:String); StdCall;
begin
  DLL:=LoadLibrary('Copy.dll');
  If DLL<>0 then
    begin
      @Run:=GetProcAddress(DLL, 'FileSearch');
      If @Run<>nil then
        begin
          Run(FFrom,TTo);
        end else
         MessageBox(Application.Handle, 'Нужная функция не найдена', 'Ошибка', mb_OK or mb_IconError);
    end else
    MessageBox(Application.Handle, 'Не найдена библиотека Copy.dll', 'Ошибка', mb_OK or mb_IconError);
  FreeLibrary(DLL);
end;

Вызов процедуры вызова:

CallDLL('C:\Archiv\','C:\Arch22222\'));

В чем может быть проблема?

[alexBlack]

В первом случае -
Run('C:\Archiv\','C:\Arch22222\');

нет распределения памяти под строки. Во втором - есть.
Возможно ShareMem не подключен или не первый в списке uses.

[FaTaL]

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

В первом случае -
Run('C:\Archiv\','C:\Arch22222\');

нет распределения памяти под строки. Во втором - есть.
Возможно ShareMem не подключен или не первый в списке uses.

И как это решить?