Вверх ↑
Ответов: 497
Рейтинг: 16
#1: 2017-07-24 18:42:03 ЛС | профиль | цитата
Dilma писал(а):
Да и поэтому о hiasm4 и пакете Windows придется забыть, т.к. использование практически мертвого языка это путь в никуда.

под пакетом windows Вы подразумеваете дельфина? Си очень хороший пакет но его бы перевести на русский было замечательо. ну можно бы доработать hiasm 5.

вот немного поэкспериментировал над идеей о hiasm-сервер-exe
как я это вижу


Add(MainForm,2953706,35,133)
{
Width=658
Height=381
link(onCreate,13470360:doRead,[])
}
Add(BlockFind,2467982,483,294)
{
IncludeBlock=1
StartBlock="uses"
EndBlock=";"
Point(doStop)
link(onSearch,4945390:doValue,[])
link(Text,3214710:Text,[])
}
Add(Memory,4945390,539,294)
{
link(onData,10953706:doSearch,[])
}
Add(DoData,11375074,539,350)
{
link(onEventData,16557218:doEvent2,[(671,356)(671,307)])
link(Data,4945390:Value,[])
}
Add(BlockFind,10953706,609,294)
{
IncludeBlock=1
Delete=0
StartBlock="{"
EndBlock="}"
Point(onNotFind)
link(onSearch,16557218:doEvent1,[])
link(onNotFind,11375074:doData,[(653,314)(653,335)(534,335)(534,356)])
}
Add(Hub,16557218,686,294)
{
InCount=2
OutCount=3
link(onEvent1,8976608:doValue,[])
}
Add(Memory,8976608,728,294)
{
link(onData,16733602:doReplace,[])
}
Add(Replace,16733602,777,294)
{
SubStr="\r\n"
link(onReplace,3668219:doReplace,[])
}
Add(Replace,3668219,826,294)
{
SubStr=" "
link(onReplace,13048190:doModify,[])
}
Add(StrCase,13048190,882,294)
{
link(onModify,3445719:doTrim,[])
}
Add(Str_Enum,10525346,1022,294)
{
Delimiter=","
OnlyDivGroup=1
link(onEnum,9171335:doString,[])
}
Add(StrList,6945341,1106,252)
{
@Hint=#20:Приоритет на сервере|
Strings=#10:window.pas|7:kol.pas|11:windows.pas|10:system.pas|9:share.pas|
Point(doGetIndex)
Point(onGetIndex)
Point(StrToFind)
link(onGetIndex,3215342:doCompare,[])
AddHint(-46,-93,129,13,@Hint)
}
Add(StrList,3214710,483,217)
{
}
Add(FormatStr,4289383,378,287)
{
Mask="%1%2"
Point(FString)
link(onFString,3214710:doLoad,[(446,293)(446,251)])
link(Str1,12322851:Var,[])
}
Add(Hub,4689057,336,287)
{
link(onEvent1,4289383:doString,[])
link(onEvent2,2467982:doSearch,[])
}
Add(If_else,3215342,1162,259)
{
Op2=Integer(-1)
link(onTrue,12548522:doGetIndex,[])
}
Add(Application,2711806,112,42)
{
}
Add(ArrayRW,13470360,126,147)
{
Index=Integer(0)
link(onRead,7220175:doEvent1,[])
link(Array,1581215:Data2,[])
}
Add(Hub,7220175,196,147)
{
OutCount=5
link(onEvent1,6233427:doPart,[])
link(onEvent2,10281540:doPart,[(238,160)(238,195)])
link(onEvent3,3557880:doPart,[(222,167)(222,195)(51,195)(51,342)])
link(onEvent4,4341661:In,[])
link(onEvent5,13624713:doStart,[])
}
Add(GetData,1581215,119,91)
{
link(Data,2711806:Params,[])
}
Add(FilePartElm,3557880,210,336)
{
Mode=2
Point(Part)
}
Add(FilePartElm,6233427,252,147)
{
link(onPart,11690629:In,[])
}
Add(StrList,12548522,1218,217)
{
Point(doGetIndex)
Point(onGetIndex)
Point(StrToFind)
link(onGetIndex,2448834:doCompare,[])
link(StrToFind,3282124:Var2,[])
}
Add(If_else,2448834,1274,224)
{
Op2=Integer(-1)
link(onTrue,15110254:doData,[])
}
Add(DoData,15110254,1330,224)
{
link(onEventData,351671:In,[])
link(Data,3282124:Var3,[(1336,205)])
}
Add(GetDataEx,3282124,1232,200)
{
Angle=3
link(Data,9171335:FString,[(1139,205)(1139,338)(1070,338)])
}
Add(LineBreak,251054,966,203)
{
link(Out,9806795:doWork2,[(1006,209)(1006,216)])
Primary=[351671,420,21]
}
Add(LineBreak,42002,973,224)
{
link(Out,9806795:doWork3,[(1019,230)])
Primary=[11690629,-665,-77]
}
Add(HubEx,9806795,1015,210)
{
link(onEvent,7787800:doEvent1,[])
}
Add(ArrayEnum,13466819,245,294)
{
link(onItem,4689057:doEvent1,[(310,300)(310,293)])
link(Array,296600:Var,[])
}
Add(LineBreak,4545576,1232,322)
{
Type=1
link(Data,3470329:Var2,[])
Primary=[296600,-987,-56]
}
Add(ChanelToIndex,15803221,1281,154)
{
link(onIndex,16376477:doValue,[])
}
Add(Memory,16376477,1351,154)
{
}
Add(Repeat,4341752,63,287)
{
Op1=Integer(1)
Op2=Integer(1)
link(onRepeat,1506237:doCompare,[])
}
Add(LineBreak,10673228,1351,196)
{
Type=1
link(Data,16376477:Value,[])
Primary=[14453252,-1232,63]
}
Add(LineBreak,11318145,1225,154)
{
link(Out,15803221:doWork1,[])
Primary=[1909870,-1015,126]
}
Add(Hub,11391847,182,287)
{
link(onEvent1,1909870:In,[(203,293)(203,286)])
link(onEvent2,13466819:doEnum,[])
}
Add(FilePartElm,10281540,245,189)
{
Mode=0
Point(Part)
}
Add(LineBreak,11118625,245,238)
{
Type=1
link(Data,13982875:Var2,[])
Primary=[3159945,812,231]
}
Add(LineBreak,8487459,287,238)
{
Type=1
link(Data,2058854:Var2,[])
Primary=[12322851,91,-7]
}
Add(GetDataEx,13982875,245,224)
{
link(Data,10281540:Part,[])
}
Add(FormatStr,2832054,1057,490)
{
Mask="%1%2"
link(onFString,495827:doOrder,[(1146,496)(1146,489)])
link(Str1,3159945:Var,[])
}
Add(LineBreak,1684129,812,476)
{
link(Out,16581215:doEvent1,[])
Primary=[2364558,-511,-161]
}
Add(ArrayEnum,10526528,917,504)
{
link(onItem,2832054:doString,[(1003,510)(1003,496)])
link(onEndEnum,3971642:doEvent1,[])
link(Array,8461103:Var,[])
}
Add(ArrayRW,2157562,98,385)
{
Index=Integer(1)
link(onRead,11839190:doEvent1,[])
link(Array,1581215:Data1,[(104,254)(125,254)])
}
Add(FormatStr,342435,203,385)
{
Mask="%1%2.exe"
Point(FString)
link(Str2,14626568:Var2,[])
}
Add(LineBreak,9117019,42,385)
{
link(Out,2157562:doRead,[])
Primary=[4341661,252,-217]
}
Add(If_else,1506237,119,287)
{
Op2=Integer(1)
link(onTrue,11391847:doEvent1,[])
link(onFalse,4456713:doEvent1,[(167,300)(167,314)])
link(Op1,14453252:Var,[])
}
Add(GetDataEx,3470329,1232,287)
{
link(Data,12548522:Array,[])
}
Add(Hub,4456713,175,308)
{
link(onEvent1,4341752:doStop,[(201,314)(201,307)(51,307)(51,300)])
link(onEvent2,2364558:In,[])
}
Add(Hub,7787800,1155,210)
{
link(onEvent1,15803221:doWork2,[(1225,216)(1225,167)])
link(onEvent2,12548522:doAdd,[])
}
Add(FormatStr,9171335,1064,294)
{
Mask="%1.pas"
Point(FString)
link(onFString,6945341:doGetIndex,[])
}
Add(Thread,13624713,329,175)
{
Delay=10
FastStop=0
link(onExec,4341752:doRepeat,[(373,181)(373,240)(51,240)(51,293)])
}
Add(Hub,7225236,980,294)
{
link(onEvent1,10525346:doEnum,[])
}
Add(Trim,3445719,931,294)
{
Char=","
link(onTrim,7225236:doEvent1,[])
}
Add(Hub,3971642,973,511)
{
OutCount=3
link(onEvent1,495827:doCompress,[(1092,517)(1092,496)])
link(onEvent2,495827:doClose,[(1092,524)(1092,503)])
link(onEvent3,6023390:doLoadString,[(1071,531)(1071,601)])
}
Add(Zipper,495827,1197,476)
{
Method=3
IncludeSubfolders=1
CheckAttr=1
Progress=1
}
Add(Hub,16581215,861,476)
{
link(onEvent1,12848848:doString,[])
link(onEvent2,10526528:doEnum,[(896,489)(896,510)])
}
Add(LineBreak,4168783,266,441)
{
Type=1
link(Data,8369425:Part,[])
Primary=[12036364,861,0]
}
Add(FormatStr,12848848,1127,476)
{
Mask="%1%2.zip"
Point(FString)
link(onFString,495827:doCreate,[])
link(Str1,12036364:Var,[])
link(Str2,1859999:Var,[])
}
Add(GetDataEx,2058854,287,224)
{
Angle=3
link(Data,13982875:Var3,[])
}
Add(GetDataEx,14626568,210,371)
{
link(Data,3557880:Part,[])
}
Add(Hub,11839190,147,385)
{
OutCount=3
link(onEvent1,342435:doString,[])
link(onEvent2,8369425:doPart,[])
link(onEvent3,11296827:doPart,[])
}
Add(FilePartElm,8369425,266,392)
{
Mode=0
Point(Part)
}
Add(FilePartElm,11296827,329,399)
{
Mode=2
Point(Part)
}
Add(LineBreak,2651578,329,448)
{
Type=1
link(Data,11296827:Part,[])
Primary=[1859999,805,-28]
}
Add(LineBreak,9248259,1197,315)
{
Type=1
link(Data,3470329:Var1,[(1203,292)])
Primary=[8461103,-280,140]
}
Add(Hashsum,16006561,1274,595)
{
link(onResult,3541441:doWrite,[])
link(Data,14145140:Var3,[(1280,551)])
}
Add(HTTPClient,6023390,1155,595)
{
Method=1
FileField="my_file"
Point(RawHeaders)
Point(onUploadProgress)
Point(UploadFile)
link(onFinish,16289953:doEvent1,[])
link(UploadFile,13465197:Var2,[])
}
Add(Ini,3541441,1337,588)
{
FileName="Project.lib"
Key="Name"
Type=1
link(Value,4769437:Var,[])
}
Add(LineBreak,10306934,203,434)
{
Type=1
link(Data,342435:FString,[])
Primary=[4769437,1155,119]
}
Add(GetDataEx,13465197,1169,546)
{
Angle=3
link(Data,12848848:FString,[(1133,551)])
}
Add(Hub,16289953,1204,602)
{
link(onEvent1,16006561:doFileHashsum,[])
link(onEvent2,16723500:doDelete,[(1242,615)(1242,657)])
}
Add(FileTools,16723500,1260,637)
{
link(onEnd,11631298:In,[])
link(FileName,14145140:Var2,[])
}
Add(GetDataEx,14145140,1260,546)
{
Angle=3
link(Data,13465197:Var3,[])
}
Add(LineBreak,291017,-14,154)
{
link(Out,2953706:doClose,[])
Primary=[11631298,1344,483]
}

карма: 1
        ]  
0