Canalclair

Soyez le premier à donner votre avis sur cette source.

Vue 13 497 fois - Téléchargée 418 fois

Description

Ce programme permet de pallier une lacune de Win TV d'Hauppauge qui ne permet pas de recevoir de chaîne codée lorsque celles ci sont émises en clair. Les dites chaînes sont détectées comme des chaînes radio.

- Il permet avec une carte d'acquisition TNT Hauppauge de regarder Canal+ en clair lorsque ce programme est diffusé en clair.
- Il ne permet pas bien entendu de décrypter cette chaîne ce qui n'est pas autorisé....

Codes Sources

Ajouter un commentaire Commentaires
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
6 févr. 2008 à 11:03
d'ou mon "transposé dans un projet plus important"

j'ai herité d'un gros projet (quelques 600 forms ou modules)
THE usine à gaz !
et les lenteurs induites par ce genre de manipulation de données...

pour cela que je met en garde. Là, ça va, mais dans de gros process...
cs_MVI
Messages postés
3
Date d'inscription
vendredi 23 mai 2003
Statut
Membre
Dernière intervention
6 février 2008

6 févr. 2008 à 10:48
Pour Renfield
J'avais même essayé de le faire directement avec Access mais ce dernier programme change la version de la base complètement et cela devient inutilisable.
Bien sûr, en théorie, tu as raison.
En pratique, il faut bien exécuter la routine du module.
De plus, la table fait 22 enregistrements (autant que de chaïnes détectées)et le centième de seconde gagné est du second ordre...Je ne cherchais pas à faire une Ferrari mais à donner cette information.
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
6 févr. 2008 à 09:07
pas top, un chemin en dur...
OpenDatabase("c:\Program Files\WinTV\hcwChanDB_5.mdb")

tu dois pouvoir tirer cela de la registry, non ?

Dim dbHaupp As Database

pourquoi ne pas la déclarer dans ta sub ?

une interface (form) est inutile ici, un simple module eut suffit


ton code, lui, transposé dans un projet plus important deviendrait vite un boulet. En effet, tu rappatrie toute ta table et traite cela en VB.
inutile, SQL te dirait:

Private Sub Form_Load()
Dim dbHaupp As Database
Set dbHaupp = OpenDatabase("c:\Program Files\WinTV\hcwChanDB_5.mdb")
dbHaupp.Execute("UPDATE `hcwChannels` SET `channel_type`='TV' WHERE `preferred_name`='CANAL+' "
dbHaupp.Close
End Sub

simple, non ? ^^

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.