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
  #3  
Antiguo 01-11-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.211
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
La única pega que se le puede poner al sistema de mensajes, es que estemos tratando con aplicaciones de consola no hechas por nosotros. En ese caso lo mejor son las tuberías.

Este ejemplo de código ejecuta un comando de consola o una aplicación capturando su salida en modo texto. El resto es analizar dicha salida para obtener lo que interese en cada caso:
Código:
String DosCommand(String CommandLine)
{
  char Buffer[4096];
  GetEnvironmentVariable("COMSPEC", Buffer, sizeof(Buffer));
  CommandLine = String(Buffer) + " /C " + CommandLine;
  String Result = "";
  
  HANDLE pipeRead, pipeWrite;
  SECURITY_ATTRIBUTES sa = {sizeof(SECURITY_ATTRIBUTES)};
  sa.bInheritHandle = TRUE;

  if(CreatePipe(&pipeRead, &pipeWrite, &sa, 2500000)){
    STARTUPINFO si = {sizeof(si)};
    PROCESS_INFORMATION pi = {0};
    si.hStdOutput = si.hStdError = pipeWrite;
    si.hStdInput = pipeWrite;//GetStdHandle(STD_INPUT_HANDLE);
    si.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
    si.wShowWindow = SW_HIDE;
    if(CreateProcess(0, CommandLine.c_str(), 0, 0, TRUE, 0, 0, 0, &si, &pi)){
      CloseHandle(pi.hThread);
      if(WaitForSingleObject(pi.hProcess, 9000) == WAIT_OBJECT_0){
        DWORD dwRead = 0;
        WriteFile(pipeWrite, "", 1, &dwRead, 0);
        do{
          memset(Buffer, 0, sizeof(Buffer));
          ReadFile(pipeRead, Buffer, sizeof(Buffer), &dwRead, 0);
          OemToCharBuffA(Buffer, Buffer, dwRead);
          Result = Result + "\r\n" + String(Buffer);
        } while (dwRead >= sizeof(Buffer));
      } 

      CloseHandle(pi.hProcess);
    } 
    CloseHandle(pipeRead);
    CloseHandle(pipeWrite);
  }
  
  return Result;
}

Saludos.
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
Leer desde Scaner jlalvarez Varios 2 06-05-2008 11:45:09
Leer XML desde URL Walcasar Internet 1 01-03-2007 19:20:42
Leer/insertar/modificar datos desde un archivo XML IVAND Varios 1 26-08-2006 23:11:29
Leer Base de Datos desde un CD Gabriel2 Varios 3 29-09-2005 01:38:15
Leer datos desde una página Web cone220 Internet 1 16-01-2004 23:03:44


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


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