FORUMS

MEMBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 514 из 671

514

Опции темы

Поиск в этой теме

Опции просмотра

15.12.2009, 16:58

Seven[up]

Познающий

Регистрация: 10.08.2009

Сообщений: 74

Провел на форуме:
1538500

Репутация: 69

Отправить сообщение для Seven[up] с помощью ICQ

где ошибка???

Код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ICQClient1.Login;
  ICQClient1.SendMessage(361796, Edit1.text+':'+Edit2.text);
  ICQClient1.Disconnect;
end;

end.

15.12.2009, 18:21

HakaR

Участник форума

Регистрация: 23.07.2009

Сообщений: 261

Провел на форуме:
4435957

Репутация: 539

Цитата:

Сообщение от Seven[up]

Надо же с чего то начинать

Чегодня первый день в дельфи, надо как то ознакомиться, фейки поделать

Спс щас гляну...

Если первый день в дельфи, то нужно с другого начинать.

15.12.2009, 18:37

=Zeus=

Участник форума

Регистрация: 10.08.2009

Сообщений: 238

Провел на форуме:
724939

Репутация: 108

Отправить сообщение для =Zeus= с помощью ICQ

Seven[up], в разделе "Министатьи" я писал пример, как это сделать. Можешь там посмотреть. Там самая последняя на данный момент вроде.

15.12.2009, 18:53

_s1r1us_

Познающий

Регистрация: 24.08.2009

Сообщений: 36

Провел на форуме:
671849

Репутация: 6

Цитата:

где ошибка???

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

15.12.2009, 19:04

Seven[up]

Познающий

Регистрация: 10.08.2009

Сообщений: 74

Провел на форуме:
1538500

Репутация: 69

Цитата:

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

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

они а настройках компонента ICQClient

15.12.2009, 19:07

Seven[up]

Познающий

Регистрация: 10.08.2009

Сообщений: 74

Провел на форуме:
1538500

Репутация: 69

проблему так и не решил((( м.б. кто нибудь подскажет что недостает в коде?

16.12.2009, 02:16

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Отправить сообщение для StealthMaster с помощью ICQ

Цитата:

Сообщение от Seven[up]

проблему так и не решил((( м.б. кто нибудь подскажет что недостает в коде?

Код:

procedure TForm1.bConnectClick(Sender: TObject);
begin
  ICQClient1.Login();
end;

procedure TForm1.bSendMessageClick(Sender: TObject);
begin
  with ICQClient1 do
    if LoggedIn then
      SendMessage(361796, edText1.Text + ':' + edText2.Text);
end;

Либо, как вариант использовать таймер, чтобы каждые N секунд проверять, удалось установить подключение или нет.

Код:

procedure TForm1.bConnectClick(Sender: TObject);
begin
  ICQClient1.Login();
  Timer1.Enabled := true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with ICQClient1 do
    if LoggedIn then
      begin
        SendMessage(361796, edText1.Text + ':' + edText2.Text);
        Timer1.Enabled := false;
      end;
end;

Хотя с компонентом IcqClient чудеса творятся... Днем наотрез отказался подключаться...

Последний раз редактировалось StealthMaster; 16.12.2009 в 02:53..

16.12.2009, 09:56

Seven[up]

Познающий

Регистрация: 10.08.2009

Сообщений: 74

Провел на форуме:
1538500

Репутация: 69

Цитата:

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

Код:

procedure TForm1.bConnectClick(Sender: TObject);
begin
  ICQClient1.Login();
end;

procedure TForm1.bSendMessageClick(Sender: TObject);
begin
  with ICQClient1 do
    if LoggedIn then
      SendMessage(361796, edText1.Text + ':' + edText2.Text);
end;

Код:

procedure TForm1.bConnectClick(Sender: TObject);
begin
  ICQClient1.Login();
  Timer1.Enabled := true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with ICQClient1 do
    if LoggedIn then
      begin
        SendMessage(361796, edText1.Text + ':' + edText2.Text);
        Timer1.Enabled := false;
      end;
end;

Хотя с компонентом IcqClient чудеса творятся... Днем наотрез отказался подключаться...

Спасибо

15.12.2009, 19:23

crystalbit

Участник форума

Регистрация: 06.06.2008

Сообщений: 171

Провел на форуме:
1085601

Репутация: 110

Отправить сообщение для crystalbit с помощью ICQ

тебе нужно дожидаться. дожидаться, когда ася войдёт. Функция login вроде асинхронно работает. Тут или на OnLogin (или как там), или циклом ждешь LoggedIn (не уверен, как оно в компоненте, но суть ты понял)

#10

16.12.2009, 02:31

AlexGT

Познающий

Регистрация: 21.01.2008

Сообщений: 85

Провел на форуме:
629558

Репутация: 52

Отправить сообщение для AlexGT с помощью ICQ

Народ как в дельфи при достижении прогрессбаром позиции 100 (Progressbar1.Position=100) вывести меседж ?
Перепробовал кучу вариантов, в том числе с таймером ничего не получилось..

Страница 514 из 671

514

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2568	25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

ANTICHAT.XYZ