Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Funcion dentro de una DLL (https://www.clubdelphi.com/foros/showthread.php?t=83416)

Fita 15-06-2013 18:59:56

Funcion dentro de una DLL
 
Hola a todos.
Estoy incursionando en la creación de dll's para mis aplicaciones y me encuentro con el siguiente problema.
Una de las funciones que he pasado desde mi aplicación a la dll llama a otra función que debe estar dentro de la misma dll.
Ejemplo:

function CreaCadena(nEmpresa: integer);
var cCadena: string;
begin
cCadena := cCadena + '1';
cCadena := cCadena + intTostr(Get_Digito(nEmpresa));
end;

Get_Digito es una función que debe estar en la dll ya que es utilizada solamente por la funcion que la llama .

Como se declara?

Muchas gracias por adelantado
Saludos

cloayza 15-06-2013 19:17:07

Código Delphi [-]

library Tu_Libreria;                           
                                              
uses                                          
  SysUtils,                                   
  Classes;                                            
{$R *.res}                                    
                                              
function Get_Digito(nEmpresa:Integer):Integer;
begin
       //Tu  codigo...
end;

function CreaCadena(nEmpresa: integer):String;stdcall;
var cCadena: string;
begin
       cCadena := cCadena + '1';
       cCadena := cCadena + intTostr(Get_Digito(nEmpresa));
end;                                              
                                              
Exports                                       
         CreaCadena;           
begin                                         

end.

Saludos cordiales

Fita 15-06-2013 19:43:02

Muchas Gracias Cloayza !!

abrazo
Fita


La franja horaria es GMT +2. Ahora son las 14:45:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi