Ver Mensaje Individual
  #14  
Antiguo 20-07-2006
Avatar de ppb
[ppb] ppb is offline
Miembro Premium
 
Registrado: jun 2005
Ubicación: España
Posts: 109
Reputación: 19
ppb Va por buen camino
"Repito que ha salido un churro."

Puedes hacer in "cast" en la llamada a la función o mover los
datos;

Código Delphi [-]

// CAST 
Var  
  pantalla : String;  
  longitud : integer;
Begin      
 
  captura_pantalla(1,Pchar(pantalla),longitud,0);    ........
 
// Mover datos 
Var  
  pantalla : Pchar;  
  Buffer    : Array [0..???] Of char;  
  longitud : integer;  
  s : String;
Begin   
 
  pantalla := @Buffer;    
 
  captura_pantalla(1,pantalla,longitud,0);  
 
  Move( buffer , @s[1] , longitud ); // no se si tienes que poner @ puede ser  Move( buffer , s[1] , longitud );  
 
  SetLength(s, longitud );   
 
   // ó    
 
  SetLength(s, longitud );  
 
  s:=buffer;   

  ........
__________________
Because , I have a power.

Última edición por ppb fecha: 20-07-2006 a las 19:58:00.
Responder Con Cita