Problemita DLL

[jachguate]

Empezado por delphi.com.ar

Yo pensaría en replantear el tipo de dato

Es que hay un sabido inconveniente entre los Strings al estilo delphi y las DLL's. Podes usar pchar, o bien strings al estilo pascal (sin contador de referencias y memoria dinámica, pero limitados a 255 caracteres).

Si insistis en usar strings, mirate la ayuda de la unidad ShareMem.

Empezado por delphi.com.ar

y si quieres pasar clases, te recomendaría utilizar BPL´s en lugar de DLL´s.

Pues yo he usado dll's sin mayores problemas, pero tampoco muy extensamente... ¿porque bpl's y do dll's?

Hasta luego.

[NeWNeO]

He modificado String por PChar y si que se envia el resultado, pero una vez gestionado saca un error, pero esta vez en lugar de en el dll en el archivo exe...

Código Delphi [-]

procedure TForm1.RunClick(Sender: TObject);
var
h: THandle;
title: function(Sender: TObject):PChar; stdcall;
begin
 DLLControl1.LibDir := GetCurrentDir;
 h := DLLControl1.AllocateDLL('dllfile.dll');
 if h  = 0 then showmessage('File not found');
 if DLLControl1.CheckFunction(h,'Test',@title) then showmessage(Title(Self))  else showmessage('Process not found');
 DLLControl1.DeallocateDLL(h);
end;

Gracias

[delphi.com.ar]

Empezado por jachguate

¿porque bpl's y do dll's?

Simplemente porque las BPL´s han sido diseñadas con este propósito... No se que pasará con el versionamiento en DLL´s comunes, supongo que es un access violation asegurado .

[NeWNeO]

He eliminado el Stdcall de la función y ahora funciona al 100% usando PAnsiChar.

Código Delphi [-]
title: function(Sender: TObject):PAnsiChar; Stdcall;