Отправка данных на ICQ

[AnToHa-KiLL]

Можно ли реализовать такую вещь как отправка данных с edit на определённый номер ICQ? Например сделать в программе функцию заказов. Открывая программу он видет форму ввода, в ней оставляет заказ, а он к тебе приходит на твой номер ICQ

[W0LF]

Вам нужен компонент TICQClient

[AnToHa-KiLL]

Сообщение от W0LF

Вам нужен компонент TICQClient

Спасибо разобрался. Теперь задача такая, надо чтобы отсылка шла с разных страниц. . .а у меня только идёт с первой. . . .попробовал осуществить и ничего не получилось соединение на номер есть. . .а сообщение не доходит

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ICQClient, StdCtrls, XPMan, ComCtrls, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
ICQClient1: TICQClient;
xpmnfst1: TXPManifest;
img1: TImage;
pgcclw: TPageControl;
ts1: TTabSheet;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
edt1: TEdit;
ProgressBar1: TProgressBar;
ts2: TTabSheet;
ts3: TTabSheet;
ts4: TTabSheet;
lbl1: TLabel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
lbl8: TLabel;
lbl9: TLabel;
lbl10: TLabel;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
edt7: TEdit;
btn1: TButton;
btn2: TButton;
ProgressBar2: TProgressBar;
pb1: TProgressBar;
/////////////////
procedure ICQClient1Login(Sender: TObject);
procedure ICQClient1MsgAck(Sender: TObject; UIN: String; ID: Word);
/////////////////
procedure ICQClient2Login(Sender: TObject);
procedure ICQClient2MsgAck(Sender: TObject; UIN: String; ID: Word);
/////////////////
procedure ICQClient3Login(Sender: TObject);
procedure ICQClient3MsgAck(Sender: TObject; UIN: String; ID: Word);
/////////////////
procedure Button1Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
Icqclient1.SendMessage(579833877,Ed it1.text+';'+Edit2.text);
end;

//////




//Aieina

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
n,i:integer;
begin
for i:=0 to 100 do
begin
ProgressBar1.Position:=ProgressBar1 .Position+1;
Application.ProcessMessages;
sleep(50);
ICQClient1.UIN:=561435345; // Io eiai (Iiia? ICQ)
ICQClient1.Password:='xxxx'; // Ia?ieu io yoiai iiia?a
icqclient1.Login();
end;
ShowMessage('Iia?aoey auiieiaia oniaoii')
end;

procedure TForm1.ICQClient1MsgAck(Sender: TObject; UIN: String; ID: Word);
begin
icqclient1.Disconnect;


end;



////////?aeoeia


procedure TForm1.ICQClient2Login(Sender: TObject);
begin
Icqclient2.SendMessage(579833877,ed t2.text+';'+edt3.text);
end;

procedure TForm1.btn1Click(Sender: TObject);
var g:string;
n,i:integer;
begin
for i:=0 to 100 do
begin
ProgressBar2.Position:=ProgressBar2 .Position+1;
Application.ProcessMessages;
sleep(50);
ICQClient2.UIN:=557697775; // Io eiai (Iiia? ICQ)
ICQClient2.Password:='xxxx'; // Ia?ieu io yoiai iiia?a
icqclient2.Login();
end;
ShowMessage('Iia?aoey auiieiaia oniaoii')
end;
procedure TForm1.ICQClient2MsgAck(Sender: TObject; UIN: String; ID: Word);
begin
icqclient2.Disconnect;

end;

//////////////// Fishki
procedure TForm1.ICQClient3Login(Sender: TObject);
begin
Icqclient3.SendMessage(579833877,ed t5.text+';'+edt6.text);
end;

procedure TForm1.btn2Click(Sender: TObject);
var d:string;
n,i:integer;
begin
for i:=0 to 100 do
begin
pb1.Position:=pb1.Position+1;
Application.ProcessMessages;
sleep(50);
ICQClient3.UIN:=584857791; // Io eiai (Iiia? ICQ)
ICQClient3.Password:='xxxx'; // Ia?ieu io yoiai iiia?a
icqclient3.Login();
end;
ShowMessage('Iia?aoey auiieiaia oniaoii')
end;

procedure TForm1.ICQClient3MsgAck(Sender: TObject; UIN: String; ID: Word);
begin
icqclient3.Disconnect;
end;


end.

[-Flover-]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ICQClient1: TICQClient;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
n,i:integer;
begin
ICQClient1.UIN:=*******; // логин
ICQClient1.Password:='хххх'; //пароль
icqclient1.Login(); // логинимся
ShowMessage('Входим.....');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Icqclient1.SendMessage(StrToInt(Edit1.Text),Edit2.text); // номер кому отправить считывается с edit1, что отправить с edit2 
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
icqclient1.Disconnect; // отключаемся
end;

end.

это чисто так, рабочий пример, компонент ICQClient версии 1.35а использовался... можно всё реализрвать в одной кнопке.... и главное - частое переподключение влечет некоторое время невозможность подключиться

если не ошибаюсь у вас в цикле как раз, 100 раз идет переподключение, поэтому и получается что логинитесь, а потом вас выбрасывает....

если уж по вашему примеру то должно быть по идее так:

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
n,i:integer;
begin
for i:=0 to 100 do
begin
ProgressBar1.Position:=ProgressBar1 .Position+1;
Application.ProcessMessages;
sleep(50);
ICQClient1.UIN:=561435345; // Io eiai (Iiia? ICQ)
ICQClient1.Password:='xxxx'; // Ia?ieu io yoiai iiia?a
icqclient1.Login();
ShowMessage('Iia?aoey auiieiaia oniaoii');
end;
end;

и то не уверен что будет работать

[AnToHa-KiLL]

Сообщение от -Flover-

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ICQClient1: TICQClient;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
n,i:integer;
begin
ICQClient1.UIN:=*******; // логин
ICQClient1.Password:='хххх'; //пароль
icqclient1.Login(); // логинимся
ShowMessage('Входим.....');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Icqclient1.SendMessage(StrToInt(Edit1.Text),Edit2.text); // номер кому отправить считывается с edit1, что отправить с edit2 
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
icqclient1.Disconnect; // отключаемся
end;

end.

это чисто так, рабочий пример, компонент ICQClient версии 1.35а использовался... можно всё реализрвать в одной кнопке.... и главное - частое переподключение влечет некоторое время невозможность подключиться

если не ошибаюсь у вас в цикле как раз, 100 раз идет переподключение, поэтому и получается что логинитесь, а потом вас выбрасывает....

если уж по вашему примеру то должно быть по идее так:

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
n,i:integer;
begin
for i:=0 to 100 do
begin
ProgressBar1.Position:=ProgressBar1 .Position+1;
Application.ProcessMessages;
sleep(50);
ICQClient1.UIN:=561435345; // Io eiai (Iiia? ICQ)
ICQClient1.Password:='xxxx'; // Ia?ieu io yoiai iiia?a
icqclient1.Login();
ShowMessage('Iia?aoey auiieiaia oniaoii');
end;
end;

и то не уверен что будет работать

Извиняюсь за некропостинг, но это решение очень выручило, тогда.

[Valick]

Аська зло!!!