奇怪的问题(50分)

S

solomon19781022

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #1

function AVIFileOpen(avifile: pointer;
filename: pchar;
mode: integer;
CLSID: pointer): integer;
stdcall;
external 'avifil32.dll' index 16;
AviFileName:='c:/1.avi';
var
FAviFile: Pointer;
if (AVIFileOpen(@favifile, pchar(AviFileName), OF_READ, nil) <> 0) then

exit;

每次都exit

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #2

if (AVIFileOpen(@favifile, pchar(AviFileName), OF_READ, nil) <> null) then

exit;
试试，我没试过！我看帮助的！

 

S

solomon19781022

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #3

还是死活要exit呀
我都可了

 

S

solomon19781022

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #4

问题已经解决，这条语句时98下的
不知道怎样能让他在2000下可用？

 

S

SDEAST

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #5

在AVIFileOpen之前首先执行AVIFileInit就可以了。大概是这样的：
AVIFileInit;
AVIFileName:='C:/MyCap.AVI';
AVIFileOpen(FAVIFile,PChar(AVIFileName),OF_READ,nil);