Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Доступ по сети [D7, XP]

Страницы: < 1 2
philinsul © (2007-09-24 10:39:00)
Все здравствуйте.
Есть проблемка, помогите кто может.
Есть локальная сеть мне надо сделать следующее на форме есть 3 поля едит и кнопка, я в поля ввожу айпишник нужного компа, логин под которым буду подключаться и пароль. Вот я не могу сделать так чтобы программа открывала нужный комп в сети. Короче надо сделать доступ по сети.

Malik (2007-09-24 16:55:00) [21]

> Anatoly Podgoretsky ©

Сам видел как работала

Anatoly Podgoretsky (2007-09-24 16:52:00) [22]
> Malik (24.09.2007 16:45:15) [15]

Это не открывает файл и вообще с файлами не работает

Malik (2007-09-24 16:45:00) [23]
у нас в школе информатик делал очень просто:
(если файл надо открыть)
assignfile(f,'//'+APIEdit.Text+'/'+'u/test.ini')

Сергей М. (2007-09-24 15:46:00) [24]

> должен появиться сетевой диск U:
>

Должен, если функциявыполнилась успешно.

philinsul (2007-09-24 15:41:00) [25]
ничего не происходит.

NetRes.lpLocalName := 'U:'; - я так понимаю должен появиться сетевой диск U:

Сергей М. (2007-09-24 15:36:00) [26]

> что я делаю не так?

А что не так ?

philinsul (2007-09-24 15:26:00) [27]
procedure TForm1.Button2Click(Sender: TObject);
var NetRes: TNetResource;
begin
NetRes.dwType := RESOURCETYPE_ANY;
NetRes.lpRemoteName := PChar(Edit1.Text);
NetRes.lpLocalName := 'U:';
WNetAddConnection2(NetRes, '123456', 'admin', CONNECT_UPDATE_PROFILE);
end;

что я делаю не так?

Сергей М. (2007-09-24 14:31:00) [28]

> я деляю следующим образом

Чукца не читатель, чукча писатель...

Anatoly Podgoretsky (2007-09-24 14:30:00) [29]
Что не понятно в сообщение об ошибке?

Anatoly Podgoretsky (2007-09-24 14:27:00) [30]
> philinsul (24.09.2007 14:26:07) [7]

philinsul (2007-09-24 14:26:00) [31]
ошибка
[Error] Unit1.pas(44): Types of actual and formal var parameters must be identical

philinsul (2007-09-24 14:24:00) [32]
я деляю следующим образом :

procedure TForm1.Button2Click(Sender: TObject);
begin
WNetAddConnection2(Edit1.Text, PChar(Edit2.Text), PChar(Edit3.Text), 0);
end;

Сергей М. (2007-09-24 14:00:00) [33]
А мправку ты уже проштудировал на тему этой ф-ции ?

philinsul (2007-09-24 13:29:00) [34]
WNetAddConnection2 - а подробней что нибудь можешь сказать

Сергей М. (2007-09-24 11:33:00) [35]
WNetAddConnection2

philinsul (2007-09-24 11:07:00) [36]
На компе есть расшаренная папка, мне надо подключиться к ней под определённым пользователем.

Сергей М. (2007-09-24 11:04:00) [37]

> сделать так чтобы программа открывала нужный комп

Что значит "открывала" ?

> Короче надо сделать доступ по сети

Доступ к чемуконкретно ? И почему "короче" ?

Страницы: < 1 2

Наверх

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