FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Contabilizar grabaciones hechas
Buenos días a todos:
Tras haber hecho una búsqueda por el foro no he podido encontrar nada que resuelva mi pequeña duda. Lo que yo quiero hacer es una pequeña aplicación, a poder ser que trabaje como servicio en windows, que contabilice el número de veces que se usa la grabadora. He pensado en comprobar el número de veces que se abre el nero, por poner un ejemplo, pero este método sería del todo inexacto y no me contabilizaría la grabación si se usara otro programa y si me la contabilizaría aunque no se hubiese grabado nada. Alguien tiene idea de como hacer esto. Como puedo contabilizarlo. También me gustaría saber como hacer que mi programa trabaje como un servicio. Muchas gracias
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
#2
|
||||
|
||||
Pues creo que está chunga la cosa.
Lo lógico sería interceptar cuando algún programa bloquea en escritura la grabadora, de hecho, ni te deja expulsar la bandeja en esos momentos, así que pueden ir por ahí los tiros. En lo único que te puedo ayudar es en 2 unidades (CDEvents y CDUtils) que te informan de cuando se introduce un CD o se expulsa de la unidad de CD. Lamento no poder darte un enlace, ya que lo bajé de internet y no tiene información de contacto sobre el autor. Si estas interesado, dilo y lo pego en un par de mensajes. Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
|||
|
|||
Muchas gracias lepe:
Te agradecería pusieses esas dos unidades en un post y les hecho un vistacillo.
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
#4
|
||||
|
||||
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
|||
|
|||
PUFFFFF!!!
Mis conocimientos en esto son un poco escasos, alguien podría comertar esto un poquito haber si me aclaro, me basta con un ejemplito. Muchas gracias
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
#6
|
||||
|
||||
En principio, tienes que guardar cada bloque de código en un archivo distinto, el primero, como puedes comprobar se debe llamar CdUtils.pas, el segundo bloque lo guardas como cdChange.pas obviamente.
Ahora esos 2 archivos tienes que ponerlos en una carpeta que delphi pueda encontrarlos. Yo suelo crear una carpeta llamada "MisCompo" dentro de c:\archivos de programa\borland\delphi6\ paso 1 -------- los meto dentro, y le digo a delphi que busque en esa carpeta: menú Tools --> Enviroment Options -->Library y en el apartado "Library Path" añado la carpeta MisCompo Acepta todas las ventanas, y ahora procedemos a instalar el componente cdChange: paso 2 menú Components--> install Components--> boton browse y elejimos el archivo cdchange.pas paso 3 Aceptamos la pantalla. En la ventana que se abre, pulsamos el boton compile y nos responde delphi que se ha instalado el componente TcdChange. Vale, pues que alegria File --> close all, para cerrar los archivos que tenemos abiertos, en este momento, delphi nos pregunta si queremos guardar los cambios en el archivo "dclusr" respondemos que sí Ahora ya podemos usarlo. Creamos un nuevo proyecto en delphi, nos vamos a la paleta de componentes y elejimos la pestaña Samples dentro de ella aparece a la derecha del todo nuestro deseado TCdChante. hacemos clic y lo ponemos en nuestra ventana. Si ahora nos vamos corriendo para el inspector de objetos, vemos que es un componente parecido a un TTimer, tiene su propiedad Active (true/false) y solo 2 eventos - On cd Inserted - On cd Removed Creo que es bastante descriptivo no?? Pues despues de todo este rollo, a mí no me funciona el tema. Tengo que decir que no tengo activada la inserción automática de windows. Ya me contareis. Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#7
|
||||
|
||||
Acabo de mirarlo a fondo y solo funciona en windows 9x
Según dice la api de windows sobre el mensaje DEVICEARRIVAL y DEVICEREMOVECOMPLETED es que no son soportados en windows NT (al menos en delphi 6) En windows 98 SE si funciona correctamente ese código. Si te he hecho perder el tiempo, lo lamento Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#8
|
|||
|
|||
Muchas gracias Lepe, te diré que este código funciona a las mil maravillas en windows xp proffesional y con delphi 7 que es lo que yo uso
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net |
|
|
|