puntero *pantalla en c++

[[ppb]]

¿ Como defines el buffer ? Es decir a donde apunta el puntero "pantalla"

[coletaun]

Mira en c la funcion me viene definida de esta forma:

* Función para copiar los datos de la pantalla.
*
* Argumentos:
*
* 'hclient'
* INPUT: Identificador de la sesión.
*
* 'pantalla'
* OUTPUT: buffer donde se van a copiar los datos de la pantalla.
*
* 'longitud'
* INPUT: tama¤o de 'buffer'.
* OUTPUT: n£mero de caracteres copiados en 'buffer'.
*
* 'tout'
* INPUT: tiempo en segundos que esperar la respuesta del host si la
* sesión est en WAIT. Si es 0 la función retornar inmediatamente.
* Si se cumple el tiempo sin haber recibido la respuesta del host,
* la función retornar FALSE.
*
* Retorno:
* TRUE Ok, FALSE Error.
*-------------------------------------------------------------------------*/
BOOL WINAPI captura_pantalla(HCLIENT hclient, char *pantalla, int *longitud, int tout);



ahora mismo la funcion la defino asi:

function captura_pantalla(HCLIENT: hclient; pantalla: string; var longitud: integer; tout: integer ):bool;stdcall; external 'funcionexterna.dll'

la llamada en el procedimeinto la hago asi:

captura_pantalla(1,pantalla,longitud,0);

1 es el manejador de la sesion, es correcto pues en otras funciones utilizo 1 y va correcto.
en pantalla no me copia ningun carcter.
la longitud me da "0".
He probado con 0, tout, con 1, 2 etcc.. y da igual

Y la funcion me da false, es decir que no recibe respuesta.

Muchas gracias,

[[ppb]]

Empezado por coletaun

'

la llamada en el procedimeinto la hago asi:

captura_pantalla(1,pantalla,longitud,0);

Me referia a donde apunta el puntero "pantalla",
tienes algo asi

Código Delphi [-]
Var
  pantalla : Pchar;
  Buffer    : Array [0..???] Of char;
  longitud : integer;
Begin
 
  pantalla := @Buffer; 
 
  captura_pantalla(1,pantalla,longitud,0);
 
   ........

[coletaun]

gracias, la libreria si que se ejecuta pero al mostrar los datos en un string se me cierra el programa

tengo los datos enla variable pantalla que es pchar, como lo paso a un string `para mostrarlo en un memo por ejemplo?

De verdad muchas gracias

[[ppb]]

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 , longitud );    SetLength(s, longitud );   // ó    SetLength(s, longitud );  s:=buffer;   ........

[[ppb]]

"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 , longitud );

SetLength(s, longitud );

// ó

SetLength(s, longitud );

s:=buffer;

........

[[ppb]]

"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;   

  ........

[coletaun]

Hola comapañero, sienteo ser pesado per a la hora de mover los datos me da un error en la aplicación y se cierra, cuando hago el Move( buffer , s[1] , longitud );

Es decir no consigo sacar los datos en un string.

Gracias

[[ppb]]

Prueba el cast o la segunda manera

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);  
 
  SetLength(s, longitud );  

  s:=buffer;   
 
  ........