delphi调用C编写的dll，对应的类型转换有规律可寻么？(100分)

fff2001 · 2003-05-15

delphi调用C编写的dll，对应的类型转换有规律可寻么？我想调用cmppAPi。 头文件如下： #ifndef TSSX_CMPP_H #define TSSX_CMPP_H #pragma pack(1) #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_INTERNAL -200 #define ERROR_UNKNOWN -201 #define ERROR_ARGUMENT -202 struct Query_Res{ unsigned long mt_total_msg; //从ICP接收的信息总数 unsigned long mt_total_user; //从ICP接收的用户总数 unsigned long mt_succ; //成功转发数量 unsigned long mt_wait; //待转发数量 unsigned long mt_fail; //转发失败数量 unsigned long mo_succ; //向ICP成功送达数量 unsigned long mo_wait; //向ICP待送达数量 unsigned long mo_fail; //向ICP送达失败数量 }; //与网关建立MT连接 int CMPP_Connect(char *gw_ip,short port,char *username,char *passwd); //向网关提交消息 int CMPP_Submit(int conn_id, //the return value by CMPP_Connect INT64 *msg_id, // message ID unsigned char msg_level, //消息级别 char *service_id, //服务代码 unsigned char msg_format, //消息格式 0=ASCII 4=bin 8=UCS2 15=GB char *msg_src, //消息来源 char *fee_type, //01=免费 02=按条 03=包月 04=封顶 05=SP收费 char *fee_code, //资费代码，以分为单位 char *valid_time, //存活时间，格式为YYYYMMDDHHMISS char *at_time, //发送时间，格式为YYYYMMDDHHMISS unsigned char tp_pid, unsigned char tp_udhi, unsigned char fee_usertype, char *charge_mobile, char *src_mobile, //源手机号，没有写"0" unsigned char user_num, //接收手机个数 <100 char *dest_mobiles, //接收手机号码，以空格分隔 char *msg, //消息内容 int  msg_len, //消息长度 unsigned char need_response); //是否需要状态确认,0=no 1=yes //与网关断开连接 int CMPP_Disconnect(int conn_id); int CMPP_Brief_Submit(char *gw_ip, //网关的IP地址 short port, //port :  端口号 char *username, //ICP的名称 char *passwd, //ICP的密码 INT64 *msg_id, // message ID unsigned char msg_level, //消息级别 char *service_id, //服务代码 unsigned char msg_format, //消息格式 0=ASCII 4=bin 8=UCS2 15=GB char *msg_src, //消息来源 char *fee_type, //01=免费 02=按条 03=包月 04=封顶 05=SP收费 char *fee_code, //资费代码，以分为单位 char *valid_time, //存活时间，格式为YYYYMMDDHHMISS char *at_time, //发送时间，格式为YYYYMMDDHHMISS unsigned char tp_pid, unsigned char tp_udhi, unsigned char fee_usertype, char *charge_mobile, char *src_mobile, //源手机号，没有写"0" unsigned char user_num, //接收手机个数 <100 char *dest_mobiles, //接收手机号码，以空格分隔 char *msg, //消息内容 int  msg_len, //消息长度 unsigned char need_response); #define QUERY_TOTAL 0 #define QUERY_SERVICE 1 //发送短信状态查询(查询Time属性指定的日期的统计信息) int CMPP_Query(int conn_id,char *date,unsigned char type,char *service,struct Query_Res *p_res); struct MO_msg{         _int64  msgID; //消息ID         char    dest_id[21]; //消息级别         char    service_id[10]; //业务代码         unsigned char tp_pid; unsigned char tp_udhi; unsigned char   msgFormat; //消息格式         char    sourceUser[12]; //发送消息的手机         unsigned char   reg_deliver; //是否为应答消息,1=yes,0=no         unsigned char   msgLen; //消息长度         char    msg[161]; //消息内容 };     // 连接MO网关，与CMPP_Connect类似 int CMPP_Connect_MO(char *gw_ip,short port,char *username,char *passwd); //等待MO消息，如果没有MO消息将阻塞，直至MO消息到达或连接被网关关闭 int CMPP_Get_MO(int conn_id,struct MO_msg *p_MO); struct Cancel_Rep_Msg{ unsigned char res; //成功标识(0:成功;  1:失败) }; //删除短信 int CMPP_Cancel(int conn_id,_int64 msg_id,struct Cancel_Rep_Msg *p_Cancel_Rep_Msg); struct status_report{         _int64        msgID;         char            stat[7];         char            submit_time[10];         char            done_time[10];         char            destUser[21];         unsigned long   smsc_seq; }; int is_status_report(struct MO_msg *p_MO); struct status_report *get_status_report(struct MO_msg *p_MO); int CMPP_Active(int conn_id); #pragma pack(8) #endif

haha2008haha · 2003-05-15

