mainunit.pas

广州联通短信接口开发范例,应用于短信群发编程

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,SGIPUnit, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    LESrc_node: TLabeledEdit;
    LEgw_ip: TLabeledEdit;
    LEPort: TLabeledEdit;
    LEusername: TLabeledEdit;
    LEpasswd: TLabeledEdit;
    BtnConnect: TBitBtn;
    Memo1: TMemo;
    procedure BtnConnectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    LibHandle : THandle;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.BtnConnectClick(Sender: TObject);
begin
  //set_src_node(StrToIntDef(LEsrc_node.Text,-1));
  SGIP_Connect(PChar(LEgw_ip.Text),129,'','');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {LibHandle := Loadlibrary('sgipapi.dll');
  try
    if LibHandle = 0 then
    begin
      Memo1.Lines.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss',Now) + ' 装载串口动态链接库失败');

    end else
    begin
      @set_src_node := GetProcAddress(LibHandle,'set_src_node');
    end;
  except
  end;}
end;

end.