Chodzi mi oto aby wysłało do numeru z którego przyszła wiadomość inną wiadomość
Kod programu
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, HGG, XPMan, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
numer: TEdit;
haslo: TEdit;
rozmowca: TEdit;
Button1: TButton;
Button2: TButton;
Memo2: TMemo;
Button3: TButton;
XPManifest1: TXPManifest;
HGG1: THGG;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
opis: TEdit;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Bevel1: TBevel;
Memo1: TMemo;
odpowiedz: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure HGG1Connected(Sender: TObject);
procedure HGG1Disconnected(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure HGG1Message(Sender: TObject; GGNumber: Integer;
MessageContent: String; MessageTime: TDateTime);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
hgg1.Password:=haslo.Text;
hgg1.number:=strtoint(numer.Text);
hgg1.Status:=usAvailable;
hgg1.connect
end;
procedure TForm1.Button2Click(Sender: TObject);
var
numer : integer;
begin
numer := strtoint(rozmowca.Text);
Memo2.Lines.SaveToFile('C:\arch.txt');
HGG1.SendMessage(numer,memo2.Lines.GetText,['<n><black>']);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
hgg1.Status:=usNotAvailable;
end;
procedure TForm1.HGG1Connected(Sender: TObject);
begin
label4.caption:='Połączony';
label4.font.color:=clgreen;
end;
procedure TForm1.HGG1Disconnected(Sender: TObject);
begin
label4.caption:='Niepołączony';
label4.font.color:=clred;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if radiobutton1.checked then hgg1.Status:=usAvailable;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.checked then hgg1.Status:=usBusy;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if radiobutton3.checked then hgg1.Status:=usInvisible
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
if radiobutton3.checked then hgg1.Status:=usNotAvailable
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
hgg1.description:=opis.Text;
end;
procedure TForm1.HGG1Message(Sender: TObject; GGNumber: Integer;
MessageContent: String; MessageTime: TDateTime);
begin
memo1.Lines.Add('[' +inttostr(ggnumber) +']: ' +MessageContent);
end;
end.
Trzeba coś wstawić w onMassege thgg ale co
HGG1.SendMessage(inttostr(number),odpowiedz.Lines.GetText,['<n><black>']);
Takie coś u mnie nie dziala?