отправка текста на ICQ номер

[-Flover-]

посмотрел форум, нашел подобное но много воды и ничего не работает.
пишу программу... нужно чтобы текст отправлялся на номер аси, мне бы хотя б нормально работающий код, а то нашел, а он не работает...
для простоты решения хочу так: три поля Edit, в одном вводится логин, во втором пароль, в третьем логин куда отправить сообщение, четвертое поле Edit это текст который будет отправлен, и кнопка Button чтобы через нее всё обрабатывалось... вот примерный код:

procedure TForm1.Button1.Click(Sender: TObject);
Var z: integer;
begin
z:=StrToInt(Edit3.text);
ICQClient1.UIN:=strtoint(Edit1.Text); //  UIN
ICQClient1.Password:=(Edit2.Text);    // Пароль
ICQClient1.Login();                      
ICQClient1.SendMessage(z,''+Edit4.Text+'');
end;

Работаю с компонентом TICQClient

P.S. в нем нет свойства logged, чтоб снова воды небыло :-)

[adidasko]

Попробуй сделать на событие OnLogin во вкладке Events и туда вставить

ICQClient1.SendMessage(z,Edit4.Text);

Я так понял тебе нужно чтобы когда приконнектился отправлять сообщение на указанный номер.

[-Flover-]

разобрался )) там не обязательно в евент прописывать ))

теперь такая проблема... вот подключение к асе:

procedure TForm1.Button1Click(Sender: TObject);
begin
sleep(50);
ICQClient1.UIN:=*********; // логин
ICQClient1.Password:='****'; //пароль
icqclient1.Login();
ShowMessage('Входим.....');
end;

вот это самое "входим" выходит РАНЬШЕ чем я подключаюсь к асе, как сделать чтоб это сообщение выходило ПОСЛЕ того как подключусь???

[IT-man]

у icqclient-a есть событие onLogin

procedure Tform1.ICQClientLogin(Sender: TObject);
begin
   ShowMessage('Входим.....');  
end;

[AlexSoft777]

Есть некий номер ICQ.
Как запустить icq из delphi?

Если из программы я хочу отослать кому-то письмо, то пишу так:

ShellExecute(Handle, 'open', 'mailto:AlexCher007@gmail.com', nil, nil, SW_SHOW);

И автоматом открывается почтовая программа.

А как быть с аськой, чтобы она открылась?

[raxp]

так вроде вверху достаточно написано, чтобы понять - что нужно сделать ...или нет?

[DomiNick]

ShellExecute(Handle, 'open', 'mailto:AlexCher007@gmail.com', nil, nil, SW_SHOW);
И автоматом открывается почтовая программа.
А как быть с аськой, чтобы она открылась?

То есть вы хотите чтоб при нажатии например кнопки Button1 открывался квип или аська? Тогда это совсем другой вопрос...

[AlexSoft777]

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

То есть вы хотите чтоб при нажатии например кнопки Button1 открывался квип или аська? Тогда это совсем другой вопрос...

Да, вы меня правильно поняли.

[Terikon]

функция, в uses добавить sheelapi

function TForm1.ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

вызов

executeFile('C:\Program Files\QIP 2010\qip.exe','text_file','', SW_SHOWNORMAL);