crear una dll

[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.

[jachguate]

Empezado por chete

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

[roman]

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

// Saludos

[chete]

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

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)

[jachguate]

Empezado por roman

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

// Saludos

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