PureBoard

Code: Alles auswählen

AVITags DLL has following functions declared in IExtendedAVITags interface: 

 · ReadAVITags - parse AVI file and places all the information into the container  
 · WriteAVITags - saves new tags and/or patches AVI header  
 · ErrorCodeToStr - provides the description of error code  
 · NewTagContainer - allocates memory for the new container  
 · GetInfo - extracts desired information from the container  
 · SetInfo - inserts the information in the container  
 · FccToStr - provides text representation of the FourCC  
 
AVITags DLL was written in Delphi, so all the function declarations made in Object Pascal. In spite of this AVITags DLL is language independent OLE Automation server. You can use it both in Delphi project and in the projects written in other COM supporting languages (C++, VisualBasic, VBScript and so on).

Code: Alles auswählen

;Check abcAVI.dll for functions

If OpenLibrary(0, "abcAVI.dll")
  Ergebnis = CountLibraryFunctions(0)
  Debug "Funktionszahl:   " + Str(Ergebnis)
  ReadAVITags.l = IsFunction(0, "ReadAVITags")
  Debug "ReadAVITags:  " + Str(ReadAVITags.l)
  WriteAVITags.l = IsFunction(0, "WriteAVITags")
  Debug "WriteAVITags:  " + Str(WriteAVITags.l) 
  ErrorCodeToStr.l = IsFunction(0, "ErrorCodeToStr")
  Debug "ErrorCodeToStr:  " + Str(ErrorCodeToStr.l)  
  NewTagsContainer.l = IsFunction(0, "NewTagsContainer")
  Debug "NewTagsContainer:  " + Str(NewTagsContainer.l) 
  GetInfo.l = IsFunction(0, "GetInfo")
  Debug "GetInfo:  " + Str(GetInfo.l)
  SetInfo.l = IsFunction(0, "SetInfo")
  Debug "SetInfo:  " + Str(SetInfo.l)
  FccToStr.l = IsFunction(0, "FccToStr")
  Debug "FccToStr:  " + Str(FccToStr.l)   
  CloseLibrary(0)
Else
    MessageRequester("Bad news:","abcAVI.dll couldn't be opened",#PB_MessageRequester_Ok)
EndIf

Code: Alles auswählen

Funktionszahl:   4
ReadAVITags:  0
WriteAVITags:  0
ErrorCodeToStr:  0
NewTagsContainer:  0
GetInfo:  0
SetInfo:  0
FccToStr:  0

Code: Alles auswählen

;regsvr32    "abcAVI.dll"
;regsvr32 /u "abcAVI.dll"

Interface IExtendedAVITags Extends IDispatch
  ReadAVITags(a,b,c,d,e,f,g,h)
  WriteAVITags(a,b,c,d,e,f,g,h,i)
  ErrorCodeToStr(a,b)
  NewTagsContainer(a)
  GetInfo(a,b,c,d,e,f,g)
  SetInfo(a,b,c,d,e,f,g,h)
  FccToStr(a,b,c,d,e)
EndInterface

OpenLibrary(0, "abcAVI.dll")

CoInitialize_(0)
If CoCreateInstance_(?CLSID_ABCAvi,0,1,?IID_ABCAvi,@object.IExtendedAVITags) = 0
  
  ;Debug object\ReadAVITags(a,b,c,d,e,f,g,h)
  
EndIf 

DataSection
CLSID_ABCAvi:
Data.l $18EC608A
Data.w $B23A,$11D6
Data.b $BE,$A5,$44,$45,$53,$54,$00,$02
IID_ABCAvi:
Data.l $18EC6088
Data.w $B23A,$11D6
Data.b $BE,$A5,$44,$45,$53,$54,$00,$02
EndDataSection