user_asm писал(а):
А где тут имя-файла лога?В SharedStream прописан, я не стал подавать сверху
------------ Дoбавленo в 13.42:
Короче, вот такой блок дает чтение одной строки со скоростью 2 мксек (у меня)
Add(MainForm,94467,308,350)
{
Width=750
Height=299
Caption="??????? ?? ?????????? ?????"
}
Add(Button,4481738,196,175)
{
Left=20
Top=235
link(onClick,9929879:doOpen,[])
}
Add(Thread,1555007,308,175)
{
Delay=0
FastStop=0
link(onExec,5019261:doEvent1,[(356,181)(356,147)(178,147)(178,258)])
}
Add(Hub,5019261,189,252)
{
OutCount=5
link(onEvent1,6468069:doOff,[(233,258)(233,314)])
link(onEvent2,15640483:doStart,[(219,265)(219,349)])
link(onEvent3,344370:doConvert,[])
link(onEvent4,15640483:doStop,[(212,279)(212,356)])
link(onEvent5,6468069:doOn,[(227,286)(227,321)])
}
Add(LED,6468069,252,301)
{
Left=615
Top=235
Width=115
Height=20
Shape=1
}
Add(TimeCounter,15640483,252,343)
{
Precision=1
link(onStop,94467:doCaption,[])
}
Add(SharedStream,9929879,252,175)
{
FileName="log1.txt"
CoreName="Log"
PageMem=1600
Point(Position)
link(onOpen,1555007:doStart,[])
}
Add(Convertor,344370,252,266)
{
Mode=11
link(onResult,15190864:doEvent1,[])
link(Data,9929879:Stream,[])
}
Add(StrList,2597292,357,203)
{
}
Add(Hub,15190864,301,266)
{
link(onEvent1,2597292:doText,[(336,272)(336,230)])
link(onEvent2,8063459:doEnum,[])
}
Add(ArrayEnum,8063459,371,273)
{
link(Array,2597292:Array,[])
}
Лог на 1,5 Мб перебирается за 34 мсек, с парсером 2160 мсек. Ну и кто тут тормозит