请问大家,DELPHI如何调用C写好的DLL?急(50分)

  • 主题发起人 主题发起人 gxz000
  • 开始时间 开始时间
G

gxz000

Unregistered / Unconfirmed
GUEST, unregistred user!
本人有一个问题就是用DELPHI调用一个C写的一个DLL.可是按文档上写的声明好方法后总出现,没有定义函数入口这个错.
我是这样声明的
function SGIP_Connect(ip:pchar;port:short;username:pchar;password:pchar):integer;cdecl external 'dll/sgipapi.dll';
声明不出错.只是在调用这个方法时就出错.
请问这位问题出在什么时候地方如何来解决

那个C的源码如下:本人对C不了解.不知道下面的源码是否能生成这个sgipapi.dll
/*
*Header File of the TSSX SGIP API
*
*Created By DingLi 2001-07-01
*
*/

#ifndef TSSX_SGIP_H
#define TSSX_SGIP_H

#define ERROR_OK 0

#define ERROR_SOCKET_CREATE -100
#define ERROR_CONNECT -101
#define ERROR_SOCKET_WRITE -102
#define ERROR_SOCKET_READ -103
#define ERROR_ICP_ID -104
#define ERROR_AUTH -105
#define ERROR_MSG_LEN -106
#define ERROR_FEE_CODE -107
#define ERROR_SERVICE_ID -108
#define ERROR_FLOW_CONTROL -109
#define ERROR_SOCKET_CLOSE -110
#define ERROR_CMD -111


#define ERROR_INTERNAL -200
#define ERROR_UNKNOWN -201
#define ERROR_ARGUMENT -202

#ifndef SGIPAPI_API
#define SGIPAPI_API
#endif

SGIPAPI_API void set_src_node(int num); //ÉèÖÃÔ´½ÚµãºÅ


SGIPAPI_API int SGIP_Connect(char *gw_ip,short port,char *username,char *passwd);
SGIPAPI_API int SGIP_Submit(int conn_id, //the return value by SGIP_Connect
char *sp_dial_num, //SP½ÓÈëºÅ
char *ICPID, //ÆóÒµ´úÂë
char *service_id, //ÒµÎñ´úÂë
char fee_type, //01=Ãâ·Ñ 02=°´Ìõ 03=°üÔ 04=·â¶¥ 05=SPÊÕ·Ñ
char *fee_value, //×Ê·Ñ´úÂ룬ÒÔ·ÖΪµ¥Î»
char *give_value, //ÔùËÍ·ÑÓôúÂ룬ÒÔ·ÖΪµ¥Î»
char agent_flag, //´úÊշѱêÖ¾£¬0£ºÓ¦ÊÕ£»1£ºÊµÊÕ
char mt_flag, //ÒýÆðMTÏûÏ¢µÄÔ­Òò
// 0-MOµã²¥ÒýÆðµÄµÚÒ»ÌõMTÏûÏ¢£»
// 1-MOµã²¥ÒýÆðµÄ·ÇµÚÒ»ÌõMTÏûÏ¢£»
// 2-·ÇMOµã²¥ÒýÆðµÄMTÏûÏ¢¡£

unsigned char priority, //ÓÅÏȼ¶0-9´ÓµÍµ½¸ß
char *valid_time, //´æ»îʱ¼ä£¬¸ñʽΪYYYYMMDDHHMISS
char *at_time, //´æ»îʱ¼ä£¬¸ñʽΪYYYYMMDDHHMISS
unsigned char report_flag, //״̬±¨¸æ±ê¼Ç
// 0-¸ÃÌõÏûÏ¢Ö»ÓÐ×îºó³ö´íʱҪ·µ»Ø״̬±¨¸æ
// 1-¸ÃÌõÏûÏ¢ÎÞÂÛ×îºóÊÇ·ñ³É¹¦¶¼Òª·µ»Ø״̬±¨¸æ
// 2-¸ÃÌõÏûÏ¢²»ÐèÒª·µ»Ø״̬±¨¸æ

unsigned char tp_pid, //Ò»°ãÌî0 ¾ßÌåÖµ²Î¼ûGSM03.40
unsigned char tp_udhi, //Ò»°ãÌî0 ¾ßÌåÖµ²Î¼ûGSM03.40
unsigned char msg_type, //ÏûÏ¢ÀàÐÍ
unsigned char msg_format, //ÏûÏ¢¸ñʽ 0=ASCII 4=bin 8=UCS2 15=GB
char *charge_mobile, //¸¶·ÑºÅÂ룬Èç¹ûΪ¿Õ£¬Ôò¸ÃÌõ¶ÌÏûÏ¢²úÉúµÄ·ÑÓÃÓÉUserNumber´ú±íµÄÓû§Ö§¸¶
unsigned char user_num, //&amp;frac12;&amp;Oacute;&amp;Ecirc;&amp;Otilde;&amp;Ecirc;&amp;Ouml;&amp;raquo;ú&amp;cedil;&amp;ouml;&amp;Ecirc;&amp;yacute; <100
char *dest_mobiles, //&amp;frac12;&amp;Oacute;&amp;Ecirc;&amp;Otilde;&amp;Ecirc;&amp;Ouml;&amp;raquo;ú&amp;ordm;&amp;Aring;&amp;Acirc;&amp;euml;&amp;pound;&amp;not;&amp;Ograve;&amp;Ocirc;&amp;iquest;&amp;Otilde;&amp;cedil;&amp;ntilde;·&amp;Ouml;&amp;cedil;&amp;ocirc;
char *msg, //&amp;Iuml;&amp;ucirc;&amp;Iuml;&amp;cent;&amp;Auml;&amp;Uacute;&amp;Egrave;&amp;Yacute;
unsigned long msg_len, //&amp;Iuml;&amp;ucirc;&amp;Iuml;&amp;cent;&amp;sup3;¤&amp;para;&amp;Egrave;
unsigned long *p_seq1, //·&amp;micro;&amp;raquo;&amp;Oslash;&amp;Eacute;ú&amp;sup3;&amp;Eacute;&amp;micro;&amp;Auml;&amp;ETH;ò&amp;Aacute;&amp;ETH;&amp;ordm;&amp;Aring;1-3&amp;pound;&amp;not;&amp;iquest;&amp;Eacute;&amp;Ograve;&amp;Ocirc;&amp;acute;&amp;laquo;&amp;micro;&amp;Yacute;NULL
unsigned long *p_seq2,
unsigned long *p_seq3
);
SGIPAPI_API int SGIP_Disconnect(int conn_id);