char char int Integer char * pchar 结构 record unsigned char word int64 Int64

fff2001 · 2003-05-15

h文件怎样处理,lib文件呢？是不是可以乎略！

fff2001 · 2003-05-16

叹气！自行解决吧 C/C++ Type ObjectPascal Type unsigned short [int] Word [signed] short [int] SmallInt unsigned [int] Cardinal { 3.25 fix } [signed] int Integer UINT LongInt { or Cardinal } WORD Word DWORD LongInt { or Cardinal } unsigned long LongInt { or Cardinal } unsigned long int LongInt { or Cardinal } [signed] long LongInt [signed] long int LongInt char Char signed char ShortInt unsigned char Byte char* PChar LPSTR or PSTR PChar LPWSTR or PWSTR PWideChar { 3.12 fix } void* Pointer BOOL Bool float Single double Double long double Extended   LP,NP,PP,P prefix: if first = T then T becomes P else P prefix   HANDLE THandle FARPROC TFarProc ATOM TAtom TPOINT TPoint TRECT TRect COLORREF TColorRef OFSTRUCT TOFStruct DEBUGHOOKINFO TDebugHookInfo BITMAP TBitMap RGBTRIPLE TRGBTriple RGBQUAD TRGBQuad BITMAPCOREHEADER TBitmapCoreHeader BITMAPINFOHEADER TBitmapInfoHeader BITMAPINFO TBitmapInfo BITMAPCOREINFO TBitmapCoreInfo BITMAPFILEHEADER TBitmapFileHeader HANDLETABLE THandleTable METARECORD TMetaRecord METAHEADER TMetaHeader METAFILEPICT TMetaFilePict TEXTMETRIC TTextMetric NEWTEXTMETRIC TNewTextMetric LOGBRUSH TLogBrush LOGPEN TLogPen PATTERN TPattern { TLogBrush } PALETTEENTRY TPaletteEntry LOGPALETTE TLogPalette LOGFONT TLogFont ENUMLOGFONT TEnumLogFont PANOSE TPanose KERNINGPAIR TKerningPair OUTLINETEXTMETRIC TOutlineTextMetric FIXED TFixed MAT2 TMat2 GLYPHMETRICS TGlyphMetrics POINTFX TPointFX TTPOLYCURVE TTTPolyCurve TTPOLYGONHEADER TPolygonHeader ABC TABC RASTERIZER_STATUS TRasterizer_Status MOUSEHOOKSTRUCT TMouseHookStruct CBTACTIVATESTRUCT TCBTActivateStruct HARDWAREHOOKSTRUCT THardwareHookStruct EVENTMSG TEventMsg WNDCLASS TWndClass MSG TMsg MINMAXINFO TMinMaxInfo SEGINFO TSegInfo ACCEL TAccel PAINTSTRUCT TPaintStruct CREATESTRUCT TCreateStruct CBT_CREATEWND TCBT_CreateWnd MEASUREITEMSTRUCT TMeasureItemStruct DRAWITEMSTRUCT TDrawItemStruct DELETEITEMSTRUCT TDeleteItemStruct COMPAREITEMSTRUCT TCompareItemStruct WINDOWPOS TWindowPos WINDOWPLACEMENT TWindowPlacement NCCALCSIZE_PARAMS TNCCalcSize_Params SIZE TSize MENUITEMTEMPLATEHEADER TMenuItemTemplateHeader MENUITEMTEMPLATE TMenuItemTemplate DCB TDCB COMSTAT TComStat MDICREATESTRUCT TMDICreateStruct CLIENTCREATESTRUCT TClientCreateStruct MULTIKEYHELP TMultiKeyHelp HELPWININFO THelpWinInfo CTLSTYLE TCtlStyle CTLtype TCtltype CTLINFO TCtlInfo DDEADVISE TDDEAdvise DDEDATA TDDEData DDEPOKE TDDEPoke DDEAACK TDDEAck DEVMODE TDevMode KANJISTRUCT TKanjiStruct

Walone · 2003-05-19

我也有个问题，借用一下宝地 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1874245 用vc写的dll中有一个函数 bool  play(ULONG lPlayer,FILE *file = NULL); 我在delphi中调用，这个函数怎么声明，第二个参数该怎么样传？ 为什么我用openfile打开文件时， filehandle := fileopen(strFilename,fmCreate); 返回值总是-1? 系统 win2kpro  delphi6 +upd1+upd2

fff2001 · 2003-12-17

多人接受答案了。

delphi调用C编写的dll，对应的类型转换有规律可寻么？(100分)

fff2001

Unregistered / Unconfirmed

haha2008haha

Unregistered / Unconfirmed

fff2001

Unregistered / Unconfirmed

fff2001

Unregistered / Unconfirmed

Walone

Unregistered / Unconfirmed

fff2001

Unregistered / Unconfirmed

Similar threads