---

Ouvrir une image tout simplement

Créer une nouvelle application, puis à partit de votre pallette de composant , ajouter un Boutton (TButton), une image (TImage) puis le composant TOpenPictureDialog (boîte de dialogue de sélection de fichier graphique).

Faite un double click sur votre bouton et ajoutez :

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Si vous désirez ouvrir d'autres images comme par exemple du format Jpeg, Jpg, gif, png il vous suffit simplement ajoutez dans uses :

jpeg pour le jpeg, jpg
Gifimage pour le gif
pngimage pour le png http://pngdelphi.sourceforge.net/

Source 1

---

//////////////////////////////////////////////////// ///////////////Ouvrir une image //////////////////// //////////////////www.OneSofts.com////////////////// ////////////// PsyckoHia@ifrance.com /////////////// //////////////////////////////////////////////////// ///////////////psyckohia@onesofts.com/////////////// ////////////////////04/11/2007////////////////////// //////////////////////////////////////////////////// unit Main; interface ////////////// Ajoutez uniquement Jpeg, Gifimage et pngimage dans uses /////////////// uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, ShellApi, Jpeg, Gifimage, pngimage; ////////////////////////////////////////////////////////////////////////////////////// // Pour le png vous devez avoir une unité en plus //http://pngdelphi.sourceforge.net/ type TPsyckoHia = class(TForm) Panel1: TPanel; Image1: TImage; Label1: TLabel; Label2: TLabel; OpenPictureDialog1: TOpenPictureDialog; procedure Image1Click(Sender: TObject); procedure Label2Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var PsyckoHia: TPsyckoHia; implementation {$R *.dfm} /////////////////////////// Votre Code se trouve ici ////////////////////// procedure TPsyckoHia.Image1Click(Sender: TObject); begin If OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); End; ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.Label2Click(Sender: TObject); begin ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); end; end.

---

Il existe aussi une autre librairie qui prends en charge de nombreux formats (GraphicEx library) il vous suffira alors d'ajouter simplement GraphicEx dans uses puis de réecrire la meme ligne de code que précédemment :

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Source 2

---

//////////////////////////////////////////////////// ///////////////Ouvrir une image //////////////////// //////////////////www.OneSofts.com////////////////// ////////////// PsyckoHia@ifrance.com /////////////// //////////////////////////////////////////////////// ///////////////psyckohia@onesofts.com/////////////// ////////////////////04/11/2007////////////////////// //////////////////////////////////////////////////// unit Main; interface ////////////////////// Ajoutez uniquement GraphicEx dans uses /////////////////////// uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, ShellApi, GraphicEx; ////////////////////////////////////////////////////////////////////////////////////// //GraphicEx //http://www.soft-gems.net/index.php?option=com_content&task=view&id=13&Itemid=33 type TPsyckoHia = class(TForm) Panel1: TPanel; Image1: TImage; Label1: TLabel; Label2: TLabel; OpenPictureDialog1: TOpenPictureDialog; procedure Image1Click(Sender: TObject); procedure Label2Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var PsyckoHia: TPsyckoHia; implementation {$R *.dfm} /////////////////////////// Votre Code se trouve ici ////////////////////// procedure TPsyckoHia.Image1Click(Sender: TObject); begin If OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); End; ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.Label2Click(Sender: TObject); begin ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); end; end.

---

Ouvrir une page Internet Explorer, le client Outlook

Ouvrir Explorer et accéder au site http://www.OneSofts.com

ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);

Ouvrir le client de messagerie Outook afin d'écrire à psyckohia@onesofts.com

ShellExecute(0,'OPEN','Mailto:psyckohia@onesofts.com',nil,nil,SW_SHOWNORMAL);