Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Вниз

Как подключить сетевой принтер?   Найти похожие ветки 

← →
Tron   (2007-10-09 13:08) [0]

Существует ли код, функция, компонент... чтобы программно, с помощью Delphi подключить сетевой принтер?

---

← →
й1   (2007-10-09 13:20) [1]

конечно

---

← →
clickmaker ©   (2007-10-09 13:24) [2]

WNetAddConnection2

---

← →
Tron   (2007-10-09 14:44) [3]

Спасибо, нашёл!
Только какие изменения нужно внести для сетевого принтера?

procedure TForm1.Button2Click(Sender: TObject);
var NetResource: TNetResource;
begin   { заполняем структуру TNetResource }
NetResource.dwType       := RESOURCETYPE_DISK;   NetResource.lpLocalName  := "S:";   NetResource.lpRemoteName := "\\myserver\public";   NetResource.lpProvider   := "";
{ подключаем сетевой ресурс, используя структуру TNetResource }
If ( WNetAddConnection2(NetResource,                          "",
{Password (if needed) or empty}                          "",
{User name (if needed) or empty}                          CONNECT_UPDATE_PROFILE)<>NO_ERROR) Then  
   Raise Excepcion.Create("unable to map drive")  
//так же существуют другие константы для определения возникшей ошибки  
//ERROR_ACCESS_DENIED, ERROR_ALREADY_ASSIGNED, и т.д.
end;

//так же можно и отключить сетевой ресурс...
procedure TForm1.Button2Click(Sender: TObject);
begin  
if WNetCancelConnection2( "S:",0,TRUE) <> NO_ERROR then  
 Raise Exception.create("Error disconnecting map drive");  
//соответственно можно использовать другие константы для определения ошибки
//ERROR_DEVICE_IN_USE, ERROR_NOT_CONNECTED, и т.д. end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c