189 8069 5689
简单说下思路吧，具体的代码可以查资料
成都创新互联公司专业为企业提供陈巴尔虎网站建设、陈巴尔虎做网站、陈巴尔虎网站设计、陈巴尔虎网站制作等企业网站建设、网页设计与制作、陈巴尔虎企业网站模板建站服务，10年陈巴尔虎做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
首先要会画曲线图，有三种方法：
1、用mschar控件（vb6的）；2、用水晶报表；3、用word图表
x轴为时间，y轴为数据
要实现实时数据刷新，只要用 定时器 定时刷新曲线图的数据就可以了（x、y的数据重写）
Private Const WS_CHILD = H40000000
Private Const WS_VISIBLE = H10000000
Private Const WM_CAP_START = H400
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, _
ByVal hWndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Sub Form_Load()
'建立采集窗口（不显示窗口，处理后显示到PIC控件）
uwndc = capCreateCaptureWindowA("", WS_VISIBLE Or WS_CHILD, 0, 0, 320, 240, Me.hWnd, 0)
'连接
SendMessage uwndc, WM_CAP_DRIVER_CONNECT, 0, 0
'Scale开
SendMessage uwndc, WM_CAP_SET_SCALE, True, 0
'显示刷新MS
SendMessage uwndc, WM_CAP_SET_PREVIEWRATE, 40, 0
'用予览方式显示(特殊需要，不显示予缆）
SendMessage uwndc, WM_CAP_SET_PREVIEW, True, 0
End Sub
上述代码就可以实现 但是要注意相应的控件是否存在 不存在的 你自己画出来
使用DICOM看图软件；DICOM开发包(SDK)DICOM是DigitalImagingandCommunicationsinMedicine的英文缩写，即医学数字成像和通信标准。是ACR(AmericanCollegeofRadiology,美国放射学会)和NEMA(NationalElectricalManufactorersAssociation,美国国家电子制造商协会)为主制定的用于数字化医学影像传送、显示与存储的标准。在DICOM标准中详细定义了影像及其相关信息的组成格式和交换方法，利用这个标准，人们可以在影像设备上建立一个接口来完成影像数据的输入/输出工作。DICOM标准以计算机网络的工业化标准为基础，它能帮助更有效地在医学影像设备之间传输交换数字影像，这些设备不仅包括CT、MR、核医学和超声检查，而且还包括CR、胶片数字化系统、视频采集系统和HIS／RIS信息管理系统等。VIDI-WebPacsSDK包括完整的DICOM服务器和WebDicomViewer.ocx，您可以轻松建立PACS系统。WebPacs的SDK适用VB、VB.NET、VC++、DELPHI、C++Builder、PB、WEB开发平台,风险投资小，可快速建立PACS系统的HTML。控件特点：完全符合DICOM标准，采用DICOM协议，互联网采用WADO协议完全的PACS系统的功能。包含WorkLIST(工作列表)功能具有扫描图像并转换为DICOM标准格式功能。具有接入其他图像格式并转换为DICOM标准格式功能具有刻录的CD/DVD功能。具有关键图标记功能。支持StoreSCP传输(DICOM文件接收)支持StoreSCU传输(DICOM文件发送)支持Query/Retrive服务(DICOM查询取回)DICOM标准打印协议DicomVCL为16位图像。具有三维重建功能(容积再现，表面绘制和三维投影)。视频捕获并转换为DICOM标准格式查看各类DICOM图像查看BMP、JPG图像对DICOM、BMP、JPG图像进行窗宽/窗位调节将DICOM图像转换成BMP、JPG或TIFF图像将BMP、JPG图像转换成DICOM图像（支持灰度及RGB模式）将多张BMP、JPG图像转换成一个多帧DICOM图像将非DICOM图像转换成DICOM图像时可设置病人姓名、ID等参数DICOM图像支持测量操作（长度、角度、面积等）支持图像处理功能（反色、伪彩、翻转、去噪、锐化等）查看多帧DICOM图像、可进行视频播放多帧DICOM图像可进行图像分布（多张图像平铺）多帧DICOM图像可直接转换成AVI视频文件提供图像流输出（可直接将图像放入Image控件）可将控件放入HTML网页中WebDicomViewer，可以让您访问互联网DICOM标准的图像。
用directshow获取帧缓存,转换为标准图像格式(比如jpg,png这些),存储到数据库的image字段里就行了.
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据
On Error Resume Next
Dim Str_WebContent As String = "请输入查找网站地址."
Dim wb As WebClient = New WebClient() '//创建一个WebClient实例
If mWebsiteUrl.IndexOf("://") 0 Then
'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。（可有可无）
wb.Credentials = CredentialCache.DefaultCredentials
'//从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//转换字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '
End Function
给你个工程自己看...
运行后可以看到自己...
点按钮保存到c:\1.bmp