procedure Tfrm_main.btn_openClick(Sender: TObject);
var
i : Integer;
afile : PAVIFile;
afi : TAVIFileInfo;
avimsg : Word;
begin
if od1.execute then begin
AVIFileInit;
avimsg := AVIFileOpen(afile, PChar(od1.FileName), OF_READ, nil);
if avimsg = Word(AVIERR_OK) then begin
if AVIFileInfo(afile, afi, sizeof(afi)) = 0 then begin
AVIWidth := afi.dwWidth;
AVIHeight := afi.dwHeight;
end;
end;
AVIFileRelease(afile);
AVIFileExit;
|