Отправлено: 11.08.13 18:47. Заголовок: Перехожу с Clipper 5.2e на Harbour, список вопросов от "новичка"

Добрый день, уважаемые коллеги.

Большое спасибо за море справочной информации по переходу, но нужно ещё пнуть меня в нужном направлении.

Итак, установил Harbour 3.0 + BCC 5.5.1 ==>> 3.2.0 +minGW скомпилировал и запустил традиционный "Hello, world!"
Дело перешло к проекту, из-за которого собственно и речь. Компилируется что через hbmk2, что самим харбором - без ошибок, всего с парой предупреждений, что меня немало удивило.
Возникли ошибки на этапе линковки:

Скрытый текст

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Error: Unresolved external '_HB_FUN_ENVPARAM' referenced from D:\HB\TRADE100.OBJ Error: Unresolved external '_HB_FUN_INKEYTRAP' referenced from D:\HB\TRADE226.OBJ Error: Unresolved external '_HB_FUN_DISKFREE' referenced from D:\HB\TRADE222.OBJ Error: Unresolved external '_HB_FUN_DISKTOTAL' referenced from D:\HB\TRADE222.OBJ Error: Unresolved external '_HB_FUN_BIOSDATE' referenced from D:\HB\TRADE.OBJ Error: Unresolved external '_HB_FUN_FT_ONTICK' referenced from D:\HB\TRADE.OBJ Error: Unresolved external '_HB_FUN_FT_ONIDLE' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_FT_IAMIDLE' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_TRAPANYKEY' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_KEYSEND' referenced from D:\HB\TRADE200.OBJ 1) Так понимаю, это ошибки из-за того, что не находятся некоторые функции из активно используемых CT3/Nanforum Toolkit ? Что делать с ними ? Отказываться ? Или есть заменители ? Error: Unresolved external '_HB_FUN_STACKFREE' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_BLILOCUSE' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_BLILOCAVL' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_BLILOCTOT' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_BLISTCUSE' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_BLISTCAVL' referenced from D:\HB\TRADE200.OBJ Error: Unresolved external '_HB_FUN_BLISTCTOT' referenced from D:\HB\TRADE200.OBJ 2) Это - ошибки из-за вызовов встроенных в Blinker функций, без них легко обойтись в принципе... Error: Unresolved external '_HB_FUN_STRNUM2ARRAY' referenced from D:\HB\TRADE208.OBJ Error: Unresolved external '_HB_FUN_CMJS_EXTRACTPARAMS' referenced from D:\HB\TRADE206.OBJ Error: Unresolved external '_HB_FUN_SELECTSTOCKS' referenced from D:\HB\TRADE220.OBJ Error: Unresolved external '_HB_FUN_APPLYSERTCHAGES' referenced from D:\HB\TRADE221.OBJ Error: Unresolved external '_HB_FUN_APPLYCARGOCHAGES' referenced from D:\HB\TRADE221.OBJ Error: Unresolved external '_HB_FUN_APPLYPRICECHAGES' referenced from D:\HB\TRADE221.OBJ 3) А вот это - самое странное - это мои функции, причем некоторые из них вызываются многократно из других модулей. Например ApplyCargoChanges является STATIC в самом модуле TRADE221 - почему линковщик ее не видит, наряду с парой Apply... других ? SelectStocks активно используется в других модулях - но там линкер почему-то ошибок не видит...

Help, please - что делать и куды бечь ?

 Отправлено: 11.08.13 19:16. Заголовок: Юзай Harbour 3.2 там..

Юзай Harbour 3.2 там Hbmk2 чутка умнее и пишет какие библы нужно прилинковать.
Хотя может это есть и в 3.0 не знаю так как сразу перелез с 2.0 на 3.2

 Отправлено: 11.08.13 19:30. Заголовок: Только вчера

Только вчера поставил Harbour и BCC рядом со старым добрым 5.2e - голова кругом идет... нашел 3.0 - а вот 3.2 где взять ???

 Отправлено: 11.08.13 19:47. Заголовок: Sergy пишет: голова..

Sergy пишет:

цитата:

голова кругом идет

И у меня так было ;)
На вскидку не хватает библиотек HBCT , HBNF , прилинкуй их.
Если и после этого какие то функции не будут находиться тогда
поищи их в ChangeLog.txt или поиском по маске файлов из CONTRIB
Все это я делаю (о поиске я) в FAR MANAGER
Насчет функций Blinker не знаю ,возможно что то и есть (аналоги) но далеко не все думаю
и надо разбираться в каждом отдельном случае.

Sergy пишет:

цитата:

а вот 3.2 где взять ???

тут http://clipper.borda.ru/?1-4-0-00000840-000-0-0-1375721378
по линку http://github.com/harbour/core/archive/master.zip

 Отправлено: 11.08.13 19:55. Заголовок: HBCT, HBNF указываю ..

HBCT, HBNF указываю жестко в строке компилятора, путь к ним тоже прописан. В каталоге harbour\lib\win\bcc hbct.lib и hbnf.lib точно есть...

В папке CONTRIB нашел "непонятные" файлы HBCT.HBC и HBNF.HBC размером по 122 байта каждый - может их куда еще нужно засунуть ?

 Отправлено: 11.08.13 20:28. Заголовок: Sergy пишет: В папк..

Sergy пишет:

цитата:

В папке CONTRIB нашел "непонятные" файлы HBCT.HBC и HBNF.HBC размером по 122 байта каждый - может их куда еще нужно засунуть ?

Их и надо линковать вместо HBNF.LIB и HBCT.LIB
Совет: юзай HBMK2 и файл проекта HBP
Пример (часть почикал)

 
  
 C:\hb32mingw\contrib\hbct\hbct.hbc 
 C:\hb32mingw\contrib\hbtip\hbtip.hbc 
 C:\hb32mingw\contrib\xhb\xhb.hbc 
 C:\hb32mingw\contrib\hbnf\hbnf.hbc 
 C:\hb32mingw\contrib\hbmemio\hbmemio.hbc 
 C:\hb32mingw\contrib\gtwvg\gtwvg.hbc 
 C:\hb32mingw\contrib\hbwin\hbwin.hbc 
 C:\hb32mingw\contrib\hbxpp\hbxpp.hbc 
 C:\hb32mingw\contrib\hbmisc\hbmisc.hbc 
 C:\hb32mingw\contrib\rddads\rddads.hbc 
  
 -lace32 
  
 -LC:\MinGW\lib\ 
 -liphlpapi 
  
 -compr=max 
  
 -workdir=obj 
 -owinSklad.exe 
 -inc 
 #-mt 
 #-gtwin 
  
 #-run 
 #-std 
 -gui 
  
 fix\*.c 
 fix\*.prg 
 cfunc\*.prg 
 .............. 
 sklad.prg 
 rddsys.prg 
 tool\*.prg 
 sklad.rc 
 

Собираю все вот таким батником

 
 set path=C:\MinGW\bin\ 
 c:\hb32mingw\bin\hbmk2 sklad.hbp 
 

У тебя он будет свой да и компилятор тоже так как в примере у меня MINGW

 Отправлено: 11.08.13 20:32. Заголовок: Sergy пишет:Help, pl..

