User`s manual

112 Function Library
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;