sendmessage.pas

Barcode And LabelPrint

unit SendMessage;

interface

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

type
  TfrmSendMessage = class(TfrmDailogBase)
    bbtOk: TBitBtn;
    bbtCancel: TBitBtn;
    Label1: TLabel;
    Memo1: TMemo;
    Bevel1: TBevel;
    bbtClear: TBitBtn;
    procedure bbtOkClick(Sender: TObject);
    procedure bbtClearClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSendMessage: TfrmSendMessage;

implementation

Uses DataModule, Global;
{$R *.dfm}

procedure TfrmSendMessage.bbtOkClick(Sender: TObject);
var
sMsg,sHost: String;
i: Integer;
begin
  inherited;

for i:= 0 to Memo1.Lines.Count -1 do
    sMsg:=sMsg+#13#10+Memo1.Lines.Strings[i];
sMsg:=trim(sMsg);
if sMsg='' then
   Raise Exception.Create('不能发送空消息！');
   
sHost:=dmClient.CSKClient.Socket.LocalHost;

if dmClient.CSKClient.Socket.Sendtext(c_Msg+'来自：'+sHost+#13#10+'内容：'+#13#10+sMsg)>0 then
   MessageDlg('消息已发送!',mtInformation,[mbOk],0)
   else
   MessageDlg('消息发送失败!',mtInformation,[mbOk],0);
end;

procedure TfrmSendMessage.bbtClearClick(Sender: TObject);
begin
  inherited;
Memo1.Clear ;
end;

procedure TfrmSendMessage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
frmSendMessage:=Nil;
end;

end.