Sergy пишет:

цитата:

Help, please - что делать и куды бечь ?

Такой штукой получите оглавления всех lib:
for %%a in ( *.lib ) DO c:\bk8\bcc\bin\TLIB.EXE %%a , %%a.txt
Ищите в огл. функции, если найдена подключайте lib к проекту - нет, то вероятно ее придется переписывать.

 Отправлено: 11.08.13 21:07. Заголовок: Dima пишет: Их и на..

Dima пишет:

цитата:

Их и надо линковать вместо HBNF.LIB и HBCT.LIB Совет: юзай HBMK2 и файл проекта HBP Пример (часть почикал)

Большое спасибо за подсказу, сделал так:

d:\harbour\contrib\hbnf\hbnf.hbc
d:\harbour\contrib\hbct\hbct.hbc

-lhbnf
-lhbct
-LD:\Harbour\lib\win\bcc
-workdir=OBJ
-otradewin.exe

trade.prg
trade100.prg
trade200.prg
trade201.prg
trade202.prg
...
trade499.prg

По сути ничего не поменялось... не находит функций...

 Отправлено: 11.08.13 21:09. Заголовок: Sergy пишет: -lhbnf..

Sergy пишет:

цитата:

-lhbnf -lhbct

Это не надо так как выше есть уже HBC
А какие функции не находит ?

 Отправлено: 11.08.13 21:16. Заголовок: SergKis пишет: Тако..

SergKis пишет:

цитата:

Такой штукой получите оглавления всех lib: for %%a in ( *.lib ) DO c:\bk8\bcc\bin\TLIB.EXE %%a , %%a.txt Ищите в огл. функции, если найдена подключайте lib к проекту - нет, то вероятно ее придется переписывать.

Спасибо, вот какая интересная петрушка получается с HBNF.LIB:

1) несколько функций изменили свое имя, например: DISKFREE -> DSKFREE, DISKTOTAL -> DSKSIZE... Поставлю условную компиляцию #ifdef __HARBOUR__ ... #endif
2) от части функций придется отказаться, чего уж там...
3) Функция FT_ONTICK точно есть, но возникает ошибка компоновки - как и с моими функциями... сейчас уменьшу кол-во неверных вызовов, посмотрю что да как...

 Отправлено: 11.08.13 21:19. Заголовок: Dima пишет: Это не ..

Dima пишет:

цитата:

Это не надо так как выше есть уже HBC А какие функции не находит ?

Это "системные":
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_SWPRUNCMD' referenced fr
Error: Unresolved external '_HB_FUN_ENVPARAM' referenced fro
Error: Unresolved external '_HB_FUN_INKEYTRAP' referenced fr
Error: Unresolved external '_HB_FUN_DISKFREE' referenced fro
Error: Unresolved external '_HB_FUN_DISKTOTAL' referenced fr
Error: Unresolved external '_HB_FUN_BIOSDATE' referenced fro
Error: Unresolved external '_HB_FUN_FT_ONIDLE' referenced fr
Error: Unresolved external '_HB_FUN_TRAPANYKEY' referenced f
Error: Unresolved external '_HB_FUN_KEYSEND' referenced from

Это - "мои":
Error: Unresolved external '_HB_FUN_STRNUM2ARRAY' referenced
Error: Unresolved external '_HB_FUN_CMJS_EXTRACTPARAMS' refe
Error: Unresolved external '_HB_FUN_SELECTSTOCKS' referenced
Error: Unresolved external '_HB_FUN_APPLYSERTCHAGES' referen
Error: Unresolved external '_HB_FUN_APPLYCARGOCHAGES' refere
Error: Unresolved external '_HB_FUN_APPLYPRICECHAGES' refere

 Отправлено: 11.08.13 21:23. Заголовок: Sergy пишет: Error:..

Sergy пишет:

цитата:

Error: Unresolved external '_HB_FUN_SWPRUNCMD' referenced fr

Давай по одной ;)
Вместо ее можно юзать
hb_processrun
EXECANDWAIT
WAPI_ShellExecute
и что то еще уже не помню ;)

 Отправлено: 11.08.13 21:24. Заголовок: Sergy пишет: Это - ..

Sergy пишет:

цитата:

Это - "мои":

тебе и карты в руки ! сам же писал.

 Отправлено: 11.08.13 21:26. Заголовок: Dima пишет: Давай п..

Dima пишет:

цитата:

Давай по одной ;) Вместо ее можно юзать hb_processrun EXECANDWAIT WAPI_ShellExecute и что то еще уже не помню ;)

Давай...

Подключил HBBLINK, ошибка со SWPRUNCMD ушла.

Заменил DISKTOTAL на DSKSIZE - теперь ошибка - не может найти функцию DSKSIZE.

По "своим" функциям, разумеется, вопросы будут в последнюю очередь...

 Отправлено: 11.08.13 21:33. Заголовок: Вопрос с ENVARAM реш..

Вопрос с ENVPARAM решил надыбанным "неизвестно где" исходником:

Скрытый текст

#pragma BEGINDUMP #include <windows.h> #include <tchar.h> #include <stdio.h> #include <hbapi.h> HB_FUNC( ENVPARAM ) { LPTSTR lpszVariable; LPTCH lpvEnv; LPTSTR pszBuffer = NULL; int iLastLen = 0; int pos =0; // Get a pointer to the environment block. lpvEnv = GetEnvironmentStrings(); // If the returned pointer is NULL, exit. if (lpvEnv == NULL) { printf("GetEnvironmentStrings failed (%d)\n", GetLastError()); return ; } // Variable strings are separated by NULL byte, and the block is // terminated by a NULL byte. lpszVariable = (LPTSTR) lpvEnv; while (*lpszVariable) { int iLen = lstrlen( lpszVariable ); pszBuffer = realloc( pszBuffer, iLastLen + iLen + 2 ); memcpy( pszBuffer+iLastLen, lpszVariable, iLen ); memcpy( pszBuffer+iLastLen+iLen, "\r\n", 2 ); iLastLen += iLen + 2; lpszVariable += lstrlen(lpszVariable) + 1; } FreeEnvironmentStrings(lpvEnv); hb_retc( pszBuffer ); } #pragma ENDDUMP

соотв. остаются:

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

Error: Unresolved external '_HB_FUN_INKEYTRAP' referenced fr
Error: Unresolved external '_HB_FUN_DSKFREE' referenced from
Error: Unresolved external '_HB_FUN_DSKSIZE' referenced from
Error: Unresolved external '_HB_FUN_BIOSDATE' referenced fro
Error: Unresolved external '_HB_FUN_FT_ONIDLE' referenced fr
Error: Unresolved external '_HB_FUN_TRAPANYKEY' referenced f
Error: Unresolved external '_HB_FUN_KEYSEND' referenced from

 Отправлено: 11.08.13 21:38. Заголовок: Dima пишет: поищи и..

Dima пишет:

цитата:

поищи их в ChangeLog.txt

а так же поиском на форуме

 Отправлено: 11.08.13 22:00. Заголовок: Dima пишет: поищи и..

Dima пишет:

цитата:

поищи их в ChangeLog.txt а так же поиском на форуме

Бинго! Так разобрался с DISKFREE и DISKTOTAL - оказывается, они заменяются на вызовы HB_DISKSPACE(d, HB_DISK_FREE) и тп.

При помощи условной компиляции пока отказался от некоторых системных функций.

Со своими функциями походу тоже ясно - ошибка с длинными именами - Clipper все что длинее 10 знаков игнорирует, а тут - строго...

 Отправлено: 11.08.13 22:42. Заголовок: Запустил ! :sm36: ..

Запустил !

Разобрался с кодовой страницей, убрал вызов FILESMAX()

Вопрос: Использую NTX, в некоторых редких случаях требуется, чтoбы вместо расширений *.DBF и *.NTX были немного другие, напрмер: *.XDB, *.XNT - так я отличаю "архивные" таблицы и действующие, чтобы их не копировать при бэкапе.

Harbour этого не любит ?

Вылетает: Unrecoverable error 9108: hb_ntxIndexUnLockRead: unlock error.

Вот на таком коде: USE (cDir+cAlias+cExt) INDEX (cDir+cAlias+cNtx) READONLY NEW

 Отправлено: 11.08.13 22:43. Заголовок: Sergy пишет: Error:..

Sergy пишет:

цитата:

Error: Unresolved external '_HB_FUN_KEYSEND' referenced from

Это CT.LIB
Я отказался от неё.

 Отправлено: 11.08.13 22:51. Заголовок: Andrey пишет: Я отк..

Andrey пишет:

цитата:

Я отказался от неё.

и я

Sergy пишет:

цитата:

Использую NTX

Тяжелый случай. Тяжело и громоздко. Не надо его юзать. CDX самое то или IDX (CDX) под ADS или LetoDB (CDX)

Dima пишет:

цитата:

CDX самое то

Но там могут быть свои приколы.

 Отправлено: 11.08.13 22:55. Заголовок: Sergy пишет: (cDir+..

Sergy пишет:

цитата:

(cDir+cAlias+cExt)

Выведи это дело в ? cDir+cAlias+cExt и глянь что кажет , возможно твой косяк

 Отправлено: 11.08.13 22:58. Заголовок: Andrey пишет: Это C..

Andrey пишет:

цитата:

Это CT.LIB Я отказался от неё.

Понятно, что у виндовой программы и расширенного Harbour всяко функций больше. Но сейчас нужно запустить проект и посмотреть, где что да как.
Dima пишет:

цитата:

Тяжелый случай. Тяжело и громоздко. Не надо его юзать. CDX самое то или IDX (CDX) под ADS или LetoDB (CDX)

Переделывать NTX на CDX или еще дальше - SQL подобные БД вообще думаю пока нет смысла, когда программа "еле дышит"... Запустить, попробовать, добиться хотя-бы такого-же функционала, как и с 5,2е, обкатать, а потом уж оптимзировать.

Такие вот мысли пока...

 Отправлено: 11.08.13 23:01. Заголовок: Sergy пишет: Запуст..

Sergy пишет:

цитата:

Запустить, попробовать, добиться хотя-бы такого-же функционала, как и с 5,2е, обкатать, а потом уж оптимзировать.

Все правильно. Так и я думал и все получилось и у тебя все будет нормально с переводом. Просто остынь и осмысли
А вопросы сюда ;) Поможем !

ЗЫ
Я тоже не верил что смогу перевести довольно большую прогу с Clipper 5.2 на Harbor , но.......5 дней упорной работы
и добился такого же функционала
5 метров исходников , 300 файлов , пришлось попотеть конечно.
Руки не опускай и все будет норм !
По ходу косяков будет много по началу но со временем все меньше и меньше. Просто поверь.

 Отправлено: 11.08.13 23:01. Заголовок: Dima пишет: Выведи ..

Dima пишет:

цитата:

Выведи это дело в ? cDir+cAlias+cExt и глянь что кажет , возможно твой косяк

Мой.

удалил клипперовские *.NTX, а - *.XNT - остались... Удалил, перестроились ок.

Сорри.

 Отправлено: 11.08.13 23:20. Заголовок: Dima пишет: Все пра..

Dima пишет:

цитата:

Все правильно. Так и я думал и все получилось и у тебя все будет нормально с переводом. Просто остынь и осмысли А вопросы сюда ;) Поможем !

А вот за это - отдельное БОЛЬШОЕ Спасибо!

цитата:

ЗЫ Я тоже не верил что смогу перевести довольно большую прогу с Clipper 5.2 на Harbor , но.......5 дней упорной работы и добился такого же функционала 5 метров исходников , 300 файлов , пришлось попотеть конечно. Руки не опускай и все будет норм ! По ходу косяков будет много по началу но со временем все меньше и меньше. Просто поверь.

У меня чуть скромнее: 34 файла, 2,5 мега исходников. Всегда старался не пользоваться никакими сторонними библиотеками, кроме стандартных Nanforun Toolkit и Clipper Tools - подозревал, что этот день когда-нить настанет...
В первом приближении - Работает!!! И ТАК БЫСТРО, что ппц.

 Отправлено: 12.08.13 12:19. Заголовок: Итак, огромное спаси..

Итак, огромное спасибо всем помощникам! Программа запустилась и очень шустро (по сравнению с ntvdm) работает.
Возникающие то тут, то там вопросы - решаемы, связаны с вольностями Clipper - все, что дальше десятого символа считается неважным.

На повестке дня пока два насущных вопроса, связанных с отказом от нескольких системных функций:

1) В программе есть возможность записи клавиатурных нажатий. Типа макросов. И последующего их воспроизведения одним нажатием для автоматизации рутинных операций. Раньше это было организовано при помощи INKEYTRAP/TRAPANYKEY/KEYSEND. Одна из этих функций актвивизировалась и складывала в фоновом режиме все нажатия юзера в массив/строку. После чего в любой момент из массива/строки при помощи KEYSEND эти коды кнопок передавались в буфер клавиатуры. Просто и удобно. Как можно релизовать похожий механизм в Harbour ?

2) Нужен аналог функции BIOSDATE(), она используется сами понимаете для чего. Отказываться полностью не хочется, а использовать что-либо взамен - придется бегать по всем машинам с флэшкой, переделывать ключевые файлы.

 Отправлено: 12.08.13 12:32. Заголовок: Sergy пишет: Нужен ..

Sergy пишет:

цитата:

Нужен аналог функции BIOSDATE()

 
 Func Biosdate() 
 #include "hbwin.ch" 
  
 return GetRegistry( WIN_HKEY_LOCAL_MACHINE,"HARDWARE\DESCRIPTION\System" ,"SystemBiosDate"  ) 
  
 

 Отправлено: 12.08.13 12:38. Заголовок: Dima пишет: Func B..

Dima пишет:

цитата:

Func Biosdate() #include "hbwin.ch" return GetRegistry( WIN_HKEY_LOCAL_MACHINE,"HARDWARE\DESCRIPTION\System" ,"SystemBiosDate" )

Спасибо, использую

 Отправлено: 12.08.13 12:44. Заголовок: Sergy Можно еще к M..

