Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-01-2007
[basti] basti is offline
Miembro Premium
 
Registrado: ago 2004
Posts: 388
Poder: 20
basti Va por buen camino
Hola, creo que no me expliqué bien. El acceso a través del navegador es sólo para poder descargar el ActiveX, cuando accedes por primera vez a la cámara, el IE (en el resto de los navegadores no funciona normalmente) te solicita descargarte el control ActiveX desde la cámara. Luego lo añades a tu delphi y ya lo puedes usar. Te pongo un ejemplo de una prueba que tenía guardada, es sobre una cámara LinkSys, pero también había probado con cámaras DLink, sólo cambia el ActiveX y las funciones que tiene incorporadas.

Código Delphi [-]
type
  TForm1 = class(TForm)
    Visualizador: TNetCamPlayerWeb11g; // este es el ActiveX, depende del modelo de la cámara
    ChVisible: TCheckBox;
    BtnPalyClick: TButton;
    EditIP: TEdit;
    EditUser: TEdit;
    EditPassword: TEdit;
    procedure BtnPlayClick(Sender: TObject);
    procedure ChVisibleClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ChVisibleClick(Sender: TObject);
begin
  if chVisible.Checked then
    self.FormStyle := fsStayOnTop
  else
    self.FormStyle := fsNormal;
end;

procedure TForm1.BtnPlayClick(Sender: TObject);
begin
  if (Sender as TBitBtn).Caption = 'Play' then
  begin
    Visualizador.SetSource('http://' + EditIP.Text + '/img/video.asf',            
                                    EditUser.Text, EditPassword.Text);
    Visualizador.TestPlay;
    (Sender as TBitBtn).Caption := 'Stop';
  end
  else begin
    Visualizador.StopPlay;
    (Sender as TBitBtn).Caption := 'Play';
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
var
  zoom : integer;
begin
  zoom := (width * 100) div 650;
  Visualizador.SetZoomPercent(zoom);
end;

No recuerdo muy bien como eran los parámetros, pero en el procedimiento TestPlay, se le podía pasar un parámetro con un nombre de archivo y creaba un 'MPG' o 'AVI' con la grabación, no recuerdo el tipo exactamente.
Responder Con Cita
  #2  
Antiguo 13-01-2007
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 21
AzidRain Va camino a la fama
No todas las camaras usan activex (ya es tecnologia obsoleta) las nuevas traen el acceso basado en Java. Pero como dice nuestro amigo a el no le interesa poder entrar via web sino capturar el flujo directamente de la camara

Te comento que casi todas las camaras te dan acceso de dos formas a lo que estan "viendo": por medio de un archivo jpeg que se actualiza cada x segundos o bien mdiante un fluio continuo mpeg que puedes mostrar en cualquier reproductor. Todas las que incluyen SDK traen ejemplos sencillos e instrucciones para hacerlo, explicarte aqui como lo haces con una seria enredarte mas porque cada fabricante es muy específico en sus cosas
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
  #3  
Antiguo 13-01-2007
Sick boy Sick boy is offline
Miembro
 
Registrado: may 2003
Ubicación: Cantabria
Posts: 245
Poder: 22
Sick boy Va por buen camino
Muchas gracias, creo que ya lo voy teniendo más claro.

Entiendo que debo esperar a tener las camaras para poder trabajar con ellas, ya que no hay nada estandar que sirva para todos los modelos de camaras.

Cita:
Te comento que casi todas las camaras te dan acceso de dos formas a lo que estan "viendo": por medio de un archivo jpeg que se actualiza cada x segundos o bien mdiante un fluio continuo mpeg que puedes mostrar en cualquier reproductor. Todas las que incluyen SDK traen ejemplos sencillos e instrucciones para hacerlo, explicarte aqui como lo haces con una seria enredarte mas porque cada fabricante es muy específico en sus cosas
Esto es perfecto, es justo lo que necesito, ojala sea tn facil como parece!!!!

El lunes tendré acceso a unas camaras de un establecimiento, me dejarán conectarme para hacer pruebas. Si consigo el SDK de esas camaras podré empezar a probar cosas.

Y durante la semana se pediran las AXIL, he visto en su web el SDK, y ahora voy a empezar a estudiarlo.

Si alguien tiene alguna sugerencia, sobre velocidad, o algun truco que me pueda servir, estaré agradecido.

En cuanto empiece con las pruebas ire posteando los codigos, y los resultados obtenidos con la captura de imagenes/videos.
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
Alguien a utilizado Infopower JavierO Varios 1 03-11-2005 12:33:54
Alguno conoce este codigo? gatsu PHP 2 29-08-2004 08:39:09
Alguien a utilizado Preport IVAND Impresión 0 10-06-2003 03:47:37


La franja horaria es GMT +2. Ahora son las 22:25:13.


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