Вверх ↑
Этот топик читают: Гость
Ответов: 2059
Рейтинг: 131
#16: 2019-02-20 16:03:48 ЛС | профиль | цитата
Neo,
Да, практически всё работает, попадались мне один-два компонента..., и то левые.
Достаточно было поставит в них пару закорючек, и они заработали.
В общем-то это не от хорошей жизни.
Просто для совместимости со сторонними библиотеками и возвращаемыми типами.

P.S.
Есть у меня на эту тему, семилетней давности, uses паскаль файлы, которые под КОЛ заточить можно, даже без dll.
...Но у меня нет звука.

Редактировалось 1 раз(а), последний 2019-02-20 16:06:00
карма: 6

0
Ответов: 537
Рейтинг: 14
#17: 2019-02-22 19:04:35 ЛС | профиль | цитата
Нужно запустить cmd и получить все строки выполнения в memo, с нормальным русским тестом вместо (Љ®аЇ®а жЁп Њ ©Єа®б®дв (Microsoft Corp.), 2009. ‚ᥠЇа ў § йЁйҐ­л.)
Как исправить кодировку 866<->1251
Add(Memo,16753371,147,91)
{
Left=15
Top=20
Width=275
Height=205
Strings=#17:echo Start %time%|21:@echo Идет проверка 1|16:nslookup 1.1.1.1|8:@echo Ok|16:echo Stop %time%|5:@exit|
ScrollBars=2
}
Add(Memo,3233594,336,133)
{
Left=310
Top=20
Width=275
Height=205
ScrollBars=2
}
Add(MainForm,11237762,91,175)
{
Width=619
Height=330
Caption="Пример использования WinExec"
}
Add(WinExec,15028267,217,119)
{
FileName="cmd"
Point(onConsoleResult)
Point(doConsoleInput)
Point(doConsoleExec)
link(onExec,14961550:doData,[(261,125)(261,82)(133,82)(133,139)])
link(onConsoleResult,3233594:doAdd,[])
}
Add(Button,6785065,147,175)
{
Left=25
Top=245
Caption="2"
link(onClick,15028267:doConsoleExec,[(198,181)(198,146)])
}
Add(DoData,14961550,147,133)
{
link(onEventData,15028267:doConsoleInput,[])
link(Data,16753371:Text,[])
}
Add(Charset,1817640,280,91)
{
Type=7
}
И как сделать так, чтобы и в консольном окне отображался ход выполнения программы и после завершения всех команд консольное, черное окно закрывалось?
У меня Win 7, но нужно чтобы и на 10-ке работало

Редактировалось 1 раз(а), последний 2019-02-22 19:17:05
карма: 4

0
Ответов: 537
Рейтинг: 14
#18: 2019-02-23 00:01:32 ЛС | профиль | цитата
А задача какая сложная оказалась
карма: 4

0
Ответов: 2059
Рейтинг: 131
#19: 2019-02-23 00:21:51 ЛС | профиль | цитата
А обязательно
чтобы и в консольном окне отображался ход выполнения программы и после завершения всех команд консольное, черное окно закрывалось?
?
Может так:
https://yadi.sk/d/iKeEKG__Nk3QHA ?
P.S.
А, я сразу не понял, что надо-то, не посмотрел схему.

Редактировалось 3 раз(а), последний 2019-02-23 00:34:21
карма: 6

0
19
Сообщение
...
Прикрепленные файлы
(файлы не залиты)