代码如下：
function TGlobalData.fGetCameraInformation(lTerID,lCamIndex: Integer): Boolean;
var
sql: string;
i: Integer;
begin
Result := False;
qryAlarm.Close;
sql := ' select top 1 Area.IID as uAreaID,Area.sName as uAreaName,'+
' Ter.iid as uTerID,Ter.iParentID as uTerParentID,Ter.sName as uTerName,'+
' Ter.sIPAddr as uTerIP,Ter.sLoginTag as uTerLoginTag,Ter.sLoginPWD as uTerLoginPWD, '+
' Ter.sLinkAddr as uTerLinkAddr,Ter.sLinkTel as uTerLinkTel,Ter.sManager as uTerLinkMaster,'+
' Cam.iid as uCameraID,Cam.iParentID as uCamParentID, Cam.sName as uCameraName,Cam.iCameraIndex as uCameraIndex'+
' from TTMain as Area,TTMain as Ter, TTmain as Cam'+
' where Ter.iParentID=Area.iid and Cam.iParentID=Ter.iid and'+
' Area.iobjtype=7 and Ter.iobjtype=50 and Cam.iobjtype=8 and '+
' Ter.iid='+inttostr(lTerID)+' and Cam.iCameraIndex ='+inttostr(lCamIndex);
qryAlarm.Recordset := Connect.GetRecordset(sql);
qryAlarm.Open;
if qryAlarm.RecordCount > 0 then
begin
Main.uAreaName := qryAlarm.FieldByName('uAreaName').AsString;
Main.uAreaID := qryAlarm.FieldByName('uAreaID').AsInteger;
Result := True;
end;
end;
procedure TGlobalData.ConnectStreamMsg(Sender: TObject; streamID: Integer; buf: PAnsiChar; bufLen: Integer);
var
i: Integer;
qry: TADOQuery;
begin
try
if StreamID = MSG_ALARM_HAPPENALARM then
begin
if not Main.showVideoProcess then
Main.tbAbout.Click;
Application.ProcessMessages;
iDeviceProcess.pnlLog.Visible := True;
AlarmItem := PIVSAlarmUpLoadInfo(Integer(Buf) + 70);
if not fGetCameraInformation(integer(AlarmItem.Data),AlarmItem.CameraIndex) then
Exit;
try
qry := TADOQuery.Create(nil);
sql := ' select iid from TTMain where iobjtype=18 and iParentID='+inttostr(Main.uAreaID);
Main.uGisID := -1;
qry.Recordset := Connect.GetRecordset(sql);
if qry.RecordCount > 0 then
begin
Main.uGisID := qry.FieldS[0].AsInteger;
end;
finally
qry.Free;
end;
end;
end;
end;
