Вверх ↑
Этот топик читают: Гость
Ответов: 37
Рейтинг: 0
#16: 2012-09-13 23:40:05 ЛС | профиль | цитата
nesco писал(а):
Все же, мне стало интересно (принцип -- сильная штука), и я сделал парсер данных для сервера. Вот что получилось. Используется последнее обновление, кому надо ищите на форуме

Большое спасибо вам за помощь. Попробовал скопировать вашу схему в Hiasm и у меня вылезли ошибки. Как их исправить?
http://s009.radikal.ru/i308/1209/e1/72703bb74c60.png
карма: 0

0
Ответов: 1731
Рейтинг: 68
#17: 2012-09-13 23:43:00 ЛС | профиль | цитата
vovvei, обновиться по SVN
карма: 1

0
Разработчик
Ответов: 26324
Рейтинг: 2148
#18: 2012-09-13 23:50:26 ЛС | профиль | цитата
vovvei писал(а):
у меня вылезли ошибки

А это, наверное, я не для вас писал
nesco писал(а):
Используется последнее обновление, кому надо ищите на форуме

Ставьте обновление от CriDos-a, и будет вам щастье -- http://forum.d2h.ru/forum.html?q=3&p=210696#p210696
------------ Дoбавленo в 23.49:
Компилироват схему желательно только компилятором Делфи, FPC лучше не использовать
карма: 22

0
Ответов: 37
Рейтинг: 0
#19: 2012-09-14 00:58:10 ЛС | профиль | цитата
nesco писал(а):
Ставьте обновление от CriDos-a, и будет вам щастье


Скачал в папку с программой, обновил, но счастья пока нет . Снова те же ошибки. Может там ещё что то нужно сделать с этими обновлениями?
карма: 0

0
Разработчик
Ответов: 26324
Рейтинг: 2148
#20: 2012-09-14 01:34:29 ЛС | профиль | цитата
vovvei писал(а):
Может там ещё что то нужно сделать с этими обновлениями?

Почитайте внимательно топик, спросите в нем автора, укажите ему на ваши проблемы с установкой
------------ Дoбавленo в 01.33:
Выкинул пару ненужных элементов



