Редактировалось 1 раз(а), последний 2017-03-03 00:02:31

Ну, сказать честно, я интуитивно вышестоящий пост тоже нефига не понял...

Редактировалось 1 раз(а), последний 2017-03-03 00:02:32

[code:1]Add(Button,15437689,98,98) {
Left=95
Top=95
link(onClick,12953509:doData,[])
}
Add(Hub,1563773,231,98)
{
link(onEvent1,7220647:doStrCat,[])
link(onEvent2,7353928:doStrCat,[(278,111)(278,146)])
}
Add(DoData,12953509,168,98)
{
link(onEventData,1563773:doEvent1,[])
link(Data,9320967:Text,[])
}
Add(Edit,9320967,168,42)
{
Left=175
Top=40
Text="/параметр2"
}
Add(StrCat,7220647,294,98)
{
Str1="program.exe /параметр1 "
link(onStrCat,9133970:doWork2,[])
}
Add(StrCat,7353928,294,140)
{
Str1="program.exe /параметр3 "
link(onStrCat,9133970:doWork3,[(354,146)])
}
Add(WinExec,2216452,385,84)
{
Point(doConsoleExec)
}
Add(HubEx,9133970,350,91)
{
link(onEvent,2216452:doConsoleExec,[])
}[/code:1]

[code:1] Add(Button,3226641,126,161)
{
Left=5
Top=35
Caption="Ïóñê"
link(onClick,14286132:doStrCat,[])
}
Add(Edit,9672357,224,70)
{
Left=10
Top=10
Width=290
Text="PRINT "
}
Add(WinExec,14419530,378,238)
{
FileName="cmd.exe"
Mode=0
link(onExec,1916140:doLoad,[(485,244)(485,244)])
link(Params,16069012:Value,[])
}
Add(StrCat,14286132,175,161)
{
Str1="/C ROUTE "
link(onStrCat,70739:doStrCat,[])
link(Str2,7757640:Var2,[(188,150)(230,150)])
}
Add(GetDataEx,7757640,217,126)
{
link(Data,9672357:Text,[(230,120)(230,120)])
}
Add(Memory,16069012,385,161)
{
link(onData,14419530:doExec,[(427,167)(427,215)(368,215)(368,244)])
}
Add(StrCat,6310745,343,161)
{
Str2=" >TMP.CON"
link(onStrCat,16069012:doValue,[])
}
Add(StrCat,11408624,280,161)
{
link(onStrCat,6310745:doStrCat,[])
link(Str2,7807507:Text,[(293,139)(293,139)])
}
Add(Edit,7807507,287,70)
{
Left=320
Top=10
Width=280
Text=""
}
Add(StrCat,70739,231,161)
{
Str2=" "
link(onStrCat,11408624:doStrCat,[])
}
Add(Memo,1916140,560,210)
{
Left=5
Top=60
Width=645
Height=330
Color=0
Font=[Terminal,8,1,65280,255]
FileName="TMP.CON"
ScrollBars=2
}
[/code:1]

AlexKir, ну ты наворотил, блин...
Вроде большенький уже

То, чего ты сделал, делается вдвое проще:
[code:1]Add(Memo,1916140,371,56) {
Left=5
Top=60
Width=645
Height=330
Color=0
Font=[Terminal,8,1,65280,255]
FileName="TMP.CON"
ScrollBars=2
}
Add(WinExec,2216452,308,70)
{
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,1916140:doText,[])
}
Add(FormatStr,15278076,245,84)
{
Mask="ROUTE %1 %2"
link(onFString,2216452:doConsoleExec,[])
link(Str1,9672357:Text,[(251,72)(195,72)])
link(Str2,7807507:Text,[])
}
Add(Edit,7807507,252,28)
{
Left=320
Top=10
Width=280
Text=""
}
Add(Button,3226641,189,84)
{
Left=5
Top=35
Caption="Ione"
link(onClick,15278076:doString,[])
}
Add(Edit,9672357,189,28)
{
Left=10
Top=10
Width=290
Text="PRINT "
}[/code:1]
И без мерзких напрягов XP запустить DOS

Уел !

doConsoleExec еще не разу не применял ...
Полезная точка однако !

Кстате заметил, что с "данными из потока" многие так и не разобрались. Это к слову о куске:
[code:1]Add(WinExec,14419530,385,273) {
FileName="cmd.exe"
Mode=0
link(Params,16069012:Value,[])
}
Add(Memory,16069012,392,196)
{
link(onData,14419530:doExec,[(434,202)(434,250)(375,250)(375,279)])
}
[/code:1]
Надо как-то решать эту нехорошую проблему...

Надо канонизировать минимальный объем справки. При этом, наличие персонального html-файла не должно исключать "простой" справки, которая является суммой хинтов.
Пусть ДОБАВЛЯЕТСЯ

Ну и в персональной справке обязательно расписать работу "коммутаторов" потока. Типа: в этом методе сначала срабатывает этот, потом этот, в результате в поток выходит то-то...

А фичу, что в "коммутаторы" данные из основного потока попадают один раз (первый) - добавить в основную справку.

И канонизировать, что работа "коммутаторов" каждого метода элемента - это минимальный объем персональной справки.

P.S. я вот очень не сразу въехал, что doConsoleExec берет данные ТОЛЬКО из потока