Dudas con Hilo en ejecución

[danielmj]

bien casimiro, supongo que te refieres a las mayusculas, no lo hice con mala intención, simplemente no me di cuenta, habrás visto en otras de mis preguntas que jamás lo pongo todo en mayusculas, aqui una muestra:

http://www.clubdelphi.com/foros/showthread.php?t=84451

O quizás ha sido por usar la sintanxis delphi, lo mismo, pensé en esquematizarlo y no caí en la cuenta de la etiqueta "Quote".

En cuanto al problema y para que no sea necesario hacer uso de unas dotes de adivino que no se tienen, os dejo este enlace de un video que he hecho donde se ve exactamente el error.

Y aquí el diagrama del formulario esta vez sin usar la sintaxis de delphi...

Formulario principal
+Boton Cortar
+Boton Unir
+Boton Salir
+Código botón salir --> "Close"

El error lo da nada mas cargar la aplicacion, es decir sin haber ejecutado nada dentro del código cortar o unir. Simplemente aparece el formulario principal, pulso salir y ya tira el error. Evidentemente como dice casimiro, nadie es adivino, pero con que me deis una sugerencia de por donde creeis que puede venir ese error me vale. Espero que ahora quede todo más clarito.

Gracias.

[Casimiro Noteví]

Sólo me refería a que pusieras el código para que podamos verlo
No sirve de nada la explicación ni el video.

[danielmj]

hola,

aqui pongo el codigo de toda la unidad del formulario principal, desde el que se hace la llamada a los otros formularios:

Código Delphi [-]
unit main;

interface

...

type
  TInicio = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Inicio: TInicio;

implementation

{$R *.dfm}

uses ZIZ, Unir;

procedure TInicio.Button1Click(Sender: TObject);
begin
  principal.Show; //Modal;
end;

procedure TInicio.Button2Click(Sender: TObject);
begin
  join.Show; //Modal;
end;

procedure TInicio.Button3Click(Sender: TObject);
begin
  close
end;

end.

Como podeis ver en el "button3" que es el que termina el programa y sale, solo tiene "close", no hay nada mas, por eso me tiene descolocado ese error, ademas ocurre sin hacer nada mas, solo ejecutar y salir y ya falla.

Gracias y saludos.

[blackx5n]

Hola, segun el codigo que pones no veo que halla algun error.

1- Solo te da error en el boton de salir
2- Te fijastaste que nombre de los formularios y sus unidades sean los correctos.
3- En los formularios o en los botones no habras modificaddo alguna propiedad en el Object Inspector que te cause este error.
4- Que mensaje de error te da.

Hice la prueba con un formulario y coloque 3 botones y agrege 2 formularios llame en los primeros 2 botones al formulario 2 y 3 y el boton 3 salir no me da ningun error.

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses unit2,unit3;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

end.

Salud2

[[Al González]]

Compilar con Use Debug DCUs.
Revisar finalización de ZIZ y Unir.
Posible objeto Nil.

[danielmj]

Hola saludos,

antes de nada, gracias por responder y dar vuestras sugerencias. Dicho esto, os diré que ya di con el error y lo tengo solucionado pero a sacrificio de una parte importante de la aplicacion.
Lo que he hecho es volver a instalar la version trial de EurekaLog, pensé que quizás capturaría el error y al menos tendría algo por donde centrar mi atención, bien el resultado es este:


Como veis en la captura, he marcado la unidad "unir" que es la que me causaba el error.

La solucion: Antes dije que habia tenido que sacrificar una parte importante de la aplicación, y esta ha sido anular por completo la ejecucion de los procesos dentro de un hilo. Es decir, he anulado por completo todas y cada una de las líneas que hacían mencion al Thread y el error se ha solucionado.

Conclusión: Ahora va bien no da errores pero no puedo ni minimizar la ventana mientras está corriendo, con lo cual tendré que volver a plantearme como usar correctamente los hilos (cosa que por cierto no tengo ni idea y por mucho que leo se escapa a mi comprensión).

Bueno, no sé si esto podrá ayudarle a alguien en algún momento, pero ahí queda.
Saludos y una vez mas, gracias.