把C代码编为DLL使用VB调用

[syler666]

/*CRC-16效验函数
多项式为X^16+X^15+X^2+1
CRC_RESULT为全局变量，是计算结果结果，可能有上次计算的结果在
*/
unsigned int CRC_16(unsigned char *str,int lenth)
{
unsigned char k;
unsigned long temp=0;
while(lenth--)
{
for(k=0x80;k!=0;k=k>>1)
{
temp=temp*2;
if((temp&0x10000)!=0)
temp=temp^0x18005;
if((*str & k)!=0)
temp=temp^(0x10000^0x18005);
}
str++;
}
return temp;

}

使用VB.NET 调调用。

Private Declare Function CRC16 Lib "c:\crc16.dll" (ByVal InLng As Long) As Long

调用时传递一个 1维 16进制的数组给DLL 数组长度
DLL计算好后返回校验值

[幻夢之葉]

那为什么不用vb写，然后生成dll呢

[赵4老师]

不要做A语言代码修改为B语言代码的无用功。 也不要做用A语言代码直接调用B语言代码库这样复杂、这样容易出错的傻事。 只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。 即可很方便地让A、B两种语言之间协调工作。 比如： A将请求数据写到文件a.txt，写完后改名为aa.txt B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，改名为bb.txt A发现bb.txt存在时，读取其内容，读完后删除bb.txt 以上A可以替换为任何一种开发语言或开发环境，B可以替换为任何一种与A不同的开发语言或开发环境。 除非A或B不支持判断文件是否存在、文件读写和文件更名。 但是谁又能举出不支持判断文件是否存在、文件读写和文件更名的开发语言或开发环境呢？ 可以将临时文件放在RamDisk上提高效率减少磨损磁盘。 数据的结构很复杂的话，文本文件的格式问题可参考json或xml 共享临时文本文件这种进程之间的通讯方法相比其它方法的优点有很多，下面仅列出我现在能想到的： ·进程之间松耦合 ·进程可在同一台机器上，也可跨机，跨操作系统，跨硬件平台，甚至跨国。 ·方便调试和监视，只需让第三方或人工查看该临时文本文件即可。 ·方便在线开关服务，只需删除或创建该临时文本文件即可。 ·方便实现分布式和负载均衡。 ·方便队列化提供服务，而且几乎不可能发生队列满的情况（除非硬盘空间满） ·…… “跨语言、跨机，跨操作系统，跨硬件平台，跨国，跨*.*的”苦海无边， 回头是“使用共享纯文本文件进行信息交流”的岸！

[sevk]

CRC16如果用 RAMDISK，估计会卡。 GOOGLE可以查到这个 http://www.tek-tips.com/viewthread.cfm?qid=1587721 修改一下应该可以。

[日立奔腾浪潮微软松下联想]

那个VB代码用的多项式不一样，而且是查表法。 用楼主的代码创建DLL也很简单，保存为crc16.cpp：

#include <windows.h>

/*CRC-16效验函数
多项式为X^16+X^15+X^2+1 
CRC_RESULT为全局变量，是计算结果结果，可能有上次计算的结果在
*/
extern "C" _declspec(dllexport) unsigned int CRC_16(unsigned char *str, int lenth)
{
  unsigned char k;
  unsigned long temp=0;
  while(lenth--)
  {
    for(k = 0x80; k != 0; k = k>>1)
    {
      temp = temp * 2;
      if((temp & 0x10000) != 0)
      temp = temp ^ 0x18005;
      if((*str & k) != 0)
      temp = temp ^ (0x10000 ^ 0x18005);
    }
    str++;
  }
  return temp;
}

BOOL APIENTRY DllMain(HANDLE hModule, DWORD dwReason, void* lpReserved)
{
  HANDLE g_hModule;

  switch(dwReason)
  {
    case DLL_PROCESS_ATTACH:
      break;

    case DLL_PROCESS_DETACH:
      break;
  }

  return true;
}

编译，假设用VC++: cl /O2 /LD crc16.cpp