log.pas

通过串口发送多条短信的群发软件

unit log;

interface

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

type
  TlogForm = class(TForm)
    logMemo: TMemo;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  logForm: TlogForm;

implementation

uses other, main;

{$R *.dfm}

procedure TlogForm.FormShow(Sender: TObject);
var
  i,code:Integer;
begin

  if smsApdComPort.Open then
    logForm.logMemo.Lines.Add('comport is opened')
  else
    logForm.logMemo.Lines.Add('comport is closed');

  if sm_sending_receiving.Suspended then
    logForm.logMemo.Lines.Add('thread is suspended')
  else
    logForm.logMemo.Lines.Add('thread is running');

  logForm.logMemo.Lines.Add('service_tel='+serivce_tel);
{
  logForm.logMemo.Lines.Add(DecodeChinese('0500'));
  logForm.logMemo.Lines.Add(DecodeChinese('034E'));
  logForm.logMemo.Lines.Add(DecodeChinese('0202'));
  logForm.logMemo.Lines.Add(DecodeChinese('3002'));
  logForm.logMemo.Lines.Add('?');
  logForm.logMemo.Lines.Add(EncodeChinese('1/2'));
}
end;

end.