Optimizar código

[[escafandra]]

A ver si entiendo. Quieres tapar lo que hace frontend hasta que termine. Luego quieres destapar pero más tarde frontend volverá a actuar y lo querrás volver a tapar. ¿Es así?
Eso implica que el programa tapador o no se cierra o requiere que le digan que tape. ¿Eso lo hace frontend?


No es complicado establecer un sistema de comunicación usando archivos de memoria compartida. Imagina este escenario:
Una App se ejecuta con unos parámetros en la linea de comandos y hace determinada cosa. Otra aplicación o el mismo usuario quiere pasarle más parametros pero sin cerrar la app. Para ello abre otra instancia de la app con los nuevos parámetros. Esta nueva instancia al empezar detecta que ya estaba corriendo otra copia, entonces lo que hace es abrir un archivo de memoria compartida, copia la línea de comandos en él y envía un mensaje a la primera instancia que le díce "¡Oye!, que te he mandado unas cosas". Este mensaje es un mensaje de Windows con PostMessage. La Primara instancia recibe el mensaje y lee el archivo de memoria compartida con toda la linea de parárametros y actúa en consecuencia. Mientras, la segunda instancia se autodestruye y jamás se ejecutará en su plenitud. Ambas instancias son de un mismo ejecutable, son lo mismo, pero actúan según si ya existía una previa.


Hay otras formas de comunicación pero ésta es sencilla desde el punto de vista del usuario pues para pasar parámetros siempre usa la misma forma, abrir la app y pasar los parámetros. el resto es automático.


Si esto te sugiere una solución puedes seguir adelante. Aquí publiqué una clase que crea un archivo de memoria compartida.




Saludos.

[MaxiDucoli]

Empezado por escafandra

A ver si entiendo. Quieres tapar lo que hace frontend hasta que termine. Luego quieres destapar pero más tarde frontend volverá a actuar y lo querrás volver a tapar. ¿Es así?
Eso implica que el programa tapador o no se cierra o requiere que le digan que tape. ¿Eso lo hace frontend?


No es complicado establecer un sistema de comunicación usando archivos de memoria compartida. Imagina este escenario:
Una App se ejecuta con unos parámetros en la linea de comandos y hace determinada cosa. Otra aplicación o el mismo usuario quiere pasarle más parametros pero sin cerrar la app. Para ello abre otra instancia de la app con los nuevos parámetros. Esta nueva instancia al empezar detecta que ya estaba corriendo otra copia, entonces lo que hace es abrir un archivo de memoria compartida, copia la línea de comandos en él y envía un mensaje a la primera instancia que le díce "¡Oye!, que te he mandado unas cosas". Este mensaje es un mensaje de Windows con PostMessage. La Primara instancia recibe el mensaje y lee el archivo de memoria compartida con toda la linea de parárametros y actúa en consecuencia. Mientras, la segunda instancia se autodestruye y jamás se ejecutará en su plenitud. Ambas instancias son de un mismo ejecutable, son lo mismo, pero actúan según si ya existía una previa.


Hay otras formas de comunicación pero ésta es sencilla desde el punto de vista del usuario pues para pasar parámetros siempre usa la misma forma, abrir la app y pasar los parámetros. el resto es automático.


Si esto te sugiere una solución puedes seguir adelante. Aquí publiqué una clase que crea un archivo de memoria compartida.




Saludos.

Que lindo sería saber tanto.

voy a ojear el código, busar qué es todo lo que no entiendo en lo que a funciones y procedimientos el código use, así de verdad sé qué y cómo lo hace y te cuento como me fue.
Te molestaria si te posteo en una respuesta un video del FrontEnd, así más o menos entendés como trabaja y capaz se te ocurre algo más práctico?

Dónde aprendiste Delphi tan bien?
Yo vivo en Argentina y la verdad que de los pocos cursos que dan, solo era Visual Basic, después C# en muy pocos lados , ActionScript para Flash y ahora lo que más dan era JAVA, Python, Android y Visual C#.
Pero jamás encontré uno de Delphi que tanto me gusta ese lenguaje.

Igualmente al no trabajar de programador no le di la atención necesaria por que yendo al caso a Delphi lo agarré en el año 2002 más o menos y de a poquito lo fui usando y aprendiendo por mi cuenta en internet y lo malo fue que lo que más hacía (y hago no voy a mentir) es copiar y pegar código de otros sin estudiar bien lo que hace y ahí mi error de no haber aprendido bien y más para Windows que con las API de windows si las entendés se hace todo muy fácil.

