User`s manual

154 Appendix: GEME-VM3000 Series Introduction
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]);