crear una dll
 

hace muchos años que no toco delphi.
me han pedido que haga una dll que utilice sólo datos simples (cadenas y números)

las llamadas a procedimientos tienen que poder recibir parámetros por referencia, es decir, poder modificar su contenido.

... y no se por donde empezar.
os agradecería ayuda.

Puedes empezar por mirar el ejemplo que te adjunto.

Hola,

También puedes echar un vistazo a los "Temas similares" a este hilo que puedes ver abajo de esta misma página. Y/o utilizar el buscador de los Foros, puesto que se ha tratado el tema que te preocupa en más de una ocasión.

Muchas gracias
 

La verdad es que estoy perdido con el tema de qué parámetros se pueden pasar. Teniendo en cuenta que va a ser llamada por aplicaciones hechas en otros lenguajes y que algunos de ellos serán llamadas por referencia (es decir, modificarán su contenido).

Lo miraré a ver si me aclara más, tiene buena pinta.

PChar o cadenas
 

Sigo "navegando" y por lo que entiendo parece que sólo puedo usar este tipo de dato para enviar/recibir cadenas si quiero que otra aplicación , por ejemplo hecha en VBasic6, C++ pueda realizar las llamadas.

¿Es correcto? ¿Y para los enteros PInt?¿Para los decimales?

Perdonad mi torpeza, pero ya digo hace siglos que no toco Delphi y me está costando un rato.

:confused: ¿cual tipo de dato? supongo que te referís a pchar. Si es así, pues si, solamente podes usarlo para cadenas.

Para los enteros, Integer, para los "decimales", podes elegir entre Real48, Real, Double y Extended, usando en todo caso un tipo de datos equivalente en el otro lado (desconozco visual basic, por lo que no puedo ayudarte en este punto, pero supongo que existirán por lo menos los tipos integer y double).

Hasta luego.

;)

Hola,

En este mensaje se menciona un tutorial sobre "DLLs" en Delphi que me parece que puede al menos echarte una buena mano. ;)

Gracias, pero sigo atascado con los enteros.
 

Reconozco mi torpeza pero aún no entiendo bien cómo va.
El problema creo que viene porque quiero llamar la dll tanto desde delphi como desde vbasic

es algo tan sencillo como
(delphi)
procedure SetLastCode(newcode :LongInt);stdcall;export;
begin
code:=newcode; //donde code es una vbl. de la dll
end;

vbasic
...
Dim code As Long
If IsNumeric(Text2.Text) Then
code = CLng(Text2.Text)
SetLastCode code
End If
...
Aparentemente funciona (no da error) pero cuando recupero el valor me devuelve 1242776, cuando le dije 69. Y siempre me devuelve ese valor. No se si es que tiene que ser un LongInt, un integer (tb lo probé) o lo que.

¿donde te "devuelve" dicho valor... :confused: :confused:

Pues hombre, es que si pides un 69, te arriesgas a cualquier clase de respuesta. :D

// Saludos

Parece que he dado con la solución
 

... y digo parece porque hasta que lo pruebe un poco más no me lo creo.:)

La forma en la que he conseguido que VBasic "lea" y "escriba" correctamente los números es con PInteger.
Así que

• PChar, en Delphi, equivale a String en VB
• PInteger, en Delphi, equivale a Long en VB

Como no necesito, de momento, más que estos datos, como que voy a pasar de seguir volviéndome loco con decimales u otros.
En todo caso gracias por vuestra ayuda :) y disculpad mi torpeza.:p

Ejemplo final

procedure SetUrl(direccion: PChar);stdcall;export;
var
strURL:string;
begin
//inicializacion de variable. (no se puede asignar directamente).
strURL:='';
//asignación del valor nuevo
strURL:=direccion;
//creación de la variable con el nuevo valor.
url:=PChar(strURL);
end;
function GetURL():PChar;stdcall;export;
var
url:string;
begin
url:=ThumbPrint;
GetURL:=PChar(url);
end;
function GetLastCode():PInteger;stdcall;export;
begin
GetLastCode:=PInteger( lastCode);
end;

y en vbasic me creo un módulo para las dll.
Public Declare Sub SetUrl Lib "C:\pruebas\delphi\vb\DLLAtidenet.dll" (ByVal direccion As String)
Public Declare Function GetUrl Lib "C:\pruebas\delphi\vb\DLLAtidenet.dll" () As String
Public Declare Function GetLastCode Lib "C:\pruebas\delphi\vb\DLLAtidenet.dll" () As Long

y en el formulario llamo a las funciones.
Dim direccion As String
Dim code As Long
direccion = Text1.Text
SetUrl direccion

code = GetLastCode
Text2.Text = CStr(code)

y añadiendo un poquitito más.
 

Parte del problema es el modo de pasar los valores, como decía en el post anterior PChar, PInt, porque si no empezarán los problemas.

Pero también hay que tener mucho cuidado con como asignamos valores. En una función que pase parámetros por referencia, o en una función que devuelve algo, hay que fijarse en cómo se le asigna el valor.
Por ejemplo
Si tengo esta función
procedure GetDocumentListResponseDoc(
docIndex:PLongint ;
var documentID:PLongint;
var superState:PChar;
var state: PChar;
var format:PChar;
var submissionDate:PChar;
var documentNumber:PChar;
var documentFunction:PChar;
var docType:PChar;
var companyName:PChar;
var identityCount:PLongint);stdcall;export;

No se puede cojer directamente y hacer algo así
superState:=PChar('Nuevo');

en la segunda cadena se perderán los valores.:mad:
Os pongo la función para que la tengáis pues a mí me ha dado un buen dolor de cabeza :

procedure GetDocumentListResponseDoc(
docIndex:PLongint ;
var documentID:PLongint;
var superState:PChar;
var state: PChar;
var format:PChar;
var submissionDate:PChar;
var documentNumber:PChar;
var documentFunction:PChar;
var docType:PChar;
var companyName:PChar;
var identityCount:PLongint);stdcall;export;
var
cad:string; //variable para almacenar el resultado a guardar.
begin
documentID:=plongint(12);
cad:='';
cad:='OPEN';
superState:=PChar(cad);
cad:='';
cad:='NEW';
state:=PChar(cad);
cad:='';
cad:='XMLTLR';
format:=PChar(cad);
cad:='';
cad:='2005-0101';
submissionDate:=PChar(cad);
cad:='';
cad:='R99';
documentNumber:=PChar(cad);
cad:='';
cad:='ORIGINAL';
documentFunction:=PChar(cad);
// docType:=PChar('ORDER');
// companyName:=PChar('MyCompany');
identityCount:=PLongint(3);
end;

Offtopic...
 

chete, prueba a poner tu código delphi entre los TAG's [ delphi ]..[ /delphi ]
(sin los espacios), verás como la visualización mejora.

Revisa el uso de los TAG's.

:eek: :eek: pero claro!!! no me había dado cuenta del detalle. :D