Discussion :

[cincap]

Bonjour à toutes et à tous,

J'ai une forme qui a la propriété d'être en arrière plan (FormStyle = fsNormal), j'appelle la visionneuse de Windows pour consulter ma photo et elle se met derrière la forme.

Y a t'il un moyen soit d'appeler cette visionneuse dans une fiche Delphi ou de faire en sorte de l'avoir au 1er plan.

Code :

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

1
2
3
4
5
6
7
8
 
 
if ComboBoxURL.Text = chappli + 'CamArriere.html' then
 fname:= chemin + pchar('\CamArriere.jpg') else fname:= chemin + pchar('\CamAvant.jpg'); //op1.FileName ;
 
 prevu :='C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen ' + fname;
 
 ShellExecute(0,'open','rundll32.exe',pchar(prevu) ,nil, SW_SHOW);

J'avais aussi testé ceci :

Code :

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

1
2
3
 
SetWindowPos(0, HWND_TOPMOST, 0, 0, 0, 0,  
 SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

Merci pour une éventuelle aide.

@+,

cincap

[cincap]

Après plusieurs tests, j'ai trouvé une solution qui m'agrée.

En effet, avec le Tbutton qui appelle la visionneuse de Windows et avant le code de ShellExecute, je force la fenêtre principale à resté à l'arrière plan et donc la fenêtre de la visionneuse se trouve à l'avant plan.

@+,

cincap

[ShaiLeTroll]

Cela me rappel un vieux DEV en Delphi 7
A l'époque pour afficher des TIFF, j'utilisais cela mais selon la version de Windows shimgvw ne gérait pas les paramètres
ou même n'existait pas encore et cela lançait Windows 2000 Kodak Image Viewer pour visualiser un TIFF

as-tu essayé SW_SHOWMAXIMIZED ou SW_SHOWNORMAL ?

Ton image est une JPG ! pourquoi ne pas utiliser TImage + TJPEGImage ?
TJPEGImage est dispo en D7, il faut soit même effectuer la conversion

Sinon, tu peux aussi utiliser le TWebBrowser, en faisant un Navigate sur le chemin de l'image, il l'affichera

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll merci pour ta suggestion, la fiche principale appelle le lecteur Vlc et donc c'est une vue de la caméra en direct, la visionneuse se place automatiquement derrière et comme je n'ai pas accès à sa propriété, je force la fiche principale à l'arrière le temps de l'appel de cette visionneuse.

Forcément, j'avais déjà essayé plusieurs solutions dont celles que tu préconises.

J'aime mieux utilise le viewer de Windows.

Le fait de rappeler que la forme principale doit resté en arrière de tout, il ne suffit pas de mettre sa propriété FormStyle := fsnormal, cela ne fonctionnait pas.

@+,

cincap

[edam]

hide et show

[cincap]

Bonjour à toutes et à tous,

@ edam, merci pour ta suggestion mais j'ai préféré la commande "SendToBack".

Code :

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

1
2
3
4
5
6
7
8
9
if ComboBoxURL.Text = chappli + 'CamArriere.html' then
 fname:= chemin + pchar('\CamArriere.jpg') else fname:= chemin + pchar('\CamAvant.jpg'); //op1.FileName ;
 
 prevu :='C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen ' + fname;

FViewerH264.SendToBack ; 

 ShellExecute(0,'open','rundll32.exe',pchar(prevu) ,nil, SW_SHOW);

En effet lorsque je consulte ma caméra en temps réel, je n'ai qu'une fiche ouverte sur le bureau de Windows, avec cette commande ma fiche principale est forcée à l'arrière plan et donc la visionneuse de Windows est à l'avant plan.

@+,

cincap