VIDEOSURVEILLANCE A 4 CAMERAS +ENVOI EMAIL+APPEL TELEPHONIQUE

Commentaire de Francky23012301 le 21/05/2006 07:44:56

Salut,

Que dire : c'est grandiose. C'est du très très bon travail JLen. Tu peux être fiere de toi.

Ce projet est original. Le code est limpide et superbement bien réalisé. En plus j'ai appris plein de nouvelles fonctions.

Je n'ai pas pu tester les alertes mails ou vocales (ma configuration ne le permet pas).

Allez je te mets un 10/10 car je peux pas mettre plus.

Commentaire de DeltaFX le 21/05/2006 09:55:50

Si tu cherches un compo video puissant, jettes un oeil à videocapx chez fathsoft.com. Il gere la detection multizone par camera, l'upload vers server, l'enregistrement/rééncodage,la capture son. Etc..

Mais c'est pas gratuit.

Commentaire de Francky23012301 le 21/05/2006 10:57:05

Je justifie le grandiose :

-Il s'agit là d'un soft et pas d'une simple source Je conseille à tout le monde de le télécharger : c'est un cours de coding à lui tout seul.

-Bien que cela ne saute peut etre pas aux yeux : tu as du etre confronté à beaucoup de "petits beugs" et reglages qu'ils ne devaient pas être simples à regler.

-Il a été fait en un temps record!

-C'est bourré d'astuces

-Ce soft est très très bien structuré : rien de superflus.

Ce n'est que du bon quoi! A lire absolument!

Commentaire de DeltaFX le 21/05/2006 14:17:34

J'utilise videocapx  car il fait également player video( et ca faisait ca de moins a coder). Je vais regarder Tmed.

Commentaire de jlen100 le 21/05/2006 14:39:42

