Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ICQClient + отправка сообщений нескольким уинам 
V
    Опции темы
S1nt3z
Дата 21.12.2009, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 10.12.2009

Репутация: нет
Всего: нет
Здравствуйте уважаемые форумчане! У меня такой вопрос:
Есть компонент TICQClient и есть Edit1. В Edit1 допустим записаны уины с символом-разделителем ";"(Например 4214152;323123;5355646;232312) . Вопрос: Как сделать так, чтобы ICQClient отправил сообщения всем клиентам по отдельности проигнорировав знак ";". Не могу понять как сделать цикл. Помогите пожалуйста с циклом, а с парсингом строки уже сам разберусь smile Спасибо за внимание! 
PM MAIL   Вверх
Frees
Дата 21.12.2009, 11:49 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
спам хочешь рассылать?


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
S1nt3z
Дата 21.12.2009, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 10.12.2009

Репутация: нет
Всего: нет
Цитата(Frees @  21.12.2009,  11:49 Найти цитируемый пост)
спам хочешь рассылать? 

Нет, вы не так поняли. У меня на работе стоит программа которой пользуются 4 человека (типа блокнота в котором работники оставляю свои заметки и отчеты). Суть в том, что я хочу реализовать ещё и отправку в ICQ сообщений которые оставляют там. Ну что-то типа рассылки, если человек введет свой уин в Edit1 то ему будет приходить в аську всё что там пишут, если уберет - то соответственно не будет smile

Это сообщение отредактировал(а) S1nt3z - 21.12.2009, 11:58
PM MAIL   Вверх
Данкинг
Дата 21.12.2009, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Код

function getwordnum(slovo,razd,nomer: string): string;
var i,c,int1,int2:integer;
res,ss:string;
begin
result:=slovo;
if (length(trim(slovo))=0) or (length(trim(razd))<>1)then exit;
slovo:=trim(razd)+trim(slovo)+trim(razd);
c:=0;
int1:=0;
int2:=0;
for i:=1 to length(slovo) do
 begin
  ss:=copy(slovo,i,1);
  if ss=razd then
    begin
     inc(c);
     if c=strtoint(nomer) then int1:=i;
     if c=strtoint(nomer)+1 then int2:=i;
    end;
 end;
result:=copy(slovo,int1+1,int2-int1-1);
end;
....

var i:integer;
sss:string;
begin
for i:=1 to 3 do// 3 - число УИНов
 sss:=getwordnum(edit1.text,';',inttostr(i));
end;




Это сообщение отредактировал(а) Данкинг - 21.12.2009, 12:09


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
S1nt3z
Дата 21.12.2009, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 10.12.2009

Репутация: нет
Всего: нет
Данкинг, большое спасибо! Помогло!
PM MAIL   Вверх
Данкинг
Дата 21.12.2009, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
S1nt3z, если нужно будет узнать, сколько именно УИНов в строке, то, соответственно, посчитаешь число ";" . smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Qu1nt
Дата 21.12.2009, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Код

procedure SuperPuperSpam(const Source: string);
var
  i: Integer;
begin
  with TStringList.Create do
  try
    Text := StringReplace(Source, ';', sLineBreak, [rfReplaceAll]);
    for i := 0 to Count - 1 do
      // Send(Strings[i])
  finally
    Free;
  end;
end;


Это сообщение отредактировал(а) Qu1nt - 21.12.2009, 14:15
PM MAIL   Вверх
Демо
Дата 21.12.2009, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Qu1nt, 

Проще использовать 
Код

TStringList.Delimiter 
TStringList.DelimitedText



--------------------
    
PM MAIL ICQ Skype   Вверх
S1nt3z
Дата 21.12.2009, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 10.12.2009

Репутация: нет
Всего: нет
Пасиб, ребята  smile 


Цитата(Qu1nt @  21.12.2009,  14:08 Найти цитируемый пост)
procedure SuperPuperSpam(const Source: string);

 smile 
PM MAIL   Вверх
Qu1nt
Дата 21.12.2009, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Демо,
Две строчки, против одной smile Плюс, если последний символ строки - разделитель, Ваш способ добавит пустой элемент, а мой - нет. Следовательно не нужна дополнительная проверка. 
Может быть логичней, но не проще = )

Это сообщение отредактировал(а) Qu1nt - 21.12.2009, 14:58
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0497 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.