delphi调用vc开发的dll的问题

Question

各位高手，小弟现在遇到这么个问题：
用delphi调用vc开发的dll，怎么调用啊？紧急求助！最好能给我具体完整的调用代码。小弟是菜鸟，跪求！！！
dll的名字是sgipapi.dll，还用一个头文件SGIPAPIDef.h，内容如下：#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
#endifSGIPAPI_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, //接收手机个数 <100
char *dest_mobiles, //接收手机号码，以空格分隔
char *msg, //消息内容
unsigned long  msg_len, //消息长度
unsigned long *p_seq1, //返回生成的序列号1-3，可以传递NULL
unsigned long *p_seq2,
unsigned long *p_seq3
);
SGIPAPI_API int SGIP_Disconnect(int conn_id); 
struct MO_msg{
        char    sourceUser[21]; //发送消息的手机
        char    SPNumber[21]; //SP接入号
        unsigned char    tp_pid;
        unsigned char    tp_udhi;
        unsigned char   msgFormat; //消息格式
        unsigned long   msgLen; //消息长度
        char    msg[160]; //消息内容
};     struct MO_report{
  unsigned long seq1; //相应的submit序列号1-3
unsigned long seq2;
unsigned long seq3;
unsigned char report_type;
char mobile[21]; //目的手机号
unsigned char state; //状态 0：发送成功 1：等待发送 2：发送失败
unsigned char errCode; //错误代码
};
#define MO_MSG  1
#define MO_REPORT 2SGIPAPI_API int SGIP_Get_MO(int conn_id,void **pp_MO);#endif

Answer 1

首先看是普通DLL还是COM DLL
1、普通DLL可以静态加载，也使用LoadLibrary函数动态加载DLL库
调用方法和内部函数一样
具体参见这个例子2、COM DLL则需要先用regsvr32程序注册一下，然后在Delphi以ActiveX控件形式中导入或生成TLB接口单元
作为一个类来调用
具体参见这个例子

Answer 2

我的调用程序如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI;type
  TSGIP_Connect=function(gw_ip:pchar;port:integer;username:pchar;passwd:pchar):integer;cdecl;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  SGIP_Connect:TSGIP_Connect;
  H:THandle;
implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=100;H:=100;
H:= LoadLibrary('sgipapi.dll'); //动态载入DLL，并返回其句柄
showmessage(inttostr(H));
  try
   if H > 0 then
     @SGIP_Connect:=GetProcAddress(H,'SGIP_Connect');
     if (@SGIP_Connect<>nil) then
         SGIP_Connect('123',8801,'MyFileName', 'MyID')
      else
        RaiseLastWin32Error;
  finally
    FreeLibrary(H);
  end;
end;
end.
总是报错，好像是'SGIP_Connect'函数地址没有正常返回，请高手赐教啊！