Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Temas relacionados > Redes
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-03-2007
r0ck0 r0ck0 is offline
Registrado
 
Registrado: mar 2007
Posts: 3
Poder: 0
r0ck0 Va por buen camino
Necesito monitorear varios PC a la vez (netop freeware)

En realidad lo que busco es algo como netop, netsuport,pero freeware, algun programa que corra con vnc o algun sofware libre en el cual tenga la opcion de ver las sesiones de todos unos alumnos en mi pc, para tener un control de ellos.

Si saben de alguna cosa. muchas gracias.
Responder Con Cita
  #2  
Antiguo 01-03-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Poder: 20
droguerman Va por buen camino
no bastaba con hacer algo parecido a esto??http://www.google.com/search?hl=es&q=freeware+vnc&meta=

puedes encontrar otras opciones libres en sourceforge.net
__________________
self.free;
Responder Con Cita
  #3  
Antiguo 02-03-2007
r0ck0 r0ck0 is offline
Registrado
 
Registrado: mar 2007
Posts: 3
Poder: 0
r0ck0 Va por buen camino
Cool Thumbnail UltraVNC

Lo que necesito para ser mas precisó es ver a todos los equipos a la vez, se entiende, hay una propiedad de muchos programas pagados, la cual consiste en mostrar pequeña pantallas de todos los computadores que se encuentran en la red, que tienen obviamente instalado vnc. Esta propiedad es la que yo busco en un programa freeware. si alguien tiene alguna idea de donde encontrar uno se los agradecería.

E estado demasiado tiempo buscando y estoy que tiro la toalla.
Responder Con Cita
  #4  
Antiguo 02-03-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
¿Y si la aplicación la haces tu? Una aplicación que capture la pantalla y la devuelva como una imagen en respuesta a una petición http, son solo un par de lineas utilizando las Indy. Si instalas esta aplicación en cada uno de los equipos a controlar, solo tendrías que crear una pagina web con una tabla donde se verían todas las imágenes. Ajustando el tiempo de recarga de la pagina ya tenemos un sistema de vigilancia mas o menos decente
Responder Con Cita
  #5  
Antiguo 02-03-2007
r0ck0 r0ck0 is offline
Registrado
 
Registrado: mar 2007
Posts: 3
Poder: 0
r0ck0 Va por buen camino
Ejemplo:

http://www.netcontrol2.com/ hay veran lo que deceo, la vista completa de un laboratorio, en pequeñas pantallas.

Gracias por sus comentarios.
Responder Con Cita
  #6  
Antiguo 02-03-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Bueno, aquí un ejemplo de como hacerlo. Lo hice ahora mismo, modificando el código de Pico, así que puede que tengas que repasar algo, pero como ejemplo nos sirve.

La parte que nos interesa es la siguiente:
Código Delphi [-]
// Envia una captura de pantalla
procedure TConnection.SendShot;
var
  SrcWindow: THandle;
  SrcDC: HDC;
  Bitmap: TBitmap;
  Jpg: TJPEGImage;
  Stream: TMemoryStream;
  Width, Height: Integer;
begin
  SrcWindow:= GetDesktopWindow;
  if SrcWindow <> 0 then
  begin
    SrcDC:= GetDC(SrcWindow);
    if SrcDC <> 0 then
    begin
      Bitmap:= TBitmap.Create;
      Jpg:= TJPEGImage.Create;
      try
        Width:= GetSystemMetrics(SM_CXSCREEN);
        Height:= GetSystemMetrics(SM_CYSCREEN);
        if AnsiSameText(Value('Thumb'),'Si') then
        begin
          Bitmap.Width:= Width div 4;
          Bitmap.Height:= Height div 4;
        end else
        begin
          Bitmap.Width:= Width;
          Bitmap.Height:= Height;
        end;
        StretchBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
          SrcDC,0,0,Width,Height,SRCCOPY);
        Jpg.CompressionQuality:= 60;
        Jpg.Assign(Bitmap);
        Jpg.Compress;
        Stream:= TMemoryStream.Create;
        try
          Jpg.SaveToStream(Stream);

          FResponse.ContentType := 'image/jpeg';
          FResponse.ContentLength := IntToStr(Stream.Size);
          if WriteHeaders(200) then
          if not AnsiSameText(FCommand, 'HEAD') then
            send(FSocket, Stream.Memory^, Stream.Size, 0);
        finally
          Stream.Free;
        end;
      finally
        Bitmap.Free;
        Jpg.Free;
        ReleaseDC(SrcWindow,SrcDC);
      end;
    end;
  end;
end;

Al ejecutar el programa, este se mantiene oculto, así que para cerrarlo tendrás que usar el administrador de tareas o el reset de delphi. El caso es que mientras este en ejecución actúa como un mini servidor web (revisa el hilo original para saber mas), y ante unas determinadas peticiones devuelve una captura de la pantalla.
Código:
// Esta devuelve una imagen con la captura de la pantallaa
http://127.0.0.1:1978/?cmd=Shot
// Esta otra devuelve lo mismo pero en tamaño reducido
http://127.0.0.1:1978/?cmd=Shot&Thumb=Si
(La dirección 127.0.0.1 es la ip del ordenador)

Ahora solo falta armar una pagina html, con una tabla en la que estén colocadas todas las imágenes correspondientes a cada equipo. Ajustando luego el tiempo de refresco, o usando el botón de actualizar ya tendríamos un sistema de vigilancia. El código de la pagina se lo dejo a alguien que sepa mas que yo de html ...

PD: Aunque lo anterior funciona, mejor utiliza las Indy para implementar el servidor web, el resto del código no sera muy difícil de ajustar para trabajar con las Indy.
Archivos Adjuntos
Tipo de Archivo: zip Pico.zip (9,0 KB, 79 visitas)
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Monitorear impresiones roman API de Windows 8 07-01-2008 21:35:11
Monitorear eventos de otras aplicaciones Marco A. Ruiz API de Windows 0 22-08-2006 21:41:59
Monitorear Firebird 1.5 jc.guzman Firebird e Interbase 2 21-10-2005 03:23:33
Monitorear servidor brandolin Firebird e Interbase 3 30-12-2003 17:47:03
Monitorear procesos victork_py Firebird e Interbase 7 27-08-2003 12:06:29


La franja horaria es GMT +2. Ahora son las 07:38:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi