sendmessage.pas

用delphi制作的简单的类似qq的聊天客户端

unit SendMessage;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    MEMO1: TMemo;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses AMMain;


{$R *.dfm}
//------------------
//发送消息
//------------------
procedure TForm3.Button1Click(Sender: TObject);
var
vTrID :Variant ;
AMMessage1 :TAMMessage;
AOwner: TComponent;
begin
    //----------------
    //创建TAMMessage对象
    //----------------
    AMMessage1 := TAMMessage.Create(AOwner);
    AMMessage1.AddReceiver(AMMain.Form2.arrayUser[AMMain.Form2.nodeSender.AbsoluteIndex],'');
    showmessage(AMMain.Form2.arrayUser[AMMain.Form2.nodeSender.AbsoluteIndex]);
    AMMessage1.SetMsgContent(AM_CONTENTTYPE_TEXT, memo1.Text );
    vTrID := AMMain.form2.AMSession1.SendMsg(AMMessage1.DefaultInterface,AM_CONTENTTYPE_TEXT ) ;
    form3.Close ;
end;

end.