Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Проблема при отправке сообщения через net send

Автор: FreePaul 12.8.2008, 14:32

Здравствуйте!
Имеется элементарная программа для отправки сообщения на все компьютеры домена. На форме - 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

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

Автор: FreePaul 12.8.2008, 15:16

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

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

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

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

Автор: Snowy 13.8.2008, 15:11

NetMessageBufferSend