User`s manual

Function Library • 71
int Result;
long Mp4Version[4] = {0}, DLLVersion[4] = {0},
VersionReserved[4] = {0};
CString str1, str2;
Result =
AngeloMPEG4_Get_Version
(Mp4Version,
DLLVersion, VersionReserved);
str1.Format("%d.%d.%d.%d", DLLVersion[0],
DLLVersion[1], DLLVersion[2], DLLVersion[3]);
str2.Format("%d.%d.%d.%d", Mp4Version[0],
Mp4Version[1], Mp4Version[2], Mp4Version[3]);
<Visual Basic >
Dim Result As long, Mp4Version(0 to 3) As Long,
DLLVersion(0 to 3) As Long, VersionReserved(0 to
3) As Long
Result =
AngeloMPEG4_Get_Version
(Mp4Version(0),
DLLVersion(0), VersionReserved(0))
<Delphi >
var
Mpeg4_DLLVersion : array[0..3] of Longint;
AngeloRTV_DLLVersion : array[0..3] of Longint;
Reserved : array[0..3] of Longint;
Result: Longint;
Str_AngeloMPEG4_Version, Str_AngeloRTV_Version: String;
begin
Result :=
AngeloMPEG4_Get_Version
(Mpeg4_DLLVersion[0],
AngeloRTV_DLLVersion[0], Reserved[0]);
Str_AngeloMPEG4_Version := IntToStr(Mpeg4_DLLVersion[0]);
Str_AngeloMPEG4_Version := Str_AngeloMPEG4_Version + “.” +
IntToStr(Mpeg4_DLLVersion[1]);
Str_AngeloMPEG4_Version := Str_AngeloMPEG4_Version + “.” +
IntToStr(Mpeg4_DLLVersion[2]);
Str_AngeloMPEG4_Version := Str_AngeloMPEG4_Version + “.” +
IntToStr(Mpeg4_DLLVersion[3]);
Str_AngeloRTV_Version := IntToStr(AngeloRTV_DLLVersion[0]);
Str_AngeloRTV_Version := Str_AngeloRTV_Version + “.” +
IntToStr(AngeloRTV_DLLVersion[1]);
Str_AngeloRTV_Version := Str_AngeloRTV_Version + “.” +
IntToStr(AngeloRTV_DLLVersion[2]);
Str_AngeloRTV_Version := Str_AngeloRTV_Version + “.” +
IntToStr(AngeloRTV_DLLVersion[3]);
end;