Discussion :

[matrix1233]

Bonjour,
moi je suis concentré sur la phase 2 vu que mon programme original a un Stream comme entrée et je dois le faire apparaitre dans une Timage et j'ai juste donné un exemple dans ce forum pour que tout le monde puisse tester. Donc en réalité charger un Stream dans une TImage ça me coute 700 ms et c'est cette partie que je voudrais optimiser .

Une chose que je ne saisis pas pourquoi utiliser un Stream et TBitmap supplémentaire (qui ne servent à rien, ici dans ton exemple), si c'est juste pour afficher ton image dans un TImage ?

[tourlourou]

Serait-il envisageable de threader le chargement pour gommer cette latence ?

[BeanzMaster]

Salut Jipété !
As-tu passé le bitmap dans un de tes décodeurs d'en-tête pour voir si spécificité ?

Pas de spécificités particulières c'est un BMP v1 au format 32bits BGRA

Serait-il envisageable de threader le chargement pour gommer cette latence ?

Cela ne changera rien et il faudrait écrire sa propre méthode de chargement

Bonjour,
moi je suis concentré sur la phase 2 vu que mon programme original a un Stream comme entrée et je dois le faire apparaitre dans une Timage et j'ai juste donné un exemple dans ce forum pour que tout le monde puisse tester. Donc en réalité charger un Stream dans une TImage ça me coute 700 ms et c'est cette partie que je voudrais optimiser .

Quel est le format de ton stream se sont des données brute ou il y a tout ton fichier avec en-tête et tout le bazar ?. Je ne comprend toujours pas ce que tu souhaites faire. Avec ton stream tu fais quoi avant ?

Pourquoi dans la "phase 2" tu passes par un TBitmap secondaire qui sert toujours à rien ?

Code :

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

1
2
3
 
    FBitmap.LoadFromStream(M);
    Image1.Picture.Assign(FBitmap);

Au lieu de simplement faire

Code :

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

Image1.Picture.LoadFromStream(M);

Assign prend énormément de temps machine

Si ton Stream "M" est au format Windows BMP tu peux utiliser

Code :

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

Image1.Picture.LoadFromStreamWithFileExt(M, 'bmp');

Ce qui évitera de vérifier le format du stream et chargera ton image contenu dans le stream un peu plus rapidement.

Sans plus d'explication et de comment tu as codé ton appli. Dur de t'aider à optimiser ton code. Et comme je l'ai déja dit le TBitmap natif n'est pas un foudre de guerre et n'est pas comparable à celui de Delphi. Beaucoup de choses sont différentes dans la gestion des images entre l'un et l'autre.

[matrix1233]

j'ai deja testé

Code :

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

Image1.Picture.LoadFromStream(M);

et ca me coute 700ms aussi; j'ai utilisé l'assign car l'exemple avec vampyreImaging(60ms) est écrit avec l'assign

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
FBitmap:= TImagingBitmap.Create;
  try
    D1:=Now;
    FBitmap.LoadFromStream(M);
    Image1.Picture.Assign(FBitmap);
    D2:=Now;
 
  finally
    FBitmap.free;
    M.free;
    memo1.Lines.Add( MilliSecondsBetween(D1,D2).ToString );
  end;

et pour bien t'expliquer , j'ai une fonction qui fait une capture d'ecrans et ca retourne une bmp dans un stream et ce dernier doit etre afficher dans un Timage.

Avec ce code j'obtiens 380 ms =>

Code :

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

Image1.Picture.LoadFromStreamWithFileExt(M, 'bmp');

[BeanzMaster]

et pour bien t'expliquer , j'ai une fonction qui fait une capture d'ecrans et ca retourne une bmp dans un stream et ce dernier doit etre afficher dans un Timage.

Avec ce code j'obtiens 380 ms =>

Code :

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

Image1.Picture.LoadFromStreamWithFileExt(M, 'bmp');

Ok dans le cas présent pourquoi passer par un stream pour ta capture d'écran ? Pourquoi ne pas la faire directement dans un TBitmap ? cf ici pour plus d'infos

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
procedure TForm1.TakeAndShowScreenShoot;
var
  ScreenDC: HDC;
  MyRec : TRect;
  LocalBitmap : Tbitmap;
 
begin
  //Self.Visible:=false;
  LocalBitmap := TBitmap.Create;
  //sleep(2000);     
  try
    try
      ScreenDC := GetDC(1);
      LocalBitmap.LoadFromDevice(ScreenDC);        
    finally         
      Image1.Picture.assign(LocalBitmap);
      ReleaseDC(0, ScreenDC);      
    end;
  finally 
    LocalBitmap.free;
    //Self.Visible:=true;
  end;
end;

[Jipété]

Bonsoir,

Je me suis amusé à faire un test très simple, dans le dossier des sources de VampyreImaging, à savoir rechercher dans tous les .pas le nombre d'occurrences des mots LoadFromFile, LoadFromStream et Scanline, résultats 11, 19 et 177 respectivement.

On devine qui se tape le boulot, et pourquoi ça va si vite.

Àmha, ça ne doit pas être insurmontable de se bricoler un prog en partant des sources de VI et en enlevant tout ce qui ne te servira pas.
Ou alors attaquer ex nihilo avec Scanline mais là, tu n'es pas rendu.

Ou te contenter du TBitmap : après tout, quand je fais une copie d'écran dans mon Linux, le résultat n'est pas instantané, faut pas rêver. Et on s'adapte.

