comment puis-je appeler cette fonction?Résolu

Question

Salut

comment puis-je appeler cette fonction? 
 pour faire la transparence d'un bitmap

http://www.delphi-central.com/tutorials/AlphaBlend.aspx

Bacterius · Answer

Pour l'API AlphaBlend, il suffit de passer quelques nombres en paramètre.
Voici, par exemple, pour alpha-blender 2 bitmaps de même taille (200 x 200).
(Pour la concrétisation, un bitmap de chat et un bitmap d'oiseau).

procedure AlphaBlendMyPets; // ^^
Var
 BFunc: BLENDFUNCTION;
begin
 BFunc.BOP := AC_SRC_OVER;
 BFunc.BlendFlags := 0;
 BFunc.SourceConstantAlpha := 128; // Allez, 128/255 transparence :)
 BFunc.AlphaFormat := 0;
 AlphaBlend(Bitmap2.Handle, 0, 0, 200, 200, Bitmap1.Handle, 0, 0, 200, 200, BFunc); // On applique l'alphablend 128/255
 // Le dessin alphablendé ira dans le Bitmap2 (destination handle de l'API)
end;

Voilà :)

Cordialement, Bacterius !

sarssor · Answer

Salut

les 2 fonctions sont pour mois pas facile de comprendre : (
Je voudrais utiliser cette fonction pas plus 
http://www.delphi-central.com/tutorials/AlphaBlend.aspx

je voudrais faire cet effectue Effet (Transparente) :
 

peut tu donner un exemple pour appeler cette fonction

Nicolas___ · Answer

sous delphi7

tu fais AlphaBlend := True et tu joue avec AplhaBlendValue pour régler l'opacité de ta fiche ... 

tout simplement !

Nicolas___ · Answer

désolé pour le double post 

Exemple : 

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlend := True;
  AlphaBlendValue := 125;
end;

sarssor · Answer

No No
Je ne voudrais pas faire cet Effet pour Formulaire. Mais Pour Image1.Bitmap seulement

Bacterius · Answer

Tu as regardé mon message ?
Il explique comment appeller l'API ...

Cordialement, Bacterius !

sarssor · Answer

Oui mais il'ya des fautes dans le code par exemple : HTML clipboardprocedure AlphaBlendMyPets; // ^^ Var BFunc: BLENDFUNCTION; Bitmap1,Bitmap2 : TBitmap; begin Bitmap1:= Image1.Picture.Bitmap; Bitmap2:=Image2.Picture.Bitmap; //BFunc.BOP := AC_SRC_OVER; BFunc.BlendOp := AC_SRC_OVER; BFunc.BlendFlags : = 0; BFunc.SourceConstantAlpha := 128; // Allez, 128/255 transparence :) BFunc.AlphaFormat := 0; AlphaBlend(Bitmap2.Handle, 0, 0, 200, 200, Bitmap1.Handle, 0, 0, 200, 200, BFunc); // Error ici aussi !!! end;

Bacterius · Answer

Oui c'est BlendOp, petite erreur de ma part.
Sinon, evidemment il faut faire procedure TForm1.AlphaBlendMyPets; ajouter la déclaration dans la fiche aussi, et ajouter 2 images remplies à ta fiche.
Ensuite, je ne sais pas pourquoi l'alphablend foire chez toi, chez moi ça marche bien ...

Je reposte la version corrigée donc :

[Ajouter 2 TImage à sa fiche, remplies d'un bitmap 200*200 chacune]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure AlphaBlendMyPets;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AlphaBlendMyPets;
Var 
 BFunc: BLENDFUNCTION; 
 begin 
 BFunc.BlendOp := AC_SRC_OVER;
 BFunc.BlendFlags := 0; 
 BFunc.SourceConstantAlpha := 128; // Allez, 128/255 transparence :) 
 BFunc.AlphaFormat := 0; 
 AlphaBlend(Image2.Picture.Bitmap.Handle, 0, 0, 200, 200, Image1.Picture.Bitmap.Handle, 0, 0, 200, 200, BFunc); 
end;

end.

Chez moi ça marche comme ça ... essaye comme ceci ?

Cordialement, Bacterius !

sarssor · Answer

chez moi sa marches pas faute est toujours ici : HTML clipboard AlphaBlend(Image2.Picture.Bitmap.Handle, 0, 0, 200, 200, Image1.Picture.Bitmap.Handle, 0, 0, 200, 200, BFunc); point-virgule manquant !

sarssor · Answer

chez moi sa marches pas
faute est toujours ici :
AlphaBlend(Image2.Picture.Bitmap.Handle, 0, 0, 200, 200,  Image1.Picture.Bitmap.Handle, 0, 0, 200, 200, BFunc); 

point-virgule manquant !

Bacterius · Answer

... C'est normal car le compilateur confond AlphaBlend de la fiche avec ALphaBlend de Windows.
Essaye Windows.AlphaBlend à la place de AlphaBlend ;)

Cordialement, Bacterius !

Cirec · Answer

Bacterius à raison:
à la place de AlphaBlend(***...);
tu mets:
Windows.Alphablend(***...);
pour forcer le compilateur à prendre l'API 

 
@+
Cirec

<hr siz="" />

Bacterius · Answer

J'espère que les prochaines versions de Delphi ont un compilateur plus intelligent qui décide de la fonction à utiliser selon les paramètres, et qui est capable de différencier une propriété d'une fonction ... lol

Cordialement, Bacterius !

sarssor · Answer

avec Windows.Alphablend(***...);
il n' ya pas des error mais sa fait rien ! Pas d'effet ? pas de différence

je préfère d'utiliser cette fonction
http://www.delphi-central.com/tutorials/AlphaBlend.aspx
Mais comment puis je d'appeler la Fonction avec un Button ?

Bacterius · Answer

Ben en fait ... c'est la même API mais enveloppée dans un code plus sécurisé que le mien (et surtout plus performant). Pour l'appeler, tu l'ajoute dans ton code et tu fais :

procedure TForm1.Button1Click(Sender: TObject);
begin
 LaFonctionAlphaBlend(Paramètres);
end;

En remplacant bien sûr ...

Cordialement, Bacterius !

sarssor · Answer

Mon Probleme c'est le parameter 
procedure DrawAlphaBlend (hWnd : HWND;  hdcwnd : HDC);

procedure TForm1.Button1Click(Sender: TObject);

begin

LaFonctionAlphaBlend(?, ?);

end;

Cirec · Answer

tu veux absolument utiliser cette procédure ... soit !!!!




mais sache que:
 1°: elle ne fait pas ce que tu demandes, c'est juste une démo d'AlphaBlend
 2°: elle n'est pas sécurisée 
 3°: une partie du code est faux et incomplet

donc pour voir ce qu'elle fait c'est simple :
procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawAlphaBlend(Handle, Canvas.Handle);
End;

il manque un rectangle au centre mais c'est parce que la procédure est fausse 
 
@+
Cirec

<hr siz="" />

sarssor · Answer

La fonction fait rien alors : (

Cirec · Answer

ben si mais elle ne fait pas ce que tu veux.
elle explique comment utiliser AlphaBlend mais 
c'est pas très claire 
pas correcte 
et pas sécurisé !!!
 
@+
Cirec

<hr siz="" />

sarssor · Answer

quelle fonction peut faire que je voudrais ?
Comme l'option "Opacity" en Photoshop

jeantentou · Answer

j'interviens à mon tour, car j'essaie également de faire fonctionner la procedure AlphaBlendMyPets et ça ne donne rien. pourtant, j'ai windows XP et j'ai chargé deux images de 200X200 en 24 ou 32 bits.
faut il donner une propriété spéciiale à image1 et image2?
j'aimerai bien que ça fonctionne!
merci
Jean Pierre

jeantentou · Answer

l'aide  de MSDN indique "Specifies the x-coordinate, in logical units, of the upper-left corner of the destination rectangle. "
ça voudrait dire que le bitmap ne doit pas être directement sur la form?
ma question est peut être idiote, mais bon...

jeantentou · Answer

bonjour et merci pour cette réponse, j'avais pas vu cette file.
J'utilise le code suivant où il doit y avoir une erreur...

unit essaitransparence;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;


type
  TForm1 = class(TForm)
    Imagedepart: TImage;
    Imagedestination: TImage;
    Imagefond: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure AlphaBlendMyPets;
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}
procedure PreMultiply(aBmp: TBitmap);
var PData       : PRGBQuad;
  I, BytesTotal : Integer;
begin
  BytesTotal := aBMP.Width * aBMP.Height;
  If aBmp.PixelFormat = pf32Bit then
  begin
    PData := aBMP.ScanLine[aBMP.Height-1];
    for I := 0 to BytesTotal - 1 do
    begin
      with PData^ do
      begin
      // préparation des pixels avant l'appel a AlphaBlend
      // http://msdn.microsoft.com/en-us/library/ms532306(VS.85).aspx
        RGBRed := (RGBRed * rgbReserved) div 255;
        RGBGreen := (RGBGreen * rgbReserved) div 255;
        RGBBlue := (RGBBlue * rgbReserved) div 255;
      end;
      Inc(PData);
    end;
  end;
end;
///////////////////////////////////////
procedure SetBitmap(ABitmap : TBitmap);
var
  pPix : pRGBQuad;
  x : integer;
  fblend:BLENDFUNCTION;
begin
  fBlend.AlphaFormat:=AC_SRC_ALPHA;
  if ABitmap.PixelFormat<>pf32bit then begin
    ABitmap.PixelFormat := pf32bit;
    pPix := ABitmap.ScanLine[ABitmap.Height - 1];
    for x:=0 to ABitmap.Width * ABitmap.Height - 1 do begin
      // si c'est la TransparentColor , alors Alpha = 0
      // sinon Alpha = 255 ...
      if RGB(pPix^.rgbRed,pPix^.rgbGreen,pPix^.rgbBlue) = form1.Imagedepart.Picture.Bitmap.TransparentColor then
        pPix^.rgbReserved:=0
      else
        pPix^.rgbReserved:=255;
      inc (pPix);
    end;
    PreMultiply(ABitmap);
  end;
  form1.Imagedepart.Picture.Assign(ABitmap);
end;
///////////////////////////////////////////////////
procedure TForm1.AlphaBlendMyPets;
Var
BFunc: BLENDFUNCTION;
begin
BFunc.BlendOp := AC_SRC_OVER;
BFunc.BlendFlags := 0;
BFunc.SourceConstantAlpha := 128; // Allez, 128/255 transparence :)
BFunc.AlphaFormat := 0;
windows.AlphaBlend(Imagedestination.canvas.Handle, 0, 0, 200, 200, Imagedepart.canvas.Handle, 0, 0, 200, 200, BFunc);
end;
///////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
  Imagefond.Picture.LoadFromFile('back_200b.bmp');
  Imagefond.SendToBack;
  Imagedepart.Picture.LoadFromFile('4_200c.bmp');
  setbitmap(Imagedepart.Picture.Bitmap);
  AlphaBlendMyPets;
end;
end.

mon imagefond est en couche de fond () et je veux obtenir la semi transparence de imagedepart dans imagedestination.
Avec ce code, j'obtiens une image de fond "décolorée" mais pas semi_transparente, donc ça doit être une histoire de paramètre pour la couche alpha. il faut dire que j'ai pas tout compris avec cette couche.
Si tu peux m'indiquer mon erreur...
Merci
Jean Pierre

jeantentou · Answer

juste pour remonter la file, au cas où tu l'aurais pas vue.

jeantentou · Answer

j'y suis enfin arrivé, ça fonctionne bien, maintenant, j'ai une transparence de 50% sur la totalité du bitmap.
ce que je voudrais maintenant, c'est avoir cette transparence partielle uniquement sur les partie colorées de mon bitmpa de départ, et une transparence totale pour les parties blanches.
transparentcolor ne marche qu'en 24 bits, donc ça ne fonctionne pas avec ça. (sauf erreur de ma part).
est ce possible?
j'espère que ma question sera moins stupide que la précédente, mais je ne suis sans doute  pas comme le bon vin qui se bonifie avec l' âge...
merci
Jean

Bacterius · Answer

Bien sûr que c'est possible ! Tu peux utiliser le canal alpha des bitmaps 32 bits (tu stockes par exemple 0 pour une transparence totale, et 128 pour une transparence 50%) puis ensuite, tu appliques un alpha-blending à chaque pixel.
Voilà une fonction pour obtenir l'alpha-blending de 2 couleurs selon le pourcentage de transparence (0 opaque, 255 transparence, 128 = 50% transparence) :

function Blend(A, B: TColor; Alpha: Byte): TColor;
Var
 lSrcR: Integer;
 lSrcG: Integer;
 lSrcB: Integer;
 lDstR: Integer;
 lDstG: Integer;
 lDstB: Integer;
begin
 lSrcR := A and $FF;
 lSrcG := (A and $FF00) div $100;
 lSrcB := (A and $FF0000) div $10000;
 lDstR := B and $FF;
 lDstG := (B and $FF00) div $100;
 lDstB := (B and $FF0000) div $10000;

 Result := RGB(
               Round(((lSrcR * Alpha) / 255) + ((lDstR * (255 - Alpha)) / 255)),
               Round(((lSrcG * Alpha) / 255) + ((lDstG * (255 - Alpha)) / 255)),
               Round(((lSrcB * Alpha) / 255) + ((lDstB * (255 - Alpha)) / 255))
              ); 
end;

Trouvée sur le net.

Cordialeent, Bacterius !

Cirec · Answer

si tu patientes un petit peut je posterais ton bonheur (sans prises de têtes et intégré à la VCL) en fin d'après-midi 

 
@+
Cirec

<hr siz="" />

jeantentou · Answer

je veux bien, merci, parceque j'ai 8 couches à appliquer sur 4 écrans de large donc l'équivalent de 40 écrans de calculs à faire, la rapidité entre en jeu!
Pour être sur d'avoir été bien compris, si je "plaque" une façade de maison, je veux voir une transparence partielle à travers les murs, mais transparence totale par les fenêtres.
Jean Pierre

jeantentou · Answer

Formidable, c'est tout à fait ce que je voulais.


Je désespérais d'y arriver un jour.


Un grand merci.


Jean Pierre

Bacterius · Answer

Eventuellement tu as ma source, si tu veux passer la voir, elle sera disponible dès qu'un admin l'aura validée (d'ici quelques temps). C'est la source "Gestion d'un bitmap 32 bits".

Cordialement, Bacterius !

jeantentou · Answer

Merci à toi aussi Bactérius, jirai voir, j'ai encore beaucoup à apprendre dans la gestion des couleurs, mais c'est passionnant, tout ça!(et utile...)
Jean Pierre

Cirec · Answer

@JeanTentou:
content que ça te plaise ... un petit commentaire sur la source (donc pas ici ) serait sympathique ... aussi ... 
merci ... 
 
@+
Cirec

<hr siz="" />

Bacterius · Answer

Ouais et perds pas ton temps sur le lien que je t'ai passé, la source n'était pas bonne.

Cordialement, Bacterius !

comment puis-je appeler cette fonction?

33 réponses

Votre réponse

Discussions similaires