Вверх ↑
Этот топик читают: Гость
Ответов: 1328
Рейтинг: 69
#1: 2007-10-12 16:24:35 ЛС | профиль | цитата
Где-то уже было не могу найти, что нужно изменить в hiCOM.pas, чтоб он видел порты более 9
карма: 2

0
Администрация
Ответов: 15295
Рейтинг: 1519
#2: 2007-10-12 16:29:15 ЛС | профиль | цитата
там как раз ничего менять не надо. Менять надо в *.ini дописыванием нужных портов
карма: 27
0
Ответов: 1328
Рейтинг: 69
#3: 2007-10-12 16:41:08 ЛС | профиль | цитата
Ок шас попробую

------------ Дoбавленo:

Port=Номер порта|4|0|Com1,Com2,Com3,Com4,Com5,Com6,Com7,Com8,Com9,Com21[/code] здесь?
карма: 2

0
Ответов: 9906
Рейтинг: 351
#4: 2007-10-12 16:41:50 ЛС | профиль | цитата
function THICOM.InitCom(BaudRate, PortNo: Integer; Parity: Char; CommTimeOuts: TCommTimeouts): Boolean;
...
FileName := '\\.\Com' + Int2Str(PortNo); {имя файла}
...
А номер порта можно взять с верхней точки, без постоянных напрягов с редактированием INI
Тем более, что просто прописать одно нужное значение - не прокатит, будет не тот номер, что ты задумал...
карма: 9

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#5: 2007-10-12 16:42:51 ЛС | профиль | цитата
Dilma,
а ты точно это проверял? Не фига оно не работает, пока не заменишь
FileName := 'Com' + Int2Str(PortNo);[/code]на
FileName := '\\.\Com' + Int2Str(PortNo);[/code]Я уже не раз на это попадал.
карма: 22

0
Администрация
Ответов: 15295
Рейтинг: 1519
#6: 2007-10-12 16:51:51 ЛС | профиль | цитата
да точно, зарезервированными имена являются только порты с 1 по 9.
карма: 27
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#7: 2007-10-12 16:55:34 ЛС | профиль | цитата
Dilma, я год назад писал об этом. Но компонент так никто и не поправил.
карма: 22

0
Ответов: 1328
Рейтинг: 69
#8: 2007-10-12 16:55:21 ЛС | профиль | цитата
Спасибо все работает.

карма: 2

0
Ответов: 9906
Рейтинг: 351
#9: 2007-10-12 16:57:56 ЛС | профиль | цитата
Какие негодяи кругом

------------ Дoбавленo:

Konst писал(а):
Спасибо все работает.

Не может быть, чтобы работал вышеприведенный вариант дописывания в INI.
карма: 9

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#10: 2007-10-12 16:59:26 ЛС | профиль | цитата
Galkov, да ладно тебе
ПиСи: А вопросы-то, до сих пор задают.
карма: 22

0
Ответов: 1328
Рейтинг: 69
#11: 2007-10-12 16:59:04 ЛС | профиль | цитата
[b]Galkov[/b], Нет работает вариант
FileName := '\\.\Com' + Int2Str(PortNo);[/code]
карма: 2

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#12: 2007-10-12 17:02:16 ЛС | профиль | цитата
Konst, вот об этом-то речь и была.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#13: 2007-10-12 17:25:58 ЛС | профиль | цитата
Если вспомнить переход со 160-й на 161-ю, я там и более серьезные вещи "терял"
Два переезда равны одному пожару
карма: 9

0
Ответов: 1891
Рейтинг: 110
#14: 2007-10-13 01:16:37 ЛС | профиль | цитата
Galkov, писал(а):
Два переезда равны одному пожару


Точно подмечено
карма: 0
%time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#15: 2007-10-23 12:38:41 ЛС | профиль | цитата
Исправленный компонент Com (с поддержкой портов больше 9) находится на SVN.

Add(MainForm,8256865,175,105)
{
Left=20
Top=105
}
Add(ArrayRW,6457832,448,238)
{
link(Array,441368:Array,[])
}
Add(Case,15358791,336,189)
{
Value=String()
link(onNextCase,6457832:doAdd,[(427,195)(427,258)])
link(onTrue,10885940:doEvent1,[])
}
Add(Case,4982652,504,196)
{
Value=String()
link(onNextCase,2018212:doEvent1,[])
}
Add(StrList,9239508,623,175)
{
}
Add(Hub,10885940,385,196)
{
link(onEvent1,441368:doGetStr,[])
link(onEvent2,441368:doClear,[])
}
Add(CharArray,441368,448,189)
{
link(onGetStr,4982652:doCase,[])
}
Add(COM,9587163,280,182)
{
link(onRead,15358791:doCase,[])
}
Add(DoData,9039850,224,210)
{
Data=Integer(1)
link(onEventData,9587163:doRead,[])
}
Add(Timer,3530269,175,210)
{
Interval=5
link(onTimer,9039850:doData,[])
}
Add(Hub,2018212,560,196)
{
link(onEvent1,9239508:doText,[])
}
карма: 22

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