9 respuestas en este tema

[seba_13680]

Buenas noches a todos¡

Los molesto con unas consultas ...

Estoy desarrollando una aplicacion que utiliza la funcion WinExecAndWait32 para ejecutar tres comandos

Los ejecuta sin problemas, el tema es que abre la ventanda de linea de comandos (cmd.exe) fuera del formulario

La idea por el momento es poder "capturar" la ventana con sus respectivos comandos y poder verlos en un Panel

Me refiero a poder ver la ventana cmd en el panel ya que dos comandos necesitan el ingreso de datos

 

La funcion que utilizo es la siguiente :

delphi

function WinExecAndWait32(Path: PChar; Visibility: Word;
  Timeout : DWORD): integer;
 
function WinExecAndWait32(Path: PChar; Visibility: Word;
  Timeout : DWORD): integer;
var
  WaitResult : integer;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  //iResult : integer;
begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
	{ you could pass sw_show or sw_hide as parameter: }
    wShowWindow := visibility;
  end;
  if CreateProcess(nil,path,nil, nil, False,
		NORMAL_PRIORITY_CLASS, nil, nil,
		StartupInfo, ProcessInfo) then
  begin
    WaitResult := WaitForSingleObject(ProcessInfo.hProcess, timeout);
    { timeout is in miliseconds or INFINITE if
	  you want to wait forever }
    result := WaitResult;
  end
  else
  { error occurs during CreateProcess see help for details }
    result:=GetLastError;
end;
 

y para ejecutar los comandos por el momento me manejo con este codigo

delphi

var
ComandoUno: string;
ComandoDos: string;
ComandoTres: string;
begin
ComandoUno:=('ping localhost');
WinExecAndWait32(pchar(ComandoUno),SW_SHOW,INFINITE);
ComandoDos:=('dir c:');
WinExecAndWait32(pchar(ComandoDos),SW_SHOW,INFINITE);
ComandoTres:=('netstat -a');
WinExecAndWait32(pchar(ComandoTres),SW_SHOW,INFINITE);
end; 

Desde ya muchas gracias por las respuestas u orientacion al respecto

Saludos¡ 

 

 

 

 

 

 

 

 

 

 

[escafandra]

Revisa este tema: Capturar la salida de consola: DosCommand y este otro que parte del anterior y lo completa: Ayuda con automatización de Procesos

 

Saludos.

[seba_13680]

Buen dia Escafandra¡

Y gracias por las respuesta¡

Con respecto a http://delphiaccess....ola-doscommand/lo estuve investigando

pero como decia Edson, necesito interactuar desde la linea de comando en la salida de la funcion WinExecAndWait32 por que algunos

parametros son ingresados luego de ejecutar el comando desde la misma linea de comandos y bueno la idea es que esten en el mismo formulario.

Estoy investigando al respecto y me parece que el tema va por "capturar el parent" en el Formulario pero me es muy avanzado para mì

y bueno luego poder combinarlos con la funcion WinExecAndWait32 ..

Por ahora lo mas cercano que encontrè en el siguiente codigo

Cualquier respuesta, consejo, comentario serà bienvenido, saludos¡

delphi

unit ufrmMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls;
function WinExecAndWait32(Path: PChar; Visibility: Word;
  Timeout : DWORD): integer;
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    mnuNotepad: TMenuItem;
    Panel1: TPanel;
    procedure mnuNotepadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
type
  TWindowRec = record
    Handle: THandle;
    ProcessId: Cardinal;
    WindowName: PChar;
  end;
  PWindowRec = ^TWindowRec;
function EnumWindowsProc(Handle: Thandle; lParam: LPARAM): BOOL; stdcall;
var
  ProcessId: Cardinal;
  Buffer: PChar;
  Size: Integer;
begin
  Result:= TRUE;
  ProcessId:= 0;
  GetWindowThreadProcessId(Handle, ProcessId);
  if ProcessId = PWindowRec(lParam).ProcessId then
  begin
    if PWindowRec(lParam).WindowName <> nil then
    begin
      Size:= GetWindowTextLength(Handle) + 1;
      GetMem(Buffer,Size);
      try
        GetWindowText(Handle,Buffer,Size);
        if StrIcomp(PWindowRec(lParam).WindowName, Buffer) = 0 then
        begin
          PWindowRec(lParam).Handle:= Handle;
          Result:= FALSE;
        end;
      finally
        Freemem(Buffer);
      end;
    end else
    begin
      PWindowRec(lParam).Handle:= Handle;
      Result:= FALSE;
    end;
  end;
