unit1.cpp

短信开发控件

//---------------------------------------------------------------------------

#include <vcl.h>
#include <string.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::cmdRefreshClick(TObject *Sender)
{
  HINSTANCE hLib = ::LoadLibrary( "kkstar_sms.dll" );
  //下面这一句定义DLL中的GetGatewayList()函数，注意参数及返回值都是 char* 类型
  typedef char * (WINAPI *SOWFUNCTION)();
  SOWFUNCTION GetGatewayList = (SOWFUNCTION)GetProcAddress(hLib,"GetGatewayList");
  char *Result=GetGatewayList();
  cmbGateway->Items->Text=Result;
  cmbGateway->ItemIndex=0;
  ::FreeLibrary( hLib );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cmdSendClick(TObject *Sender)
{
  HINSTANCE hLib = ::LoadLibrary( "kkstar_sms.dll" );
  //下面这一句定义DLL中的SendSms()函数，注意参数及返回值都是 char* 类型
  typedef char * (WINAPI *SOWFUNCTION)(
    char *GateWay,
    char *UserName,
    char *Password,
    char *Phone,
    char *Content,
    char *NickName,
    char *Extent );

  SOWFUNCTION SendSms = (SOWFUNCTION)GetProcAddress(hLib,"SendSms");
  char *Result=SendSms(
    cmbGateway->Text.c_str(),
    txtUserName->Text.c_str(),
    txtPassword->Text.c_str(),
    txtPhone->Text.c_str(),
    edtMessage->Text.c_str(),
    txtNickName->Text.c_str(),
    "" );
  txtResult->Text=Result;
  ::FreeLibrary( hLib );
}
//---------------------------------------------------------------------------