您好,欢迎来到[编程问答]网站首页   源码下载   电子书籍   软件下载   专题
当前位置:首页 >> 编程问答 >> Delphi >> 谁帮忙这段C++Builder代码翻译成DELPHI啊?

谁帮忙这段C++Builder代码翻译成DELPHI啊?

来源:网络整理     时间:2016/7/10 8:26:38     关键词:

关于网友提出的“ 谁帮忙这段C++Builder代码翻译成DELPHI啊?”问题疑问,本网通过在网上对“ 谁帮忙这段C++Builder代码翻译成DELPHI啊?”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:

问题: 谁帮忙这段C++Builder代码翻译成DELPHI啊?
描述:

#include 
#pragma hdrstop
#include "Unit1.h"
#define IT_BW  1
#define IT_GRAY8  4
#define IT_RGB 16
#define CAP_SCAN_IMAGE_TYPE 100
#define CAP_SCAN_IMAGE_TYPES_SUPPORTED 1
#define IT_ADF true
#define IT_FLADTED false
#define CAP_SCAN_MODE 107
#define CAP_SCAN_ADF_SUPPORTED 16
#define IT_Simplex  False
#define IT_Duplex  True
#define CAP_SCAN_Duplex  110
#define CAP_SCAN_Duplex_SUPPORTED 17
#define IT_Brightness true
#define IT_Contrast true
void __fastcall TForm1::SetImgType(int iImgType)
{
    VARIANT vCap; V_VT(&vCap) = VT_I2;
    VARIANT vScanImgType = ImgScan1->GetScanCapability(CAP_SCAN_IMAGE_TYPES_SUPPORTED);
    if(V_VT(&vScanImgType) == VT_ERROR)
        Application->MessageBox ("不支持图像类型","提示",MB_OK);
    else
    {
        switch (iImgType)
        {
            case 0:  if(V_I4(&vScanImgType) & IT_BW)
                     {
                         V_I2(&vCap)= IT_BW;
                         ImgScan1->SetScanCapability (CAP_SCAN_IMAGE_TYPE,vCap);
                     }
                     else
                     {
                         Application->MessageBox ("你的扫描仪不支持黑白图像","提示",MB_OK);
                     }
                         break;
            case 1:  if(V_I4(&vScanImgType) & IT_RGB)
                     {
                         V_I2(&vCap)= IT_RGB;
                         ImgScan1->SetScanCapability( CAP_SCAN_IMAGE_TYPE,vCap);
                     }
                     else
                     {
                          Application->MessageBox ("你的扫描仪不支持彩色图像","提示",MB_OK);
                     }
            case 2:  if(V_I4(&vScanImgType) & IT_GRAY8)
                     {
                          V_I2(&vCap)= IT_GRAY8;
                          ImgScan1->SetScanCapability (CAP_SCAN_IMAGE_TYPE,vCap);
                      }
                      else
                      {
                          Application->MessageBox ("你的扫描仪不支持灰度图像","提示",MB_OK);
                      }
                          break;
        }
    }
}
如题,谢谢!


以上介绍了“ 谁帮忙这段C++Builder代码翻译成DELPHI啊?”的问题解答,希望对有需要的网友有所帮助。
本文网址链接:http://www.codes51.com/itwd/2478668.html

相关图片

相关文章