unitchat.pas

来自「如何在Delphi下实现画面捕捉、传输、以及文件的传输原理」· PAS 代码 · 共 67 行

unit UnitChat;

interface

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

type
  TFmChat = class(TForm)
    MemSend: TMemo;
    Label1: TLabel;
    BtnSend: TButton;
    BtnLook: TButton;
    PaneRecd: TPanel;
    MemRecd: TMemo;
    procedure BtnSendClick(Sender: TObject);
    procedure BtnLookClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmChat: TFmChat;

implementation

uses UnitThread,UnitLogin,UnitFriendList,UnitRecord;

{$R *.dfm}

procedure TFmChat.BtnSendClick(Sender: TObject);
var
	ChatCommBlock : TCommBlock;
        I : Integer;
begin
        I := FmFriendList.ListBox.ItemIndex;

	ChatCommBlock.StrKind := 'SENDMSG';
        ChatCommBlock.SendName := FmLogin.EdtQQ.Text;
        ChatCommBlock.ToName := FmFriendList.ListBox.Items[I];
	ChatCommBlock.Msg := MemSend.Text;

        FmThread.IdTCPClient.WriteBuffer(ChatCommBlock,SizeOf(ChatCommBlock));

        MemSend.Clear;
end;

procedure TFmChat.BtnLookClick(Sender: TObject);
begin
        if BtnLook.Caption = '隐藏聊天记录' then
        begin
                PaneRecd.Hide;
        	BtnLook.Caption := '查看聊天记录';
        end
        else
        begin
        	BtnLook.Caption := '隐藏聊天记录';
                PaneRecd.Show;
        end;

end;

end.