Ver Mensaje Individual
  #6  
Antiguo 22-11-2023
Arturo.Molina Arturo.Molina is offline
Miembro
 
Registrado: feb 2018
Posts: 28
Reputación: 0
Arturo.Molina Va por buen camino
Hola a todos,
creo que no me he explicado lo suficientemente claro.

Solamente necesito saber como enviar un texto a una ventana del navegador (en este caso concreto es el navegador, pero podría ser, por ejemplo, una ventana de Word).

He revisado la función SendMessage tal y como me comenta Neftali pero debo estar espeso porque no consigo que llegue el texto...

Aquí el código que utilizo:

Código Delphi [-]
//Funcion para enviar texto
procedure TfPrincipal.EnviarTexto(Texto: string);
const
  WM_TEXTMSG = WM_USER + 103;
var
   Window : THandle;
begin
    if Texto <> '' then begin
      Window := FindWindow(NIL, PChar('Club Delphi - Brave') );

      //Comprobamos si está abierta la aplicación que recibirá los datos
      if Window = 0 then
        MessageDlg ('No se ha encontrado abierta la pagina "Club Delphi - Brave"', mtInformation, [mbok], 0)
      else begin
        SendMessage( Window, WM_TEXTMSG, 0, UnicodeString( Texto ) );
      end;
    end;
end;

Y esta es la respuesta al intentar ejecutarlo:

Error: Incompatible type for arg no. 4: Got "UnicodeString", expected "Int64"

La idea es, en una ventana abierta y con el foco en un campo de texto, que mi programa escriba en el.

En el ejemplo que pongo, el cursor YA se encuentra en el campo usuario de la web del Club Delphi y yo debo enviarle una cadena (en este caso, una dirección de correo electrónico, tal como "correo@electronico.com"), cambiar al campo pass y enviarle otra cadena.
Responder Con Cita