Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=3590046 Tue, 07 Apr 2015 10:23:39 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=3590046 mrpit
Как решили проблему опишите пожалуйста.]]> profiart Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2611335 Thu, 03 Jun 2010 08:10:31 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2611335 mrpit, есть полезная ссылочка "Вопрос решён". Её надо-бы тыркнуть, дабы отметить тему как решённую.]]> CodeMonkey Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610276 Wed, 02 Jun 2010 04:26:13 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610276 medved_68
Спасибо вам огромное, наконец-то вроде все заработало.
Спасибо что так помогли лузеру. =) :good:]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610273 Wed, 02 Jun 2010 04:13:08 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610273 Цитата mrpit @
Но вот когда захожу в виндовс под своим пользователем, а запускаю программу путем:
щелчок правой кнопокой мыши -> "Запуск от имени ..."
то программа работает нормально!!!

Но когда я запускаю программу программным путем с помощью CreateProcessWithLogonW ругается снова на формат даты "Is not valid date"

Хм...:
Цитата
По умолчанию, функция CreateProcessWithLogonW не загружает заданный профиль пользователя в ключ системного реестра HKEY_USERS. Это означает, что доступ к информации в ключе системного реестра HKEY_CURRENT_USER, не может достичь результатов совместимых с нормальным интерактивным входом в систему. Это является вашей ответственностью загрузить улей системного реестра пользователя в HKEY_USERS перед вызовом CreateProcessWithLogonW, используя, или LOGON_WITH_PROFILE, или вызывая функцию LoadUserProfile.

Возможно стоит поэкспериментировать с флагом dwLogonFlags???]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610258 Wed, 02 Jun 2010 00:30:48 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610258 Но снова встала проблема.
Запускаю программу под своим пользователем снова все норм.
Захожу в виндовс под другим пользователем и запускаю программу тоже все норм.

Но вот когда захожу в виндовс под своим пользователем, а запускаю программу путем:
щелчок правой кнопокой мыши -> "Запуск от имени ..."
то программа работает нормально!!!

Но когда я запускаю программу программным путем с помощью CreateProcessWithLogonW ругается снова на формат даты "Is not valid date"

Код оболочки для запуска:
        
        user := '***';
        pass := '***';
        domain := '***';
        app := 'program.exe';
     
        st.lpDesktop := nil;
        st.lpTitle := nil;
        st.dwFlags := STARTF_USESHOWWINDOW;
     
        if not CreateProcessWithLogonW(
                user,
                domain,
                pass,
                0,
                app,
                nil,
                0,
                nil,
                nil,
                st,
                ProcessInfo
              )
        then
          begin
            FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER+FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError,LANG_NEUTRAL,@stp,0,0);
            ShowMessage('Ошибка: '+pchar(stp));
          end;
        globalFlag := true;
      end
      else Close;
]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610257 Tue, 01 Jun 2010 22:38:48 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2610257 Под моим пользователем опять же работает без проблем, ошибок не выдает.
Программу мониторинга скачал, по ней как я понял мне нужно смотреть ветку реестра
HKEY_CURRENT_USER и обращения к папке "мои документы". Не нашел данных пунктов, хотя мож плохо смотрел, там до фига всяких обращений.
Пытаюсь пока отладиться так =)]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2606468 Fri, 28 May 2010 04:31:37 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2606468 Цитата mrpit @
Думаю что это связанно с какими то настройками для даты у BDE но как мне настроить их под этого пользователя и вообще в какую сторону копать.

Я бы для начала запустил сие под тем пользователем, под которым с BDE все нормально работает. Убедился бы в полной работоспособности. Затем при помощи той же RegMonitor еще раз запустил и проверил - обращается ли хоть какой процесс этой программы к реестру. Варианты - программа хранит настройки BDE либо в пользовательском окружении (типа "Мои документы"), либо в ветке реестра пользователя. Разумеется, запущенная из под другого пользователя она не находит нужных данных. В свете этого тебе станет понятно - почему я предлагал сделать ТОЛЬКО передачу данных в сетевую папку из под ДРУГОГО пользователя. :D]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2606449 Fri, 28 May 2010 02:05:52 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2606449 Но в программе используется BDE, и запущенная под другим пользователем она выдает ошибку:
28/05/2010 is not valid date
Думаю что это связанно с какими то настройками для даты у BDE но как мне настроить их под этого пользователя и вообще в какую сторону копать.]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604512 Wed, 26 May 2010 08:34:31 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604512 Цитата mrpit @
Сделать программу оболочку которая с помощью CreateProcessWithLogonW будет запускать основную программу но уже под другим пользователем, который имеет доступ к защищенной папке.