[matrix1233]

la capture d'écran est envoyé en réseau et puis récupérer dans un stream.
Mon besoin est tres clair; j'ai un stream que je doit afficher dans une Timage. tout autre alternative ne peut pas s'appliquer dans mon projet.

Ok dans le cas présent pourquoi passer par un stream pour ta capture d'écran ? Pourquoi ne pas la faire directement dans un TBitmap ? cf ici pour plus d'infos

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
procedure TForm1.TakeAndShowScreenShoot;
var
  ScreenDC: HDC;
  MyRec : TRect;
  LocalBitmap : Tbitmap;
 
begin
  //Self.Visible:=false;
  LocalBitmap := TBitmap.Create;
  //sleep(2000);     
  try
    try
      ScreenDC := GetDC(1);
      LocalBitmap.LoadFromDevice(ScreenDC);        
    finally         
      Image1.Picture.assign(LocalBitmap);
      ReleaseDC(0, ScreenDC);      
    end;
  finally 
    LocalBitmap.free;
    //Self.Visible:=true;
  end;
end;

[tourlourou]

C'est donc un flux de 20 Mo qui passe par le réseau puis doit être affiché.
Il met 700 ms pour s'afficher, mais combien pour la réception ?
L'interface est-elle bloquée tout ce temps, et l'utilisateur obligé d'attendre ?

[matrix1233]

je compresse . l'interface n'est pas bloqué.. c'est pas Là mon problème

[Jipété]

Mon besoin est très clair ; j'ai un stream que je dois afficher dans une Timage. Toute autre alternative ne peut pas s'appliquer dans mon projet.

Et donc la solution aussi :

Code :

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

1
2
3
...
thestream.Position := 0;
Image1.Picture.LoadFromStream(thestream);

Et si c'est trop long de faire patienter l'utilisateur pendant 0,7 secondes (), tu récris cette simple ligne en te basant sur VampyreImaging, puisque tu ne veux pas d'autre outil.

[Andnotor]

j'ai un stream que je doit afficher dans une Timage.

Le TImage n'est pas indispensable. Dessine directement sur la fiche.

[BeanzMaster]

la capture d'écran est envoyé en réseau et puis récupérer dans un stream.
Mon besoin est tres clair; j'ai un stream que je doit afficher dans une Timage. tout autre alternative ne peut pas s'appliquer dans mon projet.

Et ben, c'est si dur d'expliquer le contexte de ton application ? Excuses nous de ne pas être des devins. On ne peux pas mieux te répondre, si de ton coté tu ne nous donnes pas tous les éléments. Donc ben la tu as deux choix :

1ere solution (comme JP l'a mentionné):

Code :

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

1
2
thestream.Position := 0;
Image1.Picture.LoadFromStreamWithFileExt(thestream, 'bmp');

Si tu encode ta capture d'écran au format BMP, tu peux essayer au format JPG vue que tu l'envoies sur ton réseau. Les données seront ainsi moins volumineuse.

2eme solution : (surement la plus efficace) encoder toi même ton MemoryStream ou juste un "ArrayOfByte" au format RGB et remplir le Bitmap du Timage (ou juste un TBitmap comme suggéré par AndNotOr) via ScanLine (cf fast direct pixel access)

Bonne fin de soirée

[Jipété]

Salut voisin,

Dessine directement sur la fiche.

et tu fais ça comment ?

Merci,

[BeanzMaster]

Salut voisin,


et tu fais ça comment ?

Merci,

Hello, avec la méthode Canvas.Draw ou StretchDraw

A+

[Jipété]

Hello, avec la méthode Canvas.Draw ou StretchDraw

J'ai testé Canvas.Draw, plus de 900 mSec au lieu de la moitié,

Mais j'ai peut-être mal compris un truc ?

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
uses DateUtils;
 
var
  Bitmap : TBitmap;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  if not opd.Execute then Halt; // OpenPictureDialog
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile(opd.FileName);
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction := caFree; // pour éviter un warning
  if Assigned(Bitmap) then FreeAndNil(Bitmap);
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
  d1: TDateTime;
begin
  if Assigned(Bitmap) then begin
    d1 := now;
    Canvas.Draw(0,0, Bitmap);
    Caption := IntToStr(MilliSecondsBetween(d1, Now)); // 967 !
  end;
end;

[BeanzMaster]

J'ai testé Canvas.Draw, plus de 900 mSec au lieu de la moitié,

Mais j'ai peut-être mal compris un truc ?

Salut, non, c'est bien ça chez moi j'ai 624 lors du premier affichage (celui la prend plus de temps) ensuite si je redimensionne la fiche je tombe à 25 . Faut dire aussi que l'image est plutôt grande 2880x1800. Le mieux serai qu'il redimensionne l'image au dimension de son affichage avant l'envoi du stream.

Avec une fenêtre de 1024x768 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormActivate(Sender: TObject);
var
  bmp : TBitmap;
begin
  if not opd.Execute then Halt; // OpenPictureDialog
  bmp := TBitmap.Create;
  Bitmap := TBitmap.Create;
  Bitmap.SetSize(1024, 768);
  Bitmap.PixelFormat := pf32bit;
  Bmp.LoadFromFile(opd.FileName);
  Bitmap.Canvas.StretchDraw(TRect.Create(0, 0, Bitmap.Width, Bitmap.Height), bmp);
  Bmp.free;
  Invalidate;
end;

Forcement on perd en qualité mais l'affichage passe à 5ms

A+