struct MO_msg{
char sourceUser[21]; //·&amp;cent;&amp;Euml;&amp;Iacute;&amp;Iuml;&amp;ucirc;&amp;Iuml;&amp;cent;&amp;micro;&amp;Auml;&amp;Ecirc;&amp;Ouml;&amp;raquo;ú
char SPNumber[21]; //SP&amp;frac12;&amp;Oacute;&amp;Egrave;&amp;euml;&amp;ordm;&amp;Aring;
unsigned char tp_pid;
unsigned char tp_udhi;
unsigned char msgFormat; //&amp;Iuml;&amp;ucirc;&amp;Iuml;&amp;cent;&amp;cedil;&amp;ntilde;&amp;Ecirc;&amp;frac12;
unsigned long msgLen; //&amp;Iuml;&amp;ucirc;&amp;Iuml;&amp;cent;&amp;sup3;¤&amp;para;&amp;Egrave;
char msg[160]; //&amp;Iuml;&amp;ucirc;&amp;Iuml;&amp;cent;&amp;Auml;&amp;Uacute;&amp;Egrave;&amp;Yacute;
};

struct MO_report{
unsigned long seq1; //&amp;Iuml;à&amp;Oacute;&amp;brvbar;&amp;micro;&amp;Auml;submit&amp;ETH;ò&amp;Aacute;&amp;ETH;&amp;ordm;&amp;Aring;1-3
unsigned long seq2;
unsigned long seq3;
unsigned char report_type;
char mobile[21]; //&amp;Auml;&amp;iquest;&amp;micro;&amp;Auml;&amp;Ecirc;&amp;Ouml;&amp;raquo;ú&amp;ordm;&amp;Aring;
unsigned char state; //×&amp;acute;&amp;Igrave;&amp;not; 0&amp;pound;&amp;ordm;·&amp;cent;&amp;Euml;&amp;Iacute;&amp;sup3;&amp;Eacute;&amp;sup1;&amp;brvbar; 1&amp;pound;&amp;ordm;&amp;micro;&amp;Egrave;&amp;acute;&amp;yacute;·&amp;cent;&amp;Euml;&amp;Iacute; 2&amp;pound;&amp;ordm;·&amp;cent;&amp;Euml;&amp;Iacute;&amp;Ecirc;§°&amp;Uuml;
unsigned char errCode; //&amp;acute;í&amp;Icirc;ó&amp;acute;ú&amp;Acirc;&amp;euml;
};


#define MO_MSG 1
#define MO_REPORT 2

SGIPAPI_API int SGIP_Get_MO(int conn_id,void **pp_MO);