[[escafandra]]

Empezado por MaxiDucoli

Que lindo sería saber tanto.

Si, ya me gustaría saber tanto...

Empezado por MaxiDucoli

voy a ojear el código, busar qué es todo lo que no entiendo en lo que a funciones y procedimientos el código use, así de verdad sé qué y cómo lo hace y te cuento como me fue.
Te molestaria si te posteo en una respuesta un video del FrontEnd, así más o menos entendés como trabaja y capaz se te ocurre algo más práctico?

Está bien que mires código y que lo entiendas pero tienes que diseñar una estrategia y luego implementarla. Si no, el resultado será muy chapucero. Puedes colgar los videos que quieras.

Empezado por MaxiDucoli

Dónde aprendiste Delphi tan bien?
Yo vivo en Argentina y la verdad que de los pocos cursos que dan, solo era Visual Basic, después C# en muy pocos lados , ActionScript para Flash y ahora lo que más dan era JAVA, Python, Android y Visual C#.
Pero jamás encontré uno de Delphi que tanto me gusta ese lenguaje.

Lo importante no es el lenguaje sino tener claro que hacer con él. A mi me gusta más el C para lo que suelo hacer y Builder es primi hermado de delphi, así que me manejo en las dos caras de la moneda. Quizás puedas leer alguno de los libros recomendados para delphi, empezando con el incunable "La Cara Oculta de delphi 4" pero a escribir código se aprende escribiendo, leyendo y entendiendo. La documentación de la API de Windows que da M$ es muy buena pero hay que pensar en C. Hay mucha gente que le tiene miedo. En realidad te permite ir mucho más allá del límite de la VCL, pero siempre a bajo nivel.


Saludos.

[MaxiDucoli]

Empezado por escafandra

Si, ya me gustaría saber tanto...





Está bien que mires código y que lo entiendas pero tienes que diseñar una estrategia y luego implementarla. Si no, el resultado será muy chapucero. Puedes colgar los videos que quieras.





Lo importante no es el lenguaje sino tener claro que hacer con él. A mi me gusta más el C para lo que suelo hacer y Builder es primi hermado de delphi, así que me manejo en las dos caras de la moneda. Quizás puedas leer alguno de los libros recomendados para delphi, empezando con el incunable "La Cara Oculta de delphi 4" pero a escribir código se aprende escribiendo, leyendo y entendiendo. La documentación de la API de Windows que da M$ es muy buena pero hay que pensar en C. Hay mucha gente que le tiene miedo. En realidad te permite ir mucho más allá del límite de la VCL, pero siempre a bajo nivel.


Saludos.

Hola.
Vuelvo un rato después de algo de trabajo y poco tiempo a seguir con mi hobbie para poder despejarme un poco.

Me gustaría preguntarte alguna cosita para ver si cambio todo mi programa de raíz y lo empiezo de nuevo.


Pongamos que hago todo el programa de nuevo.

El front end lanza mi programa el cual abre y muestra la imagen de "LOADING GAME".
Lo que quiero es que al cargarse el emulador, mi programa se dé cuenta que el emulador está en ejecución.

Se puede saber si ese programa está en primer plano, está maximizado y ahí "esconder" la ventana de mi programa hasta que el emulador se cierre y ahí cerrarla?

Por que en realidad eso es todo lo que necesito que mi programa haga y con tanto bat y programas externos la estoy empeorando.

O sea;

FrontEnd ----> Lanza mi programa y queda a la espera de que mi programa termine para volver a primer plano.
Mi programa ---> Aparece encima de todo, mostrando una imagen de "LOADING GAME" o algo así, lanza el emulador y queda a le espera de que el emulador termine, para cerrarse y de esta manera darle el permiso al Frontend para que vuelva al prmer plano.


Podrías darme alguna de idea de como poder lograr eso sin liarme hasta no entender más nada y desistir, por favor?

Muchas gracias!!!!!

[[escafandra]]

Ok. Te presento un programita que se ejecuta maximizado mostrando un Label que dice "LOADING GAME" al arrancar. Luego Ejecuta "Notepad.exe" y se esconde. Al cerrar Notepad, el programita se termina.


Espero que esta sea la idea de lo que quieres hacer.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    function Execute(CommandLine: String): cardinal;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//------------------------------------------------------------------------------
// Creamos un proceso.
function TForm1.Execute(CommandLine: String): cardinal;
var
  SI: TStartupInfo;
  PI: TProcessInformation;
