海康压缩卡在delphi中如何设置OSD示例

 
procedure TDvr_Main.BitBtn1Click(Sender: TObject); //设置OSD
var
 i:integer;
begin
 for i:=0 to DSPChannl-1 do
 begin
    SetOSDFormat(i);
    setosd(i,true);
 end;
end;
function TDvr_Main.SetOSDFormat(i: Integer):BOOLEAN; //设置视频OSD
var
 L,m,nLength: Integer;
 Format1,Format2:array[0..40] of Word ;
 wFormat:WORD ;
 str:String ;
 wH,wL:char ;
begin
 Format1[0]:=16;
 Format1[1]:= 272;
 Format2[0]:= SpinEdit1.Value;
 Format2[1]:= SpinEdit2.Value;
 if not(RadioGroup1.ItemIndex=0) then //0:显示日期,1:不显示日期
    Format2[2]:=Ord(#0)
 else
 begin
    Format2[2]:= _OSD_YEAR4 ;
    Format2[3]:= Ord('-') ;
    Format2[4]:= _OSD_MONTH2 ;
    Format2[5]:= Ord('-') ;
    Format2[6]:= _OSD_DAY ;
    if (RadioGroup3.ItemIndex=0) then   //0:显示时间 ,1:不显示时间
    begin
      Format2[7]:= Ord(' ') ;
      Format2[8]:= _OSD_HOUR24 ;
      Format2[9]:= Ord(':') ;
      Format2[10]:= _OSD_MINUTE ;
      Format2[11]:= Ord(':') ;
      Format2[12]:= _OSD_SECOND ;
      Format2[13]:= Ord(#0) ;
      end
      else
      Format2[7]:= Ord(#0) ;
 end;
/////////////////////////////////////////////
 L := 0;
 Format1[0]:= SpinEdit3.Value;
 Format1[1]:= SpinEdit4.Value;
 if (RadioGroup4.ItemIndex=0) then
 begin
    str:='第'+''+ inttostr(i+1)+''+'路';
 if (RadioGroup2.ItemIndex=0) then
 begin
    str:=trim(edit4.Text);
 end;  
    nLength:= Length(str);
    m:=1;
     while m < nLength+1 do
     begin
       wH:=str[m];
       wL:=str[m + 1];
       if (ord(wH) > 128)   then
       begin
         m:=m+1;
         wFormat:= ord(wH) * 16 * 16 + ord(wL);
       end
       else
       wFormat:= ord(wH);
       Format1[L + 2]:= wFormat;
       L:=L+1;
       m:=m+1;
 end;
 Format1[L + 2]:= Ord(#0);
 end
 else
 Format1[2]:= Ord(#0);
 SetOsdDisplayMode(i,255, false,1, @Format1, @Format2);
 Result :=True;
end;