19 respuestas en este tema

[Caral]

Hola
Estoy empezando con esto de la dll y viendo ejemplos pero no entiendo.
Tengo esto:
DLL

delphi

uses SysUtils, Classes, Dialogs;
 
{$R *.res}
 
Procedure Naty(nada: string); export;
 
begin
  nada:= 'hola';
  ShowMessage(nada);
end;
 
exports Naty;
 
begin
end.

La dll envia un mensaje, eso lo hace bien, pero lo que quiero es recibir el dato.

Lo llamo asi:

delphi

procedure Naty(nada: String); external 'Caral1.dll';
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Naty(nada);
   Showmessage(nada);
end;

Me muestra primero el mensaje de la dll bien, pero no me muestra el dato.

Me explicais como puedo obtener el dato de un string de una dll.?
Saludos

[egostar]

Lo que pasa es que estas usando un procedimiento (que ejecuta correctamente) pero 'nada' no existe a menos que uses una función que regrese un valor.

delphi

library Caral;
 
uses
  SysUtils,
  Dialogs,
  Classes;
  
{$R *.res}
 
Function Naty(nada: string):string; export;
 
begin
  ShowMessage(nada);
  result := 'Regresa cadena: ' + nada;
end;
 
exports Naty;
 
begin
end.

y ahora si lo llamas desde tu programa

delphi

   function Naty(nada: String):string; external 'Caral.dll';
 
procedure TForm1.Button1Click(Sender: TObject);
var
  CadenaDLL: string;
begin
  CadenaDLL := Naty('Prueba de Mensaje desde DLL');
  ShowMessage(CadenaDLL);
end;

Salud OS

[Caral]

Hola
Funciona a medias.
Me sale un error de invalid pointer operation.
No se por que.
Saludos

[Caral]

Hola
A ver que estoy haciendo mal:
DLL

delphi

uses SysUtils, Classes, Dialogs;
 
{$R *.res}
 
Function Naty(dato: string):string; export;
begin
  dato:= 'hola';
  result := dato;
end;
 
exports Naty;
 
begin
end.

La llamo asi:

delphi

  function Naty(dato: String):string; external 'Caral1.dll';
 
procedure TForm1.FormCreate(Sender: TObject);
var dato2: string;
begin
  dato2 := Naty(' ');
  ShowMessage(dato2);
end;

Saludos

[egostar]

No entiendo porqué quieres reasignar la variable dato dentro de la función Naty....

delphi

Function Naty(dato: string):string; export;
begin
  dato:= 'hola'; // No entiendo esto
  result := dato;
end;

Yo haría esto....

delphi

Function Naty(dato: string):string; export;
begin
  if dato = ' ' then
     result := 'nada'
  else result := dato;
end;

delphi

  function Naty(dato: String):string; external 'Caral1.dll';
 
procedure TForm1.FormCreate(Sender: TObject);
var dato2: string;
begin
  dato2 := Naty(' ');
  ShowMessage(dato2);
  dato2 := Naty('algo');
  ShowMessage(dato2);
end;

Salud OS

[Caral]

Hola
A ver si me hago entender.
Lo que quiero es que la dll tenga un dato, en este caso string 'hola'.
Cuando llame a la dll desde el programa, quiero recibir ese dato, osea el hola.
Es asi o no se puede?
Saludos
Gracias por la ayuda amigo

[egostar]

Todo se puede amigo, el asunto es para que envias un dato a la dll si no vas a hacer nada con ese dato, si lo que quieres es enviar solo 'hola', puedes hacer esto

delphi

Function Naty(dato: string):string; export;
begin
  result := 'hola';
end;

Simplemente ignoras la variable dato, que como lo veo de nada te sirve o de plano quitarla

delphi

Function Naty:string; export;
begin
  result := 'hola';
end;

Salud OS

[kafastoforman]

Que tal caral, si solo deseas que te regrese un dato creo que podrias intentarlo asi

delphi

Function Naty:string; export;
begin
  
  result := 'hola';
 
end;

 

y al llamarlo

delphi

  function Naty:string; external 'Caral1.dll';
 
procedure TForm1.FormCreate(Sender: TObject);
var dato: string;
begin
  dato2 := Naty;
  showmessage(dato2);
end;

o

delphi

  function Naty:string; external 'Caral1.dll';
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage(Naty);
end;

A mi muy peculiar punto de vista

Saludos

Kafastoforman

[egostar]

Pues si, asi es de fácil.

Te adjunto mi ejemplito.

Salud OS

Archivos adjuntos

