Discussion :

[Bernard B]

Bonjour,

Une appli Windows VCL 32 bits Delphi 11.3 Community.
Je voudrais afficher une vidéo dans un TPanel par exemple et qu'elle se mette automatiquement à l'échelle de la zone d'affichage.
J'ai mis un TWindowsMediaPlayer dans un TPanel, la vidéo est bien lue, mais pas de mise à l'échelle, la video est simplement tronquée à la taille du TPanel.

Je n'ai pas trouvé de propriété permettant cette mise à l'échelle
Est-ce possible ? et sinon y a-t-il un autre objet mieux adapté ?

Merci

[ShaiLeTroll]

Dans l'objet sous-jacent de Microsoft : https://learn.microsoft.com/fr-fr/pr...r-stretchtofit

Cela semble avoir changé selon les versions de Windows, le SDK a évolué.

[Bernard B]

Merci ShaiLeTroll, mais il semble que cela ne fonctionne que si la video est plus petite que que la zone d'affichage.
Dans mon application, c'est plutôt l'inverse que je cherche, je voudrais passer de 1920x1080 à 192x108 par exemple

The stretchToFit property specifies or retrieves a value indicating whether video displayed by the Windows Media Player control automatically sizes to fit the video window, when the video window is larger than the dimensions of the video image.

[XeGregory]

Remplace TWindowsMediaPlayer par DSPack
https://github.com/YepSfx/DSPack

[Bernard B]

Merci pour l'info, je ne sais plus si j'avais regardé cette lib à l'époque.

Pour l’instant je me lance dans l'envoi de mails si il y a quelques années c'était simple, cela semble s'être complexifié aujourd'hui, pourtant il faut que j'y arrive..

[XeGregory]

Avec GMail ?

Paramétrage du compte Gmail :

Dans les paramètres de sécurité Google, activez la Validation en deux étapes.
Générez un Mot de passe d’application (16 caractères).
Conservez ce mot de passe : il remplacera votre mot de passe standard dans le code.

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
uses
  IdSMTP, IdMessage, IdSSLOpenSSL, IdExplicitTLSClientServerBase, Classes, SysUtils;
 
procedure SendGmail(
  const GmailUser, AppPassword,
  Recipient, Subject, BodyText: string);
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  SMTP := TIdSMTP.Create(nil);
  SSL  := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  Msg  := TIdMessage.Create(nil);
  try
    // Configuration SSL/TLS
    SSL.SSLOptions.Method := sslvTLSv1_2;
    SSL.SSLOptions.Mode := sslmClient;
    SMTP.IOHandler  := SSL;
    SMTP.UseTLS := utUseExplicitTLS; // TLS explicite sur le port 587
    SMTP.Host := 'smtp.gmail.com';
    SMTP.Port := 587;
 
    SMTP.Username := GmailUser;
    SMTP.Password := AppPassword;
 
    Msg.From.Address  := GmailUser;
    Msg.Recipients.EmailAddresses  := Recipient;
    Msg.Subject := Subject;
    Msg.Body.Text := BodyText;
 
    SMTP.Connect;
    try
      SMTP.Send(Msg);
    finally
      SMTP.Disconnect;
    end;
  finally
    Msg.Free;
    SSL.Free;
    SMTP.Free;
  end;
end;

Récupérer les fichiers libeay32.dll et ssleay32.dll

[Bernard B]

J'ai testé plusieurs exemples basés sur Indy (la moitié ne compilent pas) , j'ai récupéré toutes les dll du site que vous citez, lesquelles prendre ? Les suffixes q,r,s,t ,u ils correspondent à quoi ? Les 32 bits pour appli 32 bits et les 64 pour une appli 64 bits et après ? Jamais réussi à envoyer le moindre mail !!


Je viens de tester cet après-midi la suite de J F Piette ICS. J'ai galéré un peu pour l'installation, mais ensuite l'exemple d'envoi de mail avec les dll SSL fonctionne avec encore quelques interrogations mais j'ai pu envoyer vers orange, gmail, lws en utilisant mon serveur SMTP orange. Enfin !!

