AFFICHAGE WEBCAM, CAPTURE ET TRAITEMENT D'IMAGE

Commentaire de Kaaloos le 10/12/2003 15:26:00

C fort comme composant, mais voilà, j'aimerais faire un PAUSE et afficher la capture dan un TImage, c'est à dire faire de sorte que la webcam joue le rôle d'un appareil photo.
ça ressemblerait aux logiciels de "Picture Capture" fournis avec les webcam.

Commentaire de Kenavo le 11/12/2003 08:46:41

Une autre fonction existe dans l'objet TCamera : GrabarImagenPortaPapeles (capture d'image dans le presse papier)
De cette façon, on n'enregistre pas de fichier BMP.

procedure TForm1.Button2Click(Sender: TObject);
begin
  Camera1.GrabarImagenPortaPapeles;
  Image1.Width := Camera1.Width;
  Image1.Height:= Camera1.Height;
  Image1.Visible := True;
  If ClipBoard.HasFormat(CF_BITMAP)then
   Image1.picture.Bitmap.Assign(ClipBoard);
end;

Commentaire de Kenavo le 19/12/2003 08:03:57

Ah oui, pardon !
Il faut rajouter "ClipBrd" dans uses, pour pouvoir utiliser les fonctions du presse-papier (ClipBoard)

Commentaire de Forman le 19/02/2004 11:58:24

Oui, mais déjà nous on parle (ou écrit) mieux français     :)

Et puis, après tout, Kenavo n'a jamais prétendu être l'auteur du composant, non?

De plus, nous autres putains de français, on n'y peut rien, on est très bête puisqu'on s'amuse à faire des sites et à poster dessus pour les programmeurs débutants, alors qu'en fait la programmation devrait être un art sérieux réservé au cercle très fermé des programmeurs expérimentés et professionnels qui ont pris de vrais cours pour ça, eux, et qui n'ont pas besoin de ça! Désolé donc de heurter ta sensibilité à fleur de peau par notre bêtise et notre manque de capacités en programmation, parce qu'on a juste choisi de programmer pour le plaisir, et que ça devrait être un honneur réservé à la seule élite très sérieuse que tu représentes... Et voilà que nous, pauvres débutants autodidactes, on a l'orgueil de vouloir jouer dans la cour des grands!
C'est vrai qu'on devrait être punis pour ça! Mais bon, quelque part tu es magnanime puisque tu nous traite de pines, et que le destin d'une pine n'est pas des plus désagréables: il n'y a pas mieux pour une pine que de pénétrer un con! (mais peut-être que vu ton niveau en français, tu ne connais pas le deuxième sens de ce mot, consulte donc un dictionnaire!)

Commentaire de Longzzorreills le 26/03/2004 21:06:03

J'ai essaye le programme mais j'ai un probleme avec le composant Tcamera, l'ordinateur ne trouve aucun drivers et ce avec les deux webcams différentes que j'ai teste. Y a t il une manoeuvre speciale pour que delphi reconnaisse ma camera (windows la voire et arrive a s en servir mais delphi ne trouve aucun driver). Est ce que quelqu'un a  deja eut ce probleme et connait une solution?

Merci d'avance

Un programmeur debutant.

Commentaire de Kenavo le 03/06/2004 07:42:07

Kacola,
TJLCVideo est le composant original, TCamera en est une copie quasi conforme. Le programme BigBrother utilise TCamera. Les deux peuvent être intallés, mais c'est un peu redondant.

Kenavo

Commentaire de masterglob le 26/07/2004 18:37:55

Salut

Je suis nouveau sur ce site, mais ce composant est exactement ce que je cherchais, a un détail près:

Il manque (ou alors j'ai raté quelques lignes) la possibilité de choisir son périphérique quand on en a plusieurs (exemple: moi j'ai une carte TUNER et une WEBCAM)

J'ai donc un peu modifié le composant pour obtenir une fonctionnalité permettant de changer de périphérique, et d'obtenir la liste des drivers.

Est-ce que ça intéresse des gens d'avoir cette modif? Et si Oui comment propose-t-on une mise a jour?

Merci a tous.

Commentaire de TheSquad le 26/11/2004 21:55:05

Salut, tout d'abord, merci pour ta source (faut pas être désagréable comme certaines personnes que je ne citera pas)

voila j'ai un petit probleme avec la source, en fait, il plante avec ces lignes de codes :