Add(MainForm,10952570,84,175)
{
Left=20
Top=105
Width=749
Height=517
Caption="DDE_Server"
Point(onClose)
Point(Handle)
link(onCreate,10291496:doTimer,[(128,195)(128,181)])
link(onClose,14007143:doStop,[(192,202)(192,188)])
}
Add(DataToFile,14495791,469,217)
{
Type=1
link(onGet,14379969:doCase,[])
link(Stream,15529927:getVar,[])
}
Add(Case,11569472,616,217)
{
Value=Integer(16)
link(onNextCase,6397398:doCase,[])
link(onTrue,14121530:doGet,[(660,230)(660,321)])
}
Add(Case,6397398,672,217)
{
Value=Integer(2)
link(onTrue,8071141:doGet,[])
}
Add(LineBreakEx,14098918,392,252)
{
Caption="stream"
Type=3
link(_Data,7746977:Stream,[])
}
Add(LineBreakEx,15529927,469,175)
{
Caption="stream"
Type=2
}
Add(DataToFile,14121530,679,308)
{
Type=1
link(onGet,15344538:doGet,[])
link(Stream,7491998:Var2,[])
}
Add(LineBreakEx,13673542,679,259)
{
Caption="stream"
Type=2
}
Add(DataToFile,15344538,728,301)
{
Type=1
link(onGet,14980494:doEvent1,[])
link(Stream,12824159:Var2,[])
}
Add(GetDataEx,7491998,679,280)
{
link(Data,13673542:getVar,[])
}
Add(Hub,14980494,777,301)
{
link(onEvent1,11626017:doValue,[])
link(onEvent2,11834592:doGet,[(805,314)(805,384)])
}
Add(DataToFile,11834592,819,371)
{
Type=1
link(onGet,229979:doEvent1,[])
link(Stream,12824159:Var3,[(825,285)])
}
Add(GetDataEx,12824159,728,280)
{
Angle=3
link(Data,7491998:Var3,[])
}
Add(Hub,229979,861,371)
{
link(onEvent1,12083578:doValue,[])
link(onEvent2,2385231:doWork3,[(887,384)])
}
Add(HubEx,7056303,448,224)
{
link(onEvent,14495791:doGet,[])
}
Add(DataToFile,8071141,721,217)
{
Type=1
link(onGet,1802884:doEvent1,[])
link(Stream,7838324:Var2,[])
}
Add(LineBreakEx,13185934,721,175)
{
Caption="stream"
Type=2
}
Add(StreamCopy,324234,805,224)
{
link(onCopy,12982996:doConvert,[])
link(Dest,12179865:Var2,[])
link(Source,7838324:Var3,[(818,201)])
}
Add(GetDataEx,7838324,721,196)
{
link(Data,13185934:getVar,[])
}
Add(MemoryStream,10449288,805,147)
{
}
Add(Hub,1802884,763,217)
{
OutCount=3
link(onEvent1,10449288:doClear,[(791,223)(791,160)])
link(onEvent2,324234:doCopy,[])
link(onEvent3,8491390:doEvent1,[(791,237)(791,272)])
}
Add(StreamConvertor,12982996,854,224)
{
Mode=4
Symbol=";"
link(onResult,12034060:doDelete,[])
link(Data,12179865:Var3,[(860,194)])
}
Add(GetDataEx,12179865,805,189)
{
link(Data,10449288:Stream,[])
}
Add(StringTable,14604873,1092,189)
{
Width=733
Height=479
Align=5
Name="tab"
Point(doAddColumn)
Point(doEnsureVisible)
Point(EndIdx)
}
Add(Str_Enum,15964945,952,224)
{
link(onEnum,14604873:doAddColumn,[])
}
Add(Delete,12034060,903,224)
{
Count=1
link(onDelete,15964945:doEnum,[])
}
Add(Hub,14724656,420,224)
{
link(onEvent1,7056303:doWork2,[])
link(onEvent2,1043871:doWork1,[(453,237)])
}
Add(Case,10487080,532,560)
{
Value=Integer(2)
link(onNextCase,10099027:doCase,[])
link(onTrue,14071387:doGet,[(580,573)(580,755)])
}
Add(Case,10099027,595,560)
{
Value=Integer(1)
link(onTrue,10111362:doGet,[])
}
Add(DataToFile,8303819,483,560)
{
Type=1
link(onGet,10487080:doCase,[])
link(Stream,2003294:Var2,[])
}
Add(LineBreakEx,5070683,483,497)
{
Caption="stream"
Type=2
}
Add(DataToFile,10111362,644,560)
{
Type=1
link(onGet,5773767:doEvent1,[])
link(Stream,6527452:Var2,[])
}
Add(GetDataEx,2003294,483,525)
{
link(Data,5070683:getVar,[])
}
Add(StreamCopy,1747597,805,567)
{
link(Dest,4451241:Var2,[])
link(Source,6527452:Var3,[(818,530)])
}
Add(MemoryStream,7618382,805,476)
{
Point(doPosition)
Point(Position)
}
Add(Hub,5773767,693,560)
{
OutCount=5
link(onEvent1,7618382:doClear,[(729,566)(729,489)])
link(onEvent2,1747597:doCopy,[])
link(onEvent3,6558561:doData,[(738,580)(738,496)])
link(onEvent4,11464512:doRepeat,[(738,587)(738,601)])
link(onEvent5,7401283:doWork1,[(732,594)])
}
Add(GetDataEx,4451241,805,539)
{
link(Data,7618382:Stream,[])
}
Add(DataToFile,5363881,910,588)
{
Type=4
link(onGet,83506:doWork2,[])
link(Stream,4451241:Var3,[(916,544)])
}
Add(DoData,6558561,756,490)
{
Data=Integer(0)
link(onEventData,7618382:doPosition,[])
}
Add(GetDataEx,6527452,644,525)
{
Angle=3
link(Data,2003294:Var3,[])
}
Add(Repeat,11464512,854,595)
{
Check=1
link(onRepeat,5363881:doGet,[])
link(Op1,7618382:Size,[(860,524)(818,524)])
link(Op2,7618382:Position,[(867,517)(825,517)])
}
Add(Memory,12083578,910,371)
{
}
Add(LineBreakEx,6777345,910,420)
{
Caption="col"
Type=3
link(_Data,12083578:Value,[])
}
Add(StrCatDelim,5842841,1015,588)
{
Delimiter=";"
Point(doClear)
link(onStrCatDlm,3545040:doNext,[])
link(Str1,436278:Var1,[(1021,576)(1009,576)(1009,635)])
}
Add(Hub,1608275,434,434)
{
OutCount=4
link(onEvent1,7948194:doWork1,[(1214,440)])
link(onEvent2,5842841:doClear,[(999,447)(999,601)])
link(onEvent3,3545040:doReset,[(1058,454)(1058,601)])
link(onEvent4,8373157:doWork2,[])
}
Add(GetDataEx,436278,1015,630)
{
link(Data,5842841:Result,[])
}
Add(CounterEx,3545040,1071,588)
{
Point(doReset)
link(onNext,289994:doCompare,[])
}
Add(If_else,289994,1120,588)
{
Type=1
link(onTrue,7948194:doWork2,[])
link(onFalse,10613211:doTrim,[(1164,601)(1164,755)])
link(Op2,14783846:getVar,[])
}
Add(LineBreakEx,14783846,1127,553)
{
Caption="col"
Type=2
}
Add(DataToFile,14071387,595,742)
{
Type=1
link(onGet,8236052:doEvent1,[])
link(Stream,1978332:Var2,[])
}
Add(StreamCopy,5412522,742,749)
{
link(Dest,712644:Var2,[])
link(Source,1978332:Var3,[(755,719)])
}
Add(MemoryStream,15051832,742,665)
{
Point(doPosition)
Point(Position)
}
Add(Hub,8236052,644,742)
{
OutCount=5
link(onEvent1,15051832:doClear,[(670,748)(670,678)])
link(onEvent2,5412522:doCopy,[])
link(onEvent3,4082100:doData,[(676,762)(676,685)])
link(onEvent4,15434279:doRepeat,[(676,769)(676,783)])
link(onEvent5,7401283:doWork2,[(670,776)(670,818)])
}
Add(GetDataEx,712644,742,728)
{
link(Data,15051832:Stream,[])
}
Add(GetDataEx,1978332,595,714)
{
link(Data,6978594:getVar,[])
}
Add(StreamConvertor,7768887,952,777)
{
Mode=6
Symbol=";"
link(onResult,83506:doWork3,[(991,783)])
link(Data,10950653:Var3,[(958,761)])
}
Add(LineBreakEx,6978594,595,665)
{
Caption="stream"
Type=2
}
Add(HubEx,83506,987,588)
{
link(onEvent,5842841:doStrCatDlm,[])
}
Add(IndexToChanel,5800443,1267,812)
{
Point(Index)
link(onEvent1,8373157:doWork3,[(1312,818)(1312,461)])
link(Index,14221385:State,[])
}
Add(Switch,14221385,1267,735)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
Point(doOn)
}
Add(Hub,16181717,1225,749)
{
link(onEvent1,14221385:doOn,[])
link(onEvent2,14604873:doAdd,[(1253,762)(1253,166)(1076,166)(1076,195)])
}
Add(HubEx,8373157,462,455)
{
Angle=1
link(onEvent,8303819:doGet,[(466,573)])
}
Add(Trim,10613211,1176,749)
{
Char=";"
Mode=1
link(onTrim,16181717:doEvent1,[])
link(Text,436278:Var3,[(1182,635)])
}
Add(HubEx,7401283,728,812)
{
link(onEvent,5800443:doEvent,[])
}
Add(DataToFile,15940277,833,770)
{
link(onGet,5642649:doEvent1,[])
link(Stream,9389080:Var2,[])
}
Add(Repeat,15434279,784,777)
{
Check=1
link(onRepeat,15940277:doGet,[])
link(Op1,15051832:Size,[(790,713)(755,713)])
link(Op2,15051832:Position,[(797,706)(762,706)])
}
Add(StreamCopy,11603401,910,777)
{
link(onCopy,7768887:doConvert,[])
link(Dest,10950653:Var2,[])
link(Source,9389080:Var3,[(923,733)])
}
Add(MemoryStream,15179574,910,665)
{
Point(doPosition)
Point(Position)
}
Add(GetDataEx,10950653,910,756)
{
link(Data,15179574:Stream,[])
}
Add(Hub,5642649,875,770)
{
link(onEvent1,15179574:doClear,[(900,776)(900,678)])
link(onEvent2,11603401:doCopy,[])
}
Add(GetDataEx,9389080,833,728)
{
Angle=3
link(Data,712644:Var3,[])
}
Add(HubEx,7948194,1210,588)
{
Angle=1
link(onEvent,14221385:doReset,[(1214,748)])
}
Add(DoData,4082100,686,679)
{
Data=Integer(0)
link(onEventData,15051832:doPosition,[])
}
Add(Memory,11626017,910,301)
{
}
Add(LineBreakEx,14642115,910,350)
{
Caption="row"
Type=3
link(_Data,11626017:Value,[])
}
Add(Application,243127,1022,301)
{
Wait=1
}
Add(DoData,7827442,1022,266)
{
link(onEventData,14604873:doEnsureVisible,[(1076,272)(1076,237)])
link(Data,14604873:EndIdx,[(1028,254)(1112,254)])
}
Add(For,14932255,329,434)
{
Start=1
link(onEvent,1608275:doEvent1,[])
link(onStop,4596104:In,[])
link(End,12616412:getVar,[])
}
Add(LineBreakEx,12616412,336,399)
{
Caption="row"
Type=2
}
Add(Hub,8491390,973,266)
{
InCount=2
OutCount=3
link(onEvent1,7827442:doData,[])
link(onEvent2,243127:doProcessMessages,[(1008,279)(1008,307)])
link(onEvent3,2385231:doWork2,[(999,286)(999,131)])
}
Add(LineBreak,16586621,903,273)
{
Caption="refresh"
link(Out,8491390:doEvent2,[])
Primary=[4596104,-525,168]
}
Add(Timer,10291496,147,175)
{
Interval=200
Enable=1
AutoStop=1
link(onTimer,14007143:doStart,[])
}
Add(Math,5861830,329,280)
{
OpType=1
Op2=2
ResultType=0
link(onResult,7175594:doWork3,[(376,286)])
link(Op1,7746977:Position,[(335,243)(412,243)])
}
Add(Case,14379969,518,217)
{
Value=Integer(1)
link(onNextCase,11569472:doCase,[])
link(onTrue,2732459:doEvent1,[])
}
Add(Hub,2732459,567,224)
{
link(onEvent1,5861830:doOperation,[(602,230)(602,330)(317,330)(317,286)])
link(onEvent2,1043871:doWork2,[(594,237)(594,346)])
}
Add(HubEx,2385231,883,125)
{
Angle=2
link(onEvent,7056303:doWork1,[(452,131)])
}
Add(HubEx,1043871,449,340)
{
Angle=2
link(onEvent,14932255:doFor,[(317,346)(317,440)])
}
Add(DDEServer,14007143,210,175)
{
ServiceName="A"
TopicList=#1:1|
Point(onConnect)
Point(onExecute)
link(onPutItem,7695910:doConvert,[])
}
Add(StreamConvertor,7695910,259,182)
{
Mode=7
link(onResult,4493308:doEvent1,[])
}
Add(MemoryStream,7746977,392,182)
{
Point(Position)
Point(doPosition)
}
Add(Hub,4493308,308,182)
{
OutCount=4
link(onEvent1,7746977:doCopy,[])
link(onEvent2,7175594:doWork2,[(348,195)(348,202)])
link(onEvent3,13416225:doActive,[(337,202)(337,165)(72,165)(72,251)])
link(onEvent4,14724656:doEvent1,[(337,209)(337,230)])
}
Add(HubEx,7175594,372,196)
{
link(onEvent,7746977:doPosition,[])
}
Add(WinTools,13416225,84,231)
{
link(Handle,10952570:Handle,[])
}

