¿como hacer dll c puro en bcb2010 y loader en delphi 2010?

[JXJ]

hola

LoPiTaL

gracias por tu atencion.
aun me queda un problema


una duda sobre la variable que recibe el valor de la dll
arregle asi

Código Delphi [-]
unit Unit1;

interface

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

type
    TDLLFunc = function(param1: PAnsiChar ; param2: PAnsiChar ; param3: PAnsiChar ; param4: PAnsiChar ): AnsiChar  ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    EurekaLog1: TEurekaLog;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  { assign a nil - not loaded function }

  {assign a nil - not loaded function}
 const
   DLLFunc: TDLLFunc = nil;
   DLLName = 'inicio.DLL';
 {handle of loaded dll}
 var
  DLLHandle: THandle;

implementation

{$R *.dfm}
function suma(parametro1: PAnsiChar ; parametro2: PAnsiChar ; parametro3:PAnsiChar ; parametro4:PAnsiChar ): AnsiChar;
              stdcall; far; external 'inicio.DLL';

procedure TForm1.FormCreate(Sender: TObject);
var
  resultadosuma: string;
begin
  DLLHandle := LoadLibrary(DLLName);

  if (DLLHandle < HINSTANCE_ERROR) then
    raise Exception.Create(DLLName + ' library can not be loaded or not found. ' + SysErrorMessage(GetLastError));
  try
    @DLLFunc := GetProcAddress(DLLHandle, 'suma');
    if Assigned(DLLFunc) then
    begin

resultadosuma :=    suma(
                     PansiChar(AnsiString('a1')),
                     PansiChar(AnsiString('b2')),
                     PansiChar(AnsiString('c3')),
                     PansiChar(AnsiString('d4'))
                     );
    end;
  finally
    FreeLibrary(DLLHandle);
  end;

   ShowMessage( ' el resultado es '+ resultadosuma);

end;

end.

Código Delphi [-]
var
  resultadosuma: string;
begin

   ShowMessage( ' el resultado es '+  resultadosuma);
end

en el show message obtengo un 3

y se supone que deberia de ser un 3333

bueno una cadena de cuatro 3

en delphi 2010 no me dejsa usar strpas


que no se puede llamar con esos argumentos

Código Delphi [-]
var
  resultadosuma: string;
begin

   ShowMessage( ' el resultado es '+ StrPas(resultadosuma));
end

[LoPiTaL]

Hola!
Veo varias cosas mal en tu código, te comento:

Código Delphi [-]
 const
   DLLFunc: TDLLFunc = nil;
   DLLName = 'inicio.DLL';

DLLName sí que es constante. DLLFunc es una variable.... primero apunta a nil, y después a la dirección de la función en la DLL. Por tanto, cámbialo por:

Código Delphi [-]
 var
   DLLFunc: TDLLFunc = nil;
const
   DLLName = 'inicio.DLL';

Segundo, estás liándote con la carga de la DLL. Puedes cargar una DLL de dos formas:
Así, siendo la carga automática (la palabra far te sobra....):

Código Delphi [-]
function suma(parametro1: PAnsiChar ; parametro2: PAnsiChar ; parametro3:PAnsiChar ; parametro4:PAnsiChar ): AnsiChar;
              stdcall; external 'inicio.DLL';

procedure TForm1.FormCreate(Sender: TObject);
var
  resultadosuma: string;
begin
resultadosuma :=    suma(
                     PansiChar(AnsiString('a1')),
                     PansiChar(AnsiString('b2')),
                     PansiChar(AnsiString('c3')),
                     PansiChar(AnsiString('d4'))
                     );
end;

O de esta otra forma, que sería manual:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  resultadosuma: string;
begin
  DLLHandle := LoadLibrary(DLLName);

  if (DLLHandle < HINSTANCE_ERROR) then
    raise Exception.Create(DLLName + ' library can not be loaded or not found. ' + SysErrorMessage(GetLastError));
  try
    @DLLFunc := GetProcAddress(DLLHandle, 'suma');
    if Assigned(DLLFunc) then
    begin
//NOTAR QUE LLAMO A LA VARIABLE DLLFUNC, y no a la función que habías definido "suma"
resultadosuma :=    DLLFunc(
                     PansiChar(AnsiString('a1')),
                     PansiChar(AnsiString('b2')),
                     PansiChar(AnsiString('c3')),
                     PansiChar(AnsiString('d4'))
                     );
...
  end;
end;

pero no de las dos formas a la vez!!!

Las dos son igual de válidas, pero si usas la primera, si la librería no existe tu aplicación no arrancará, mietras que si usas la segunda puedes controlar esto y hacer otras cosas, o no usar la funcionalidad que proporciona etc... La más sencilla es la primera, por supuesto.

Tercero:
StrPas recibe un PChar (o PAnsiChar) como parámetro y devuelve un string. Por supuesto no puedes hacer StrPas(resultadosuma), ya que resultadosuma es string, no PAnsiChar. Para usarlo bien deberás usarlo así:

Código Delphi [-]
var
  LStringAMostrar: string;
begin
  LStringAMostrar:=StrPas(suma(...));  //Tal como tienes el código ahora te dará error. Sigue en punto cuatro...
end

Cuarto:
Si quieres que suma devuelve una cadena de texto, NOOOOO puede devolver AnsiChar, ya que AnsiChar es un carácter sólo!!! Deberá devolver un PAnsiChar, exactamente igual que lo harías en c. Ahora tendrás un puntero a una cadena, el cual puedes pasarle a StrPas para que te genere la string correcta.

Creo que eso es todo....

Un saludo,
LoPiTaL