[SergioMaster]

Une appli Windows VCL 32 bits Delphi 11.3 Community.

Même si windows, pourquoi ne pas passer en FMX ? un peu d'audace En peu de google j'ai pu trouvé un tutoriel Youtube (Tutorial: TMediaPlayer in FireMonkey (Delphi DX 11 Alexandria) on Windows only)

[Bernard B]

Oui Sergio tu as raison, avec un peu de FMX j'ai pu faire ce que je voulais au niveau de l'affichage de la vidéo, mais le soucis c'est que cela doit s'intégrer dans une grosse application VCL (un photomaton) et je n'ai pas envisagé de tout réécrire en FMX.
J'avais regardé sans le tester l'intégration de form FMX dans du VCL cela semblait prometteur.

Dans cette appli, j'utilise de nombreuses fonctions de la bibli Graphic32, dont la gestion des couches, la transparence des couches...... tout est certainement transposable, mais pour l'instant j'ai d'autre choses en projet.

[SergioMaster]

Bonjour,

je ne comprends pas trop le

Je voudrais afficher une vidéo dans un TPanel par exemple et qu'elle se mette automatiquement à l'échelle de la zone d'affichage.

du coup, j'ai fait un essai VCL

peu visible, la video est bien dans un TPanel.

Ce que tu entends par mise à l'échelle c'est quoi exactement, l'absence du "cadre" noir ?

[Bernard B]

La vidéo fournie par la camera fait 1920x1080 pixels, je veux l'afficher dans un panel qui fait 350 pixels de large par exemple et qu'elle se mette à l'échelle pour entrer dans le panel sans être tronquée ni déformée.

[SergioMaster]

la vidéo de mon exemple est de 3840 × 2160 et ne me semble pas trop déformée.
J'avais fait en sorte d'ancrer le panel aussi j'avais pu tester diverses tailles en changeant simplement la taille de la fenêtre.

juste pour test je suis passé à un 320 de large

pas de déformation visible (bon évidemment ce n'est pas capturé tout à fait au même instant )

[Bernard B]

Ok Sergio c'est ce que je cherche mais comment tu as fait ? Moi, je récupérais les images de la caméra je ne sais plus comment, et ça ne marchait pas. il faudra que je replonge, mais comme j'ai dit à XeGregory pour l'instant je suis sur de l'envoi de mails automatisé...

Merci

[SergioMaster]

je t'envoie mon code demain matin

[Bernard B]

Super, MERCI, je testerai dans quelque jours.

[SergioMaster]

Comme promis, en zip, les sources de ma petite application test.
Lirevideo.zip
toutefois quelque chose me chiffonne depuis hier, tu indiques

La vidéo fournie par la camera fait 1920x1080 pixels,

Du coup je me demande si le titre de ta discussion est juste et si ce n'est pas plutôt la capture du flux vidéo que tu cherches à obtenir. Auquel cas, si je sais le faire en FMX je ne me suis jamais penché sur la même chose en VCL, challenge intéressant pour ma reprise en douceur

[Edit] après recherches, j'ai trouvé ce qu'il te faut dans le cas où il s'agirait de flux vidéo https://mega.nz/file/I2wRhAjB#MKe2_z...3Ds7IINf19Xp0A, les explications du néo-zélandais à l'origine se trouvent ici www.youtube.com/watch?v=rz-PZec9_I8

[Bernard B]

Effectivement le besoin est bien de la capture de flux vidéo. Je veux afficher la vidéo d'un webcam pour que les personnes qui veulent se prendre en photo puissent se placer et ensuite je déclenche la capture d'une image pour la mettre dans une feuille avec un fond, du texte, des dessins.... pour finir par l'imprimer.
Donc besoin d'afficher le flux vidéo dans une petite fenêtre dans un coin de l'écran et capturer une image.
J'ai tout qui fonctionne en VCL sauf mettre la vidéo dans une fenêtre plus petite que sa résolution de prise de vue.
Je viens de regarder rapidement la vidéo en lien, il semble y avoir tout !!
Merci