Canalclair

0/5 (3 avis)

Vue 13 361 fois - Téléchargée 415 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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
64
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...
Messages postés
3
Date d'inscription
vendredi 23 mai 2003
Statut
Membre
Dernière intervention
6 février 2008

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.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
64
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.