DSPack и плата видеозахвата. Программа.

Здравствуйте!
Есть плата видеозахвата и есть DSPack.Хочу написать прогу для захвата видео.
Пишу код, который отображает все подходящие устройства здля захвата.

…в мануале подробно все расписано с примерами, в том числе и на delphi как инициировать плату, как включить определенный канал, как запустить граб и как получить видеофрейм (п.5.5):

Код:


AngeloRTV_Copy_Frame
Var
Result : SmallInt;
PortNo: SmallInt;
Size_Byte :Longint;
Dest_Add : array of Byte;
PortNo := 0;
Size_Byte := 640*480*3;
SetLength(Dest_Add, Size_Byte);
Result := AngeloRTV_Copy_Frame (PortNo, Dest_Add[0],
Size_Byte); 

AngeloRTV_Get_Frame
Var
Result : SmallInt;
PortNo: SmallInt;
Size_Byte :Longint;
Str_Add  ointer;
PortNo:=0;
Result :=AngeloRTV_Get_Frame(PortNo, Str_Add,
Size_Byte);
AngeloRTV_Save_File
Var
Result : SmallInt;
PortNo: SmallInt;
PortNo:=0;
Result := AngeloRTV_Save_File (PortNo, ‘Image.tif’, 0)