G
GamletSPB
Гость
Возникла потребность получить возврат некой внешней программы. Всякие там Run() возвращают только собственные коды ошибок, а вот как получить возврат того что они собственно запускают?
Автор
GamletSPB
Гость
Belfigor сказал(а):
немного не догнал, что подразумевается под функцией возврата?
Автор
GamletSPB
Гость
Belfigor сказал(а):
в том то и дело что функция такая есть: после исполнения в консоли программа возвращает некую строку данных, которую мне очень бы не помешало обработать, но вот как ее прочитать?
Автор
GamletSPB
Гость
Belfigor сказал(а):
да
- Сообщения
- 1,590
- Репутация
- 341
В своё время писал программу для отправления консольных команд и получения результатов в GUI окно (Зачем не спрашивайте - сам не знаю :()
Вот пример тех функций которые бsли основой программы.
Вместо ConsoleWrite() можно использовать любую другую функцию вывода информации.
Код:
#include <Constants.au3>
Global $sStdOut = ""
Global $sStdErr = ""
DOS("ping 127.0.0.0")
Func DOS($iCommand,$iKey = "")
$Process = Run(@ComSpec & " /c " & $iCommand & $iKey, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
While 1
$sStdOut = StdoutRead($Process) & @CRLF
If @error Then ExitLoop
$sStdOut = StringReplace($sStdOut, @CRLF, "")
$sStdOut = StringReplace($sStdOut, @CR & @CR, @CR)
$sStdOut = OemToChar($sStdOut)
ConsoleWrite($sStdOut)
WEnd
EndFunc
Func OemToChar($szSrc)
Local $placeholder
For $i = 0 To StringLen($szSrc)
$placeholder &= " "
Next
Local $lRetVal = DllCall("user32.dll", "long", "OemToChar", "str", $szSrc, "str", $placeholder)
If IsArray($lRetVal) And $lRetVal[0] = 1 Then
Return SetError(0, 0, $lRetVal[2])
EndIf
Return SetError(1, 0, "")
EndFuncВот пример тех функций которые бsли основой программы.
Вместо ConsoleWrite() можно использовать любую другую функцию вывода информации.
TheBloodTear
Знающий
- Сообщения
- 36
- Репутация
- 9
Есть программка, которая создает backup базы.. Не знаю, на чем она написана, но у нее у самой весь процесс отображается в консоли, и если создать bat-файл, то и в cmd все отображается хорошо..
При помощи вышеприведенного примета, все здорово считывается, как надо кроме одного:
Есть момент когда идет показатель процентов сделанной копии, и эти проценты не добавляются а заменяются.. Консоль замирает на одном месте и меняется только число.. Вот эти проценты я не могу никак вынуть :(..
Может кто сталкивался с подобным? :(.. Буду очень благодарен, если поделитесь решением ;)..
P.S. Утилита называется HotCopy.exe.. Входит в состав Microsoft Navision.. Для того, что бы тестировать, много мороки, поэтому хотелось бы просто парочку идей
..
При помощи вышеприведенного примета, все здорово считывается, как надо кроме одного:
Есть момент когда идет показатель процентов сделанной копии, и эти проценты не добавляются а заменяются.. Консоль замирает на одном месте и меняется только число.. Вот эти проценты я не могу никак вынуть :(..
Может кто сталкивался с подобным? :(.. Буду очень благодарен, если поделитесь решением ;)..
P.S. Утилита называется HotCopy.exe.. Входит в состав Microsoft Navision.. Для того, что бы тестировать, много мороки, поэтому хотелось бы просто парочку идей
..