Discussion :

[scrat88]

Bonjour a tous,
En fait je voudrais importer une image du disque dur vers mon application delphi, existe-t-il un boutton pour parcourir le disque ?
Merci d'avance

[Cl@udius]

Salut,

Est-ce que le composant TOpenPictureDialog répondrait à ta demande ?

Jette un coup d'oeil sur ce compo !

@+

[Jipété]

Code :

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

SelectDirectory

et F1 bien sûr !
Mes 2 cts,
--
jp

[scrat88]

Salut,

Est-ce que le composant TOpenPictureDialog répondrait à ta demande ?

Jette un coup d'oeil sur ce compo !

@+

Je ne trouve pas ce composant, il est dans quel onglet ?

[sjrd]

Onglet Dialogues. Mais selon ta version/édition, tu peux n'avoir que TOpenDialog.

[scrat88]

Ca y est, j'ai trouvé le composant, merci.
Maintenant je vais encore vous embêter mais comment s'en sert-on ?

J'ai essayé ceci mais ca ne marche pas :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  openpicturedialog1.Execute;
  image1.Picture.LoadFromFile(openpicturedialog1.Files.Text);
end;

[sjrd]

Utilise la propriété FileName plutôt que Files.Text.

[Cl@udius]

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  openpicturedialog1.Execute;
  image1.Picture.LoadFromFile(openpicturedialog1.Files.Text);
end;

Essaye plutôt comme ceci:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenPictureDialog1 do begin
    if Execute then
      Image1.Picture.LoadFromFile(Filename);
  end;
end;

@+