//SGIPAPI_API void Set_Timeout(int timeout);

#endif
 
创建 pas 文件 ，并用一些资源查看器打开 dll 封装的 函数名称
在 interface 后定义函数
function abc ():shortint; stdcall ;


再在实现部分
用
function abc; external 'xxx.dll' ;

使用函数 abc 就行了
 
标题：从C到Delphi的接口声明转换 (2分)
Oldtiger (2001-11-1 17:26) 700803
虽然Delphi作为一种极其优秀的开发工具已经被越来越多的开发人员选用，但是它毕竟面世时间不算太长，加上有的软件开发厂商实力不强或是其他原因,造成部分二次开发平台仅仅提供C语言的开发接口。
但这并不是说用Delphi就不能完成这些工作.我们知道,软件厂商提供开发包实际基本上都是以动态连接库的方式实现的，他们将可以调用的函数、过程包括一些特定数据格式组合起来, 作为一个开发包，通过c编译器形成一个可重用的DLL文件，而所谓的开发接口往往就是动态连接库(.dll)的声明文件，他们即使提供Delphi下的接口，也就是用Pascal写一遍对这些动态库的声明。如果我们自己作这个翻译工作,就不存在厂商是否提供Delphi下接口的问题了。换言之，对于以DLL方式出现的开发包，只要有c的文件头，理论上都可以在Delphi下照样开发。
经过对比,我们发现c语言中存在的所有数据类型在Delphi的Object Pascal中都有对应类型存在；同时c语言调用动态库的4种方式在Delphi编译器中也都覆盖了，这就保证了我们的工作是可行的，如果你对此尚有疑问,那么可以看看WinProcs和ShellAPI两个单元。这两个单元就是Inprise写的对Windows系统函数(也是C语言开发，存在于DLL文件中的)的声明调用。
这里我们就来看看写这个声明文件需要注意的一些问题。在delphi中有两种声明方式:implicit (静态的) 和 explicit (动态的)。
对于implicit方式要求程序运行时动态库一定要存在,否则程序不能运行.而explicit方式可以没有动态库存在.例如一个界面程序，如果3维显示是在一个dll中实现的,那么我们如果采用explicit方式调用就可以做到如果动态库存在就用3维显示,否则用2维显示。
采用explicit方式的另一个好处是可以加快程序的启动速度.因为explicit方式让程序在执行到调用语句时才装载dll文件.但同时implicit方式比较简单,所以用的也更多。
　　implicit方式的典型声明格式是:
　　procedure Foo(X: Integer); external 'BAR' index 1;
　　这里再次提醒:如果程序找不到对应的dll文件,在编译和运行时都会出现错误。
　　Explicit方式就麻烦一些了.实际上这种方式在vb中用的更多一些.如果你的确希望这样做,那么可以参考下面的代码：
　　 var Hbar: Thandle;
　　 Foo: procedure (X: Integer); {$IFDEF WIN32} stdcall; {$ENDIF}
　　 begin
　　 Hbar := LoadLibrary('BAR.DLL');
　　 if Hbar 〉= 32 then { success } begin
　　 Foo := GetProcAddress(HBar, 'FOO');
　 ...
　　 Foo(1);

