Discussion :

[bixi]

Salut

Bon j'ai honte de poser un sujet pour ca mais je m'en sort pas..

J'utilise une fonction ResizeJPG (utilisant un Tbitmap et des TJpegImage)

Or la compilation bloque sur la ligne:

Code :

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

    procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);

avec comme message :

[Error] Unit1.pas(42): Unsatisfied forward or external declaration: 'TForm1.ResizeJpeg'

J'ai pourtant bien mis Jpeg dans les uses :/

Merci beaucoup pour votre coup de main

Mon 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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi, ExtCtrls, Buttons, Menus, FileCtrl, ShlObj,
  FonctionsChaine, ExtDlgs, jpeg;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    lbl_et3_specifiez: TLabel;
    OpenDialog1: TOpenDialog;
    cmd_et3_parcourir: TButton;
    lblet1_parcourir: TLabel;
    txt_et1_parcourir: TEdit;
    cmd_et1_parcourir: TButton;
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Ouvriruneimage1: TMenuItem;
    Enregistrerlimageredimensionne1: TMenuItem;
    Fermerlimage1: TMenuItem;
    Quitter1: TMenuItem;
    Aide1: TMenuItem;
    lbl_et2_dim: TLabel;
    lbl_et2_logo: TLabel;
    radio_logo1: TRadioButton;
    radio_logo2: TRadioButton;
    list_et2_dim: TComboBox;
    Image2: TImage;
    Image3: TImage;
    Image5: TImage;
    SavePictureDialog1: TSavePictureDialog;
    Image4: TImage;
    procedure FormCreate(Sender: TObject);
    procedure TraiteMessage(var Msg: TMsg; var Handled: Boolean);
    procedure DessineIcone(NomDuFichier:string);
    procedure cmd_et3_parcourirClick(Sender: TObject);
    procedure cmd_et1_parcourirClick(Sender: TObject);
    procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
    function type_img_OK(NomDuFichierStr:string): boolean;

[Pedro]

Salut
ça ne vient pas des uses mais plutot de ton implementation Donne-nous le code de l'implémentation de cette procédure

[bixi]

Salut

Merci de ta réponse

Voici la procédure :

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
 
procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
var 
  Bitmap: TBitmap; 
  Ratio: double; 
begin 
  {Si l'image est vide ou la largeur est nulle, sortir} 
  if (srcJpeg.Empty) or (MaxSize <= 0) then
    Exit;
 
    { Création d'un TBitmap le temps de redimensionner l'image }
    Bitmap := TBitmap.Create;
    try 
      { Détermination du cadrage Vertical ou horizontal} 
      Ratio := srcJpeg.Height / srcJpeg.Width; 
      if Ratio > 1 then 
        //Cadrage vertical
        Bitmap.Width := Round(MaxSize / Ratio)
      else
        //cadrage horizontal
        Bitmap.Width := MaxSize;
      Bitmap.Height := Round(Bitmap.Width * Ratio); 
      //Copie de l'image avec redimensionnement sur le canvas du TBitmap 
      Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect, srcJpeg); 
      {Il ne reste plus qu'à copier l'image redimensionnée dan le Jpeg 
à retourner} 
      destJpeg.Assign(Bitmap); 
    finally 
      Bitmap.Free;                   //désallocation memoire
    end; 
end;

ps:Quand je fais Ctrl + clique sur JPEG (ca me fait normalement rentré dans le .pas de ce que je clique) il me dit:
Unable to locate jpeg.pas

Serais ce lié a mon erreur?

Bonne ap

[Pedro]

Salut
C'est pas

Code :

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

1
2
 
procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);

mais

Code :

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

1
2
 
procedure TForm1.ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);

Car tel que tu l'as déclaré, ResizeJpeg est un membre de TForm1
D'ailleurs, il faudrait que tu la mette dans une section (par exemple, public ou private) mais pas là où tu l'as mise
Quand tu déclares une méthode comme ça, mets le curseur dessus et fait: Ctrl+Shift+C et Delphi fait tout pour toi

[bixi]

Merci Enormément..

Je cherchait plus compliqué.. je ne m'y ferais pas prendre 2 fois


A bientot !

[Pedro]

Mais avec plaisir
N'oublie pas le chtit