sendmessage.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 69 行

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.