end;
function GetWindowFromProcessId(ProcessId: Cardinal; WindowName: PChar): THandle;
var
  WindowRec: TWindowRec;
begin
  FillChar(WindowRec,Sizeof(WindowRec),0);
  WindowRec.ProcessId:= ProcessId;
  WindowRec.WindowName:= WindowName;
  EnumWindows(@EnumWindowsProc, LPARAM(@WindowRec));
  Result:= WindowRec.Handle;
end;
function Ejecutar(Cmd: string; WindowName: PChar; Timeout: Cardinal): THandle;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Ticks: Cardinal;
begin
  Result:= 0;
  FillChar(StartupInfo,Sizeof(StartupInfo),0);
  StartupInfo.wShowWindow:= SW_SHOW;
  Ticks:= GetTickCount;
  if CreateProcess(nil,PChar(Cmd),nil,nil, FALSE, CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo, ProcessInfo) then
    while (Result = 0) and (GetTickCount - Ticks < TimeOut) do
    begin
      Result:= GetWindowFromProcessId(ProcessInfo.dwProcessId, WindowName);
    //if Result = 0 then Sleep(0);
    if Result = 0 then Sleep(0);
    end;
end;
function WinExecAndWait32(Path: PChar; Visibility: Word;
  Timeout : DWORD): integer;
var
  WaitResult : integer;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  //iResult : integer;
begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
	{ you could pass sw_show or sw_hide as parameter: }
    wShowWindow := visibility;
  end;
  if CreateProcess(nil,path,nil, nil, False,
		NORMAL_PRIORITY_CLASS, nil, nil,
		StartupInfo, ProcessInfo) then
  begin
    WaitResult := WaitForSingleObject(ProcessInfo.hProcess, timeout);
    { timeout is in miliseconds or INFINITE if
	  you want to wait forever }
    result := WaitResult;
  end
  else
  { error occurs during CreateProcess see help for details }
    result:=GetLastError;
end;
 
procedure TForm1.mnuNotepadClick(Sender: TObject);
var
  H: THandle;
  I: THandle;
  ComandoUno: string;
  ComandoDos: string;
begin
  ComandoUno:=('ping -t localhost');
 
  //WinExecAndWait32(pchar(ComandoCinco),SW_SHOW,INFINITE);
  //WinExecAndWait32(pchar(ComandoCinco),SW_SHOW,INFINITE
  //ShowMessage(ComandoUno);
 
  H:= Ejecutar('ping -t localhost',nil,5000);
 
// Esta funcion trabaja directamente con el comando completo, necesito conbinarla con
// WinExecAndWait32 por que de los contrario ejecuta todos los comandos de una sola vez
 
 
//H:= Ejecutar('ping -t localhost',nil,5000);
//H:= Ejecutar('cmd.exe',nil,5000);
 
  Windows.SetParent(H, Panel1.Handle);
  SetWindowPos(H, 0, 0, 0, ClientWidth, ClientHeight, SWP_ASYNCWINDOWPOS);
 end;
 
end.

[escafandra]

Una cosa es ejecutar una consola en un TPanel y otra capturar su contenido. Para capturar la salida de consola e interactuar con ella, ya de dejé los enlaces, especialmente el segundo: Ayuda con automatización de Procesos.
 
Para ejecutar una consola dentro de un TPanel, sin más, te dejo este sencillo código:

delphi

procedure CmdWithParent(Parent: HWND);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Wnd: HWND;
begin
  ZeroMemory(@StartupInfo, sizeof(TStartupInfo));
  StartupInfo.dwFlags:= STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:= SW_HIDE;
  if CreateProcess(nil, 'cmd.exe', nil, nil, FALSE, 0, nil, nil, StartupInfo, ProcessInfo) then
  begin
    Wnd:= 0;
    repeat Wnd:= FindWindow('ConsoleWindowClass', nil); until Wnd <> 0;
    Windows.SetParent(Wnd, Parent);
    SetWindowPos(Wnd, 0,0,0,0,0,SWP_NOSIZE or SWP_SHOWWINDOW);
  end;
end;

Y esta sería una forma de usarlo:

delphi

CmdWithParent(Panel1.Handle);

Probado con Delphi7 en Win10

Saludos.

[escafandra]

