Ver Mensaje Individual
  #4  
Antiguo 12-11-2008
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Cita:
Empezado por dfarias Ver Mensaje
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
Responder Con Cita