if un then
    for i:=1 to (Taille-1) do
      MemoImage1[i] := p^[i]
  else
    for i:=1 to (Taille-1) do
      MemoImage2[i] := p^[i];

lorsque je les mets en comentaire, tout marche bien. Mais hélas, ce que je recherchais tout particulierement c'était la comparaison de 2 images. Mais bien sur sans ces lignes de codes, ça ne marche plus :(
En esperant que tu pourra m'aidé.
Merci bcp !!

Commentaire de TheSquad le 27/11/2004 19:27:26

effectivement, bien vu, ça ne marchait pas en 640x480...
Merci pour ton aide masterglob !

Commentaire de niocco le 27/11/2004 21:02:15

Salut

D'abord au sujet de mon post un peu plus, comme d'habitude je me suis trompé. mon programme était mal fichu voilà pourquoi ces plantages intempestifs. l'erreur était idiote de plus.

Deuxièmement j'espère que ce n'est pas mon post qui motive la remarque de Thesquad ce n'est pas du tout mon intention de départ. et j'ai lu plus haut des posts bien plus impolis.

J'en arrive au fait:
J'ai quelques soucis avec une fonctionnalité de mon appli:
J'aimerais bien pouvoir contrôler les paramètres de la webcam ( comme par exemple les dimensions de la capture. )
J'ai bien vu que le composant le permet, mais c'est peu commenté et c'est de l'espagnol. bref, si c'était possible d'avoir un ou deux éclaircissements ce serait cool cool cool.

d'avance merci

Commentaire de Kenavo le 29/11/2004 11:02:35

Bon, ben si vous avez plus besoin de moi !....

Effectivement le buffer est dimensionné pour des images 230 x 240 x 24bits(=3octets)/pixel  = 230400 octets d'où :
TTabImage = Array[0..230399] of byte;
en 640 x 480 couleurs 24 bits il faut :
TTabImage  = Array[0..921599] of byte;

TheSquad, pour l'affichage plein écran, tu peux utiliser MaCamera.Align:=alClient; le "stretch" est automatique.


niocco,
Pour préciser les choses : AviCaptura.pas est l'interface de la DLL Avicap32.dll. Ce fichier a été "espagnolisé" et on peut aussi le trouver en anglais sur internet (sous le nom de Avicap.pas)
Pour aller plus loin dans l'utilisation des fonctions de cette dll, reportez-vous au MSDN http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_using_video_capture.asp

JLCVideo (ou Camera) crée un composant qui permet d'exploiter les fonctions d' AviCap32.dll. Son seul problème est d'être écrit en Espagnol, ce qui ne simplifie rien pour nous pauvres francophones.  Mais si vous vouliez (comme moi) écrire votre propre composant, vous vous apercevriez bien vite que JLCVideo (très complet) contient déjà tout ce que vous vouliez écrire ! Alors tout compte fait, vous utilisez JLCVideo, parce qu'il est déja écrit !

Ken@vo

Commentaire de ewertheimer le 23/06/2005 08:50:43

Comment est il possible d'installer des composants avec l'extansion *.pas . Je vous en supplit aider moi

Commentaire de ewertheimer le 23/06/2005 18:28:43

J'ai fait ce qu'it dit mais quand j'installe il y a _un bug dans les class :
unit Camera;

interface

uses
  SysUtils, Classes;

type
  TCamera1 = class(TCamera)//Ils disent que TCamera (entre parenthese) n'est pas un identificateur declare
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
  published
    { Déclarations publiées }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Exemples', [TCamera1]);
end;

end.

Commentaire de Forman le 10/06/2007 19:35:51

Non, ce n'est pas possible "nâtivement". C'est une limitation imposée par les driver même des webcam.

Toutefois, je pense qu'il est possible de faire un système pour lancer une application "server" en tâche de fond, qui lance l'acquisition de façon classique, puis de "publier" un filtre DirectDraw supplémentaire personnalisé pour toutes les applications clientes qui voudraient faire de l'acquisition simultanément (je crois que c'est possible à l'échelle d'un process). Ce filtre "simulerait" une webcam virtuelle en redirigeant simplement les données en provenance du server (par exemple en utilisant un Read/WriteProcessMemory) dans l'application cliente (MSN, etc...). Peut-être qu'il faudrait injecter une DLL dans les applications clientes propriétaires (genre MSN) pour appeler RegisterFilter.

C'est juste une idée comme ça, sans garantie que ça marche, mais si mon intuition est bonne ça ne devrait pas être *trop* compliqué à mettre en oeuvre.