Si buscamos un efecto en el que la consola quede más integrada en el TPanel, podemos añadir una línea al código:

delphi

procedure CmdWithParent(Parent: HWND);
var
  StartupInfo: TStartupInfoA;
  ProcessInfo: TProcessInformation;
  Wnd: HWND;
begin
  ZeroMemory(@StartupInfo, sizeof(TStartupInfoA));
  StartupInfo.dwFlags:= STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:= SW_HIDE;
  if CreateProcessA(nil, 'cmd.exe', nil, nil, FALSE, 0, nil, nil, StartupInfo, ProcessInfo) then
  begin
    Wnd:= 0;
    repeat Wnd:= FindWindow('ConsoleWindowClass', nil); until Wnd <> 0;
    Winapi.Windows.SetParent(Wnd, Parent);
    SetWindowLong(Wnd, GWL_STYLE, 0);
    SetWindowPos(Wnd, 0,0,0,0,0,SWP_NOSIZE or SWP_SHOWWINDOW);
  end;
end;

Aprovecho para probar en Berlin y adaptarlo. Probado en Win 8.1 y 10.
 

 
Saludos.

[seba_13680]

Buenas tardes¡ y gracias por las respuestas Escafandra¡ sigo investigando y estudiando para ver si puedo evitar el paso de tener que ingresar los datos por consola

ya que es un tema que aun no manejo y se me hace muy complejo, estoy adaptando los script remotos para que reciban los datos y tener que evitar cargarlos en los clientes, de todos modos se va aprendiendo sobre la marcha 

Saludos y gracias por las respuestas ...

[escafandra]

Buenas tardes¡ y gracias por las respuestas Escafandra¡ sigo investigando y estudiando para ver si puedo evitar el paso de tener que ingresar los datos por consola

 
Lo primero que tienes que tener claro es lo que quieres y lo que estás preguntando.
 

La idea por el momento es poder "capturar" la ventana con sus respectivos comandos y poder verlos en un Panel
Me refiero a poder ver la ventana cmd en el panel ya que dos comandos necesitan el ingreso de datos

Primero interpreté que querías ejecutar comandos sin visualizar una consola y te di la respuesta de como hacerlo, incluso interactuando con los resultados que, además, se capturan. Pero no te pareció bien argumentando que querías una consola dentro de un TPanel, Entonces pensé que te interpreté mal:
 

Me refiero a poder ver la ventana cmd en el panel ya que dos comandos necesitan el ingreso de datos

Entonces me dije: "Ah, lo que quiere es simplemente meter la consola en un TPanel" y te metí la consola en un TPanel.

Ahora no es eso lo que quieres y parece que vuelves a querer sólo la primera interpretación.

sigo investigando y estudiando para ver si puedo evitar el paso de tener que ingresar los datos por consola

No se si has leído realmente los enlaces que te dejé, porque si lo hubieras hecho te hubieses dado cuenta que estabas respondido desde la primera respuesta que te di en este tema.
 
 
Saludos.

[seba_13680]

Buenas noches Escafandra

Necesitaba, digo necesitaba por que aun para mì que recien comienzo con Delphi se me hace aun muy complejo algunos temas, y quizas aun me cuesta formular las preguntas relacionadas al desarrollo,  y bueno estoy volviendo pasos atras para ver si puedo ingresar los comandos y evitar el tema de la ventana cmd, el tema basicamente era una consola con la cual poder interactuar en un Panel dentro del Formulario.

Es un tema estetico ya que las ventanas cmd que genera la funcion WinExecAndWait32 (ejecutando comandos de consola), se ejecutan al igual que la ventana

en cualquier lugar de la pantalla.

 

Tu primer respuesta fue: Revisa este tema: Capturar la salida de consola: DosCommand y este otro que parte del anterior y lo completa: Ayuda con automatización de Procesos

 

1) Capturar la salida de consola: DosCommand 

Por ese lado no iba el tema ya que necesitaba ingresar los datos desde la consola misma o sea poder ver la consola de manera interactiva desde el mismo

Formulario

 

2) Ayuda con automatización de Procesos

Edson -Holas. Deseo abrir un proceso de consola (como el CMD o el FTP), de forma interactiva, de modo que pueda enviar comandos y leer la respuesta.

Tu respuesta: Prueba esto y lee esto: Capturar la salida de consola: DosCommand

Edson -Gracias escafandra. Precisamente, lo que deseo, es interactuar con el FTP, desde mi aplicación.

Tu respuesta: Quizás puedas usar la API para FTP Sessions y te olvidas de la consola.

Edson -Gracias por el enlace, escafandra. Pero mi requerimiento es que necesito ejecutar de forma interactiva el FTP, que viene por defecto en Windows (en general cualquier aplicación de consola).

Mi problema no se remite solo al FTP, sino a cualquier aplicación de consola

Luego el tema sigue en cuestiones de compatibilidad en distintas arquitecturas

o sea me parece que es un tema de interpretacion, luego de todo el tema se vuelve al primer link explicado anteriormente

 

Segui investigando y leyendo respecto al tema, asi que no pudo continuar por ese lado, vuelvo hacia atras y voy a intentar traer los parametros

para poder ingresar directamente sin necesidad de que se ingresen manualmente

En el circuito estan Gnu/Linux Debian 8.7, terminales Windows y sus respectivas llaves cifradas, comandos en bash interactuando con una ventana

"flotante" en cmd que generada una aplicacion, aun verde, en Delphi, continuo investigando y estudiando asi no te vuelvo a molestar ya que 

desde mi Talent msx dpc 200 solo hice 7 preguntas en foros especializados, Saludos y buenas noches¡ y viva Delphi ¡ 

[escafandra]

 

...Edson -Gracias por el enlace, escafandra. Pero mi requerimiento es que necesito ejecutar de forma interactiva el FTP, que viene por defecto en Windows (en general cualquier aplicación de consola).

Mi problema no se remite solo al FTP, sino a cualquier aplicación de consola

Luego el tema sigue en cuestiones de compatibilidad en distintas arquitecturas

o sea me parece que es un tema de interpretacion,...

 

Te equivocas. Luego no son cuestiones de compatibilidad. Luego viene el mensaje 8 donde escribo una función para Delphi 7 que hace lo que Edson quería conseguir y lo que parece que tu quieres, es decir, ejecutar comandos de consola sin ver la consola y capturar los resultados para seguir trabajando de forma interactiva. Es decir, existe una consola oculta y los mensajes de usuario y consola se vuelcan en un TMemo o donde una quiera. En dicho mensaje aparece un enlace con una aplicación de ejemplo.

 

El resto del hilo es una discusión para adaptar el código que escribí a Lazarus 64 bits.

 

Insisto porque te veo muy verde y es posible que te pasen cosas inadvertidas al leerlas. Cuando leas un hilo, no busques el código mágico que resuelva tu duda, seguramente te pierdas por el camino. Se trata de asimilar lo que se comenta y tratar de entender el código que se publique, copiarlo sin comprender te llevará a frustraciones y de poco te servirá.

 

No acometas proyectos fuera de tu alcance, ve poco a poco, asimila y crea por ti mismo.

 

 

Saludos.

[seba_13680]

Te equivocas. Luego no son cuestiones de compatibilidad. Luego viene el mensaje 8 donde escribo una función para Delphi 7 que hace lo que Edson quería conseguir y lo que parece que tu quieres, es decir, ejecutar comandos de consola sin ver la consola y capturar los resultados para seguir trabajando de forma interactiva. Es decir, existe una consola oculta y los mensajes de usuario y consola se vuelcan en un TMemo o donde una quiera. En dicho mensaje aparece un enlace con una aplicación de ejemplo.

 

El resto del hilo es una discusión para adaptar el código que escribí a Lazarus 64 bits.

 

Insisto porque te veo muy verde y es posible que te pasen cosas inadvertidas al leerlas. Cuando leas un hilo, no busques el código mágico que resuelva tu duda, seguramente te pierdas por el camino. Se trata de asimilar lo que se comenta y tratar de entender el código que se publique, copiarlo sin comprender te llevará a frustraciones y de poco te servirá.

 

No acometas proyectos fuera de tu alcance, ve poco a poco, asimila y crea por ti mismo.

 

 

Saludos.

 

Gracias y si tiene toda la razon, estoy muy emocionado con este proyecto que me estoy apurando demasiado, por eso llegaba al final y no podia continuar, luego volvia dos pasos y seguia por otro lado, recien estoy comenzando con Delphi, voy a seguir los consejos al pie de la letra, lamento haber comenzado de esta manera, continuare estudiando para poder formular mejor las preguntas ya que es todo nuevo en Delphi para mì, envio saludos y exitos por allà¡