Eventos en aplicacion modo Console (Delphi)

[soivago]

Gracias por responder tan rapido!
No me di cuenta que no coloque el error , pido disculpas, el error al compilar es el siguiente:

Incompatible types: 'method pointer and regular procedure'

[roman]

Bueno, tienes que implementar el método, de eso no te salvas :

Código Delphi [-]
type
  TEvents = class
    class procedure IdLogEvent1ReceivedNEW(Sender: TObject ... );
  end;

implementation

class procedure TEvents.IdLogEvent1ReceivedNEW(Sender: TObject ... );
begin
  bla, bla, bla
end;

// Saludos

[soivago]

Te comento que funciono, y que si le colocas implementation da error al compilar dice que falta un punto (.)

aca te muestro mas o menos como quedo el programa...
lo que hace es enviar un mensaje , y con el evento que creamos cuando recibe una respuesta la escribe en un archivo
lo que esta en rojo es lo que me daba problemas y ahora funciona,
MUCHAS GRACIAS!!!

Código Delphi [-]
program ActualizaHoraMD400_Console;

{$APPTYPE CONSOLE}

uses
// *********Estas son las que usaba la version con UI
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, etc...

type
  TEvents = class
    class procedure IdLogEvent1ReceivedNEW(ASender: TComponent; const AText, AData: String);
  end;

//implementation

var
//**********  Aca van los componentes
    TcpClient1: TIdTCPClient;
    IdLogEvent1: TIdLogEvent;
//**********

  Relojes : array of TReloj;
  archLog : String;
  cuanto : integer;
  const Const_Un_Minuto : Real = 0.00069445;                  //    = 1 minuto
FUNCTION Loguear(mensaje : String; archivoLog : String = sys_directorio + 'archivo.log') : Boolean;
var
Arch : TextFile;
begin
try
 result := TRUE;
try
   AssignFile(Arch, archivoLog);
   if NOT FileExists(archivoLog) then        // NO existe un archivo de log
      Rewrite(Arch)                          // Crea Archivo log
       else
      Append(Arch);                          // SI ya existe lo abre para agregar datos
    finally
    Writeln(Arch, mensaje);                  // escribe en el archivo
    Flush(Arch);                             // vacia el buffer del archivo texto
    CloseFile(Arch);                         // lo cierra de nuevo
    end;
    except
     Result := FALSE;
    end;
end;
Class PROCEDURE TEvents.IdLogEvent1ReceivedNEW(ASender: TComponent; const AText, AData: String);
begin
Loguear(AText + ' Respuesta de ' + TIdTCPClient(IdLogEvent1.Connection).Host + ' >> ' + Adata, archLog);
TcpClient1.Disconnect;
end;
PROCEDURE ActualizaDatosPC();
begin
 try
 IdLogEvent1 := TIdLogEvent.Create(nil);
 TcpClient1 := TIdTCPClient.Create(nil);
      try
        IdLogEvent1.OnReceived := TEvents.IdLogEvent1ReceivedNEW;
        IdLogEvent1.Active := TRUE;
        TcpClient1.Intercept := IdLogEvent1;
        TcpClient1.BoundIP := '172.23.8.4'; //GStack.LocalAddress;
        TcpClient1.BoundPort := 0;
        TcpClient1.ReadTimeout := int_TimeOut;
      except
        Loguear('Error al obtener el IP Local', archLog);
        raise
      end;
 except
   Loguear('Error al obtener el IP Local', archLog);
   raise;
 end;
end;

[roman]

Empezado por soivago

si le colocas implementation da error al compilar

¡Claro! No sé en qué estaba pensando. No estamos en una unidad, de manera que no hay secciones de interfaz e implementación.

Bueno, me alegra que te haya funcionado.

// Saludos