ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
12 сообщений из 12, страница 1 из 1
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528452
Scorp1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorp1978
Участник
Здраствуйте всем подскажите, VFP выдает ошибку на эту строку в чем может быть дело, ошибка Too many arguments. Подозреваю что нехватает какой нить DLL, но возможно и ошибаюсь.
...
Рейтинг: 0 / 0
16.11.2011, 05:49
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528512
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Scorp1978,

Скорее всего, ошибаешься.
На какой строке ошибка - это мы должны сами догадаться. В какую-то функцию передается больше аргументов, чем положено.
...
Рейтинг: 0 / 0
16.11.2011, 08:33
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528514
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
IgorNG,

Не сразу увидел функцию в топике. Проверь, что в переменной lcHead
...
Рейтинг: 0 / 0
16.11.2011, 08:38
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528515
Scorp1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorp1978
Участник
ctobin(substr(lcHead,5,4), '4RS')

косячит ctobin(выражение) получается для него '4RS' уже лишний параметр
...
Рейтинг: 0 / 0
16.11.2011, 08:43
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528517
Scorp1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorp1978
Участник
ctobin(substr(lcHead,11,4)) вот в таком виде фокс пропускает на сохранение, а в таком уже нет
ctobin(substr(lcHead, 11, 4), '4RS')
...
Рейтинг: 0 / 0
16.11.2011, 08:46
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528528
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Scorp1978,

9-ка в таком виде пропускает
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS')
...
Рейтинг: 0 / 0
16.11.2011, 09:14
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528534
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
Scorp1978,
фокс 8-й версии? Тогда все правильно. Второй параметр появился в 9-ке.
...
Рейтинг: 0 / 0
16.11.2011, 09:20
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37528592
Scorp1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorp1978
Участник
и как быть, ставить 9-ку или можно как нить обойти?
...
Рейтинг: 0 / 0
16.11.2011, 09:56
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37530499
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSn888
Участник
Scorp1978,

Обойти можно, если предварительно ручками выполнить операции, заменяющие "4RS"
Хоцца?
Сомневаюсь..
Ставьте 9-ку, тем более что она еще не раз Вам пригодиться :)
...
Рейтинг: 0 / 0
17.11.2011, 00:18
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37530668
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
В 9-ке расширили возможности CToBin() поэтому в предыдущих не работает.
4RS означает четырехбайтовое целое со знаком записанное в обратном порядке.
Можно так преобразовать:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
proc CToBin4RS
lpara tcVal
local lnRet, lnMin, i
lnRet = asc(substr(tcVal,  4 ,  1 ))
if lnRet >=  128 
	lnMin =  2 ^ 32 
else
	lnMin =  0 
endif
for i =  3  to  1  step - 1 
	lnRet = lnRet *  256  + asc(substr(tcVal, i,  1 ))
endfor
return lnRet - lnMin
...
Рейтинг: 0 / 0
17.11.2011, 06:57
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37530922
Scorp1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorp1978
Участник
благодарствую буду пробовать, отпишусь
...
Рейтинг: 0 / 0
17.11.2011, 10:57
| Ответить | Цитировать | Написать  
lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
    #37531248
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSn888
Участник
а в следующий раз при встрече например, "2" - опять кодить? странные люди, ИМХО - лучше сразу 9-ку поставить и все :)
впрочем - "хозяин - барин"
...
Рейтинг: 0 / 0
17.11.2011, 12:40
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / lnOffset = ctobin(substr(lcHead, 11, 4), '4RS') - Errors
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37530499&tid=1584010]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 15ms
total:  150ms
созд. / загр.: 150ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]