Sergy
Можно еще к MAC адресу сетевой прицепиться.

 Отправлено: 12.08.13 13:04. Заголовок: Dima пишет: Можно е..

Dima пишет:

цитата:

Можно еще к MAC адресу сетевой прицепиться.

Безусловно, только сейчас первая задача - сохранить и перенести функционал. И только потом развиваться дальше.

Вот с клавиатурными нажатиями - с какой стороны подступить ?

 Отправлено: 12.08.13 13:27. Заголовок: Sergy пишет: Вот с ..

Sergy пишет:

цитата:

Вот с клавиатурными нажатиями - с какой стороны подступить ?

Можно попробовать FT_OnTick({|| test()},1) в функции Test и пробуй записывать
Или ваять самому https://groups.google.com/forum/#!topic/comp.lang.xharbour/e77vVVb1Kuc

 Отправлено: 12.08.13 15:18. Заголовок: Dima пишет: Можно п..

Dima пишет:

цитата:

Можно попробовать FT_OnTick({|| test()},1) в функции Test и пробуй записывать Или ваять самому https://groups.google.com/forum/#!topic/comp.lang.xharbour/e77vVVb1Kuc

Буду пробовать...

 Отправлено: 12.08.13 17:52. Заголовок: Dima пишет: Func B..

Dima пишет:

цитата:

Func Biosdate() #include "hbwin.ch" return GetRegistry( WIN_HKEY_LOCAL_MACHINE,"HARDWARE\DESCRIPTION\System" ,"SystemBiosDate" )

Error: Unresolved external '_HB_FUN_GETREGISTRY' referenced from... хотя в проект hbwin.hbc подключил...

 Отправлено: 12.08.13 18:13. Заголовок: Sergy пишет: Error:..

Sergy пишет:

цитата:

Error: Unresolved external '_HB_FUN_GETREGISTRY' referenced from.

попробуй win_regGet()
У меня Harbour 3.2 у тебя 3.0 вот и отличия

ЗЫ
Можно еще сырец глянуть win_reg.prg из Hbwin

 Отправлено: 12.08.13 21:54. Заголовок: Dima пишет: попробу..

Dima пишет:

цитата:

попробуй win_regGet() У меня Harbour 3.2 у тебя 3.0 вот и отличия

Получилось.

 Отправлено: 12.08.13 23:58. Заголовок: Заметил, что ACHOICE..

Заметил, что ACHOICE себя как-то странно ведет. Суть:

REPEAT
pos := ACHOICE(2,10,2,40,show_array,,,pos)
UNTIL (LastKey() == K_ENTER)

Да, весь массив в Clipper прокручивается в одной строке - так выбираю логин входящего юзера, чтобы не вводить с клавиатуры. Компактно и поиск по первой букве работает.
Плюс стрелками можно выбрать:
Savin -> Serebrov -> Silaev...

В Harbour при нажатии "стрелка вверх" неожиданно появляется второй элемент массива на третьей строке, т.е. там, где ACHOICE делать вообще нечего...

Залез в tests\ac_test.prg

Скрытый текст

/* * $Id: ac_test.prg 16875 2011-06-14 20:10:06Z vszakats $ */ *+==================================================================== *+ *+ Source Module => ac_test.prg *+ *+ Released to Public Domain. *+ *+ Functions: Procedure test() *+ Function cUserFunction() *+ *+ Tables: use vendor exclusive *+ *+ Reformatted by Click! 1.10 on Aug-13-1997 at 11:39 pm *+ *+==================================================================== #include "achoice.ch" #include "inkey.ch" *+-------------------------------------------------------------------- *+ *+ Procedure test() *+ *+-------------------------------------------------------------------- *+ procedure main() local aPrompts := {; "AGRI-PLANTS" ,; "ALAN R. SMITH GREENHOUSES" ,; "ALLAN MURRAY NURSERY, INC." ,; "APOPKA FOREST" ,; "LIGHT HOUSE NURSERIES" ,; "BAUCOM'S" ,; "BAY HILL NURSERY, INC." ,; "BAYWOOD NURSERIES" ,; "BIG OAK NURSERY" ,; "C & N NURSERY" ,; "CHARLES QUALITY PLANTS" ,; "CONNELL FARMS" ,; "DEWAR NURSERIES, INC." ,; "DIAMOND T NURSERY" ,; "DISTINCTIVE PALMS NURSERIES" ,; "DONKAY NURSERY" ,; "DOUG INGRAM & SONS NURSERY" ,; "DRIFTWOOD GARDENS, INC." ,; "ELVA PLANT NURSERY, INC." ,; "ERINON" ,; "EVANS NURSERY" ,; "FANCY PLANTS" ,; "FL.PLANT GROWERSCOOP" ,; "FLORIDA CACTUS INC." ,; "FLOWERING TREE GROWERS, INC." ,; "FLOWERWOOD NURSERY" ,; "FOLIAGE FACTORY TOO" ,; "GATOR GROWERS NURSERY, INC." ,; "GAZEBO LANDSCAPE DESIGN, INC." ,; "GEM ORNAMENTALS" ,; "GRANNY'S GARDEN" ,; "GRAY'S ORNAMENTALS" ,; "GREEN MASTERS INC." ,; "GREEN MEADOW NURSERY" ,; "PIXLEY'S PLANT PLACE" ,; "HARRISON'S NURSERY, INC." ,; "G & G FOLIAGE" ,; "IVEY'S NURSERY, INC." ,; "JB NURSERIES, INC." ,; "JON'S NURSERY" ,; "JONES & JONES NURSERY, INC." ,; "KAGER'S NURSERY" ,; "KIRKLAND'S NURSERY" ,; "LAND OF BROMELIADS" ,; "LANDSCAPE NURSERY, INC." ,; "LIEWALD'S NURSERY INC." ,; "LLOYD & RINGS NURSERY" ,; "LONG VAN DOUNG" ,; "MAPEL'S LANDSCAPE NURSERY" ,; "MILESTONE AGRICULTURE, INC." ,; "MOJICA NURSERY & FRUITS" ,; "NELSON'S ROSES" ,; "PARK GARDENS" ,; "PAUL LUKAS INC." ,; "PECKETT'S INC." ,; "PENANG NURSERY, INC." ,; "PINES III NURERIES" ,; "PINEVIEW NURSERY" ,; "POUL JENSEN NURSERY" ,; "R.P. WELKER" ,; "RICHARD ROGERS NURSERY, INC." ,; "SPRING HILL NURSERY" ,; "T.O. MAHAFFEY, JR." ,; "TUCKER NURSERY" ,; "TURTLE POND NURSERY" ,; "TUTTLE'S NURSERY INC." ,; "VALLEY CACTUS" ,; "WHISPER WINDS, INC." ,; "WHITE ROSE NURSERIES INC." ,; "WOODWAY" ,; "FLORI-DESIGN" ,; "GREEN ACRES FOLIAGE, INC" ,; "FLORAL EXPO" ,; "TORRES NURSERY" ,; "DARRYL KOON" ,; "TRISTAR NURSERY" ,; "KAY WEST NURSERY" ,; "JAYMAR NURSERY" ,; "J D F LANDSCAPE NURSERY" ,; "DEROOSE PLANTS, INC." ,; "THE TREEHOUSE" ,; "COSTELLO'S ARECAS, INC." ,; "FLORICO FOLIAGE" ,; "THE NATIVES" ,; "GREENS NURSERY" ,; "STEWART NURSERIES" ,; "G & T FOLIAGE, INC." ,; "GOOD TIMES NURSERY" ,; "CONCEPTS IN GREENERY, INC." ,; "DUNN BROTHERS CITRUS, INC." ,; "JOHN PLANK GREENHOUSES" ,; "GREENER PASTURES NURSERY" ,; "MULVEHILL NURSERY" ,; "A NU LEAF" ,; "IVY DESIGNS, INC." ,; "B & C TROPICALS" ,; "SPANISH RIVER NURSERY, INC." ,; "JACK CHRISTMAS & ASSOCIATES" ,; "SPECIALIST GROWERS" ,; "HOMRICH NURSERY, INC." ,; "COUNTRYSIDE FOLIAGE, INC." ,; "RFJ COMPANY" ,; "LAKE BRANTLEY PLANT CORP." ,; "MARISTYME" ,; "MERISTEM NURSERY, INC." ,; "TROPIC DECOR - EARL WILSON" ,; "URQUHART'S NURSERY" ,; "ACE PLANT NURSERY" ,; "HATTAWAYS GREENHOUSE, INC." ,; "Florida Plant Growers" ,; "Junior Nursery" ,; "Fox's Nurseries, Inc." ,; "Vaughan Nursery" ,; "MERRYGRO FARMS" ,; "ALL SEASONS NURSERY" ,; "BENCHMARK FOLIAGE" ,; "SAMMY'S NURSERY" ,; "SUNSHINE GROWERS" ,; "Blooming-Fields Nursery" } local aPermits := {} local x local nChoice local ncntr clear screen setcolor( 'GB+/B,GR+/R,,,W/N' ) SET CURSOR ON asize( aPermits, Len( aPrompts ) ) for x := 1 to Len( aPrompts ) aPermits[ x ] := !( 'V' $ aPrompts[ x ] ) next #define TEST1 #ifdef TEST1 for ncntr := 1 to 17 aPermits[ nCntr ] := .F. aPermits[ Len( aPrompts ) - nCntr + 1 ] := .F. next aPermits[ 32 ] := .F. aPermits[ 33 ] := .F. aPermits[ 34 ] := .F. #endif nChoice := achoice( 5, 10, 20, 70, aPrompts, aPermits, "cUserFunction" ) setpos( 0, 0 ) * clear screen ? nChoice if nChoice > 0 ? aPrompts[ nChoice ] endif setpos( maxrow() - 2, 0 ) return *+-------------------------------------------------------------------- *+ *+ Function cUserFunction() *+ *+-------------------------------------------------------------------- *+ function cUserFunction( nMode, nCurElement, nRowPos ) local nRetVal := AC_CONT // Default, Continue local nKey := lastkey() local nRow := Row() local nCol := Col() HB_SYMBOL_UNUSED( nRowPos ) @ 0, 20 SAY Str( nRow, 3 ) + " " + Str( nCol, 3 ) do case // After all pending keys are processed, display message case nMode == AC_IDLE @ 0, 0 say padr( ltrim( str( nCurElement ) ), 10 ) nRetVal := AC_CONT // Continue ACHOICE() case nMode == AC_HITTOP // Attempt to go past Top @ 0, 0 say "Hit Top " // tone( 100, 3 ) case nMode == AC_HITBOTTOM // Attempt to go past Bottom @ 0, 0 say "Hit Bottom" // tone( 100, 3 ) case nMode == AC_EXCEPT // Key Exception @ 0, 0 say "Exception " do case case nKey == K_RETURN // If RETURN key, select nRetVal := AC_SELECT case nKey == K_ESC // If ESCAPE key, abort nRetVal := AC_ABORT otherwise nRetVal := AC_GOTO // Otherwise, go to item endcase endcase return nRetVal

