примеры уже были..

[skulida]

благодаря участникам конференции имею код, который запускает приложение, и ожидая его окончания, продолжает свой алгоритм.
В частности, нужно запустить пакетный файл архивирования бухгалтерии 1с, а затем получив архив сохранить его с датой в качестве именем
так вот все работает, НО не в случае пакетного файла вида:

"C:\Program Files\1Cv77\BIN\1cv7.exe" config /d\\master\buh\Bases_1C\Buh_423 /nАдминистратор /@\\master\buh\Bases_1C\Buh_423\arc.txt

вопрос почему?


Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&

Public Sub ExecCmd(cmdline$)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
'
start.cb = Len(start)
'
ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
'
ret& = WaitForSingleObject(proc.hProcess, INFINITE)
ret& = CloseHandle(proc.hProcess)
End Sub

Private Sub Form_Load()
ExecCmd ("1.bat")
On Error GoTo Error1
FileCopy "\\master\arc\1cv.zip", "\\master\arc\" & Date & ".zip"
MsgBox "....", vbOKOnly + vbExclamation, "ok!"
GoTo normal
Error1:
MsgBox "....", vbOKOnly + vbExclamation, "error!"
End
normal:
End
End Sub

[GSerg]

Чел...
Поясни, что не работает...

[alibek]

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

[skulida]

в данном случае - не работает ожидание окончания выполнения командной строки, т.е запускается приложение, далее запускается командная строка и. не дожидаясь окончания работы 1с, выполняется следующая команда FileCopy...
Если, например, в командном файле разместить просто какие команды или приложение, то все работает корректно, но в случае с пакетным файлом 1с не получается..

[alibek]

Может быть тебе обойтись bat-файлом?
Его для такой задачи вполне достаточно. Могу предложить листинг bat-файла, который использует в качестве архива дату и время (для NT-систем).

[GSerg]

Полное содержание bat приведи?

[skulida]

[quote="alibek"]
так ведь внутри кода у меня нет этой строки, а вызываю я ее через внешний пакетный файл...

[alibek]

Что-то не найду файл. Но будет что-то вроде этого:

Код: Выделить всё

@echo off
...
set BakDate=%DATE:~6,4%-%DATE:~3,2%-%DATE:~0,2%
set BakTime=%TIME:~0,2%:%TIME:~3,2%:%TIME:~6,2%
set BakFile=%BakDate% @ %BakTime%
"C:\Program Files\1Cv77\BIN\1cv7.exe" config /d\\master\buh\Bases_1C\Buh_423 /nАдминистратор /@"\\master\buh\Bases_1C\Buh_423\%BakFile%.txt"
set BakFile=
set BakDate=
set BakTime=


[skulida]

GSerg

ну собственно в сообщении указана вся строка командного файла.
"C:\Program Files\1Cv77\BIN\1cv7.exe" config /d\\master\buh\Bases_1C\Buh_423 /nАдминистратор /@\\master\buh\Bases_1C\Buh_423\arc.txt

сам по себе он работает -
запускает 1с в режиме конфигуратора и сохраняет базу по указанному пути в соответствии с внутренними настройками из arc.txt

[alibek]

Кстати, советую вызывать bat-файлы не 1.bat, а cmd /c 1.bat.

[GSerg]

Думается мне, что запуск софта из bat всё равно асинхронный

Посему - забей на bat и напрямую вставляй свою ужасную командную строку в ExecCmd.

[skulida]

alibek
спасибо....
через динамические переменные работает. но хотелось бы разобраться почему не работает в приведенном примере...
к тому же предполагается что этим будут пользовать сами бухгалтеры и им нужны окошки подтверждения - что операция прошла успешно или не успешно и по такой причине...

[alibek]

Если софт вызывать через start /w или call (для bat-файлов), то запуск будет синхронным. Хотя насчет call не уверен.

[skulida]

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

[tyomitch]

Если софт вызывать через start /w или call (для bat-файлов), то запуск будет синхронным. Хотя насчет call не уверен.

Насчёт call подтверждаю.
Только в данном случае - для запуска ехе - это всё равно неприменимо.

[Andrey Fedorov]

А покажи как ты cmdline формируешь...