Вот возникло некоторое непонимание вывода сообщений с консоли, а именно:
Почему длинные сообщения обрываются, и получается частичный вывод этих данных на точку ConsoleResult. Не могу понять с чем связанно. Первоночально столкнулся c этим недорозумением при запуске UnRar.exe через компонент WinExec с ключом L (листинг) архив примерно около 1000 файлов результат литинга 300 с небольшим файлов. Тот же самый эфект проявился при сборке консольной программы.
вот что у меня получилось Project_win.exe при получении данных с Project_ cons затыкается на 2393 строке
Add(MainForm,6477352,77,84)
{
Left=20
Top=105
Width=335
Height=261
}
Add(Charset,7663368,266,98)
{
link(onCharset,5568976:doSetSelect,[])
}
Add(WinExec,7769535,210,84)
{
FileName="Project54.exe"
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleResult)
Point(onConsoleTerminate)
Point(doConsoleInput)
link(onConsoleResult,7663368:doCharset,[])
}
Add(Button,11443435,140,98)
{
Left=260
Top=10
Caption="List"
link(onClick,7769535:doConsoleExec,[])
}
Add(Memo,5568976,343,56)
{
Left=10
Top=10
Width=240
Height=205
ScrollBars=3
Point(doSetSelect)
}
Add(ViewSHA,3143891,154,231)
{
Width=128
Height=58
}
BEGIN_SDK
Add(Console,12601342,133,154)
{
Title="Proba"
link(onStart,4548579:doFor,[])
}
Add(DoData,3634155,133,217)
{
link(Data,12601342:Read,[])
}
Add(For,4548579,196,154)
{
End=5000
link(onEvent,14170345:doStrCat,[])
link(onStop,3634155:doData,[(248,167)(248,200)(121,200)(121,223)])
}
Add(StrCat,14170345,259,154)
{
Str2=" строка
"
link(onStrCat,10673076:doCharset,[])
}
Add(Charset,10673076,322,154)
{
Type=1
link(onCharset,12601342:doWrite,[(365,160)(365,139)(121,139)(121,160)])
}
END_SDK
Add(InfoTip,1801952,133,175)
{
Info=#33:В контейнере консольная программа|24:скомпелировать отдельно.|
Width=260
Height=130
}