Отлично. Главное ты уловил. В чем теперь проблема? :D]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604342 Wed, 26 May 2010 05:49:50 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604342 У меня есть программа которая должна обрабатывать файлы и класть их в защищенную папку. В защищенную папку должны попадать только те файлы, которые были обработаны программой и ей же туда помещены.
Мне нужно было сделать так, чтобы сам пользователь не вносил в защищенную папку файлы минуя программу.

Собственно решение проблемы вижу такой:
Сделать программу оболочку которая с помощью CreateProcessWithLogonW будет запускать основную программу но уже под другим пользователем, который имеет доступ к защищенной папке. Конечно, логин и пароль будут зашиты в exe-шнике и их можно будет при желании оттуда вытащить, но в данном случае это не критично =)]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604305 Wed, 26 May 2010 04:12:14 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604305 Цитата mrpit @
Подумал сейчас, а зачем я буду создавать какую-то отдельную программу с удалением файла.

Ты же сам себе противоречишь:
Цитата mrpit @
Это будет сделано для того, чтобы пользователь ничего не смог ручками менять в сетевой папке.

:D Насколько я понял - твоя программа, запущенная под определенным пользователем, предоставляет пользователю доступ к общей папке, т.е. пользователь может внести какие то изменения в файлы этой папке. И этого ты хотел избежать. :)]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604256 Tue, 25 May 2010 22:50:24 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2604256 mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602363 Mon, 24 May 2010 06:11:47 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602363 Цитата mrpit @
Ещё бы примерами кода разбавить ответ, если несложно.=)

Так я же тебе АПИ функцию запуска процесса дал. Формируй необходимые для запуска процесса структуры (типа STARTUPINFO) и все. А сам процесс будет запускаться из файла (да хоть тот же батник), который предварительно можно откомпилировать (если не батник) и засунуть в ресурсы программы, которая будет запускать его, предварительно достав из ресурса и сохранив на диск, а после отработки и завершения - удалять ЕХЕ файл с диска (как вариант). :D]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602358 Mon, 24 May 2010 06:06:50 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602358 Ещё бы примерами кода разбавить ответ, если несложно.=)]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602340 Mon, 24 May 2010 05:40:36 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602340 Цитата mrpit @
Программа обрабатывает файл пользователя и кладет его в определенную папку в сети (назовем эту папку "защищенной")

Программа обработает файл пользователя, затем запускает дополнительный (консольный, как вариант) процесс с правами другого пользователя, передает ему параметры (как вариант, в виде пути к промежуточному, уже обработанному файлу на локальном компе). Данный процесс тупо копирует файл на сетевой ресурс (он запущен с нужными правами доступа посредством CreateProcessWithLogonW) и заканчивает работу. Программа, дождавшись окончания этого процесса, удаляет промежуточный файл с локального диска и завершает работу. Так подойдет? :)]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602329 Mon, 24 May 2010 05:15:08 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602329 Есть пользователь, который будет запускать программу. Программа обрабатывает файл пользователя и кладет его в определенную папку в сети (назовем эту папку "защищенной"). В "Защищенную" папку сетевой пользователь, запустивший программу, попасть не может, но нужно сделать так, чтобы программа подключилась под другим сетевым пользователем (в программе будут зашиты логин и пароль) и поместила обработанный файл в "защищенную" папку.]]> mrpit Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602326 Mon, 24 May 2010 05:09:38 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602326 Цитата mrpit @
Есть программа, которая работает с файлом, который находится в определенной папке.
Папка находится в сети на другом компьютере.

Цитата mrpit @
Как программно подключиться к папке под нужным сетевым пользователем.
Т.е. нужно из под одного пользователя запустить эту программу, но с правами другого? Или создать другую программу, которая будет что то делать с файлом в сети?]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602312 Mon, 24 May 2010 04:33:53 +0000 Доступ к файлу/папке под сетевым пользователем https://forum.sources.ru/index.php?showtopic=304266&view=findpost&p=2602312 Возник такой вопрос. Есть программа, которая работает с файлом, который находится в определенной папке.
Папка находится в сети на другом компьютере. Пользователь, который запускает программу, не имеет доступа к папке. Но мы знаем логин и пароль пользователя сети, который имеет доступ к папке. Как программно подключиться к папке под нужным сетевым пользователем.

Это будет сделано для того, чтобы пользователь ничего не смог ручками менять в сетевой папке. Вся обработка файлов ведется только программой.

Если это возможно подскажите, в какую сторону копать или ссылки на мануалы. С сетью в делфи не работал, хочется чего-то доступного и понятного. Желательно в стандартном наборе.

Заранее большое спасибо.]]> mrpit Delphi: Сетевое программирование