•  1236_23af496160d3fbfc0096447d3f6255d5b61b2ecf.zip   5,89KB   9 descargas

[luk2009]

Hola
Funciona a medias.
Me sale un error de invalid pointer operation.
No se por que.
Saludos

Pues a mi me da el mismo error el ejemplito de egostar al salir de la aplicacion

[seoane]

Hola
Funciona a medias.
Me sale un error de invalid pointer operation.
No se por que.
Saludos

Cuando se trabaja con cadenas de tipo string en una dll, hay que añadir la unit SharedMem al principio de las uses del proyecto.

Como bien dice la ayuda de delphi

Shared-Memory Manager (Win32 Only)
On Win32, if a DLL exports routines that pass long strings or dynamic arrays as parameters or function results (whether directly or nested in records or objects), then the DLL and its client applications (or DLLs) must all use the ShareMem unit. The same is true if one application or DLL allocates memory with New or GetMem which is deallocated by a call to Dispose or FreeMem in another module. ShareMem should always be the first unit listed in any program or library uses clause where it occurs.

[egostar]

Hola
Funciona a medias.
Me sale un error de invalid pointer operation.
No se por que.
Saludos

Pues a mi me da el mismo error el ejemplito de egostar al salir de la aplicacion

Ah caray, a mi no me da ningún tipo de error, y eso que lo estoy haciendo con Delphi4

Salud OS

[Delphius]

Eliseo,
Al archivo zip de muestra le faltó algo importante.... ¡la dll!

Por otra parte... ¿que no es que hay que hacer un loadLibrary/FreeLibrary?

Saludos,

[egostar]

Eliseo,
Al archivo zip de muestra le faltó algo importante.... ¡la dll!

Por otra parte... ¿que no es que hay que hacer un loadLibrary/FreeLibrary?

Saludos,

No faltó amigo, la dll se llama Caral y la debes de compilar, así como ejecutar el Project1

El load/free library es cuando la DLL es cargada dinámicamente ¿no?

Salud OS

[Delphius]

Hola Amigo,
No te enojes si te digo que falta la dll. Porque he bajado tu proyecto y cuando compilo me dice que falta la dichosa dll. Además me he tomado la molestia de ver si realmente está entre los archivos y tengo la total certeza de que no está.

Respecto a LoadLibrary/FreeLibrary lo dije porque en muchos ejemplos que he visto hacen uso de esto... Yo también tengo entendido que eso se emplea cuando se carga dinámicamente... pero los ejemplos me hacen dudar.

Saludos,

[egostar]

Hola Amigo,
No te enojes si te digo que falta la dll. Porque he bajado tu proyecto y cuando compilo me dice que falta la dichosa dll. Además me he tomado la molestia de ver si realmente está entre los archivos y tengo la total certeza de que no está.

Respecto a LoadLibrary/FreeLibrary lo dije porque en muchos ejemplos que he visto hacen uso de esto... Yo también tengo entendido que eso se emplea cuando se carga dinámicamente... pero los ejemplos me hacen dudar.

Saludos,

Acabo de bajar el zip y ahí están los archivos, solo tienes que compilar caral.dpr para generar la dll

Salud OS

Archivos adjuntos

•  1239_80627a21f357284150ba50a9e5647f92852e3a31.jpg   75,99KB   2 descargas

[Delphius]

Ha... Me faltó ese detalle... Yo compilé Proyect1
Entonces, retiro lo dicho.

Ya probé el demo y si, funciona. Y como dicen los chicos, al cerrar tu aplicación viene la excepción invalid pointer operation.

¿Será lo que dice Domingo?
Pues... añadí ShareMem e igual apareció el error.

Saludos,

[egostar]

Vaya, que cosas, les adjunto el EXE y la DLL a ver si es por su versión de Delphi, a mi no me da ningún problema

Salud OS

Archivos adjuntos

•  1241_e36ee2d29b6e041e53e78dae006e60b27509a638.zip   306,38KB   5 descargas

[Delphius]

Pues ahora si funca.
He probado tu Bin.zip y no se ve el error. Aparentemente algo ha cambiado en la forma de trabajar con las dlls de D4 a D6.

Saludos,

[egostar]

Pues ahora si funca.
He probado tu Bin.zip y no se ve el error. Aparentemente algo ha cambiado en la forma de trabajar con las dlls de D4 a D6.

Saludos,

Pues no, acabo de compilar la DLL y el EXE con Turbo Delphi y tampoco me muestra error

Deberían de checar sus máquinas

Salud OS