ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / net use, net send
22 сообщений из 22, страница 1 из 1
net use, net send
    #32365091
wilhel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wilhel
Гость
Народ, имеем Win2000 Prof в домене.
1) Как узнать какие принтеры подключены и к каким lpt (net use)?
2) Как подключить определенный принтер к какому-нибудь lpt?
3) Как отключить?
(только без всяких диалогов wind'ы, а то пользователи подохнут от возбуждения)
4) Как послать net send?

Send me all about local network
...
Рейтинг: 0 / 0
27.12.2003, 09:55
| Ответить | Цитировать | Написать  
net use, net send
    #32367778
$hadow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
$hadow
Гость
а что мешает shellexecute???
...
Рейтинг: 0 / 0
02.01.2004, 23:40
| Ответить | Цитировать | Написать  
net use, net send
    #32367839
wilhel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wilhel
Гость
$hadow Вы, наверно, меня не поняли. Мне не нужно посылать на печать, а нужно следить за печатью.
Кстати я нашел EnumJobs(), а вы?
...
Рейтинг: 0 / 0
03.01.2004, 12:03
| Ответить | Цитировать | Написать  
net use, net send
    #32368200
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
посмотри функцию EnumPrinters и сопутствующие ей. Я решал все вопросы по управлению печатью при помощи их.
...
Рейтинг: 0 / 0
05.01.2004, 03:31
| Ответить | Цитировать | Написать  
net use, net send
    #32368222
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
да, нет сенд проще всего послать через ShellExecute или CreateProcess...
...
Рейтинг: 0 / 0
05.01.2004, 07:34
| Ответить | Цитировать | Написать  
net use, net send
    #32368259
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
StarWind, напиши пример для net send-a, пожалуйста.
...
Рейтинг: 0 / 0
05.01.2004, 08:46
| Ответить | Цитировать | Написать  
net use, net send
    #32368263
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
а что его писать?
net send localhost "test"
...
Рейтинг: 0 / 0
05.01.2004, 09:07
| Ответить | Цитировать | Написать  
net use, net send
    #32368273
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
Я имел ввиду пример с ShellExecute.
Попробовал так:
Код: plaintext
1.
2.
3.
procedure TForm1.Button1Click(Sender: TObject);
begin
       ShellExecute(handle,'open','net send gmc jhjhj','',nil,SW_SHOW);
end;

gmc - это имя одного из компов
Не работает :(
...
Рейтинг: 0 / 0
05.01.2004, 09:22
| Ответить | Цитировать | Написать  
net use, net send
    #32368281
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
а на том компе надеюсь ядро NT? не 98?
если так, то идет ли нет-сенд из командной строки
...
Рейтинг: 0 / 0
05.01.2004, 09:28
| Ответить | Цитировать | Написать  
net use, net send
    #32368285
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
Да, 2000 Server. Из командной строки все идет, поскольку я часто пользовался (пока аську не поставил).
Меня интересует правильно ли я на писал все параметры в ShellExecute.
...
Рейтинг: 0 / 0
05.01.2004, 09:34
| Ответить | Цитировать | Написать  
net use, net send
    #32368294
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
Пробовал через cmd:
Код: plaintext
ShellExecute(h,'open','cmd.exe ','net send gmc jhjhj',nil,SW_SHOW);

Вызывается окошко cmd, а сообщение не отсылается.
...
Рейтинг: 0 / 0
05.01.2004, 09:52
| Ответить | Цитировать | Написать  
net use, net send
    #32368297
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
вроде как правильно (правда я в основном не ей пользуюсь)
можно посмотреть на ошибку, попробуй после ее вызова сказать RaiseLastWin32Error;
и еще, попробуй поменять местами третий и четвертый параметр.... весьма вероятно что поможет...
а то что пробуешь через cmd , то это не правильно. Командный процессор не умеет этого делать
...
Рейтинг: 0 / 0
05.01.2004, 09:55
| Ответить | Цитировать | Написать  
net use, net send
    #32368298
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
А если так
Код: plaintext
ShellExecute( 0 , 'open', pChar('net send * "Hello, word!"'), nil, nil,  SW_SHOWNORMAL );
...
Рейтинг: 0 / 0
05.01.2004, 09:55
| Ответить | Цитировать | Написать  
net use, net send
    #32368309
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
to StarWind

авторпопробуй поменять местами третий и четвертый параметр
Не помогает.

авторпробуешь через cmd, то это не правильно. Командный процессор не умеет этого делать
Всегда пользовался cmd для отправки сообщения, поскольку если набирать в командной строке над кнопкой "Пуск", то хранится история всей моей болтовни. Просто набирал "cmd" в командной строке, вызывалось консольное окошко, в котором набирал "net send gmc kjkhj". Хотя может ты имеешь ввиду, что нельзя передать команду "net send" через параметр ShellExecute...

А можно привести работающий пример (не важно через чего) ?


to Гавриленко Сергей Алексеевич

Шутник... Всему домену сообщение слать...
...
Рейтинг: 0 / 0
05.01.2004, 10:13
| Ответить | Цитировать | Написать  
net use, net send
    #32368317
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
в общем cmd не надо
попробуй через CreateProcess

Код: plaintext
1.
GetStartupInfo(SI);
 CreateProcess(nil,'net send localhost test',nil,nil,false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,SI,PI);
...
Рейтинг: 0 / 0
05.01.2004, 10:23
| Ответить | Цитировать | Написать  
net use, net send
    #32368327
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
ShellExecute(h,'open','cmd.exe ','net send gmc jhjhj',nil,SW_SHOW);

Было бы весьма странно, если бы это сработало :-)

