Problema creando una libreria.

[Suriu]

Estoy creando una librería la cual el código es parecido a este:

Código Delphi [-]

library Project1;
uses
SysUtils,
Classes,
Dialogs;
{$R *.res}
Type
TModo = (B64);
Function ESum(Datos: String; Value: Word; Modo: TModo): String; stdcall;
begin
case Modo of
B64: Result := 'uses b64';
end;
end;
exports
ESum name 'Do64';
 
begin
end.

Este se compila bien y para la cual e creado una unit de importación la cual uso en el proyecto:

Código Delphi [-]

unit Usescrypt;
interface
type
TModo = (B64);
const
ades = 'Project1.dll';
Type
TEncpt = function(Datos: String; Value: Word; Modo: TModo): String; stdcall;
function Base64(value : string) : string;
implementation
uses
Windows, Dialogs, SysUtils;
var
hencrypt : THandle;
_B64 : TEncpt;
function Base64(value : string) : string;
begin
If Assigned(_B64) then
Result := _B64(value,0,B64)
else
Result := 'No se pudo cargar la funcion';
end;
procedure comprueva;
begin
hencrypt := LoadLibrary(PChar(ades));
if hencrypt = 0 then
ShowMessage('no se pudo cargar la dll project1.dll')
else
@_B64 := GetProcAddress(hencrypt,'Do64');
end;
Initialization
comprueva;
Finalization
FreeLibrary(hencrypt);
end.
 
// application
 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Usescrypt;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Base64(Label1.Caption);
end;
end.

Hasta aquí todo funciona buen pero una vez el programa esta en tiempo de ejecución y después de llamar a la función exportada y que esta devuelve el resultado produce un error antes de finalizar el bloque de código del procedimiento, dicho error lo adjunto.

Les pido me expliquen por que sucede esto, pues e intentado de todo pero no e logrado solucionar el problema. Gracias de antemano por la ayuda…

[roman]

En DLLs no puedes usar funciones que usen parámetros string o devuelvan valores string. En principio, tienes que arreglártelas usando PChar en su lugar.

// Saludos

[cloayza]

Empezado por roman

En DLLs no puedes usar funciones que usen parámetros string o devuelvan valores string.

Querido Roman, creo que estas en un error.

Código Delphi [-]
library Project1;

{ 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. }

uses
  SysUtils,
  Classes;

{$R *.res}

begin
end.

Solo hay que hacer lo que indica el comentario e incluir junto con nuestro ejecutable la libreria BORLNDMM.DLL.

Yo prefiero como dices tu usar PChar.
Saludos

[roman]

Je, je, por eso dije, en principio

// Saludos

[cloayza]

Ahora comprendo...Solo lo dijiste para engañarnos!!!...

Un abrazo