Bonjour

je tiens a dire que j ai deja regarde les nombreuses faq mais que je ne trouve pas satisfaction...

voila

je clique sur un bouton pour ouvrir un fichier mais je voudrais l enregistrer sous un autre nom (de mon choix)dans un autre repertoire(de mon choix)

comment faire??
je suis noob ne riez pas;)


aimez vous les uns les autres

Salut valkyrie,

Quel composant utilises tu pour ouvrir ton fichier ?

Olivier.

Salut Olivier
merci pour ton attention

en fait j ai ca:

procedure TForm32.Button2Click(Sender: TObject);
var
i:integer;
Fcount:integer;
begin
if form1.OpenDialog2.Execute then begin
FCount:=form1.OpenDialog2.Files.Count;
ProgressBar1.Min:= 0; ProgressBar1.Max:= FCount ;
ProgressBar1.Position:= 0;
ProgressBar1.Step:= 1;

for i:=0 to form1.OpenDialog2.Files.Count-1 do begin
form31.LoadFile(form1.OpenDialog2.Files[i]);
dio.Height:=ImageLength; dio.Width:=ImageWidth;
form1.FormResize(Sender);
GijiC(Sender);
dio.SaveToFile(form1.OpenDialog2.Files[i]);
ProgressBar1.StepIt;
end;
form1.MainView.Picture.Graphic:=dio;
ProgressBar1.Position:= 0;
end;
end;

et j aimerais que ca n ecrase pas la file deja existante mais plutot que ca me donne la main pour la sauvegarder ailleurs
...

ps:je suis au japon il est 17h11 a 18h le bureau ferme donc ne t inquiete pas si je ne peux pas parler dans 50mn environ

aimez vous les uns les autres

Salut,

Comme j'ai rien compris à ton code (po assez d'info sur les composants que tu utilises)
voici un petit bout de code qui te permet de copier un fichier sélectionner par le composant TOpenDialog et de le sauvegarder dans une chemin et nom de fichier spécifier dans un TSaveDialog.
Si le repertoire de destination n'existe pas il le crée. Il supprime le fichier source une fois copier dans le repertoire destination.

if OpenDialog.Execute = True then begin if SaveDialog.Execute = True then begin if DirectoryExists(ExtractFilePath(SaveDialog.FileName)) = False then CreateDir(ExtractFilePath(SaveDialog.FileName)); if CopyFile(PChar(OpenDialog.FileName),PChar(SaveDialog.FileName),False) = True then DeleteFile(OpenDialog.FileName); end; end;

En espérant que cela puisse t'aider,

Bonne Prog,

Olivier.

Merci pour ta reponse olivier

j ai essaye et j avais oublie de te dire (je suis bete) qu entre l ouverture et l enregistrement le fichier tif est modifie donc je pense que c est pour ca que copyfile ne marche pas...il faudrait un truc genre saveas....je rigole tout seul en ecrivant ce mail tellement tu dois imaginer que je suis une quille! :))

benjamin

longue vie au forum delphi
aimez vous les uns les autres

Salut,

Ne t'en fait pas, je n'ai aucun préjugé sur toi, car il est très difficile d'exprimer ce dont on à réellement besoin de réaliser.

Tu modifis ton fichier et tu le sauvegarde dans un autre répertoire sous un autre nom si j'ai bien compris ?

Si ton image modifier est dans dio, il te suffir de faire :

var sNewDirectory : string; begin sNewDirectory := 'c:\TOTO\'; // Test le repertoire s'il existe. if DirectoryExists(ExtractFilePath(sNewDirectory )) = False then CreateDir(ExtractFilePath(sNewDirectory )); // sauvegarde sous un autre repertoire avec le même nom. dio.SaveToFile(PChar(sNewDirectory + ExtractFileName(OpenDialog.FileName))); // suppression de l'ancien fichier DeleteFile(OpenDialog.FileName); end;

ca y est g pige l image apres conversion est en 24 bits et plus en 16 donc je dois trouver un truc pour ouvrir les tif ou bmp 24 bits


aimez vous les uns les autres

Salut,

si tu utilise un composant du même genre que TImage, il te permet de forcer l'enregistrement un 16 bit.

du genre :

Image1.Picture.Bitmap.PixelFormat := pf16bit;

Réponse acceptée !
OK MERCI BEAUCOUP MAITRE JEDI ;))

PROBLEME RESOLU

je pense que j aurai besoin de conseils pour plus tard etant donne que je dois faire du delphi pendant 6 mois!!!

merci @+

aimez vous les uns les autres