Escribir a la consola desde una app VCL Win32

[TEO127]

Hola amigos, me gustaria saber si alguien conoce alguna forma de escribir a la consola de windows desde una aplicacion VCL Win32.

algo asi como

Writeln('mi mensaje'); //obviamente esto funciona solo para aplicaciones de tipo consola.



Saludos
Teo

[[seoane]]

Para escribir en la consola primero vas a tener que crear una consola

Código Delphi [-]
  AllocConsole;

Para escribir utiliza algo como esto:

Código Delphi [-]
procedure Escribir(Str: string);
var
  StdOut: THandle;
begin
  StdError:= GetStdHandle(STD_OUT_HANDLE);
  if (StdOut <> STD_ERROR_HANDLE) and (StdOut <> 0) then
  begin
    FileWrite(StdOut,PChar(Str + #13#10)^,Length(Str)+2);
  end;
end;

// Por ejemplo
Escribir('Hola mundo');

Y no te olvides de destruir la consola cunado ya no la necesites:

Código Delphi [-]
FreeConsole;

[TEO127]

Seaone gracias por tu respuesta, pero lo que necesito es escribir a la misma consola desde donde ejecuto la aplicacion. Allocconsole crea una nueva consola (o sea me abre otra ventana) lo que yo quiero es que el texto salga en la consola principal (parent).

El escenario es el siguiente, tengo una aplicacion que funciona en forma visual y como consola (al menos eso pretendo). cuando la app detecta que se pasaron parametros (Paramcount) los leo y hago que se comporte como una app de consola mostrando los mensajes de salida en la ventana que origino la ejecucion.

Ahora bien si ejecuto desde la linea de comandos de windows (CMD) mi app con algo asi " myapp.exe -host:finalten.fr.internal -port:7890 -mode:e" usando el allocConsole la app me abre una nueva ventana y ahi me salen los mensajes de texto no en la ventana original como yo quiero.

Espero haberme explicado bien.

Gracias
Saludos

[[rruz]]

Teo127 lo que tienes que usar es AttachConsole. lo unico malo es que solo funciona con windows XP y superiores.
lo que yo haria seria lo siguiente

Código Delphi [-]
uses windows, sysutils;
  type
    TConsola = function(dwProcessId: Longint): boolean; stdcall;
  var
    AttachConsole: TConsola;
    HConsola     : THandle;

  function _winxp: boolean;
    var
      OsVersion: TOsVersionInfo;
    begin
      OsVersion.dwOsVersionInfoSize := sizeof(OsVersion);
      result := false;
      if GetVersionEx(OsVersion) then
        begin
          if OsVersion.dwPlatformId = VER_PLATFORM_WIN32_NT then
          result := (OsVersion.dwMajorVersion > 5) or ((OsVersion.dwMajorVersion = 5) and (OsVersion.dwMinorVersion > 0));
        end;
    end;

  function _CreaConsola: boolean;
     begin
      Result   := false;
      HConsola := LoadLibrary('KERNEL32.DLL');
      if Handle <> 0 then
         begin
           @AttachConsole := GetProcAddress(HConsola, 'AttachConsole');
           if @AttachConsole <> nil then
           Result:= AttachConsole(-1);
           FreeLibrary(Handle);
         end;
    end;

  begin
    if _winxp then
    if _CreaConsola then
      begin
        writeln('Esta es mi consola');
        FreeConsole;
      end
  end.