Работа с файлами

[minasgull]

Пример использования:

unit AVIInfo;

interface

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

type
TAVIFileInfo = packed record
AVIFileName: string;
FileSize: double;
ClipLength: double;
VideoCodec: string[32];
ClipBitrate: double;
ClipWidth: Integer;
ClipHeight: Integer;
ClipFPS: double;
AudioCodec: string[32];
AudioBitRate: Integer;
AudioSampleRate: Integer;
AudioChannelCnt: Byte;
end;

TForm1 = class(TForm)
Button1: TButton;
AVIVideoInfo: TMemo;
OpenDialog1: TOpenDialog;
AVIAudioInfo: TMemo;
AVIGenInfo: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
// function ReadAviInfo(FileName: string; var ErrCode: Byte): TAVIFileInfo;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
FInfo: AviInformation.TAVIFileInfo;
ErrCode: Byte;
begin
if OpenDialog1.Execute then
begin
FInfo := AviInformation.ReadAviInfo(OpenDial og1.FileName, ErrCode);
AviGenInfo.Clear;
AVIVideoInfo.Clear;
AVIAudioInfo.Clear;
if ErrCode > 0 then
exit;
AviGenInfo.Lines.Add('AVI INFORMATION');
AviGenInfo.lines.Add('FileName: ' + FInfo.AVIFileName);
AviGenInfo.lines.Add('Size: ' + FormatFloat('#.## MB', FInfo.FileSize));
AviGenInfo.Lines.Add('Length: ' + FormatFloat('#.## min.',
FInfo.ClipLength));
AVIVideoInfo.Lines.Add('VIDEO INFORMATION');
AVIVideoInfo.Lines.Add('Codec: ' + FInfo.VideoCodec);
AVIVideoInfo.Lines.Add('Bitrate: ' + FormatFloat('# Kbit/s',
Finfo.ClipBitrate));
AVIVideoInfo.lines.Add('Width: ' + IntToStr(Finfo.ClipWidth) + ' px');
AVIVideoInfo.lines.Add('Height: ' + IntToStr(Finfo.ClipHeight) + ' px');
AVIVideoInfo.Lines.Add('FPS: ' + FormatFloat('#.##', Finfo.ClipFPS));
AVIAudioInfo.Lines.Add('AUDIO INFORMATION');
AVIAudioInfo.Lines.Add('Codec: ' + Finfo.AudioCodec);
AVIAudioInfo.Lines.Add('Bitrate: ' + FormatFloat('#.##',
Finfo.AudioBitRate));
AVIAudioInfo.Lines.Add('Audio sample Rate: ' +
IntToStr(FInfo.AudioSampleRate));
AVIAudioInfo.Lines.Add('Audio Channel Count: ' +
IntToStr(FInfo.AudioChannelCnt));
end;
end;

end.