Запустил, офигел:



У всех так ?

Второй файл, ac_test2 тоже работает через Ж...

 Отправлено: 13.08.13 00:15. Заголовок: Sergy пишет: Замети..

Sergy пишет:

цитата:

Заметил, что ACHOICE себя как-то странно ведет.

Да, он от клипера отличается.
Смотри доку и переделывай обработку функций ACHOICE, MEMOEDIT, TBROWSE.

Мне тоже пришлось это переделывать. Разницу сейчас не скажу, но делал маленькие тестовые примеры, а потом код перетаскивал в свои системы.

 Отправлено: 13.08.13 15:26. Заголовок: Andrey пишет: Смотр..

Andrey пишет:

цитата:

Смотри доку

Какую именно доку ?

 Отправлено: 13.08.13 18:12. Заголовок: Sergy пишет: Какую ..

Sergy пишет:

цитата:

Какую именно доку ?

http://clipper.borda.ru/?1-6-0-00000007-000-0-0-1365407210

http://clipper.borda.ru/?1-6-0-00000004-000-0-0-1355750592

и т.д.

 Отправлено: 13.08.13 22:30. Заголовок: Andrey пишет: http:..

Andrey пишет:

цитата:

http://clipper.borda.ru/?1-6-0-00000007-000-0-0-1365407210 http://clipper.borda.ru/?1-6-0-00000004-000-0-0-1355750592 и т.д.

Вот смотрю конкретно ACHOICE: http://www.elektrosoft.it/tutorials/Harbour-Reference-Guide/harbour-reference-guide.htm#AChoice

Не могу понять - какие в нем отличия от Клипперовского ?
Ведь заявлена полная совместимость, а по сути получается, что просто криво реализована? Может у меня сборка такая, раз даже тестовый пример не работает...

 Отправлено: 14.08.13 08:31. Заголовок: Да, с AChoice косяк ..

Да, с AChoice косяк есть...

Хех... В тех исходниках, что у меня (а они довольно старые, от 30.01.2013), в achoice.prg увидел следующее:

/* TOFIX: 
    --- 
    #include "inkey.ch" 
    CLS 
    hb_keyPut( { K_DOWN, K_UP } ) // bogus '2' appears out of the area here. 
    AChoice( 0, 0, 0, 0, { "1", "2" } ) 
    --- 
  */ 
  
 

Так что баг уже давно замечен. Осталось, чтобы кто-то его вылечил... )))
У кого есть свежие исходники? Там не исправлено еще?

