[pali4]

Привет всем тут хотел у вас просить, как сделать некую задумку...
например у меня есть 1 код

Код:

begin
ICQ:=TICQClient.create(nill);
ICQ.Uin:=StrToInt(edit1.text);
ICQ.Password:=edit2.text);
ICQ.Login();
end;

И вот тут делается процедура чтобы он посылался на номер

Код:

procedure TForm1.ICQLogin
begin
ICQ.SendMessage(989242); / Тому кому мы пишем :)
end;

Возникает следущий вопрос, если все номерки(штук 100-200) стоят в мемо1 допусти, то какже тогда сделать функцию...
так чтоли?

Код:

begin
ICQ:=TICQClient.create(nill);
Icq.Uin:=StrToInt(memo1.Lines.text);
Icq.Password:=(memo2.Lines.text);
ICQ.Login();
end;

lmikle: Нет, кто-то явно жаждет оказаться в read only за неиспользование тегов.

Думаю так, а ваши предложение?

PS а если допустим в memo1.lines.text; стоят номерки, такого типа номер;пароль
то как тогда записать Функию в пассворд?

[lmikle]

Нет, не так.
Из предположения, что каждый номер + пароль написан на отдельной строчке:

Код:

var
  I : Integer;
begin
  For I := 0 To Memo1.Lines.Count-1 Do
    begin
        ICQ:=TICQClient.create(nill);
        ICQ.uin := Copy(Memo1.Lines[i],1,POs(';',Memo1.Lines[i])-1);
        ICQ.Password := Copy(Memo1.Lines[i],POs(';',Memo1.Lines[i])+1,Length(Memo1.Lines[i]));
       ICQ.Login();
    end;
end;

И не забудь где-нить ссылки на создаваемые объекты хранить, что бы потом их корректно уничтожить.

[pali4]

Вот вроде бы все понятно, спасибо тебе большое!
но вот не будет ли все это тормозить? (Я имею ввиду точно будет со всех номеров отправлять?)
(ЗЫ Вот до сих пор не понимаю значение For I := 0 To Memo1.Lines.Count-1 Do если не сложно может все перевести)
Зарание спасибо.

[pali4]

Хм.. ну вроде сделал все как ты сказал, но кучу ошибок

PHP код:

procedure ICQLogin;
begin
ICQ.SendMessage(989242);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to memo1.lines.Count-1 do
begin
ICQ:=TICQClient.Create(nil);
ICQ.Uin:= Copy(memo1.lines[i],1,pos(';',memo1.lines[i])-1);
ICQ.Password:=copy(memo1.Lines[i],pos('',memo1.Lines[i]+1,Lengt(memo1.lines[i]));
ICQ.Login();
ICQ.OnLogin:=ICQLogin;


end; 


Ошибки:
[Error] Unit1.pas(29): Undeclared identifier: 'ICQ'
[Error] Unit1.pas(29): Not enough actual parameters
[Error] Unit1.pas(37): Undeclared identifier: 'ICQ'
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(38): Missing operator or semicolon
[Error] Unit1.pas(39): Missing operator or semicolon
[Error] Unit1.pas(39): Incompatible types: 'String' and 'Integer'
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(46): ';' expected but '.' found
[Error] Unit1.pas(48): Declaration expected but end of file found

И красное падает на

PHP код:

ICQ.SendMessage(989242); 


ЗЫ первый раз столько ошибок )

[KOOL]

ICQ сделай глобальной. И end; забыл после процедуры. И не брутфорс/спамбот ли ты случаем делаешь???

[ApplicatiOn]

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

(ЗЫ Вот до сих пор не понимаю значение For I := 0 To Memo1.Lines.Count-1 Do если не сложно может все перевести)
Зарание спасибо.

от i := 0 до Количества строк Memo делаем:
... код.

Memo1.Lines.Count-1 - минус адин потомучто индекс первой строки является нулем, а подсчет каунта идет как с единицы.

после этого кода For I := 0 To Memo1.Lines.Count-1 Do, будет выполняться "Memo1.Lines.Count-1" раз первый оператор после do.

Но поскольку там стоят операторные скобки (begin и end) то выполняться несколько раз будет все что под этими "скобками".

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

------------------------

да и если это ты пишешь спамер, флудер или еще какую-нибудь подобную хрень, то лучше тебе обратиться на другой форум...

p.s. ICQ поменяли протокол, так что можешь не стараться, TICQ больше не отправляет сообщения. Ждем обновлений от автора..

[Dronik]

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

p.s. ICQ поменяли протокол, так что можешь не стараться, TICQ больше не отправляет сообщения. Ждем обновлений от автора..

Данный компонент не переставал работать

[BloodFooria]

Да, компонент работает. Он подключается и отправляет сообщения, но на сервере ICQ абонент не регистрируется как "В сети".

P.S. Помню, еще после смены протокола долго и упорно сидел на старой версии клиента QIP, отправляло все нормально. Так что... От протокола лишь статус зависит, а отправка и получение сообщений: ну для этого надо вообще глобально протокол переписать

P.S.S. И почему сразу флудер/спамер и т.п.? Вот я сейчас пишу информационный ICQ-бот, необходимо пользователям, например, новости разослать, так вот это как раз пригодится Только у меня список пользователей в Strings хранится.