Делай так:
Код: plaintext
ShellExecute(Application.Handle,nil,'net.exe','localhost hello world!',nil,SW_HIDE);




eNose
...
Рейтинг: 0 / 0
05.01.2004, 10:30
| Ответить | Цитировать | Написать  
net use, net send
    #32368348
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
to StarWind

Спасибо, работает.
А потом ничего освобождать или там еще чего делать не надо?


to eNose

Пишет : A call to an OS function failed.
...
Рейтинг: 0 / 0
05.01.2004, 10:54
| Ответить | Цитировать | Написать  
net use, net send
    #32368359
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Ну ошибся я, естественно:

ShellExecute(Application.Handle,nil,'net.exe',' send localhost hello world!',nil,SW_HIDE);




eNose
...
Рейтинг: 0 / 0
05.01.2004, 11:02
| Ответить | Цитировать | Написать  
net use, net send
    #32368368
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
нет не нужно
...
Рейтинг: 0 / 0
05.01.2004, 11:14
| Ответить | Цитировать | Написать  
net use, net send
    #32368382
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
to eNose

Сообщение посылается.
Вставил после этой строчки RaiseLastWin32Error пишет туже самую ошибку. Так и должно быть? Без RaiseLastWin32Error ошибку не выдает.
...
Рейтинг: 0 / 0
05.01.2004, 11:38
| Ответить | Цитировать | Написать  
net use, net send
    #32369018
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Cauchy
эээ если что RaiseLastWin32Error нужно только в случае если произошла ошибка при исполнении WinAPI и тебе хочется ее посмотреть. Так что тут ее не нужно, либо (что будет правильнее) поставить вызов этой процы под условие, в случае ошибки в WinAPI
...
Рейтинг: 0 / 0
06.01.2004, 03:05
| Ответить | Цитировать | Написать  
net use, net send
    #32369074
Фотография Cauchy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cauchy
Участник
А понял. Значит RaiseLastWin32Error нужна только в случае ошибки и выдает последнюю произошедшую ошибку. Т. е. даже если ошибки не произошло, то все равно будет выдавать сообщение о последней произошедшей ошибке. (неспроста она называется LastError )
Я то думал, что если ошибки не было, то и сообщения никакого не будет.
Спасибо за помощь.
...
Рейтинг: 0 / 0
06.01.2004, 08:59
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / net use, net send
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]