...
　　 FreeLibrary(HBar);
　　 end
　　 else MessageDlg('警告: 没有发现 BAR.DLL', mtError, [mbOk], 0)
　　 end.
请注意一下, 这段代码编译时是不会出现错误的,在运行时也会按照程序指定步骤完成.DLL的调入时间也如我们前面提及的,是在需要时才引入的。
在c语言中常常采用IMPLIB和IMPDEF两个工具生成.h文件，这个文件就是开发包中我们见到的头文件了.我们需要作的工作就是将这个文件准确地翻译成pascal格式,而且可以被编译器准确的用来编译成dll的声明文件。
为了更好的说明问题,我们不妨先看看一个简化的c语言的头文件：
　　/**********/ *
　　* wing.h - WinG functions, types, and definitions *
　　* Copyright (c) 1994 Microsoft Corp. All rights reserved. *
　　/*********/
　　#ifndef _INC_WING
　　#define _INC_WING
　　#ifndef _INC_WINDOWS
　　#include /* Include windows.h if not already included */
　　#endif
　　#ifdef __cplusplus
　　extern "C" { /* Assume C declarations for C++ */
　　#endif
　　#if defined(WIN32) || defined(_WIN32)
　　#define WINGAPI WINAPI #else
　　#define WINGAPI WINAPI _loadds
　　#endif
　　/***** WingDC and WinGBitmap ********/
　　HDC WINGAPI WinGCreateDC( void );
　　BOOL WINGAPI WinGRecommendDIBFormat( BITMAPINFO FAR *pFormat );
　　HBITMAP WINGAPI WinGCreateBitmap( HDC WinGDC, BITMAPINFO const FAR *pHeader,void FAR *FAR *ppBits )
　　void FAR *WINGAPI WinGGetDIBPointer( HBITMAP WinGBitmap,BITMAPINFO FAR *pHeader );
　　UINT WINGAPI WinGGetDIBColorTable( HDC WinGDC, UINT StartIndex,UINT NumberOfEntries, RGBQUAD FAR *pColors );
　　UINT WINGAPI WinGSetDIBColorTable( HDC WinGDC, UINT StartIndex,
　 UINT NumberOfEntries, RGBQUAD const FAR *pColors );
　　/***** Halftoning **********/
　　HPALETTE WINGAPI WinGCreateHalftonePalette( void );
　　typedef enum WING_DITHER_TYPE
　　{ WING_DISPERSED_4x4,WING_DISPERSED_8x8,WING_CLUSTERED_4x4} WING_DITHER_TYPE;
　　HBRUSH WINGAPI WinGCreateHalftoneBrush( HDC Context, COLORREF crColor,WING_DITHER_TYPE DitherType );
　　/***** Blts **********/
　　BOOL WINGAPI WinGBitBlt( HDC hdcDest, int nXOriginDest,int nYOriginDest, int nWidthDest, int nHeightDest, HDC hdcSrc,int nXOriginSrc, int nYOriginSrc );
　　BOOL WINGAPI WinGStretchBlt( HDC hdcDest, int nXOriginDest,int nYOriginDest, int nWidthDest, int nHeightDest, HDC hdcSrc,int nXOriginSrc, int nYOriginSrc, int nWidthSrc, int nHeightSrc );
　　#ifdef __cplusplus
　　} /* End of extern "C" */
　　#endif
　　#endif // _INC_WING
从中我们可以归纳出需要翻译的三部分内容:编译开关,数据结构,函数调用。为了便于大家完成翻译工作,我摘抄了一张c语言和pascal语言的数据类型对照表,可以供大家参考：

C/C++ Type Object Pascal Type C/C++ Type Object Pascal Type

unsigned short [int] word char char

[signed] short [int] smallint signed char shortint

unsigned [int] cardinal { 3.25 fix } unsigned char byte

[signed] int
integer
char*
pchar

uint
longint { or cardinal }
lpstr or pstr
pchar

word
word
lpwstr or pwstr
pwidechar { 3.12 fix }

dword
longint { or cardinal }
void*
pointer

unsigned long
longint { or cardinal }
bool
bool

unsigned long int
longint { or cardinal }
float
single

[signed] long
longint
double
double

[signed] long int
longint
　 　

　　下面是一些常用和常见数据结构的对照表:


C/C++ Type
Object Pascal Type
C/C++ Type
Object Pascal Type

handle
thandle
debughookinfo
tdebughookinfo

farproc
tfarproc
bitmapcoreheader
tbitmapcoreheader

atom
tatom
bitmapinfoheader
tbitmapinfoheader

tpoint
tpoint
bitmapinfo
tbitmapinfo

trect
trect
bitmapcoreinfo
tbitmapcoreinfo

colorref
tcolorref
bitmapfileheader
tbitmapfileheader

ofstruct
tofstruct
ttpolygonheader
tpolygonheader

handletable
thandletable
rasterizer_status
trasterizer_status

bitmap
tbitmap
mousehookstruct
tmousehookstruct

rgbtriple
trgbtriple
cbtactivatestruct
tcbtactivatestruct

rgbquad
trgbquad
hardwarehookstruct
thardwarehookstruct

metarecord
tmetarecord
eventmsg
teventmsg

metaheader
tmetaheader
pattern
tpattern { tlogbrush }

metafilepict
tmetafilepict
newtextmetric
tnewtextmetric

textmetric
ttextmetric
paletteentry
tpaletteentry

logbrush
tlogbrush
logpalette
tlogpalette

logpen
tlogpen
kerningpair
tkerningpair

logfont
tlogfont
outlinetextmetric
toutlinetextmetric

enumlogfont
tenumlogfont
glyphmetrics
tglyphmetrics

panose
tpanose
pointfx
tpointfx

fixed
tfixed
ttpolycurve
tttpolycurve

mat2
tmat2
minmaxinfo
tminmaxinfo

abc
tabc
paintstruct
tpaintstruct

