utiliser un save dialog?

Question

Quelles sont les instructions &#224; ecrire en utilisant un save dialog pour effectuer une sauvegarde d'un fichier qui existe dans c: dans la partition d:, c'est vraiment urgent svp.

f0xi · Answer

procedure TForm1.Button1OnClick(sender : tobject);
begin
    if savedialog1.execute then memo1.lines.savetofile(savedialog1.filename);
end;

mais si c'est pour copier un fichier A sur un autre disque il ne faut pas utiliser cette methode.
cherche dans les code sources, il doit surrement y'avoir de nombreux exemple.

jlen100 · Answer

salut le savedialog ne servant qu'a r&#233;cip&#233;rer le chemin du fichier la
sauvegarde d'un fichier d'une partition &#224; une autre (ou d'un disque &#224;
un autre) il te faut &#233;crire un petit utlitaire qui ouvrira le fichier
et l'&#233;crira dans l'autre directory.

Si c'est un fichier texte utilises un Tstring et les methode loadfromfile et savetofile.

pour les autres fichiers une m&#233;thode g&#233;n&#233;rale consiste &#224; ouvrir les
fichier comme un fichier d'octet &#224; le lire bit &#224; bit et le r&#233;&#233;crire de
la m&#234;me fa&#231;on

@+

jlen

cs_Kenavo · Answer

Bit &#224; bit !!! Tu n'y vas pas un peu fort jlen ??? 



Ken@vo

 Code, Code, Codec !

[%3C/body ]

jlen100 · Answer

salut kenavo,

en fait on l'ouvre en blockread et en blockwrite ce qui revient &#224; le
lire bit &#224; bit . Apres tout d&#233;pent de la longueur de l'enregistrement
que l'on choisit.

@+

jlen

jlen100 · Answer

en allant dans l'aide delphi dans l'exemple on a le code permettant de
lire le fichier et de le sauvegarder dans le fichier saisi dans le
savedialog

var



  FromF, ToF: file;

  NumRead, NumWritten: Integer;

  Buf: array[1..2048] of Char;

begin

  if OpenDialog1.Execute then { Affichage de la bo&#238;te de dialogue d'ouverture }

  begin

    AssignFile(FromF, OpenDialog1.FileName);

    Reset(FromF, 1);    { Taille d'enregistrement =  1 }

     if  SaveDialog1.Execute then      { Affichage de la bo&#238;te de dialogue d'enregistrement}

    begin

      AssignFile(ToF, SaveDialog1.FileName);    { Ouverture du fichier de sortie }



      Rewrite(ToF, 1);    { Taille d'enregistrement  = 1 }

      Canvas.TextOut(10, 10, 'Copie de ' + IntToStr(FileSize(FromF))

        + ' octets...');

      repeat

        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);

        BlockWrite(ToF, Buf, NumRead, NumWritten);

      until (NumRead = 0) or (NumWritten <> NumRead);

      CloseFile(FromF);

      CloseFile(ToF);

    end;

  end;

end;

@+

jlen

cs_Kenavo · Answer

Jlen,



J'aurais quand m&#234;me dit octet par octet ! 



Ken@vo

 Code, Code, Codec !

[%3C/body ]

jlen100 · Answer

excuse moi il fallait lire bYte &#224; bYte petit probleme avec la langue de Shackspear ou les 2 termes sont assez semblables

@+

jlen

f0xi · Answer

moyen memotechnique :

Bit = a lire "bite" (desol&#233; mais bon)
Byte = a lire "Baill-te" (pas mieux)

et puis lire et ecrire byte a byte ... c'est un peu obscene comme methode ... non ? ^^

Jlen a besoin de vaccances, on vas faire une quete tiens.

on pourrait egalement utiliser le TStreamFile pour copier un fichier et je crois meme (a verifier) qu'il existe une fonction CopyFile dans delphi... a moins que je confonde avec un autre langage.

 La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.
<hr>

jlen100 · Answer

f0xi c'est pas un probleme d'argent  pour les vaccances mais plutot un probleme de temps.

pour la diff&#233;rence entre bit et byte je ne suis pas nul &#224; ce point pour
ne pas connaitre la diiff&#233;rence de prononciation c'est plutot qu'en ce
moment je travaille sur une application de communication &#224; haut d&#233;bit
ou mes bytes perdent bits de temps en temps (simple histoire de &#181;s de
perte de synchronisation entre des interruptions mais &#231;a ce n'est pas
du Delphi).

pour copyfile c'est aussi ce que pensais mais pas moyen de la retrouver
... des bytes pleins de bits l'ont kidnapp&#233;e;  lancer un avis de
recherche!!

@+

jlen

Utiliser un save dialog?

9 réponses

Votre réponse

Discussions similaires