delphi7调用黄河视频服务器adk的例子代码。