wndclass
twndclass
createstruct
tcreatestruct

msg
tmsg
cbt_createwnd
tcbt_createwnd

seginfo
tseginfo
measureitemstruct
tmeasureitemstruct

accel
taccel
drawitemstruct
tdrawitemstruct

size
tsize
deleteitemstruct
tdeleteitemstruct

dcb
tdcb
compareitemstruct
tcompareitemstruct

comstat
tcomstat
windowpos
twindowpos

helpwininfo
thelpwininfo
windowplacement
twindowplacement

ctlstyle
tctlstyle
nccalcsize_params
tnccalcsize_params

ctltype
tctltype
menuitemtemplateheader
tmenuitemtemplateheader

ctlinfo
tctlinfo
menuitemtemplate
tmenuitemtemplate

ddeadvise
tddeadvise
mdicreatestruct
tmdicreatestruct

ddedata
tddedata
clientcreatestruct
tclientcreatestruct

ddepoke
tddepoke
multikeyhelp
tmultikeyhelp

ddeaack
tddeack
kanjistruct
tkanjistruct

devmode
tdevmode
　 　

以上仅仅是常用的一部分,更多的结构转换可以参见WINDOWS.H头文件和WINDOWS.pas,将两者作一个对比可以学习到许多技巧。
在上面的c语言文件头中您应该可以按照上表作出转换了。可能存在的问题是一个数据结构的变换：
　　 typedef enum WING_DITHER_TYPE
　　 {WING_DISPERSED_4x4,WING_DISPERSED_8x8,WING_CLUSTERED_4x4} WING_DITHER_TYPE;
　　这是一个枚举结构,我们可以翻译成这样：
　　 Type WING_DITHER_TYPE =(WING_DISPERSED_4x4,WING_DISPERSED_8x8,WING_CLUSTERED_4x4);

　　我们再来看看函数和过程的转换吧：
　　WinGCreateDC function:
　　HDC WINGAPI WinGCreateDC( void )；
　　显然这是一个没有返回值的函数,而且没有入口参数,我们可以将其转换成：
　　function WinGCreateDC: HDC; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1001;
这里的index 1001是从IMPDEF的.DEF 文件中得到的,一些反编译和调试工具也可以得到其值.但是我们推荐采用按照名称方式访问，这样可以适合于更多的场合。
　　按照同样的方式,我们再来翻译几个函数：
　　function WinGRecommendDIBFormat(pFormat: PBitmapInfo): Bool; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1002;
　　function WinGCreateBitmap(WinGDC: HDC;Const pHeader: PBitmapInfo;ppBits: PPointer): HBITMAP; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1003;
　　function WinGCreateHalftoneBrush(Context: HDC;crColor: TColorRef;DitherType: WING_DITHER_TYPE): HBRUSH; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1008;
这些都是按照静态方式声明的。
编译器指令的翻译是相对比较麻烦的事情.而且要考虑到32位代码和16位代码的兼容性.一般我们采用{$IFDEF WIN32}{$ENDIF}这种方式处理这个问题.
最后我们推荐一个很好的代码自动转换辅助工具headConv.这是著名的荷兰程序员Bob的杰作.最初的版本(1.0,2.0)是要收费的(25美金),我们得到了其最新的一个免费版本3.25命令行版,你可以从一个delphi控件收集站点(delphi根据地 http://warez.zb169.net/)去下载它.其用法也非常简单,一共有三个可选项：
　　-o 覆盖原有单元
　　-x 强制产生动态声明单元;
　　-m 强制产生静态声明单元;
这样就可以大大减少手工翻译的时间,而将主要精力用于润色和优化。
 
to :app2001
多谢你给的思路,我现在把我上边的.H的文件用headconv工具译成了PASCAL语言,
可是好像是译的不全面.我自己改了一下,也不太对.

请哪个高手能帮我把上面的C译成PASCAL,小弟在此谢过了!!!
 
多谢大家看看.

.H文件能生成DLL文件嘛?
 
您必须登录或注册才可回复。

Similar threads

D
大哥:请把这一小段C翻译成Delphi(在线等候).帮帮忙吧,怎么这么冷漠? (100分)
回复
10
查看
638
DZHZH2000
D
鲁
看似简单但很难的问题----分号（；）用法？(5分)
回复
8
查看
418
鲁皮皮
鲁
H
关于多线程传送文件的程序(0分)
回复
4
查看
209
ifeng
I
B
调用dll问题 (50分)
回复
2
查看
205
zjj12
Z
R
急急急急急！！！关于文件的copy(50分)
回复
19
查看
181
royal666
R
后退
顶部