delphi调用vc dll的问题

topshow1983 2009-07-17 01:53:24
vc生成的dll会报初始化失败的错误。用了depends会报“至少有一个需要的隐性或转发依赖函数没找到。”的错误,研究了很久还是没有解决,请教大虾们帮帮我!提供vc程序如下
#define _TM_OS2
#include "stdafx.h"
#include "atmi.h"

bool WINAPI DllMain( HMODULE hModule, DWORD dwReason, LPVOID lpvReserved )
{
return TRUE;
}

LRESULT WINAPI TpStrCall1(char *ServiceName, char *Str)
{
MessageBox( 0, ServiceName, "信息!", 0 );
MessageBox( 0, Str, "信息!", 0 );
return(0);
}

LRESULT WINAPI TpStrCall(char *ServiceName, char *SndStr, char *RevStr)
{
char *sendbuf, *rcvbuf;
long rcvlen;
int ret;

if (strlen(SndStr) > 300)
{
MessageBox( 0, "字符串超出指定长度!", "错误!", 0 );
return(tperrno);
}

if (tpinit((TPINIT *) NULL) == -1)
{
MessageBox( 0, "连接初始化错误!", "错误!", 0 );
return(tperrno);
}

if((sendbuf = (char *) tpalloc("STRING", NULL, sizeof(SndStr))) == NULL)
{
MessageBox( 0, "分配发送字符串出错!", "错误!", 0 );
tpterm();
return(tperrno);
}

if((rcvbuf = (char *) tpalloc("STRING", NULL, sizeof(SndStr)*2)) == NULL)
{
MessageBox( 0, "分配接收字符串出错!", "错误!", 0 );
tpfree(sendbuf);
tpterm();
return(tperrno);
}

strcpy(sendbuf, SndStr);

ret = tpcall(ServiceName, (char *)sendbuf, 0, (char **)&rcvbuf, &rcvlen, (long)0);
if(ret == -1)
{
MessageBox( 0, "tpcall失败!", "错误!", 0 );
tpfree(sendbuf);
tpfree(rcvbuf);
tpterm();
return(tperrno);
}

strcpy(RevStr, rcvbuf);
tpfree(sendbuf);
tpfree(rcvbuf);
tpterm();
return(0);
}

LRESULT WINAPI check_newno(char *newno, int flag)
{
int m, len;
int i, j, k, l;

j = 0;
len = strlen(newno) - 1;
m = (len - 1) % 2;

for( i = len - 1; i >= 0; i-- )
{
if(newno[i] > '9' || newno[i] < '0')
return -1;
if( i%2 == m )
l = (newno[i] - '0') * 2;
else
l = newno[i] - '0';
j = j + l / 10 + l % 10;
}

j = j % 10;

if( j == 0 )
j = 10;

k = 10 - j;

if(flag == TRUE)
{
if ( (char) newno[len] == (char) ('0' + k) )
return 0;
else
return -1;
}
else
{
newno[len] = '0' + k;
return 0;
}

}

delphi调用程序如下:
function TpStrCall(ServName: pChar; SndStr: pChar; RevStr: pChar): integer;
stdcall; external 'TuxAPI.dll';
function check_newno(newno: PChar; flag: Integer): integer;
stdcall; external 'TuxAPI.dll';
function MacHash(inputstr: PChar; outputstr: PChar; flat: PChar): integer; // default 'CCCB_ZFCG'
stdcall; external 'libMac.dll';
麻烦大虾们多提意见
...全文
191 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
topshow1983 2009-07-17
  • 打赏
  • 举报
回复
没人说话,自刷一下
topshow1983 2009-07-17
  • 打赏
  • 举报
回复
好的,麻烦帮我看一下
ChamPagneZ 2009-07-17
  • 打赏
  • 举报
回复

至少有一个需要的隐性或转发依赖函数;//隐约记得有转发依赖函数这么个概念的东东,查一下资料先

16,466

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