| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подключение к компьютеру по сети [D6, Win2k]

FEV ©   (2003-11-25 09:34:00) 

Привет всем, в моей программе нужно выполнить подключение к компьютеру в сети, проблема такая:
Я знаю имя usera и password как мне программно вписать эти данные в окно которое выдается при подключении?
Буду очень благодарен за помощь!
Спасибо.

---

alexdosh   (2003-11-26 10:54:00) [1]

telnet-это удаленная консоль. Пользовалсая когда-нибудь командой "cmd" в своих Виндах2К, дык вот: телнет выполняет команды на удаленном компьютере, но это возможно если: 1) там запущен сервис телнета; 2) ты знаешь пароль+имя пользователя, которому разрешено работать с телнетом.

---

Rouse_   (2003-11-25 13:56:00) [2]

> [9] FEV (25.11.03 12:28)
Ресурс находится в сетевой папке " \\ИМЯ_КОМПА\ИМЯ_РЕСУРСА " !!!
Где он расположен физически тебя не должно волновать ...

Желаю успехов

---

FEV   (2003-11-25 12:28:00) [3]

Почемуто не получается? и ни начто не жалуется
возьмем к примеру
user: 1
Password: 2
Реусурс находится в сетевой папке на диске "С:\my prog\"
Как мне можно выполнить подключение?

---

Dean   (2003-11-25 11:25:00) [4]

Не то!!! попутал братцы!

---

Dean   (2003-11-25 11:23:00) [5]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622334&n=20

---

Dr. Well   (2003-11-25 11:16:00) [6]

ЛОВИ ПРИМЕР, НО УЧТИ, ЕСЛИ У ТЕБЯ ОТКРЫТА ХОТЬ ОДНА ПАПКА С УДАЛЕННОГО КОМПА, К КОТОРОМУ ТЫ КОННЕКТИШЬСЯ, ВИНДА НЕ ДАСТ ТЕБЕ ЗАКОННЕКТИТЬСЯ ПОД ДРУГИМ ЛОГИНОМ.... В ЭТОМ МОЯ ПРОБЛЕМА.

function TMainForm.Connect2ND(aRemoteName, aUserName, aUserPassword : PChar) : String;
var
NetDrive: TNetResource;
DriveLetter : String;
begin
Result := "!Not Connected!";
// Get Free Letter of Drive НА ФОРМЕ ЛЕЖИТ СКРЫТЫЙ ТDriveComboBox - ТАК ПРОЩЕ ОПРЕДЕЛИТЬ НЕЗАНЯТУЮ БУКВУ ДИСКА
DriveLetter := Chr(Ord(DriveComboBox.Items.Strings[DriveComboBox.Items.Count-1][1])+1) + ":";
// Connect 2 Drive
NetDrive.dwType := RESOURCETYPE_ANY;
NetDrive.lpLocalName := PChar(DriveLetter);
NetDrive.lpRemoteName := aRemoteName;
NetDrive.lpProvider := "";
if WNetAddConnection2(NetDrive, aUserPassword, aUserName, 0) = No_Error then Result := DriveLetter;
end;

function DisconnectND(var Drive : String; ComputerName : String) : Boolean;
begin
Result := False;
SetCurrentDir("C:\");
if Drive[2] = ":" then
begin
Result := WNetCancelConnection(PChar(Drive),False) = No_Error;
if not Result then
begin
MessageDlg("Невозможно прервать соединение с сервером."+#13+"Сообщите администратору об ошибке.",mtError,[mbOk],0);
//WinExec(PChar("NET SEND ServerNAME "Невозможно прервать соединение компьютера "+ComputerName+" с сервером. Бегом туда.""),SW_Hide);
end else Drive := "!Not Connected!";
end;
end;

---

Dean   (2003-11-25 10:55:00) [7]

> Извените а пример можно, плиз...

тут на форуме где-то пример был... я сам не юзал эту ф-цию, как-то руки не доходили.

---

FEV   (2003-11-25 10:51:00) [8]

Извените а пример можно, плиз...

---

Dean   (2003-11-25 10:47:00) [9]

DWORD WNetAddConnection2(

LPNETRESOURCE lpNetResource, // points to structure that specifies connection details
LPCTSTR lpPassword, // points to password string
LPCTSTR lpUsername, // points to user name string
DWORD dwFlags // set of bit flags that specify connection options
);

---

FEV   (2003-11-25 10:44:00) [10]

Я незнаю что это, если не трудно объясни пожалуйста!

---

alexdosh   (2003-11-25 10:28:00) [11]

телнетом пробовал?

---

Наверх