update:
Сечас посмотрел на git. Не исправлено... (((
Ну что ж, либо забить, либо искать косяк в achoice.prg и исправлять.

 Отправлено: 15.08.13 16:57. Заголовок: По inkeytrap() см. в..

По inkeytrap() см. ветку
http://clipper.borda.ru/?1-4-0-00000853-000-0-0-1369379704

 Отправлено: 15.08.13 17:53. Заголовок: azoo пишет: По inke..

azoo пишет:

цитата:

По inkeytrap() см. ветку

Спасибо. Пригодилось.

 Отправлено: 19.08.13 17:50. Заголовок: Не получается подруж..

Не получается подружить русский язык и файловую систему.

Например:

 
  
 FUNC Main() 
  
 REQUEST HB_LANG_RU866   
 REQUEST HB_CODEPAGE_RU866 
 HB_LANGSELECT("RU866")  
 HB_CDPSELECT("RU866") 
  
 ? File("текст.!") 
 QUIT 
  
 RETURN 
 

Всегда дает результат .F.
Файл разумеется есть, лежит рядом с exe. Если переименовать в латиницу - результат File("text.!") сразу .T.

Команда RUN("@echo --- Привет --- ") дает кракозябры на экране.

В hbp указал
-DHB_LANG_DEFAULT=RU866
-DHB_CODEPAGE_DEFAULT=RU866

Что я еще забыл переключить в настройках ?

 Отправлено: 19.08.13 18:06. Заголовок: Есть 2 способа решен..

Есть 2 способа решения этого вопроса:

1. Транслировать имена файлов из cp866 в cp1251

2. Добавить в конец модуля такую функцию:

#pragma BEGINDUMP
#include "windows.h"

HB_FUNC_STATIC( SETFILEAPIS ) // Имена файлов в кодировке OEM
{
SetFileApisToOEM();
}
#pragma ENDDUMP

и вызвать ее при старте программы

 Отправлено: 19.08.13 18:12. Заголовок: Pasha пишет: Есть ..

Pasha пишет:

цитата:

Есть 2 способа решения этого вопроса: 1. Транслировать имена файлов из cp866 в cp1251

Переделывать всю программу, искать вызовы файловых функций (а там во всех местах - и FILE() и DIRECTORY() и тд и тп) ... муторно очень...

цитата:

2. Добавить в конец модуля такую функцию:

Добавил.
RUN("@echo --- Привет ---") теперь пишет нормально, а File() все равно дает .F.

 Отправлено: 19.08.13 18:56. Заголовок: Попробовал даже так:..

Попробовал даже так:

sx := "абв.dbf"
sx := HB_TRANSLATE(sx,"RU866","RU1251")

? File(sx)

все равно дает .F.

 Отправлено: 19.08.13 21:05. Заголовок: Попробуй так: FUNC M..

Попробуй так:
FUNC Main()

REQUEST HB_LANG_RU866
REQUEST HB_CODEPAGE_RU866
HB_LANGSELECT("RU866")
HB_CDPSELECT("RU866")

sx := "абв.dbf"
sx := HB_ANSITOOEM(sx)
? File(sx)

 Отправлено: 19.08.13 21:51. Заголовок: Andrey пишет: Попр..

Andrey пишет:

цитата:

Попробуй так: ... sx := HB_ANSITOOEM(sx)

Попробовал. FALSE

Поставил наоборот - HB_OEMTOANSI(sx) - заработало.

Блин... этож сколько переписывать придется... просто ппц... Неужели нет вариантов ???

 Отправлено: 19.08.13 22:06. Заголовок: Sergy пишет: Блин....

Sergy пишет:

цитата:

Блин... этож сколько переписывать придется... просто ппц... Неужели нет вариантов ???

Лично у меня
FUNC Main()

REQUEST HB_LANG_RU866
REQUEST HB_CODEPAGE_RU866
HB_LANGSELECT("RU866")
HB_CDPSELECT("RU866")

? File("текст.!")
QUIT

RETURN

показало .T. если исходник в 866 странице, ну и .F. если в 1251

 Отправлено: 19.08.13 22:13. Заголовок: Исходник ведь клиппе..

Исходник ведь клипперовский, конечно он в 866 странице...

Базы данных, все сообщения - все работает нормально. А вот с файловой системой какая-то непонятка...

 Отправлено: 19.08.13 22:22. Заголовок: А какая ось, как зап..

А какая ось, как запускаете программу, что показывает chcp?

 Отправлено: 19.08.13 22:35. Заголовок: Петр пишет: А какая..

Петр пишет:

цитата:

А какая ось, как запускаете программу, что показывает chcp?

На домашнем компе - XP, запускаю программу из под Far, chcp показывает 866

На работе - сервер 2003 SR3, остальное тоже самое - и из под Far и из проводника тоже самое...

 Отправлено: 19.08.13 22:41. Заголовок: Ну не знаю, Win 7, F..

Ну не знаю, Win 7, Far 3.0 build 3249, active code page 866

.T.

 Отправлено: 19.08.13 22:46. Заголовок: Сначала нужно SetFileApis

proc main
Local cfname
// set name before SetFileApis - wrong
cfname:="тест.!"
strfile("1",cfname,.f.)
? file(cfname)
SetFileApis()
? file(cfname)

inkey(100)

// set name after SetFileApis - right
cfname:="тест.!"
strfile("2",cfname,.f.)
? file(cfname)

return

#pragma BEGINDUMP

#include "windows.h"

HB_FUNC_STATIC( SETFILEAPIS ) //
{
SetFileApisToOEM();
}
#pragma ENDDUMP

 Отправлено: 19.08.13 22:47. Заголовок: Петр пишет: Ну не з..

Петр пишет:

цитата:

Ну не знаю, Win 7, Far 3.0 build 3249, active code page 866 .T.

 Отправлено: 19.08.13 22:56. Заголовок: petr707 пишет: proc..

petr707 пишет:

цитата:

proc main Local cfname // set name before SetFileApis - wrong cfname:="тест.!" strfile("1",cfname,.f.) ? file(cfname) SetFileApis() ? file(cfname) inkey(100) // set name after SetFileApis - right cfname:="тест.!" strfile("2",cfname,.f.) ? file(cfname) return #pragma BEGINDUMP #include "windows.h" HB_FUNC_STATIC( SETFILEAPIS ) // { SetFileApisToOEM(); } #pragma ENDDUMP

Прикольно.
У меня получилось
.T.
.T.
.T.

НО имя файла в?бв.!

Компилировал припомощи hbp следующего содержания (скопирован с проекта)

d:\harbour\contrib\hbnf\hbnf.hbc
d:\harbour\contrib\hbct\hbct.hbc
d:\harbour\contrib\hbwin\hbwin.hbc
d:\harbour\contrib\hbblink\hbblink.hbc

-lhbcpage.lib
-inc
-run
-LD:\Harbour\lib\win\bcc
-DHB_LANG_DEFAULT=RU866
-DHB_CODEPAGE_DEFAULT=RU866
-prgflag=/v

lang_test2.prg


Ваще ниче не понимаю...

 Отправлено: 19.08.13 23:04. Заголовок: Удалите все файлы, и перезапустите ,старый файл тест.! мешает

Удалите все файлы, и перезапустите ,старый Ваш файл тест.! картинку портит

Должно быть два файла
в?бв.! ( содержимое="1")
и
тест.! (содержимое="2")

proc main

REQUEST HB_LANG_RU866
REQUEST HB_CODEPAGE_RU866
HB_LANGSELECT("RU866")
HB_CDPSELECT("RU866")

// set name before SetFileApis - wrong
cfname:="тест.!"
strfile("1",cfname,.f.)
? file(cfname)
SetFileApis()
? file(cfname)

inkey(100)

// set name after SetFileApis - right
cfname:="тест.!"
strfile("2",cfname,.f.)
? file(cfname)

return

#pragma BEGINDUMP

#include "windows.h"

HB_FUNC_STATIC( SETFILEAPIS ) //
{
SetFileApisToOEM();
}
#pragma ENDDUMP

 Отправлено: 19.08.13 23:05. Заголовок: Вот такой пример: p..

Вот такой пример:

proc main
Local cfname
// set name before SetFileApis - wrong
cfname:="тест1.!"
strfile("1",cfname)
? file(cfname)

SetFileApis()

// set name after SetFileApis - right
cfname:="тест2.!"
strfile("2",cfname)
? file(cfname)

return

#pragma BEGINDUMP

#include "windows.h"

HB_FUNC_STATIC( SETFILEAPIS ) //
{
SetFileApisToOEM();
}
#pragma ENDDUMP

дает
.T.
.T.

и два файла: в?бв1.! и в?бв2.!

 Отправлено: 19.08.13 23:06. Заголовок: почти синхронно отве..

почти синхронно ответили...

ща попробую Ваш пример

 Отправлено: 19.08.13 23:08. Заголовок: Не работает SetFileApis()

Не работает SetFileApis()

 Отправлено: 19.08.13 23:09. Заголовок: petr707 пишет: Уда..

petr707 пишет:

цитата:

Удалите все файлы, и перезапустите ,старый Ваш файл тест.! картинку портит Должно быть два файла в?бв.! ( содержимое="1") и тест.! (содержимое="2")

Все удалил

получил две шутки TRUE и ОДИН файл в?бв.! с содержимым 2

 Отправлено: 19.08.13 23:10. Заголовок: petr707 пишет: Не р..

petr707 пишет:

цитата:

Не работает SetFileApis()

Он работает, но как-то "не до конца".

Без него RUN("@echo -- Привет --") дает кракозябры. С ним - всё нормально.

 Отправлено: 19.08.13 23:15. Заголовок: Harbour - сборка Unicode ?

Запуск test.exe //info -что показывает ?

 Отправлено: 19.08.13 23:17. Заголовок: petr707 пишет: Запу..

petr707 пишет:

цитата:

Запуск test.exe //info -что показывает ?

Harbour Terminal: Windows native console
Harbour 3.0.0 (Rev. 16951)
Windows XP 5.1.2600 Service Pack 3
DS avail=1692828KB OS avail=2079244KB EMM avail=0KB MemStat:Off MT:Off

.T.
.T.
.T.

 Отправлено: 19.08.13 23:18. Заголовок: RUN("@echo -- Привет --") дает кракозябры

RUN("@echo -- Привет --") дает кракозябры

еще раз проверяем кодовую страницу PRG -файла

 Отправлено: 19.08.13 23:22. Заголовок: petr707 пишет: еще ..

petr707 пишет:

цитата:

еще раз проверяем кодовую страницу PRG -файла

Вот ascii-коды символов, входящих в слово "Привет", которые выводит встроенный редактор FAR: 143 224 168 162 165 226

 Отправлено: 19.08.13 23:40. Заголовок: Чтобы не зависеть от кодовой страницы Prg-файла

Чтобы не зависеть от кодовой страницы Prg-файла
замените
cfname:="тест.!"
на
cfname:=CHR(226)+CHR(165)+...//"тест.!"

 Отправлено: 19.08.13 23:44. Заголовок: petr707 пишет: Чтоб..

petr707 пишет:

цитата:

Чтобы не зависеть от кодовой страницы Prg-файла замените cfname:="тест.!" на cfname:=CHR(226)+CHR(165)+...//"тест.!"

сделал.
результат не изменился.

три штуки TRUE
один файл с именем в кракозябрах
с содержимым "2"

 Отправлено: 19.08.13 23:50. Заголовок: Начинаем "шаманить"

Начинаем "шаманить"

После строки HB_CDPSELECT("RU866")

Добавляем одну строку
HB_GtInfo(HB_GTI_CODEPAGE, 255) // oem_charset

//HB_GtInfo(HB_GTI_CODEPAGE, 0 ) // ansi_charset
// HB_SETTERMCP("RU256")//, "RU1251", .t. )

 Отправлено: 20.08.13 00:01. Заголовок: petr707 пишет: Начи..

petr707 пишет:

цитата:

Начинаем "шаманить" После строки HB_CDPSELECT("RU866") Добавляем одну строку HB_GtInfo(HB_GTI_CODEPAGE, 255) // oem_charset

┌────────────────────────────────────────────┐
│ Error BASE/1003 Переменная не существует: │
│ HB_GTI_CODEPAGE │
│ │
│ Quit Retry │
└────────────────────────────────────────────┘

Подключил hbgtinfo.ch

результат - один в один - три TRUE, один файл с названием из кракозябр и содерджимым 2

Поставил

HB_GtInfo(HB_GTI_CODEPAGE, 0) - тоже самое

 Отправлено: 20.08.13 00:10. Заголовок: \hb30\tests\gtchars.prg

Похоже дело не в русских именах файлов
а вообще с кодовой страницей

Предлагаю скомпилировать и выполнить тесты
из \hb30\tests\
можно начать с gtchars.prg

 Отправлено: 20.08.13 00:18. Заголовок: petr707 пишет: можн..

petr707 пишет:

цитата:

можно начать с gtchars.prg

скомпилировал,
боксики-квадратики видны ok

 Отправлено: 20.08.13 00:27. Заголовок: вместо польских пост..

вместо польских поставил RU866, вроде все работает:



Или я чего не понимаю ?

 Отправлено: 20.08.13 01:15. Заголовок: Вот что нашел тут: h..

Вот что нашел тут: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365534(v=vs.85).aspx

8-bit console apps using the OEM codepage

Note: If you are writing/porting an 8-bit console application, in addition to calling SetFileApisToOem() you should also call setlocale(LC_ALL, ".OCP") followed by _setmbcp(_MB_CP_LOCALE).

Может этих двух вызовов и не хватает?

 Отправлено: 20.08.13 09:48. Заголовок: Помогите плиз... :s..

Помогите плиз...

 Отправлено: 20.08.13 11:04. Заголовок: XP SP2 Текст в DOS к..

XP SP2
Текст в DOS кодировке (набирался в FAR)
Harbour 3.2.0dev (Rev. 18899)

 
 FUNC Main() 
  
 REQUEST HB_LANG_RU866 
 REQUEST HB_CODEPAGE_RU866 
 HB_LANGSELECT("RU866") 
 HB_CDPSELECT("RU866") 
  
 fclose(fcreate("текст.!")) 
 ? File("текст.!") // .T. 
  
 RUN("@echo -- Привет --") // и тут все норм на экране 
  
 QUIT 
  
 RETURN  
 

 Отправлено: 20.08.13 11:18. Заголовок: Dima пишет: Harbour..

Dima пишет:

цитата:

Harbour 3.2.0dev

я бился и так и эдак - походу дело в версии Harbour. Нужно пробовать 3.2 вместо 3.0.

Подскажите плиз - с чего начать. Там так понимаю, все идет в исходниках, нужно саму систему сначала скомпилить...

 Отправлено: 20.08.13 11:29. Заголовок: Sergy Сливай , расп..

Sergy
Сливай , распаковывай и собирай
http://github.com/harbour/core/archive/master.zip

 Отправлено: 20.08.13 13:05. Заголовок: Sergy пишет: Помоги..

Sergy пишет:

цитата:

Помогите плиз...

Действительно, необходимо использовать Harbour 3.2
Это уникодная сборка, а 3.0 - еще не уникодная. 3.2 преобразует имена файлов в UNICODE, и проблем с именами не возникнет, если указана cp866
Вызов SetFileApis в этом случае не нужен.

 Отправлено: 20.08.13 16:35. Заголовок: Pasha пишет: Действ..

Pasha пишет:

цитата:

Действительно, необходимо использовать Harbour 3.2 Это уникодная сборка, а 3.0 - еще не уникодная. 3.2 преобразует имена файлов в UNICODE, и проблем с именами не возникнет, если указана cp866 Вызов SetFileApis в этом случае не нужен.

Все заработало как нужно.

Правда EXE стал вместо 2,5 мегов почти 4 - но кого это сегодня заботит...

Уважаемые старожилы - предупреждайте новичков о таких вилах, спрятанных в стоге сена по названием Harbour 3.0.

Спасибо за поддержку и помощь.

 Отправлено: 20.08.13 16:37. Заголовок: Dima пишет: Сливай ..

Dima пишет:

цитата:

Сливай , распаковывай и собирай http://github.com/harbour/core/archive/master.zip

Видимо "мой кунг-фу недостаточно хорош..." (с) Слил отсюда: https://github.com/harbour/core готовый EXE для Windows - все запустилось.
Какие отрицательные последствия от такого упрощенного шага?
Девелопер Харбора из меня вряд-ли пока получится...

 Отправлено: 20.08.13 16:37. Заголовок: Sergy пишет: Правда..

Sergy пишет:

цитата:

Правда EXE стал вместо 2,5 мегов почти 4

А ты его сожми UPX
В файле проекта пропиши
-compr=max

 Отправлено: 20.08.13 16:54. Заголовок: Dima пишет: А ты ег..

Dima пишет:

цитата:

А ты его сожми UPX В файле проекта пропиши -compr=max

да, тоже мысль.

Кстати, или мне чудится на радостях после вчерашней бессонной ночи, или этот EXE стал ЕЩЕ ШУСТРЕЕ (компилер и комп разумеется те-же самые, что и вчера) ?
Такое возможно ?

 Отправлено: 20.08.13 23:40. Заголовок: Dima пишет: А ты ег..

Dima пишет:

цитата:

А ты его сожми UPX В файле проекта пропиши -compr=max

Попробовал.
Так, для общей инфы: В файле ресурса есть пяток иконок (кому какие понравятся, на выбор взамен старой). Система их не видит в сжатом EXE. Т.е. в диалоге ярлыка "сменить иконку" только один вариант - тот, что был первым в списке.

 Отправлено: 21.08.13 08:57. Заголовок: Sergy пишет: Так, д..

Sergy пишет:

цитата:

Так, для общей инфы: В файле ресурса есть пяток иконок (кому какие понравятся, на выбор взамен старой). Система их не видит в сжатом EXE. Т.е. в диалоге ярлыка "сменить иконку" только один вариант - тот, что был первым в списке.

Так вот он в чем косяк оказывается. Это ответ на мой вопрос тут http://clipper.borda.ru/?1-4-0-00000881-000-0-0-1375200620

 Отправлено: 21.08.13 09:37. Заголовок: Dima пишет: Так вот..

Dima пишет:

цитата:

Так вот он в чем косяк оказывается. Это ответ на мой вопрос тут http://clipper.borda.ru/?1-4-0-00000881-000-0-0-1375200620

Наверняка.
Можно будет попробовать другие уровни сжатия - может быть при каком-то из них (не -max) ресурсы будут доступны извне программы.

 Отправлено: 21.08.13 09:45. Заголовок: Sergy пишет: Можно ..

Sergy пишет:

цитата:

Можно будет попробовать другие уровни сжатия

Уже. Результат тот же.
Вот и думаю теперь а есть ли смысл паковать EXE. В чистом виде весит 7.3 метра , в упакованном 2.2 метра и
запускается по сети.

 Отправлено: 21.08.13 12:09. Заголовок: а запуск "по сет..

а запуск "по сети" у кого быстрее - у упакованного или у обычного ?
если разницы нет - какой тогда смысл паковки ?

И еще: при запуске "по сети" что показывает EXEPATH() ?

 Отправлено: 21.08.13 12:16. Заголовок: Если так беспокоит р..

Если так беспокоит размер exe, то почему бы не использовать сборку с harbour*.dll ?
exe сразу же станут фантастически маленькими.

 Отправлено: 21.08.13 12:37. Заголовок: Pasha пишет: почему..

Pasha пишет:

цитата:

почему бы не использовать сборку с harbour*.dll ?

Это опция hbmk2 ?

 Отправлено: 21.08.13 12:42. Заголовок: Dima пишет: Это опц..

Dima пишет:

цитата:

Это опция hbmk2 ?

Да, опция -shared

Можно использовать не только harbour*.dll, а и прочие библиотеки как dll, но это уже надо указывать ручками:

заменить

-lhbct

на

-lhbct-bcc

и так далее

Конечно, в целом программа меньше не станет. С учетом dll она станет больше. Но зато обновлять ее будет не в пример удобнее.

 Отправлено: 21.08.13 12:46. Заголовок: Pasha Спасибо !..

Pasha
Спасибо !

 Отправлено: 22.08.13 11:49. Заголовок: Возник вопрос: при в..

Возник вопрос: при включенной русской раскладке "точка" на цифровой клавиатуре неожиданно стала "запятой".
Мне понятно, что это по дефолту установлено в винде, но юзеры бесятся.

Есть ли красивый выход из этой ситуции ?

 Отправлено: 22.08.13 13:27. Заголовок: Sergy пишет: Возник..

Sergy пишет:

цитата:

Возник вопрос: при включенной русской раскладке "точка" на цифровой клавиатуре неожиданно стала "запятой".

Точно ,есть такой косяк.

 Отправлено: 22.08.13 15:09. Заголовок: Dima пишет: Точно ,..

Dima пишет:

цитата:

Точно ,есть такой косяк.

Пока в первом приближении такая мысль:
поставить SETKEY() на "запятую" и анализировать текущее GET-поле.
Если его тип равен N - посылать в буфер клавиатуры CHR(8) и "точку"

 Отправлено: 22.08.13 15:12. Заголовок: Sergy Это не первый..

Sergy
Это не первый косяк такого рода в этом терминале и если не ошибаюсь в прошлый раз косяк исправил Павел.

 Отправлено: 22.08.13 15:14. Заголовок: Dima пишет: Это не ..

Dima пишет:

цитата:

Это не первый косяк такого рода в этом терминале и если не ошибаюсь в прошлый раз косяк исправил Павел.

Дабы дважды не наступать на одни и те-же грабли - подскажи плиз - что за косяк и какое решение ?
Спасибо.