Tronquer un fichier [Résolu]

cs_LuckyLuck 59 Messages postés dimanche 4 mai 2003Date d'inscription 5 juillet 2005 Dernière intervention - 21 mars 2005 à 19:50 - Dernière réponse : cs_LuckyLuck 59 Messages postés dimanche 4 mai 2003Date d'inscription 5 juillet 2005 Dernière intervention
- 22 mars 2005 à 19:22
salut, un léger problème, enfin pas un problème mais plutot une recherche d'optimisation.
Ce que je voudrais faire, c'est ne garder qu'une partie d'un fichier, c'est a dire le fichier moins les 128 derniers octets. Je pourrais le faire en passant par un fichier buffer, copie du fichier moins la fin, suppression et renommage du buffer, mais je trovue ca lourd et inaproprié dans ce cas. Ne pourrait-t-on pas simplement tronquer le fichier, ou écrire le symbole de fin du fichier ? (il me semble qu'écrire le symbole est possible mais je ne me souviens pas, ca fait longtemps que j'avais laché le delphi...)

++
Julien
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
cs_ManChesTer 378 Messages postés vendredi 20 octobre 2000Date d'inscription 11 décembre 2013 Dernière intervention - 22 mars 2005 à 16:52
3
Merci
Function TruncFile(Fn:String;Ns:Int64):Boolean;
Begin
Result:=False;
Try
with TFileStream.Create(Fn,fmOpenWrite) do
begin
Size:=ns;
Result:=True;
free;
end;
Except
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
If TruncFile('C:\Test.Tst',512) then
Showmessage('Fichier mis a la taille de 512 Octets')
else
Showmessage('Erreur lors du changement de la taille du fichier');
end;

Bon Coding ....

ManChesTer.

Merci cs_ManChesTer 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 99 internautes ce mois-ci

Commenter la réponse de cs_ManChesTer
cs_LuckyLuck 59 Messages postés dimanche 4 mai 2003Date d'inscription 5 juillet 2005 Dernière intervention - 22 mars 2005 à 19:22
0
Merci
merci bcp !
Commenter la réponse de cs_LuckyLuck

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.