Discussion :

[Bleys]

Bonjour à tous,

j'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
unit UPrinc;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, UDll, UCamera,
  StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Timer1: TTimer;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Déclarations privées}
    nbCamera : integer;
    fCamera : TCamera;
    fImage: pointer;
    fBitmapInfo: PBitmapInfo;
  public
    { Déclarations publiques}
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     if fCamera.PrendrePhoto(1,1,time,true) then showMessage('photo prise !!!');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var num : integer;
begin
     fImage := nil;
     num:=AttentePhoto(300);
     if num<>-1 then
     begin
       fImage := fCamera.RecupererPhoto;
       if fImage<>nil then showMessage('photo récupérée');
     end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
      FreeMem(fBitmapInfo, sizeof(TBitmapInfo)+256*sizeof(RGBQUAD));
end;
 
procedure TForm1.FormShow(Sender: TObject);
var index: integer;
begin
     if InitialisationDll then showMessage('chargement dll réussi');
     nbCamera:=InitialisationBus(0,0);
     showMessage('fait');
     fCamera := TCamera.Create(0);
     GetMem(fBitmapInfo, sizeof(TBitmapInfo)+256*sizeof(RGBQUAD));   // Allocation d'une zone mémoire (affecté à fBitmapInfo)
                                                                     // la taille est : la taille de l'en-tête d'un TBitmapInfo + la palette de couleur
                                                                     // (pour nous les 256 niveaux de gris).
     fBitmapInfo^.bmiHeader.biSize          := sizeof(TBitmapInfoHeader);
     fBitmapInfo^.bmiHeader.biPlanes        := 1;
     fBitmapInfo^.bmiHeader.biBitCount      := 8;
     fBitmapInfo^.bmiHeader.biCompression   := BI_RGB;
     fBitmapInfo^.bmiHeader.biXPelsPerMeter := 1;
     fBitmapInfo^.bmiHeader.biYPelsPerMeter := 1;
     fBitmapInfo^.bmiHeader.biClrUsed       := 256;
     fBitmapInfo^.bmiHeader.biClrImportant  := 0;
     fBitmapInfo^.bmiHeader.biWidth         := 100;
     fBitmapInfo^.bmiHeader.biHeight        := 100;
     fBitmapInfo^.bmiHeader.biSizeImage     := 100*100;
    for index:=0 to 255 do
    begin
      FillChar(fBitmapInfo^.bmiColors[index],sizeof(RGBQUAD),index);
    end;
     if fCamera.Initialise then showMessage('initialisation réussie');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var nb : integer;
begin
     image1.Picture.Bitmap.Canvas.Lock;
     nb := StretchDIBits(image1.Picture.Bitmap.Canvas.Handle, 0, 0, 100, 100, 0, 0, 100, 100, fImage, fBitmapInfo^, DIB_RGB_COLORS, SRCCOPY);
     showMessage(IntToStr(nb));
     image1.Picture.Bitmap.Canvas.Unlock;
     Image1.Repaint;
end;
 
 
end.

Button 1 => prend une photo
Bouton 2 => récupère la photo
Bouton 3 => affiche ma photo

La fonction PrendrePhoto est fonctionnelle sûr à 100%
La fonction AttentePhoto est fonctionnelle sûr à 100%
La méthode RecupererPhoto est fonctionnelle sûr à 75% : elle me renvoi un pointeur vers l'image prise par PrendrePhoto (en gros).


Seulement voila, ma photo ne s'affiche pas dans mon TImage .... Quelqu'un pourrait me dire si ma façon de manipuler le BitMap info est correcte ou pas (ainsi que GetMem, FreeMem, StretchDIBits ...) ?


Par avance merci pour votre aide




[Edit :] Je suis sûr à 99% que la méthode RecupererPhoto est fonctionnelle car en ayant modifié un peu le source (notamment l'ajotu d'un showMessage après le StretchDIBits) j'ai bien 100 lignes scannées ...

D'où vient l'erreur ? Pourquoi l'affichage ne fonctionne pas alors que StretchDIBits à l'air bon ?



Merci encore pour tout

[Paul TOTH]

est-ce que tu initialises le bitmap de ton image ?

NB: il est parfois plus simple de générer un Bitmap dans un TMemoryStream et de le relire dans l'image via LoadFromStream

[Bleys]

est-ce que tu initialises le bitmap de ton image ?

C'est à dire ? (donc je suppose que la réponse est non )

NB: il est parfois plus simple de générer un Bitmap dans un TMemoryStream et de le relire dans l'image via LoadFromStream

Merci pour l'info ... Je verrais si ça peut m'être utile une fois ce soucis réglé ...



Merci de ton aide

[Bleys]

Effectivement ça doit être un problème dans ce genre puisque si à la conception je mets une image dans mon TImage => ma photo s'affiche ...



Un peu plus de lumière sur l'initialisation d'un bitmap d'un TImage ?



Merci

[Paul TOTH]

ben quelque chose dans ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
image1.picture.bitmap.width:=100;
image1.picture.bitmap.height:=100;

[Bleys]

Bien vu ça fonctionne





Merci beaucoup