карма: 22

0
Разработчик
Ответов: 26324
Рейтинг: 2148
#21: 2012-09-15 22:12:52 ЛС | профиль | цитата
Че-то ТС пропал. Пошла у него схема, не пошла у него схема, а то ушел в тину и не вернулся?
карма: 22

0
Ответов: 1536
Рейтинг: 176
#22: 2012-09-16 00:31:50 ЛС | профиль | цитата
nesco, я обычно вместо этой конструкции
Add(Memory,11626017,889,189)
{
}
Add(LineBreakEx,14642115,889,238)
{
Caption="row"
Type=3
link(_Data,11626017:Value,[])
}
применяю эту
Add(GlobalVar,6274480,938,189)
{
Name="row"
}
Или нет разницы?
nesco писал(а):
Че-то ТС пропал. Пошла у него схема, не пошла у него схема, а то ушел в тину и не вернулся?
Не переживай "Карлсон улетел, но он обещал вернуться"
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Разработчик
Ответов: 26324
Рейтинг: 2148
#23: 2012-09-16 00:55:41 ЛС | профиль | цитата
ser_davkin писал(а):
я обычно вместо этой конструкции

Твоя конструкция жрет неоправдано больше памяти. Оно совсем тут ни к чему, это не тот случай, когда мне надо эту переменную использовать внутри контейнера
------------ Дoбавленo в 00.55:
ser_davkin писал(а):
"Карлсон улетел, но он обещал вернуться"

Ага, у него вентилятор сломался, вот как починит, так и прилетит
карма: 22

0
23
Сообщение
...
Прикрепленные файлы
(файлы не залиты)