begin
  ZeroMemory(@SI, sizeof(TStartupInfo));
  SI.cb:= sizeof(SI);
  SI.dwFlags:= STARTF_USESHOWWINDOW or STARTF_USEPOSITION or STARTF_USESIZE;
  SI.wShowWindow:= SW_SHOW;
  Result:= 0;
  if CreateProcess(nil, PCHAR(CommandLine), nil, nil, false, 0, nil, nil, SI, PI) then
  begin
    WaitForInputIdle(PI.hProcess, 10000);
    Visible:= false;
    WaitForSingleObject(PI.hProcess,INFINITE);
    GetExitCodeProcess(PI.hProcess, Result);
    CloseHandle(PI.hProcess);
    CloseHandle(PI.hThread);
  end
  else
    Result:= $FFFFFFFF;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState:= wsMaximized;
  FormStyle:= fsStayOnTop;
  BorderStyle:= bsNone;
  Label1.Caption:= '"LOADING GAME"';
  Label1.Font.Size:= 30;
  Label1.Font.Style:= [fsBold];


  // Simula que tarda en cargar...
  Timer1.Interval:= 2000;  // Poner Timer1.Interval:= 1 para no esperar nada,
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Simula que tarda en cargar...
  Execute('Notepad.exe');

  Visible:= True;
  Label1.Caption:= 'NOS VAMOS';
  Update;
  Sleep(500);
  Close;
end;

end.

Saludos.

[MaxiDucoli]

Empezado por escafandra

Ok. Te presento un programita que se ejecuta maximizado mostrando un Label que dice "LOADING GAME" al arrancar. Luego Ejecuta "Notepad.exe" y se esconde. Al cerrar Notepad, el programita se termina.


Espero que esta sea la idea de lo que quieres hacer.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    function Execute(CommandLine: String): cardinal;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//------------------------------------------------------------------------------
// Creamos un proceso.
function TForm1.Execute(CommandLine: String): cardinal;
var
  SI: TStartupInfo;
  PI: TProcessInformation;
begin
  ZeroMemory(@SI, sizeof(TStartupInfo));
  SI.cb:= sizeof(SI);
  SI.dwFlags:= STARTF_USESHOWWINDOW or STARTF_USEPOSITION or STARTF_USESIZE;
  SI.wShowWindow:= SW_SHOW;
  Result:= 0;
  if CreateProcess(nil, PCHAR(CommandLine), nil, nil, false, 0, nil, nil, SI, PI) then
  begin
    WaitForInputIdle(PI.hProcess, 10000);
    Visible:= false;
    WaitForSingleObject(PI.hProcess,INFINITE);
    GetExitCodeProcess(PI.hProcess, Result);
    CloseHandle(PI.hProcess);
    CloseHandle(PI.hThread);
  end
  else
    Result:= $FFFFFFFF;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState:= wsMaximized;
  FormStyle:= fsStayOnTop;
  BorderStyle:= bsNone;
  Label1.Caption:= '"LOADING GAME"';
  Label1.Font.Size:= 30;
  Label1.Font.Style:= [fsBold];


  // Simula que tarda en cargar...
  Timer1.Interval:= 2000;  // Poner Timer1.Interval:= 1 para no esperar nada,
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Simula que tarda en cargar...
  Execute('Notepad.exe');

  Visible:= True;
  Label1.Caption:= 'NOS VAMOS';
  Update;
  Sleep(500);
  Close;
end;

end.

Saludos.

Muchas gracias por tomarte el tiempo que es un recurso irrecuperable.
Esta tarde, en cuanto regrese del trabajo, esto va a ser lo primero que me ponga a hacer.

La verdad es que no me puedo explicar como pudo ser algo tan sencillo y jamás imaginarlo. Ja!
Bueno están los que saben y son fuente inagotable de sabiduría y los que no aprendemos por más ganas que le echemos. 😂 🤣 😂

Te agradezco y más tarde te paso el reporte de como me fue.

Muy agradecido!
Saludos!!!!!

[MaxiDucoli]

Hola acá molestando otra vez.

Sabés que el programa se me queda tildado y no ejecuta nada?
Parece que el problema es acá:

if CreateProcess(nil, PCHAR(CommandLine), nil, nil, false, 0, nil, nil, SI, PI)

Pero no puedo saber por qué.
Me dice error
reised exception class $C00000005 with mesage 'access violation at 0x7788d00: write of adress 0x005eb846'

Qué puede ser?