TICQClient - Отправка ДЛИННЫХ сообщений

[=LeonZone=]

Если вопрос тупой - не пинайте плиз

Использую версию 1.35a от Царя (http://progs.volkov.spb.su/ticqclient/)

Как отправить длинное сообщение? Напиример, 10000 символов?
Пробовал в цикле резать текст по 3000 символов и отправлять кусками, но в этом случае приходит лишь последний кусок

if length(Text)>3000 then
   begin
   repeat
   t:=copy(Text,1,3000);
   Delete(Text,1,3000);
   ICQ.SendMessage(strtoint(UIN),t);
   Sleep(1000);//пауза
   until length(Text)<3000;
   ICQ.SendMessage(strtoint(UIN),Text);
   end;

Где я не прав? Кто-нибудь поможет?...
Заранее благодарен!

[raxp]

1- не стоит использовать sleep, сделайте поток или таймером
2- есть событие компонента ICQClient1MsgAck()
3- достаточно в таймере, а лучше по событию ICQClient1MsgAck -> inc(i); sendtext := copy(text, i, 3000)

смысл ясен?

[=LeonZone=]

Хм.. С потоком и таймером ясно..
А можно по подробнее про событие MsgAck? Там же в параметрах только UIN и ID..

Просто хотелось бы реализовать всё это как одну функцию, чтобы ею можно было пользоваться из других юнитов..

[raxp]

вы еще скажите, что не обрабатываете, кроме ICQClient1MsgAck(), например еще событие подключения OnLogin()...

[=LeonZone=]

В событии OnMsgAck не нуждался, поэтому и не знаю как его использовать. Помогите

[raxp]

ммм... а вы читали help к компоненту?

[=LeonZone=]

raxp
Спасибо Вам огромное! Всё сделал

Тему можно закрывать