Cita:
Empezado por dfarias
function Dll_GetDllVersion(var cadena): longword; external 'I:\PRUEBA\DLL_ACCESS_POINT.dll'
|
Creo que le falta el tipo a cadena: String o PChar.
Código Delphi
[-] function Dll_GetDllVersion(var cadena:[String/PChar]): longword; external 'I:\PRUEBA
Segundo si el tipo es PChar, te recomiendo hacer
Código Delphi
[-]procedure TForm1.VerVersionClick(Sender: TObject);
var
resultado:longWord;
aPChar : PChar;
begin
cadena:= '1234567890';
aPChar := StrAlloc(Length(Cadena)+1);
StrPCopy(aPChar,Cadena);
resultado:= Dll_GetDllVersion( aPChar);
Cadena:=StrPas(aPChar);
MensaPanta(resultado);
MensaPanta(cadena);
end;
Saludos y espero te sirva.
Un abrazo
Desde Concepcion-Chile