关于网友提出的“ 谁帮忙这段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;
}
}
}
如题，谢谢！