Pour TMED il est est assez simple a utiliser :
il compare les bitmaps qu'on lui passe (methode InsertNextBitmap)ce qui permet de régler facilement le nombre de comparaison/seconde et surtout d'être indépendant de la fréquence vidéo.
Pour la programmation des zones vas voir le module paramzones.
le seul problème que j'ai rencontré c'est au niveau de la matrice ou les colonnes et les lignes sont inversées ce qui oblige à travailler en matrice carrée. ( je n'ai pas encore corrigé la source de TMED mais je m'y mets dés que j'ai un moment)
dans le programme cela me permet de changer de caméra sans modifier les paramètres de détection (utile si une caméra tombe en rade ou si l'on veut changer de système: windows donne un nom unique à chaque caméra installée et si l'on change de caméra il vaut mieux pouvoir récupérer les paramètres sans avoir à tout refaire)

@+
jlen

Commentaire de jlen100 le 21/05/2006 15:03:02

oui effectivement il est pas mal. toutefois il y a une chose qui semble manquer (je n'ai pas regarder dans le détail) c'est le réglagedu nombre de comparaisons pas seconde qui est important en surveillance pour éliminer les variations parasites rapides. D'autant qu'il est inutile dans ce cas de faire plus de 2 à 6 comparaisons/seconde les mouvements que l'on veut détecter étant généralement bien plus lents c qui limite la charge processeur.
Pour le fonctions que tu sites se sont plus des fonctions de traitement d'image que de détection et le compo TMED est spécialisé.

@+
jlen

Commentaire de DeltaFX le 21/05/2006 17:24:47

Ouaip, Tmed est + spécialisé. Pour répondre a ta question concernant les detections, il y a

- la methode DetectMotion qui renvoi à un instant T une estimation de mouvement (d'apres la doc si result > 30; result dans [0..100], il y a mouvement entre 2 images consécutives du flux

- ou CompareImage, qui compare 2 images, indépendament du flux, au concepteur de régler la fréquence du truc.

Arf, j'ai l'impression de faire de la pub pour le truc, c'est pas le cas hein, mais je le trouve sympa donc j'en parle. (Par contre il gere la perte d'une source, les cameras de surveillances motorisées, iris, expo, focus, si la cam le permet, tu peux tout controler par le code....)

Pour aller plus loin, je dois avoir qqpart l'url d'un site sur traitement et vision par ordinateur (mais en java) avec des codes bien puissants, permettant par example de déterminer dans une image ce qui est au premier plan etc etc. (j'avais trouver ca en me renseignant sur un projet de détection d'obstacles/mobiles peu visibles en vision nocturne).

J'ai testé ton prog (en dehors de Tmed) et 10/10 aussi.

Commentaire de jlen100 le 21/05/2006 17:42:19

merci pour la note.
effectivement ton compo est puissant et certainement plus que TMED mais une petite question est ce qu'il permet de g"rer les caméra multiplexées (un flux et plusieurs détecteurs) puisque dans mon projet pour limiter la charge (avec 16 caméras et autant de memorystream on dépasse largement capacités des systèmes actuels, mais c'est vrai que cela évolue rapudement)je multplexe les sources, je suis parti à 1/4 mais l'on peut faire  jusqu'à 1/10 avec des caméras video de qualité à 70 frames/s et un boitier prévu  en conséquence.

@+
jlen

Commentaire de jlen100 le 21/05/2006 18:30:53

c'est exactement cela
ce n'est pas surprenant qu'il ne puisse pas le faire puique je pense qu'il associe directement la caméra au composant.
dans l'appli on adresse une interface (USB pour 4 caméras ethernet au delà) on lui envoie le N° de caméra et elle renvoie la frame correspondante.
pour les caméras motorisées et les réglages ce sont des commandes que l'on envoient par le même canal en fait cela fait partie du driver et c'est indépendant de la capture.
Ces commandes sont struturées de la façon suivante: nom_du_boitier+N° de caméras +nom_de_la_commande+paramètre;
le nom du boitier correspondant au nom de la device donné par windows (elle est considérée comme une source video unique) l'appel se fait au travers d'une DLL.
c'est pour cela que j'avais besoin d'une capture et de détecteurs séparés
Pour TMED il active un évènement si l'on dépasse le seuil mais rien n'empêche de le modifier pour qu'en plus il renvoie le résultat dans une propriété même s'il n'y a pas alerte.

Commentaire de EddiTheHead le 22/05/2006 20:03:45

Slt,
C'est pas du code pour les bleus. Maintenant je sais pourquoi je ne pouvais pas mettre ces fonctions dans mon prog CentraleAlarme.
Très bon travail.

Commentaire de Kenavo le 23/05/2006 09:17:23

Satut !

"j'étzis parti sur l'API AVICAP mais elle présente un gros défaut : c'est d'çtre complètement "aveugle" quand l'image est cachée".
FAUX ! Seulement en mode preview, mais pas en mode capture ! Heureusement, ma Doue benniget !

Ken@vo

Commentaire de jlen100 le 23/05/2006 10:08:31

au fait kenavo il n'y a tout simplement pas d'évènement OnFrame si l'image n'est pas visble

@+
jlen

Commentaire de jlen100 le 23/05/2006 12:46:10

c'est bien sauf que le composant TCapture ne l'implémente pas
@+
jlen

Commentaire de Kenavo le 23/05/2006 15:46:46

Tu voulais une astuce pour les acquisitions à partir d'AVICAP ! Je te l'ai donnée ! Vrai que j'aurais pu l'intégrer dans TCapture ! Mea culpa !
J'avais remarqué cette fonction () et je me demandais à quoi elle servait.... et j'avais noté cette différence de comportement en cas de masquage de la visualisation par une autre fenêtre.  
Je cherche encore les explications à des fonctionnements "non contrôlés" de TCapture, mais je mettrais à jour bientôt !

Ken@vo

Commentaire de jlen100 le 23/05/2006 16:10:33

c'est pas très grave.
cela dit AVICAP est moins performant que l'acquisition avec directX et on note une nette différence sur la fluidité de l'affichage mais en contre partie il est plus gourmand en ressources.
Enfin il y avait un bug sur la sélection des caméras (certains modeles ne sont pas reconnus comme source video et comme c'était le cas du boitier c'était plutot gênant ) cela semble venir du GetDriverList qui ne les trouve pas tous bien qu'ils apparaissent dans la liste du gestionnaire de périphériques: en fait il le trouvait comme un second device0 quand je forçais l'assignation pas cool! là je n'ai rien compris à ce qui se passait et que c'est plutot surprenant puisque c'est directement la DLL qui gère cela
@+
jlen

Commentaire de mouchie le 25/05/2006 19:30:51

salut  jlen100

Je suis très intéressé  pour ton programme mais malheureusement je suis débutant en delphi  j’ai télécharger ton programme mais je ne sais pas comment installer les nouveau  composants .
es tu peut me dire comment en peut faire ça ?
et es qu’en peut installer se composant dans builder c++ et comment ?
Dans l’attente de votre réponse veuillez accepter mes salutations.
merci  

Commentaire de jlen100 le 25/05/2006 23:27:08

bonsoir,

Pour couper cours à toutes polémiques sur le composant utilisé dans le module PHONE je reviens à la version initiale basée sur TurboPower Async Professional

@+
jlen

Commentaire de jlen100 le 26/05/2006 13:19:55

peux tu m'indiquer le module et la ligne?

@+
jlen

Commentaire de jlen100 le 26/05/2006 18:58:00

je viens de m'appercevoir que le code du module MAIL n'est pas portable sous D2005 et INDY 10 (il ne se compile tout simplement pas) Apparemment il y a eu une refonte complète du composant, comme il n'est pas documenté ..... et que l'on ne peut pas installer la version 9  je n'ai pas de solution à proposer.
Encore une chose à mettre au passif de D2005!!

@+
jlen

Commentaire de cincap le 31/05/2006 14:57:09

Bonjour JLEN,

Après test du module téléphone et avec 3 cartes modem data/fax/voice différentes, aucune reconnaissance et trans mission correcte du fichier wav.

Une fois le bouton général On/Off enclenché, les modules cochés pour la transmission fonctionnent (tél (bip), email, sons, sauvegarde image) par contre, si tu remets ce bouton général sur Off, seul le son n'est plus actif, le reste continue à fonctionner.

@+,

Cincap alias Max

Commentaire de cincap le 31/05/2006 15:35:21

Merci pour le On/Off, pour le modem, l'essai portait sur un numérique et analogique d'après le vendeur, le principal est le 56KPCIHARDWARE de chez Sweex et le répondeur intégré lit pourtant les messages wav tandis que l'application non.

@+,

Cincap

Commentaire de cincap le 31/05/2006 17:53:51

Ce serait intéressant de savoir quel type de modem analogique et de quelle marque, convient pour cette application car mes tests étaient bien avec des modems analogiques et l'appel se faisait correctement mais le wav n'était pas audible sur un Gsm naturellement.

@+,

Cincap

Commentaire de cincap le 12/06/2006 19:51:58

Bonjour Jlen100,

ne crois tu pas en ce qui concerne le module téléphone, qu'il vaudrait mieux utiliser un simple Tedit afin de rentrer au choix un n° de Gsm ou de téléphone privé.

En effet, en Belgique la numérotation d'un téléphone particulier est de 9 chiffres et celui d'un Gsm est de 10 chiffres.

A moins de permettre cette différence avec le Teditmask.

Dans le module "paramétrage des zones, il me semble que cela gafouille, après avoir configuré la zone de sélection pour les 2 caméras, au prochain démarrage, les zones sont bien reconnues mais si on clique sur le bouton "rafraichir" puis sur le bouton "voir zone" on se retrouve avec une autre zone sur le coin supérieur gauche mais en cliquant sur le bouton "voir toutes les zones" on retrouve en plus sa zone d'origine.

@+,

Cincap

Commentaire de jlen100 le 12/06/2006 21:10:31

bonsoir, en attendant que j'ai posté une nouvelle mouture des sources qui comprendar également des fonctionnalités supplémentaire vous pouvez modifier l'unité U_Parcam dans le bouton d'affichage d'uen zone comme suit:
procedure TParamZones.BAfficheZoneClick(Sender: TObject);
begin
  modifzone:=false;
  with ParCam[0] do
  begin
    if mask[ENumZone.Value].defined then
    begin
      FirstCell:= mask[ENumZone.Value].Haut;
      LastCell:=  mask[ENumZone.Value].Bas;
      AfficheZone (FirstCell,LastCell);
    end;
//    AfficheZone (FirstCell,LastCell);
  end;
end;

cela supprime le bug signalé par cincap

@+
jlen

Commentaire de jlen100 le 29/06/2006 11:16:45

voila qui est réparé.
Un HD m'ayant lachement abandonné la mise à jour n'était.....pas à jour
le bug est du à l'autosize de la fiche qui ne replace pas les composants à leur place. Bizarre

Commentaire de jlen100 le 29/06/2006 12:52:44

je regarde cela certainement encore un morceau qui est resté dans le HD

Commentaire de jlen100 le 29/06/2006 14:04:47

Attention j'ai oublié de préciser il y a un petit piège dans l'utilisation: j'ai rajouté une temporisation de mise en service(eh oui il faut quand avoir le temps de quiter la picéce avant de sonner la charge!!) elle est réglée par défaut à 5 minutes et est paramètrable dans le SETUP paramètre mise en service après X mn.
quoi il en soit il y a quand même un reste de mise à jour non effectuée : pour la fiche phone mettre timer1 a true dans l'inspecteur d'objet
normalement tout doit rentrer dans l'ordre.

@+
jlen

Commentaire de jlen100 le 28/07/2006 21:36:14

bonsoir
pour le cheval de Troie les anti virus le bloque (encore faut-il en avoir un et qu'il soit à jour mais pour les anxieux je modifierai la fonction getlocalIP en proposant 4 sites au choix:
function TFServer.GetLocalIp: string;
var HTMLSource:string;
  wsaData: TWSAData;
  addr: TSockAddrIn;
  Phe: PHostEnt;
  szHostName: array[0..128] of Char;
  BeginDelimit,EndDelimit:integer;
begin
  if RadioButton1.Checked then
  begin
try
    try
      if WSAStartup($101, WSAData) <> 0 then
        raise Exception.Create('Cannot initialize WSA');
      try
        if GetHostName(szHostName, 128) <> SOCKET_ERROR then
        begin
          Phe := GetHostByName(szHostName);
          if Assigned(Phe) then
          begin
            addr.sin_addr.S_addr := longint(plongint(Phe^.h_addr_list^)^);
            Result := inet_ntoa(addr.sin_addr);
          end;
        end;
      finally
        WSACleanup;
      end;
    except
      on e:Exception do begin
        Result:='Error: '+e.Message;
        raise;
      end else
        raise;
    end;
  finally
    //
  end;
  end;
  if RadioButton2.Checked then
  begin
  Try
    HTMLSource:=IdHTTP1.Get('http://checkip.dyndns.org/');
    delete(HTMLSource,1,pos(':',HTMLSource)+1);
    delete(HTMLSource,pos('<',HTMLSource),80);
    result:=HTMLSource;
  end;
  Except
//  Result:=false;
  end;
  if RadioButton3.Checked then
  Try
   result:=IdHTTP1.Get('http://filezilla.sourceforge.net/misc/ip.php');
//Dommage car la procédure était particulièrement simple!!!
  Except
//  Result:=false;
  end;
  if RadioButton4.Checked then// ce site m'a été proposé par francky
  begin
  Try
    HTMLSource:= IdHTTP1.Get('http://www.showmyip.com/fr/'); //On demande le contenu de la page et on le récupère dans HTMLSource
    BeginDelimit:=length(Copy(HTMLSource,1, Pos('Internet',HTMLSource)+ 9 ) );//);76 ,77
    EndDelimit:=length(Copy(HTMLSource,Pos('-->',HTMLSource)-1,Length(HTMLSource)));
    Result:=Copy(HTMLSource,BeginDelimit,Length(HTMLSource)-BeginDelimit-EndDelimit+1); //On extrait l'adresse IP de HTMLSource
  Except
//  Result:=false;
  end;
  end;
  IPServer.Text:=Result;//'Automatic Ip detection: '+
end;

pour la fiche FAlarm si ces 2 unités ont le même nom les fonctionnalités sont sensiblement différentes.
dans le cas de la version avec interface microprocesseur elle ne fait qu'afficher l'alarme alors qiue dans le programme de vidéosurveillance elle centralise et traite les défauts et est capable des gérer les défauts d'autres modules (non encore implémentés)elle génère en plus l'alarme sonore (celle du programme que tu cite ne fait qu'afficher la fiche)
J'ai préféré cette structure centralisée plutot que d'avoir à traiter les défauts dans chacun des modules

@+
jlen

Commentaire de jlen100 le 28/07/2006 22:47:44

si tu ne fais pas appel un site et si tu as un routeur l'adresse ne sera pas accessible la solution que tu donnes est celle du RadioButton1 à peu de chose près

@+
jlen

Commentaire de cincap le 29/07/2006 09:47:31

Je viens d'essayer ta solution, je constate une erreur à la ligne suivante :

if RadioButton2.Checked then
  begin
  Try
    HTMLSource:=IdHTTP1.Get('http://checkip.dyndns.org/');
    delete(HTMLSource,1,pos(':',HTMLSource)+1);
    delete(HTMLSource,pos('<',HTMLSource),80);
    result:=HTMLSource;

  end;//ICI, impossible de compiler sauf après enlèvement !

De plus après enlèvement du "end;" compilation et seul le radiobutton2 checked fonctionne.

Continuation des tests.

@+,

Cincap

Commentaire de cincap le 29/07/2006 10:24:49

C'est Ok maintenant.

Excellent travail et que d'heures passées gratuitement !

@+,

Cincap

Commentaire de jlen100 le 29/07/2006 10:54:04

pour sauvegarder la sélection du mode recherche de l'IP en fichier.INI

dans le Formclose rajouter:
  for i:=1 to 4 do
  begin
    if TRadioButton(FindComponent('RadioButton'+inttostr(i))).Checked then break;
  end;
.
.
.
  fIniFile.WriteInteger('Internet', 'ModeIP',i);
et dans le formCreate:

  i:= fIniFile.ReadInteger('Internet', 'ModeIP',1);
  TRadioButton(FindComponent('RadioButton'+inttostr(i))).Checked:=true;

@+
jlen

Commentaire de cincap le 10/11/2006 00:34:35

Bonsoir,

Après plusieurs tests, j'ai constaté qu'avec un routeur Wifi, l'Ip est reconnue soit au pc (local) soit avec le routeur mais alors impossible de se connecter avec le module web (accès denied).

@+,

Cincap alias Max le solitaire

Commentaire de Z abidine le 21/11/2006 09:04:55

Bonjour
j'ai consulter votre travail il est de bon qualite c'est un programme des expert.
  j'ai des question:
    1- quel est le type des camera(webcam/normal) .
    2- est ce que les camera sont liees a un seul pc ou (1camera pour 1 pc)
       si la premiere cas coment en peu liees ces 4 camera avec 1 seul pc .
    

Commentaire de cincap le 21/11/2006 13:12:36

Salut Jlen100,

Pourquoi avec un routeur wifi et après détection de l'IP, il est impossible d'accéder à la page représentant les caméras alors que sans le routeur cela fonctionne.

Pourquoi en passant par le module web, la page représentant les caméras ne peut pas afficher le backgroud image afin de l'embellir alors que séparée cela fonctionne avec ce code :

<body style="WIDTH: 400px; HEIGHT: 400px" bgproperties="fixed" background="1.jpg">.

@+,

Cincap

Commentaire de cincap le 21/11/2006 16:30:59

Le routeur est un wifi philips : http://www.belgacom.be/private/fr/jsp/dynamic/product.jsp?dcrName=hbs_ad_wrlp_phil_g.

Pour le background, il n'est donc pas possible de rajouter un theme même si on utilise une page htlm séparée !

@+,
Cincap

Commentaire de salimouu le 31/12/2006 15:03:28

je veux savoir une chose, ou es la hard dans tous ça?

Commentaire de jlen100 le 10/01/2007 10:19:48

Bonjour à tous, de retour de voyage à l'étranger je vai répondre aux derniers commeentaires
-->salimou ici ce n'est que du soft. le seul hard concerne les caméras (ça marche mieux avec!!)

--->fersouce le composant videocapture est dans le zip mais faut l'installer attention à installer la bonne version

@+
jlen

Commentaire de fersouce le 10/01/2007 11:35:38

vous parlez de quel zip

Commentaire de jlen100 le 10/01/2007 12:50:54

je ne suis que de passage en France et je dois bientot repartir pour organiser une expo. donc pour l'instant la suite est toujours dans les cartons et pourtant il ne reste pas grand chose à faire.... mais je n'ai que deux mains et une tête et hélas les journées n'ont que 24h
--->fersouce il n'y a qu'un seul zip il faut simplement faire attention à la version de DELPHI utilisé

jlen

mon site jlen.fr

Commentaire de cincap le 10/01/2007 16:24:27

L'ami Grandvisir à réalisé un excellent tutorial à ce sujet.

http://www.delphifr.com/tutorial.aspx?id=86

@+,

Cincap

Commentaire de cincap le 23/04/2007 19:49:20

Bonsoir,

Peus tu préciser avec quelle version Delphi.

@+,

Cincap

Commentaire de jlen100 le 23/04/2007 20:03:49

salut cincap tu m'as devancé d'une poignée de secondes!!

Commentaire de jlen100 le 23/04/2007 21:22:10

ça va de passage en France le temps de finir préparer l'exposition à raison de 2 à 3 tableaux par semaine cela devrait bientot être bon. si tu vas voir sur jlen.fr dans les pages "nouveau" et "atelier" tu auras une idée de la nouvelle collection ( enfin tout ne sera pas exposé question d'homogénétité dans les thèmes) ensuite plusieurs sont prévues cette année.(ma nouvelle compagne fait aussi office d'agent et est très (trop!!)active) enfin je devrai m'en sortir

Commentaire de sofinf2006 le 24/04/2007 10:36:19

Bonjour les amis , j'utilise delphi6 , j'ai tjs l'erreur tspinedit not found, autre chose , je suis entrain de creer une societe specialisé dans la domotique  , parmi mes produits un système de sécurité que j'ai appelai "smart-house", je cherche à creer mmoi même mes logiciels et interfaces electronique ,je peux vous aider pour rendre votre systeme professionnel , on y ajoutant les contraintes du mondes réél
merci

Commentaire de cincap le 24/04/2007 11:17:14

Je suggère au membre "sofinf2006" de réinstaller D6 car de base se composant s'y trouve et de plus je travaille aussi sur D6 et tout fonctionne correctement indépendamment des petits oublis lors de la mise à jour du disque dur de jlen100.

Cette source est donc stable et fiable.

@+,

Cincap

Commentaire de jlen100 le 24/04/2007 23:47:30

salut francky,

ça va bien un peu surbooké comme d'habitude, entre les voyages la préparation des expos, le site et les expos j'ai un peu de mal à faire surface. je repars la semaine prochaine à Marseille, la semaine suivante je suis sur Paris ensuite je dois préparer mon voyage aux US. pas vraiment le temps de travailler sur Delphi bien que je regrette de ne pouvoir ajouter quelques fonctionnalités à ce programme qui sont toujours dans les cartons ou de participer au forum.
Nouvelle vie nouvelle compagne, nouvelle muse et nouvelle source d'inspiration. La nouvelle collection alie le chaud où explose les couleurs et le  froid tout en délicatesse.
suis le site je le mets à jour tous les 2 ou 3 jours (le temps de faire un tableau)

@+
jlen

Commentaire de jlen100 le 03/05/2007 15:12:09

bonjour,
actuellement l'enregistrement peut se faire image par image et pour chaque chaque camera (on enregistre une image par détection)
en règle générale cela suffit pour garder la trace de l'intrusion.
Pour enregistrer une video il faut modifier la procedure et déclencher l'enregistrement et le stopper par un timer.
la form FGraphConfig est utilisée par videocapture pour le paramétrage.
il est possible des caméras IP mais il faut modifier le programme.
le fonctionnement de ces caméras est différents des webcam, elle n'envoient en principe des images que sur demande le problème c'est qu'il n'existe pas à ma connaissance de standart. en règle générale on on leur envoie une commande html et elle renvoie une page contenant l'image, on peut la récupérer dans un stream puis la transférer dans le bitmap (opération inverse de celle que j'effectue dans le module internet). il faut également modifier le setup pour paramètrer la caméra. Compte tenu de la diversité des modèles et l'impossibilité de tester les solutions  il m'est impossible de traiter et de donner une solution générale.
@+
jlen

Commentaire de jlen100 le 03/05/2007 20:59:34

je te déconseille d'appeler directement la form Fgraphconfig en effet avec 4 cameras et 6 composants possible elle est assez difficile à manipuler et les risques de plantage sont importants, aussi j'appelle les fonctions dans l'unité U_choisevideo.

pour l'enregistrement ce sont les fonctions VideoCaptureXX.startcapture(true)pour lancer l'enregistrement et VideoCaptureXX.stopcapture pour l'arrêter la video est enregistrée dans le fichier video définit dans TempCaptureFileName du composant

il n'y a pas de fichier d'aide pour ce composant

@+
jlen

Commentaire de cincap le 04/05/2007 16:53:36

Bonjour à tous,

@ Jlen100 as tu remarqué à la 1ère utilisation du logiciel, et après avoir rempli tes paramètres dans les modules adéquats, dans la fiche setup tu as le choix de choisir un message vocal et de l'écouter.

Seulement, tu n'as pas la possibilité de le valider même en fermant la fiche "Setup", il faut que tu redémarres le logiciel pour le faire.

Peut être une trace de ton ancien disque dur qui avait rendu l'âme.

Sinon j'espère que tu as le temps de siroter un bon pastis.

@+,

Cincap

Commentaire de cincap le 05/05/2007 11:07:22

Bonjour à tous,

@ Jlen100, j'ai remédier à ce problème en modifiant ceci :

procedure TSetUp.bwavClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
     EMessage.Text:=OpenDialog1.FileName;
  end;

  if EMessage.Text=OpenDialog1.FileName
// Au lieu de EMessage.Text= ''
then
  begin
     CBVoiceEnable.Enabled:=true; //Au lieu de false
  end;

end;

@+,

Cincap

Commentaire de cincap le 05/05/2007 15:45:07

Bonjour à tous,

En fait après utilisation, j'ai préféré ceci :

Dans le module "Setup"

procedure TSetUp.bwavClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
     EMessage.Text:=OpenDialog1.FileName;
  CBVoiceEnable.Enabled:=true ;
  end;
   end;

Dans le cas d'une annulation,CBVoiceEnable.Enabled reste false.

@+,

Cincap

Commentaire de cincap le 06/06/2007 15:08:59

Bonjour à tous,

@Jlen100, j'ai aussi constaté qu'une fois les paramètres des webcams effectués, si tu choisis un plan dans un autre répertoire de l'application, le fichier ".inx" est sauvé dans ce dernier répertoire à la fermeture de l'application et donc au démarrage il faut recommencer.

Même chôse si on ajoute un fichier aide dans un repertoire "Aide", pour le choix d'un skin dans son dossier "Skins", pour le choix d'un son etc...

L'idéal serait de forcer l'application a sauver le fichier ".inx" dans son propre répertoire comme pour l'aide, les sons, le plan.

@+,

Cincap

Commentaire de lassad_haddaji le 27/07/2007 20:16:49

salut
je ne peus pas te remercie plus que les autres mais bravo tres fort pour cette realisation j'ai le telecharger car ma attirer le nom de projet et j'espére ke j'auri le Delphi pour l'executer encore un grand merci.

          Le savoir n'est bon que s'il est partagé.

Commentaire de cincap le 18/02/2008 11:33:14

Bonjour à toutes et à tous,

@ Daminovich, en fait pour sauvegarder un fichier *.avi, il suffit d'ajouter ceci :

1) Dans le oncreate de la fiche "Caméras" (éfface éventuellement ce qui est dans les propriétés) :

Videocapture1.tempcapturefilename:= 'captemp.avi' ;
Videocapture1.capturefilename:= 'capture.avi' ;

Tu peus spécifier un répertoire et un autre nom pour ton fichier *.avi.

2) Ensuite tu ajoutes un bouton pour le play pas besoin du stop :

procedure TCameras.BStartClick(Sender: TObject);
begin
VideoCapture1.startcapture(true) ;
end;

3) Dans les propriétés de chaque composant "Videocapture" tu écris ceci :

TimeLimit = 5 //Remplace le bouton stop

UseTempFile = true

UseTimeLimit = true //Remplace le bouton stop

Cordialement,

Cincap

Commentaire de cincap le 21/03/2008 09:27:03

Bonjour à toutes et à tous,

Dans l'unité Fserver, un code Html est créé dynamiquement.

Ce code permet le refresh de la page entière suivant le délai choisi de 1s à 30s.

Y a t'il quelqu'un qui pourrait adapter ce code pour le refresh de l'image seule mais sans devoir les mettres en cache, car si on place une image comme background de cette page, le refresh de la page se perçoit sauf si le background est en couleur par contre le refresh de l'image passera inaperçut.

Merci d'avance,

@+,

Cincap

Commentaire de systy le 07/05/2009 17:32:13

Bonjour j aimerais de l aide pour installer ton programme. si quelqun peut me dire comment sa fonctionne. merci  ducmaxime@gmail.com