HiAsm
HiAsm
Вверх ↑
ФорумыМежду деломПроблема работы проги под win7 ← Ctrl12345678Ctrl →
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#76: 2011-11-09 19:59:00 ЛС | профиль | цитата
Airat писал(а):
Главный файл это RdsPsText.txt в котором максимум может содержаться 8 символов(т.е. 8байт).
т.е. всего одна строка из 8 символов?
Airat писал(а):
Во втором файле может содержатся до 64 символов(64 байта)
одной строкой или...?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 147
Рейтинг: 3
#77: 2011-11-09 20:00:31 ЛС | профиль | цитата
Да,всегда и во всех файлах одна строка.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#78: 2011-11-09 20:03:18 ЛС | профиль | цитата
Airat писал(а):
Chronos через заданное время просто перезаписывает содержимое файла RdsPsText,например: было My Radio стало Test RDS.
и что это перезаписывается каждые 0.5 секунды?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 147
Рейтинг: 3
#79: 2011-11-09 20:15:45 ЛС | профиль | цитата
Если Chronos,то минимальное время 1сек,а Raduga там как раз 0,5сек. Так схема то пойдет для этих целей???
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#80: 2011-11-09 21:30:33 ЛС | профиль | цитата
На тебе IC, тестирующую твои файлы за микросекунды.
code_25731.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_25731.txt [803B] [125]
Ответов: 147
Рейтинг: 3
#81: 2011-11-09 21:41:41 ЛС | профиль | цитата
Спасибо!С работы приду,проверю обязательно.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#82: 2011-11-09 21:58:48 ЛС | профиль | цитата
А так должно ещё быстрее отрабатывать.
Add(InlineCode,12065365,413,77)
{
 WorkPoints=#4:Init|6:doWork|
 EventPoints=#5:onNew|5:onOld|
 DataPoints=#4:Path|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|24:    Old, New, fn:string;|16:    F:TextFile; |9:   public|33:    onNew, onOld, Path:THI_Event;|48:    procedure Init(var _Data:TData; Index:Word);|50:    procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|27:procedure THiAsmClass.Init;|5:begin|30: fn := ReadString(_Data,Path);|20:  AssignFile(F, fn);|4:end;|0:|29:procedure THiAsmClass.doWork;|5:BEGIN|11:  Reset(F);|16:  ReadLn(F,New);|15:  CloseFile(F);|61: If AnsiCompareText(New,Old)=0 then          // нет изменений|30:        _hi_onEvent(onOld,Old)|9:     else|11:      begin|17:        Old:=New;|30:        _hi_onEvent(onNew,Old)|10:      end;|4:END;|4:end.|
}
Add(Edit,5832504,259,77)
{
 Left=10
 Top=10
 Width=310
 Text=""
 ReadOnly=0
 link(onChange,11015110:doEvent1,[])
}
Add(ODialog,15566471,196,77)
{
 link(onExecute,5832504:doText,[])
}
Add(Button,3508751,140,77)
{
 Left=325
 Top=10
 Width=35
 Caption="..."
 link(onClick,15566471:doExecute,[])
}
Add(Timer,3158890,357,91)
{
 Enable=1
 link(onTimer,12065365:doWork,[(401,97)(401,90)])
}
Add(Hub,11015110,315,77)
{
 link(onEvent1,12065365:Init,[])
 link(onEvent2,3158890:doTimer,[(343,90)(343,97)])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 147
Рейтинг: 3
#83: 2011-11-09 23:03:55 ЛС | профиль | цитата
Шикарно!Работает замечательно.Спасибо огромное Tad!!!
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#84: 2011-11-09 23:18:39 ЛС | профиль | цитата
Airat, и ещё на микросекунду быстрее
code_25732.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_25732.txt [868B] [113]
Ответов: 147
Рейтинг: 3
#85: 2011-11-10 00:00:41 ЛС | профиль | цитата
Еще раз спасибо!!!
карма: 0

0
Ответов: 147
Рейтинг: 3
#86: 2011-11-12 16:09:17 ЛС | профиль | цитата
Tad вы говорили что у меня еще косяк с панелями,а именно с doBringToFont.Можете на примере показать как это правильно делается???
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#87: 2011-11-12 17:28:35 ЛС | профиль | цитата
Airat, это не косяк.
Просто у тебя режим "уличного художника". Выставляется пустой холст и прохожие наблюдают, как создается картина.
Обычно делают наоборот: сначала разнсят все данные и только потом или doVisible, или doBringToFront.
Примерно так (заодно и повыбрасывал лишнее. (с)Я так думаю.): cubenow.rar
И вот еще просто так:
Add(ChildPanelRush,13227094,340,319)
{
}
BEGIN_SDK
  Add(EditMultiEx,2258200,21,21)
  {
   WorkCount=#14:doBringToFront|17:doEvent1=read ini|
   EventCount=#22:doWork1=select control|19:doWork11=tag en/dis|
   Width=566
   Height=494
   link(doBringToFront,16305104:doBringToFront,[(45,27)(45,90)])
   link(doEvent1,8398750:doEvent1,[(169,34)(169,55)])
  }
  Add(PanelRush,16305104,70,77)
  {
   Left=149
   Top=10
   Width=310
   Height=200
   Color=15780518
   ColorFrom=15780518
   ColorTo=10789024
   BorderColor=0
   GradientStyle=0
   ColorFromDis=10789024
   ColorToDis=10789024
   BorderColorDis=8421504
   ShadowOffsetDis=0
   GradientStyleDis=0
   Glyphs=[]
   RoundWidth=5
   RoundHeight=5
   Point(doBringToFront)
  }
  Add(If_else,16670929,364,112)
  {
   Op2=Integer(1)
   link(onTrue,7455379:doCheck,[(412,118)(412,169)(151,169)(151,132)])
  }
  Add(Ini,13253733,294,112)
  {
   FileName="rds.ini"
   Section="Other settings"
   Key="TA,TP,PTY control"
   link(onResult,16670929:doCompare,[])
  }
  Add(Hub,1875984,217,126)
  {
   OutCount=3
   link(onEvent1,9654160:doCompare,[(286,132)(286,202)])
   link(onEvent2,13253733:doWrite,[(242,139)(242,125)])
   link(onEvent3,11000125:doCompare,[(241,146)(241,244)])
  }
  Add(If_else,9654160,315,196)
  {
   Op2=Real(1)
   link(onTrue,4752003:doWork2,[])
   link(onFalse,4752003:doWork1,[(362,209)(362,195)])
   link(Op1,2180714:Var3,[(321,180)])
  }
  Add(ChanelToIndex,4752003,378,189)
  {
   link(onIndex,5563468:doEvent1,[])
  }
  Add(Ini,3484804,483,49)
  {
   FileName="rds.ini"
   Section="Other settings"
   Key="TA,TP,PTY"
   link(onResult,3204832:doWork2,[])
  }
  Add(HubEx,3204832,546,49)
  {
   Angle=3
   link(onEvent,2258200:doWork1,[(550,27)])
  }
  Add(Hub,5563468,441,189)
  {
   link(onEvent1,3484804:doWrite,[(476,195)(476,62)])
   link(onEvent2,3204832:doWork3,[(550,202)])
  }
  Add(Hub,8398750,182,49)
  {
   link(onEvent1,3484804:doRead,[])
   link(onEvent2,13253733:doRead,[(242,62)(242,118)])
  }
  Add(If_else,11000125,259,238)
  {
   Op2=Integer(1)
   link(onTrue,16613808:doData,[])
   link(onFalse,15972611:doData,[(355,251)(355,286)])
   link(Op1,2180714:Var2,[])
  }
  Add(GetDataEx,2180714,259,175)
  {
   Angle=3
   link(Data,7455379:Checked,[(174,180)])
  }
  Add(DoData,16613808,420,238)
  {
   Data=Integer(1)
   link(onEventData,6678628:doWork2,[])
  }
  Add(DoData,15972611,420,280)
  {
   Data=Integer(0)
   link(onEventData,6678628:doWork3,[(494,286)])
  }
  Add(HubEx,6678628,490,238)
  {
   link(onEvent,2258200:doWork11,[(559,244)(559,34)])
  }
  Add(CheckBoxRush,7455379,168,126)
  {
   Left=10
   Top=10
   Width=80
   Color=15780518
   Font=[Adobe Fan Heiti Std B,10,1,0,0]
   ColorTo=12632256
   ColorText=12617473
   BorderColor=8421504
   ColorShadow=0
   ColorToOver=16761378
   ColorTextOver=16754711
   ShadowOffsetOver=0
   ShadowOffsetDown=0
   Caption="Enable"
   ColorCheck=16672257
   link(onCheck,1875984:doEvent1,[])
  }
  Add(If_else,5765649,273,385)
  {
   Op2=Integer(1)
   link(onTrue,10186987:doCheck,[(316,391)(316,375)(81,375)(81,391)])
  }
  Add(Ini,14225131,224,385)
  {
   FileName="rds.ini"
   Section="Other settings"
   Key="TA,TP,PTY control"
   link(onResult,5765649:doCompare,[])
  }
  Add(Hub,9933314,147,385)
  {
   OutCount=3
   link(onEvent1,5429813:doData,[(203,391)(203,440)])
   link(onEvent2,14225131:doWrite,[])
   link(onEvent3,3239329:doData,[(171,405)(171,468)])
  }
  Add(Ini,3006635,343,350)
  {
   FileName="rds.ini"
   Section="Other settings"
   Key="TA,TP,PTY"
   link(onResult,4622513:doWork2,[])
  }
  Add(HubEx,4622513,385,350)
  {
   Angle=3
   link(onEvent,589837:doWork,[(389,342)])
  }
  Add(Hub,6282933,294,434)
  {
   link(onEvent1,3006635:doWrite,[(325,440)(325,363)])
   link(onEvent2,4622513:doWork3,[(389,447)])
  }
  Add(Hub,4088380,147,350)
  {
   link(onEvent1,3006635:doRead,[])
   link(onEvent2,14225131:doRead,[(215,363)(215,391)])
  }
  Add(GetDataEx,2467825,182,420)
  {
   Angle=3
   link(Data,10186987:Checked,[(104,425)])
  }
  Add(DoData,3239329,182,462)
  {
   link(onEventData,11625102:doWork,[(397,468)(397,370)])
   link(Data,2467825:Var2,[])
  }
  Add(CheckBoxRush,10186987,98,385)
  {
   Left=10
   Top=10
   Width=80
   Color=15780518
   Font=[Adobe Fan Heiti Std B,10,1,0,0]
   ColorTo=12632256
   ColorText=12617473
   BorderColor=8421504
   ColorShadow=0
   ColorToOver=16761378
   ColorTextOver=16754711
   ShadowOffsetOver=0
   ShadowOffsetDown=0
   Caption="Enable"
   ColorCheck=16672257
   link(onCheck,9933314:doEvent1,[])
  }
  Add(DoData,5429813,224,434)
  {
   link(onEventData,6282933:doEvent1,[])
   link(Data,2467825:Var3,[(230,425)])
  }
  Add(InfoTip,7014300,56,322)
  {
   Info=#46:Какая разница, кроме уменьшения телодвижений ?|
   Width=351
   Height=179
  }
  Add(LineBreakEx,611681,28,350)
  {
   Caption="1"
   Type=1
   link(OnEvent,4088380:doEvent1,[])
  }
  Add(LineBreakEx,589837,406,336)
  {
  }
  Add(LineBreakEx,11625102,406,364)
  {
  }
END_SDK
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1cubenow.rar [5.2KB] [83]
Ответов: 147
Рейтинг: 3
#88: 2011-11-14 21:15:19 ЛС | профиль | цитата
Блин мистика какая-то,вставил кусок кода который выложил уважаемый Tad для чтения файла,а таймер1 который считывает главный файл как зависал так и зависает.Дня 2 проработало и завис именно таймер,прога сама работает.Дайте пожалуйста пенек под зад чтоб я наконец-то нашел где у меня косяк...
------------ Дoбавленo в 21.15:
Подскажите хотя бы причину из-за чего может зависать таймер.
карма: 0

0
Ответов: 3889
Рейтинг: 362
#89: 2011-11-14 21:18:33 ЛС | профиль | цитата
Airat писал(а):
Подскажите хотя бы причину из-за чего может зависать таймер.

Может таки не таймер (какой, кстати, MMTimer?), а поток, им порождённый?
карма: 1

0
Ответов: 147
Рейтинг: 3
#90: 2011-11-14 21:20:12 ЛС | профиль | цитата
Нет,обычный таймер.
карма: 0

0
ФорумыМежду деломПроблема работы проги под win7 ← Ctrl12345678Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика