avitempalloc.pas

多媒体视频程序设计--使用Delphi 第八章 源碼 ＝＝＝＝ 8-1 静态图像采集 8-2 录像参数设置 8-3 录像控制 8-4 看边录手动录像

unit AVITempAlloc;

interface

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

type
  TAVITempAllocDlg = class(TForm)
    Bevel1        : TBevel;
    PathFreeSpace : TStaticText;

    AVITmpSizeLab : TLabel;
    AVITmpSizeBox : TSpinEdit;
    Label1: TLabel;

    AviTempNameBox: TLabeledEdit;
    SelTempButton : TButton;
    TempFileDialog: TSaveDialog;

    OKButton : TButton;
    CancelBox: TButton;

    procedure SelTempButtonClick(Sender: TObject);

  private
    { Private declarations }
    FDiskTotalSize : int64;
    FDiskFreeSize  : int64;

    procedure ShowDiskFreeSize;
    procedure CheckTempFile;
  public
    { Public declarations }
    Procedure SetAVITempAlloc(aTempName:string ;aTempSize:DWORD);
    Procedure GetAVITempAlloc(var aTempName:string ;var aTempSize:DWORD);
  end;

var
  AVITempAllocDlg: TAVITempAllocDlg;

implementation

{$R *.dfm}

procedure TAVITempAllocDlg.ShowDiskFreeSize;
var
S:string;
p:Pchar;
Drive :BYTE;

begin

 s:= ExtractFileDrive(AviTempNameBox.Text);
 if s <>'' then
 begin
  p:=Pchar(s);
  Drive:=BYTE(p^)-BYTE('A')+1;
 end
 else  Drive:=0;

 FDiskFreeSize  := DiskFree(Drive) div (1024*1024);
 FDiskTotalSize := DiskSize(Drive) div (1024*1024);

 PathFreeSpace.Caption:='合盒 '+ s +
                        '甧秖:'+ IntTostr(FDiskTotalSize )+'MB'+
                        '