Sauvegarde d'images

Salut & Bonne Année à tous le monde;
Je travail avec Borland Delphi 5;
Comment faire pour sauvegarder une image avec un TOpenPictureDialog, un TSavePictureDialog et un TImage.
Merci..

//sauvegarde

procedure TForm1.Button1Click(Sender: TObject);
begin
  if(SavePictureDialog1.Execute)then Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;

//chargement

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

Aucun compo de renommé
Si tu veux charger un jpeg et le mettre dans un TImage , cherche du cote de TJpegImage ...

Prochaine fois cherche un peu avant de poster

bonsoir,
pour la sauvegarde..
PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
  NomFichier, Ext: String;
BEGIN
  TRY
    Screen.Cursor := CrHourGlass;
    Savedialog1.DefaultExt := 'bmp';
    Savedialog1.FileName := 'MonImage.bmp';
    SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);
    IF SaveDialog1.Execute THEN
    BEGIN
      NomFichier := SaveDialog1.FileName;
      IF NomFichier[Length(NomFichier) - Length(Ext) + 1] <> '.' THEN
        NomFichier := NomFichier + Ext;
      Image1.Picture.SaveToFile(NomFichier);
    END;
  FINALLY
    Screen.Cursor := CrDefault;
    Application.MESSAGEBOX('Terminé !', 'Mon Image', MB_OK + MB_ICONINFORMATION);
  END;
END;

cantador

Eh les gars, vous vous donnez bien du mal pour pas grand-chose.
Il y a bien plus simple :LA TOUCHE F1
C'est la touche miracle. C'est quand même pas compliqué, bor.. !
Moi, quelqu'un qui a déjà posté 24 messages sur ce forum et qui en est encore à ce stade, je lui dis mets-toi au canevas, au tricot ou à la cuisine.

May Delphi be with you !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

//HS//

Ca me fait penser qu'il faudrait que je télécharge la MSDN en mode fichier aide pour Delphi, surtout quand je n'ai pas internet ... ça peut me sauver la mise quelquefois ...

//HS//

Sinon pour ta question je pense que tout a été dit ...

Cordialement, Bacterius !

Merci pour vos réponses mais je voulez dire :
Par Ex..
J'ai un menu avec image, quand je veut la changer je charge une autre avec TOpenPictureDialog et je veut quelle soit sauvegarder au TImage;
Comme un bureau de Windows !
OFFF;

@ Delphiprog

28 au compteur, maintenant.

incroyable , 4 posts et même pas un seul qui est compréhensible (il se ressemble bcp ou c'est moi )

 

Pour une fois que sa 1ère question était claire... C'était pas la bonne.

Et maintenant, vous l'avez tout embrouillé!

Je sens qu'on est mal barré sur ce coup.

J'ai demandé à Jeanne.
Elle dit que c'est Al-Qaida qui essaie de bousiller le site en nous faisant tourner bourrique.

Mais bon. Elle est pas forte en Delphi, Jeanne.