Discussion :

[cincap]

Bonjour à toutes et à tous,

J'ai une première fiche ou j'éffectue un drag and drop compatible avec les formats, *.jpg et *.bmp.

Cela fonctionne et je souhaiterai avec la seconde fiche, récupérer ans un Timage le contenu du Timage de ma 1ère fiche.

Dans le oncreate de ma 2ième fiche je place ceci:

Code :

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

1
2
 
image1.picture := form1.image1.picture

Cela fonctionne avec uniquement le format *.bmp.

Je pensais adapter ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Var
lpExtension : String;
lpPath: array of Char;  // Le chemin
begin
lpExtension:= LowerCase(ExtractFileExt(PChar(lpPath)));
        if (lpExtension = '.bmp') or
          (lpExtension = '.jpeg') or
           (lpExtension = '.jpg') then
        begin
 
........

Mais cela ne fonctionne pas.

Merci d'avance de votre aide.

@+,

Cincap

[Dr.Who]

attention!

image1.Picture := form1.Image1.Picture

tu cherche à remplacer l'instance de image1.Picture par celle de image1 dans form1!
ce n'est pas bon et peu provoquer des erreurs de violation d'accés ou des fuite memoire.

il faut utiliser :

Code :

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

image1.Picture.Assign(form1.Image1.Picture);

ou encore :

Code :

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

 images1.Picture.Graphic.Assign(form1.Image1.Picture.Graphic);

[cincap]

@ Dr. Who, tu as raison, sur le projet en question qui est une ébauche, c'était fait mais je recopie toujours le code de mes notes ou essais qui ne sont pas corrigées.

Sinon, il me reste le format Wmf qui est un TMetafile et me cause le problème du drag and drop.

En sachant que les autres formats fonctionnent avec ceci :

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 TFormtest2.PanelImageDrop(var Msg: TWMDROPFILES) ;
var
   numFiles : longInt;
   buffer : array[0..MAX_PATH] of char;
 
 BMPLoaded : boolean;
 NewH, NewW, OldSBM : integer;
 
 MYWMF : TMetafile ;
begin
   BMPLoaded := false;
   numFiles := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) ;
   if numFiles > 1 then
   begin
     ShowMessage('Vous pouvez copier une seule image à la fois !') ;
   end
   else
   begin   
   DragQueryFile(Msg.Drop, 0, @buffer, sizeof(buffer)) ;
     try
       Imagetest1.picture.LoadFromFile(buffer) ; //Résultat du drag and drop
 
 
 BMP := TBitmap.Create;
 
 BMPLoaded := true;
 
 
try
 
 BMP.pixelformat := pf24bit;
 
 BMP.Assign(imagetest1.picture.Graphic);
 
........
//Traitement du résultat
....

Je n'arrive pas à insérer le "TMetafile.create"

@+,

Cincap

[Dr.Who]

il est vrai qu'on peut faire :

Bitmap.Assign(Picture.Graphic)

mais dans certains cas ... c'est la cata ... ça ne marche pas.

une autre solution etant de faire :

Code :

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

1
2
3
4
Bitmap.Width := Picture.Graphic.Width;
Bitmap.Height := Picture.Graphic.Height;
Bitmap.PixelFormat := pf32bit;
Bitmap.Canvas.Draw(0,0,Picture.Graphic);

[cincap]

Bonjour à toutes et à tous,

@ Dr. Who, ton explication est tout à fait logique, j'avais même réalisé une procédure pour la sauvegarde en plusieurs formats.

Code :

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

1
2
3
4
5
6
7
8
 
procedure WMFToBMP(WMF : TMetafile; BMP : TBitmap);
begin
  BMP.Width := WMF.Width;
  BMP.Height:= WMF.Height;
  BMP.PixelFormat := pf32bit;
  BMP.Canvas.Draw(0,0,WMF);
end;

Mais dans mes tests, je n'avais pas éffacé la ligne du "Bmp.assign" donc erreur.

Par contre, même si cela fonctionne, ce code ne me parraît pas correct au sujet de l'emplacement du Try, qu'en penses tu ?

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

.......
begin
   BMPLoaded := false;

   numFiles := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) ;
   if numFiles > 1 then
   begin
     ShowMessage('Vous pouvez copier une seule image à la fois !') ;
   end
   else
   begin
     DragQueryFile(Msg.Drop, 0, @buffer, sizeof(buffer)) ;
     try
       Imagetest1.picture.LoadFromFile(buffer) ;

 BMP := TBitmap.Create;

 BMPLoaded := true;

  try

 Bmp.Width := imagetest1.Picture.Graphic.Width;
 Bmp.Height := imagetest1.Picture.Graphic.Height;
 Bmp.PixelFormat := pf32bit;
 Bmp.Canvas.Draw(0,0,imagetest1.Picture.Graphic);


 //BMP.Assign(imagetest1.picture.Graphic); //Ne pas utiliser

  if BMPLoaded then
      begin

..............

Merci pour tes conseils judicieux.

@+,

Cincap

[Dr.Who]

alors try s'utilise comme suis :

Code :

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

1
2
3
4
5
6
{ appel de méthode d'initialisation d'une action critique }
try
  { traitement }
finally
  { appel de méthode de finalisation d'une action critique }
end;

exemple :

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
 
Objet := TObjet.Create;
try
  Objet.Traitement;
finally
  Objet.Free;
end;
 
 
 
 
Success := false;
with TFileStream.Create(FileName, fmCreate) do
try
  repeat
    RB := Read(Buffer, MaxBufferSize);
    Traitement(Buffer);
  until RB < MaxBufferSize;
  Success := true;
finally
  Free;
end;
 
 
 
ListBox1.Items.BeginUpdate;
try
  ListBox1.Items.Clear;
  for N := 0 to Max-1 do
    ListBox1.Items.Add(IntToStr(N));
finally
  ListBox1.Items.EndUpdate;
end;
 
 
 
 
Buffer := AllocMem(Size);
try
  Traitement(Buffer);
finally
  FreeMem(Buffer, Size);
end;