Скачать: CL | DM;

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

← →
FEV   (2003-11-25 09:34) [0]

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

---

← →
alexdosh ©   (2003-11-25 10:28) [1]

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

---

← →
FEV   (2003-11-25 10:44) [2]

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

---

← →
Dean ©   (2003-11-25 10:47) [3]

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:51) [4]

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

---

← →
Dean ©   (2003-11-25 10:55) [5]

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

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

---

← →
Dr. Well   (2003-11-25 11:16) [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 11:23) [7]

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

---

← →
Dean ©   (2003-11-25 11:25) [8]

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

---

← →
FEV   (2003-11-25 12:28) [9]

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

---

← →
Rouse_ ©   (2003-11-25 13:56) [10]

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

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

---

← →
alexdosh ©   (2003-11-26 10:54) [11]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c