crear una dll

[Neftali [Germán.Estévez]]

Puedes empezar por mirar el ejemplo que te adjunto.

[dec]

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.

[chete]

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.

[chete]

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.

[jachguate]

Empezado por chete

Sigo "navegando" y por lo que entiendo parece que sólo puedo usar este tipo de dato para enviar/recibir cadenas

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

Empezado por chete

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

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.

[dec]

Hola,

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

[chete]

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.