Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 01-05-2020
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
Lo siento, ya lo pongo:
Código PHP:
//Funcion para enviar texto a un TEdit
void sendTextToEdit(const char* appTitle,
  
int ResId, const char* text)
{
    
HWND hParent, hChild;

    
hParent = FindWindow(NULL, appTitle);
    if (
hParent) {
        
hChild = GetDlgItem(hParent,ResId);
        if (
hChild)
            
SendMessage(hChild, WM_SETTEXT, 0, (LPARAM)text);
        else
            
MessageBox(0, "No se pudo enviar el serial a la ventana.\n¿Tienes abierta la ventana?", "Error", MB_ICONERROR);
    }
    else
        
MessageBox(0, "No se encontró la ventana.\n¿Tienes abierta la ventana?", "Error", MB_ICONERROR);
}
//---------------------------------------------------------------------------

//Funcion para obtener el texto de un TEdit
AnsiString getTextFromEdit(const char* appTitle, int ResId)
{
    
HWND hParent, hChild;
    
int TxtLen;
    
char txtFinal[50];

    
hParent = FindWindow(NULL, appTitle);
    if (
hParent) {
        
hChild = GetDlgItem(hParent,ResId);
        if (
hChild){
            
//Leo lo que hay en el Edit
            
TxtLen = SendMessage(hChild, WM_GETTEXTLENGTH, 0, 0);
            
SendMessage(hChild, WM_GETTEXT, TxtLen + 1, (LPARAM)txtFinal);
        }else{
            
MessageBox(0, "No se pudo leer el Edit de la ventana.\n¿Tienes abierta la ventana?", "Error", MB_ICONERROR);
        }
    }
    else{
        
MessageBox(0, "No se encontró la ventana.\n¿Tienes abierta la ventana?", "Error", MB_ICONERROR);
    }

    return 
txtFinal;
} 
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Enviar datos a PHP y leer resultados (pagina ajena) dosher81 Delphi para la web 7 04-06-2018 08:16:00
problema texto de varios edit a otro edit rafaelon Varios 2 29-07-2017 23:49:02
comparar un texto de un listbox con un texto de un edit juaarias Varios 1 04-10-2011 02:13:10
Delphi 7.0 y MySql, Enviar informacion de ventana a ventana gozi Conexión con bases de datos 2 03-04-2006 06:28:41
Enviar texto a la ventana abierta Mr.Vaka Varios 4 28-11-2005 19:57:31


La franja horaria es GMT +2. Ahora son las 00:45:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi