VIDEOCREATOR : ANIMATION D'IMAGES

Commentaire de Francky23012301 le 25/08/2006 16:35:13

Merci FLorenth,

Je fais les modifs rapidement et je poste le tout ;).

Commentaire de Francky23012301 le 26/08/2006 20:20:37

Salut

@DrJerome : Merci pour tes commentaires ;)
A quand l'avi ? ben si je devais le faire je ferais plutot un format compressé en créant un propre composant maiss là c'est un boulot énrome qui doit surement tres difficile.

@A Florenth ; j'ai fais quelques changements pour les autres je dois reflechir encore un peu sur la méthode à utiliser ^^.
Modification de l'image : lol, je vous l'avais caché. C'est embettant oui je suis d'accord avec toi alors pourquoi ? Pour ne pas rendre l'application trop difficile à prendre un main. Mais je dois reflechir (decidemment) pour trouver une solution convenable.  


Merci à vous deux

Commentaire de f0xi le 30/08/2006 03:46:51 administrateur CS

petite amelioration des fonctions de convertions d'images :


il faut donner un nom explicite pour savoir de quoi il s'agit réellement, BMPConversion ne veut rien dire...

Procedure BMPToJPEG(const SourceFile,DestFile : string; const CQu : TJPEGQualityRange = 100);
var
  AJPEG : TJPEGImage;
  ABitmap : TBitmap;
begin
  // verifier l'existance de la source peu eviter des problemes
  if not FileExists(SourceFile) then exit;

  AJPEG   := TJPEGImage.Create;
  ABitmap := TBitmap.Create;
  try
    ABitmap.LoadFromFile(SourceFile);
    AJPEG.GrayScale := False;
    AJPEG.Assign(ABitmap);
    AJPEG.JPEGNeeded;
    AJPEG.CompressionQuality := CQu;
    AJPEG.Compress;
    AJPEG.SaveToFile(DestFile);
  finally
    AJPEG.Free;
    ABitMap.Free;
  end;
End;


dans addfile :

Function AddFile(ASourceFile,ADestFile : String) : cardinal;
Var
  SourceFS,DestFS : TFileStream;
Begin
  SourceFS := TFileStream.Create(ASourceFile, fmOpenRead);
  Result   := SourceFS.Size;
  
  // tout simplement >>
  DestFS := TFileStream.Create(ADestFile, fmOpenWrite or fmCreate);
  Try
    DestFS.Position := DestFS.Size;
    DestFS.CopyFrom(SourceFS, Result);
  Finally
    FreeAndNil(DestFS);
    FreeAndNil(SourceFS);
  End;
End;


dans addinfo, vus que ce sont des chaines, pourquoi ne pas utiliser un TStringList ?
cela te permettrais d'ecrire une routine moins complexe, surtout que les chaines sont relativement chiantes a manipuler dans les streams, de plus cela te permet de ne pas a avoir a utiliser de delimiteur en fin de chaine et egalement te pouvoir transmettre directement des données de composants possedant un TStrings :

procedure AddInfo(const Infos, FileName : Sting);
var
TL : TStringList;
begin
  TL := TStringList.Create;
  TL.LoadFromFile(FileName);
  TL.Insert(0,Infos);
  TL.SaveToFile(FileName);
  TL.Free;
end;


attention egalement au repetition de inttostr dans les chaine, c'est trés lents a partir de 2 appels :

Info := IntToStr(ImgSize)+'-'+IntToStr(SndSize)+'-'+IntToStr(IniSize)+'|';

Info := Format('%d-%d-%d|',[ImgSize,SndSize,IniSize]);

tu pourrais meme utiliser une structure record pour simplifier l'ecriture du fichier infos, voir meme pour generer un footer de fichier pour fusionner le pack fichier et le fichier d'infos.

TInfos = record
   ImgSize,
   SndSize,
   IniSize : cardinal;
end;

ont pourrais ecrire donc une telle structure de fichier :

[<SIGN>  signature - 4 octets - cardinal]
[<COUNT> nombres de fichiers - 4 octets - cardinal]
[<FILES> fichiers - n*octets - bytes buffer]
[<SGCTL> control signature pour le debuts des infos - 4 octets - cardinal]
[<INFOS> infos - FCOUNT*3*4 octets - TInfos structure]

et en gros on ferais comme cela :

ajout de fichier / infos :

ouverture du Flux en mode RW (fmOpenReadWrite or fmCreate)
Lecture/verification de SIGN
Lecture de COUNT
Deplacement a l'offset SIZE-(COUNT*SizeOf(TInfos));
Lecture de INFOS dans une Array of TInfos (d'ailleur je suggere la recuperation de l'offset de depart du fichier dans le stream dans la structure);
Ajout des infos des prochains fichiers dans la table d'infos
Incrementation de COUNT +1
Ecriture des fichiers dans le Flux
Ecriture de la tables des infos dans le Flux
Deplacement a offset 4
Ecriture de COUNT
Fermeture du flux

et derriere ça, utilisation de la ZLibEx pour compresser le tout :)

Commentaire de Francky23012301 le 30/08/2006 16:20:49

@foxi :

*Ta méthode addInfo ne fonctionne on perd 40% du fichier,  ce qui est normal tu utilises un TString. Ta fonction est correcte si tu as un fichier de petite taille mais dès que ca devient ce n'est plus bon.

*Dans la function addFile : le fait d'utiliser ceci
DestFS := TFileStream.Create(ADestFile, fmOpenWrite or fmCreate) provoque une erreur de stream lors de la lecture. Il en resulte que malgré les apparences

DestFS := TFileStream.Create(ADestFile, fmOpenWrite or fmCreate) n'est pas équivalent à If FileExists(ADestFile) then DestFS1:=TFileStream.Create(ADestFile,fmOpenWrite)
Else DestFS1:=TFileStream.Create(ADestFile,fmCreate);

Commentaire de f0xi le 30/08/2006 22:20:38 administrateur CS

@franky : erf ... désolé, le fait de poster sans tester ... mais si il y a autant d'entrée je pense que les chaines ne sont pas adaptée d'un point de vue lecture ecriture.

il faudrait donc plus que tu te tourne vers une solution avec des structures :

record
  Offset : cardinal;
  Size   : cardinal;
end;


@florenth : mmm je vais jetter un oeuil a ton ExtStream, car je suis sur un packer en ce moment et ça pourrait etre interressant.

Commentaire de Francky23012301 le 20/09/2006 13:59:28

Salut Mister,

Un expert comme toi : tu veux me faire avaler des salades lol ^^.

En fait j'avais réalisé une animation flash en guise de tuto : mais vu la taille du fichier j'ai été obligé de renoncer à le joindre avec le source : c'est balo.

Promis spécialement pour toi je rajoute un fichier texte en guise de mode d'emploi ce soir : Content ? ;).

@+

Commentaire de Debiars le 21/09/2006 15:27:13

Faut rayer "rayé" et remplacer par raté (c'en est un autre).