VPF::Проблема при отправке сообщения через net send

FreePaul

Дата 12.8.2008, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Здравствуйте!
Имеется элементарная программа для отправки сообщения на все компьютеры домена. На форме - 1 Memo, в которое "забивается" текст, и 2 кнопки: при нажатии на первую отправляется сообщение, при нажатии на вторую - выход из программы.
Код отправки сообщения:

Код


WinExec(PChar('net send '+MyDomain+' '+OutMessageMemo.Text), SW_HIDE);

Все бы ничего, да только при отправке сообщения длиной более 126 символов оно обрезается. Т.е. отправляются 126 символов сообщения, а все остальное уходит в небытие...

Ни у кого нету никаких идей, как это можно побороть?

P.S. Пробую разбивать сообщение на куски по 126 символов, но в этом случае иногда (не всегда) отправляется сначала вторая часть, а затем первая (больше двух частей сообщения отправлять не приходилось smile

) Вот код:

Код


//Отправляем сообщение на домен
   //Если длина сообщения не более 126 символов, отправляем целиком
   if (OutMessageMemo.GetTextLen<126) and (OutMessageMemo.GetTextLen=126) then
   WinExec(PChar('net send '+MyDomain+' '+OutMessageMemo.Text), SW_HIDE)
   //Если длина сообщения больше 126 символов, разбиваем на несколько
   else
   begin
        SymbCount:=0;
        while SymbCount<Length(OutMessageMemo.Lines.Text)-1 Do
        Begin
           try
           WinExec(PChar('net send '+MyDomain+' '+Copy(OutMessageMemo.Text, SymbCount+1, 126)), SW_HIDE);
           finally
           SymbCount:=SymbCount+126;
           end;
        end;
   end;

В чем проблема - не могу понять... Вся надежда на вас! smile

Alkash

Дата 12.8.2008, 14:53 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

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

Репутация: нет
Всего: нет

А если бить на куски, куски совать в буферы и проверяя очерёдность, отправлять из буфера по очереди?

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

Подпись >> /dev/null

FreePaul

Дата 12.8.2008, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(Alkash @ 12.8.2008, 11:53)

А если бить на куски, куски совать в буферы и проверяя очерёдность, отправлять из буфера по очереди?

М-м-м... Прошу обратить внимание на мою подпись... smile

Если можно, поподробнее пожалуйста...

Snowy

Дата 13.8.2008, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

NetMessageBufferSend

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »