VPF::Проблема с shellexecute - Форум программистов

CodeMonkey

Дата 6.11.2009, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

А нафига службе сетевой диск? Копируйте прямо по сетевому пути.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

m1nder

Дата 6.11.2009, 05:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.9.2009
Где: Нижний Новгород

Репутация: нет
Всего: нет

На сервере, где будет крутиться служба смонтирован сетевой диск и на него собственно нужно скопировать. Вы не подскажете как грамотно скопировать по сети? Пробовал через CopyFile, прописывал локальный 127.0.0.1 - работает или, но если удаленный - не работает!

Akella

Дата 6.11.2009, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

А почему копируешь именно через командную строку? Копируй "своими силами". Есть же функции и процедуры из модуля WinApi и других модулей.

Добавлено через 6 минут и 26 секунд
я вот так запускаю архивацию rar`ом через командную строку, всё работает, смотри отличия

Код


function TfmMain.ExecAndWait(const FileName, Params: ShortString; ArcDir:string;
                               const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ArcDir),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

Код


//fmMain.sWinrar - полный путь с именем файла к винрару
//sArcName - имя нового архива
//Dir+SearchRec.name - текущий каталог
//sPhotoToUpload - путь, куда сохранять архив

       fmMain.ExecAndWait(fmMain.sWinrar,
                          'M -m5 -ep -ed "'+sArcName+ '" "'+Dir+SearchRec.name+'"', sPhotoToUpload,
                          0);

Добавлено через 7 минут и 10 секунд
Но у меня не служба. И я не знаю, используют ли пользователи сетевые пути/диски.

CodeMonkey

Дата 6.11.2009, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(m1nder @ 6.11.2009, 05:11

)

смонтирован сетевой диск и на него собственно нужно скопировать

Ну так копируйте на путь, с которого смонтирован диск!

Т.е. если Q: смонтирован с \\server-1\Data\Share, то вместо копирования в Q:\, копируйте в \\server-1\Data\Share\ В чём проблема? Логин/пароль нужен или что?

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

m1nder

Дата 6.11.2009, 23:53 (ссылка)

(нет голосов)

Загрузка ...

to Akella: как раз из-за службы у меня и не получается! Но твой вариант я еще не пробовал, попробую.

Цитата

копируйте в \\server-1\Data\Share\

не копирует(пробовал через CopyFile)! правда логин и пароль не указывал при копировании, но я монтировал сетевой диск с логином и паролем, потом только копировал, в чем тогда отличия от прямого копирования? Буду еще по всякому пробовать!
Всем огромное спасибо!

Akella

Дата 8.11.2009, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Поле каких либо операций типа CopyFile можно использовать такой код для получения текста ошибки:

Код


if GetLastError > 0 then
  ShowMessage(SysErrorMessage(GetLastError));//показываем текст ошибки, которую вернула ОС

CodeMonkey

Дата 8.11.2009, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(m1nder @ 6.11.2009, 23:53

)

правда логин и пароль не указывал при копировании, но я монтировал сетевой диск с логином и паролем

И как вы полагаете, это будет работать?

Используйте тогда WNetAddConnection2.

Цитата(Akella @ 8.11.2009, 11:01

)

ShowMessage

В службе?

Добавлено через 10 минут и 30 секунд

Цитата(CodeMonkey @ 8.11.2009, 13:27

)

Используйте тогда WNetAddConnection2

Предупреждая дальнейшие вопросы: Do Googling.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

sCreator

Дата 9.11.2009, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 20.8.2009
Где: Московская област ь

Репутация: 2
Всего: 5

А от кого запущена служба?

Приличное время назад сталкивался с аналогичной проблемой, только наоборот, копировал из локальной сети на комп.
В результате, если правильно помню, выяснилось, что сервисы запускаемые с системной учетной записью (System), не имеют доступа к сетевым ресурсам.
Запуск сервиса с учетной записью администратора, прописаннного в сетевой политике решил проблему.
Копировал встроенными функциями.

Попробуйте через оснастку "Службы" запустить например под своим логином ( если в командной строке работает копирование)

CodeMonkey

Дата 10.11.2009, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(sCreator @ 9.11.2009, 22:34

)

сервисы запускаемые с системной учетной записью (System), не имеют доступа к сетевым ресурсам

Для этого есть специальная учётка NT AUTHORITY\NetworkService (Сетевые службы).

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 10.11.2009, 22:09 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(CodeMonkey @ 8.11.2009, 13:27

)

Цитата(Akella @ 8.11.2009, 11:01 Найти цитируемый пост)
ShowMessage

В службе? smile

А если немного головой подумать, то можно сохранять в файл, правда?

sCreator

Дата 16.11.2009, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 20.8.2009
Где: Московская област ь

Репутация: 2
Всего: 5

Цитата(Akella @ 10.11.2009, 22:09)

Цитата(CodeMonkey @ 8.11.2009, 13:27

)

Цитата(Akella @ 8.11.2009, 11:01 Найти цитируемый пост)
ShowMessage

В службе? smile

А если немного головой подумать, то можно сохранять в файл, правда?

Еще есть журнал событий, в который пишут все службы о своих удачах и ошибках

Akella

Дата 16.11.2009, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Да, и можно ещё создать свой журнал.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »