Divx size

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 148 fois - Téléchargée 34 fois

Contenu du snippet

Ce programme ne sert pas a grand chose, il se trouve qu'en fait j'ai voulu baisser la qualité d'un divx pour qu'il rentre sur un cd et impossible de configurer le codec de la bonne amnière pour qu'il soit de la bonne taille... Alors je me suis dit je vais faire un petit programme et voila le résultat...

Source / Exemple :


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:cardinal;
CalcInt, ConvMo:integer;
begin
ConvMo:=StrToInt(Edit3.Text)*1024;
CalcInt:=ConvMo div StrToInt(Edit2.Text)*8;
for i:=1 to 100 do {cette partie la c'est pour le style c'est une bar de progression qui sert a rien }
begin
ProgressBar1.Position:=i;
sleep(20);
end; //fin de la bar de progression
showmessage('Le taux de compression a utilisé pour une vidéo de : ' + Edit3.Text + ' Mo est de : ' + IntToStr(CalcInt) + ' Kbps');
end;

end.

A voir également

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.