Discussion :

[cincap]

Bonsoir à toutes et à tous,

Avec cette procédure, j'affiche la vision de ma caméra et je n'arrive pas a faire une photo.

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
 
procedure WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName) ; 
var
viewObject : IViewObject;
r : TRect;   
bitmap : TBitmap;
 
begin   if wb.Document <> nil then
begin
wb.Document.QueryInterface(IViewObject, viewObject) ;
 
if Assigned(viewObject) then
try
bitmap := TBitmap.Create;
try
r := Rect(0, 0, wb.Width, wb.Height) ;
 
bitmap.Height := wb.Height;
bitmap.Width := wb.Width;
 
viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil,
 
Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0) ;
 
with TJPEGImage.Create do try Assign(bitmap) ;
 
SaveToFile(fileName) ;        
 finally
 Free;
 end;      
 finally         
bitmap.Free;       
end;
finally
viewObject._Release;
end;   
end; 
end;

Utilisation :

Code :

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

1
2
3
4
5
6
 
 
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant) ; 
begin   
WebBrowserScreenShot(WebBrowser1,'c:\WebBrowserImage.jpg') ; 
end;

Merci de votre aide éventuelle.

@+,

Cincap

[tourlourou]

Comment n'arrivez-vous pas à prendre un instantané ? Le fichier jpg se crée-t-il bien ?

[cincap]

@ Tourlourou,

Merci de ta réponse, la photo JPG se crée bien mais l'image de la caméra n'est pas affichée.

Je précise qu'il s'agit d'une prise de vue d'une caméra H264 qui s'affiche dans le WebBrowser et non d'une photo fixe.

@+,

Cincap

[cincap]

Bonjour à toutes et à tous,

Dans mes tests, j'ai chargé une page de YouTube, j'ai fait un print avec la procédure décrite et j'obtiens bien une photo JPG de cette page avec même la vidéo contenue sur cette page.

Dans mon application, je charge un fichier Html dans le composant Webbrowser et dans le code JavaScript je fais appel au lecteur QuickTime, je vois donc le contenu de ce que filme ma caméra en direct.

Je pense que le printscreen devrait être basé sur ce lecteur ?

Je continue mes tests.

@+,

Cincap

[ALWEBER]

Bonjour,
Tu as aussi le "screen shot" décrit dans l'exemple embarcadero sur le tethering

[cincap]

@ ALWEBER, merci pour ton info.

J'ai fini par adopter le code une simple capture de l'écran afin de sauvegarder la photo au format JPG.

Il me reste à créer une fiche qui pourrait enregistrer les photos à une date précise et toutes les 5 minutes ou plus.

@+,

JM