Автор | Сообщение |
|
| постоянный участник
|
Пост N: 4596
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.15 13:58. Заголовок: xHarbour -> Harbour
Всем привет! Имею конструкцию в проге на хХарборе: try // catch // end // try Как перевести в Харбор ?
|
|
|
Новых ответов нет
[см. все]
|
|
|
| |
Пост N: 5391
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.15 14:03. Заголовок: #xcommand TRY =..
#xcommand TRY => BEGIN SEQUENCE WITH {|e| Break( e )} #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
|
|
|
|
| постоянный участник
|
Пост N: 4597
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.15 14:09. Заголовок: Спасибо Dima ! :sm3..
Спасибо Dima ! А вот ещё такую конструкцию: switch nCode case ER_NO_ERROR case ER_FILE_NOT_FOUND exit default // <-- на эту строку ругается компилятор ! return "код ошибки " + str( nCode ) end // switch
|
|
|
|
| |
Пост N: 5392
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.15 14:23. Заголовок: Andrey пишет: defau..
Andrey пишет: попробуй OTHERWISE а вообще смотри xhb-diff.txt в папке doc
|
|
|
|
| постоянный участник
|
Пост N: 4620
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.12.15 20:33. Заголовок: Ни кто не сталкивалс..
Ни кто не сталкивался с проблемой индексация на последнем Харборе ? У меня есть терминалка. База 866 кодировка, экран тоже. хХарбор 1.2.3 Открываю базу в 866 Делаю условную индексацию по ключу: 'ОТКАЗ' $ UPPER(PRIM).AND.!Deleted() находит 3567 записей МиниГуи - последний Харбор, Окна в кодировке WIN, та же база в 866 кодировке. Открываю базу в 866 Делаю условную индексацию по ключу: 'ОТКАЗ' $ UPPER(PRIM).AND.!Deleted() находит 0 записей.
|
|
|
|
| постоянный участник
|
Пост N: 4622
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.12.15 20:42. Заголовок: Блин, сбоит Мозила, ..
Блин, сбоит Мозила, выдавала ошибку при передачи, а сама нафигачила...
|
|
|
|
| постоянный участник
|
Пост N: 4623
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.12.15 20:47. Заголовок: Разобрался... Нужно ..
Разобрался... Нужно перед передачей строку поиска менять функцией HB_ANSItoOEM(), тогда ищет...
|
|
|
|
| |
Пост N: 5417
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.12.15 22:38. Заголовок: Andrey пишет: Блин,..
Andrey пишет: цитата: | Блин, сбоит Мозила, выдавала ошибку при передачи, а сама нафигачила... |
| Да не только у тебя нафигачила А я чистил потом за всеми в том числе за собой :)
|
|
|
|
| |
Пост N: 89
Зарегистрирован: 05.11.05
|
|
Отправлено: 24.03.17 11:20. Заголовок: Взял свою программу,..
Взял свою программу, написанную на xHarbour 1.0.0, прогнал на Харборе с hbmk2, получил такой списочек в ошибках: DIRNAME DIRMAKE NTOC DISKFREE CHECKSUM GETDEFAULTPRINTER WIN32PRN TOLEAUTO CSETCURS COLORWIN SHOWTIME KEYSEC SETDATE SETTIME CENTER ISLEAP TIMETOSEC SECTOTIME FILEMOVE KSETINS Теперь думаю, что с этим делать...
|
|
|
|
| постоянный участник
|
Пост N: 1434
Зарегистрирован: 09.10.06
|
|
Отправлено: 24.03.17 11:37. Заголовок: rvu пишет: Теперь д..
rvu пишет: цитата: | Теперь думаю, что с этим делать... |
| Подключить библиотеки xhb и hbct
|
|
|
|
| постоянный участник
|
Пост N: 5796
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.03.18 19:34. Заголовок: Имею на хХарборе вре..
Имею на хХарборе временную папку для юзера: ? cDirTemp := C_getspecialfolder(0x0028)+"\Local Settings\Temp\МояПрога" cDirTemp := HB_ANSITOOEM(cDirTemp) // перевести в ОЕМ-кодировку Эти путь - X:\Documents and Settings\ЮЗЕР???\Local Settings\Temp Давно уже делал... Сейчас потребовалось привести как в Харборе на МиниГуи для функции GetUserTempFolder() Эти путь - X:\Users\ЮЗЕР???\AppData\Local\Temp Как это сделать ? Какое значение применить вместо C_getspecialfolder( 0x0028) ?
|
|
|
|
| постоянный участник
|
Пост N: 5797
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.03.18 23:53. Заголовок: Сделал портирование ..
Сделал портирование функции из МиниГуи, но не могу доделать до конца. Вот код: FUNCTION GetUserTempFolder() LOCAL cPath if OS_ISWINVISTA_OR_LATER() // IsVistaOrLater() cPath := GetUserProfileFolder() + "\AppData\Local\Temp" else cPath := cFilePath( GetTempDir() ) endif RETURN cPath *-----------------------------------------------------------------------------* FUNCTION cFilePath( cPathMask ) *-----------------------------------------------------------------------------* LOCAL cPath hb_FNameSplit( cPathMask, @cPath ) RETURN Left( cPath, Len( cPath ) - 1 ) ****************************************************** #define CSIDL_PROFILE 0x0028 // USERPROFILE FUNCTION GetUserProfileFolder() RETURN C_GETSPECIALFOLDER( CSIDL_PROFILE ) Не получается сделать функцию (что-то не то выдаёт) : #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" HB_FUNC( GETTEMPDIR ) { char szBuffer[ MAX_PATH + 1 ] = { 0 }; GetTempPath( MAX_PATH, szBuffer ); hb_retc( szBuffer ); } #pragma ENDDUMP
|
|
|
|
|
| постоянный участник
|
Пост N: 5799
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.03.18 14:50. Заголовок: Сделал проще... Толь..
Сделал проще... Только не знаю, правильно ли или нет .... FUNCTION GetUserTempFolder() LOCAL cPath if OS_ISWINVISTA_OR_LATER() // IsVistaOrLater() cPath := GetUserProfileFolder() + "\AppData\Local\Temp" else cPath := GetUserProfileFolder() + "\Local Settings\Temp" endif RETURN cPath
|
|
|
|
| |
Пост N: 6792
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.03.18 16:14. Заголовок: Andrey пишет: FUNCT..
Andrey пишет: цитата: | FUNCTION GetUserTempFolder() |
| А зачем если она уже есть в i_pseudofunc.ch ?
|
|
|
|
| постоянный участник
|
Пост N: 5801
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.03.18 20:54. Заголовок: Dima пишет: А зачем..
Dima пишет: цитата: | А зачем если она уже есть в i_pseudofunc.ch ? |
| Да я его для хХарбора делаю ! Не нашёл в хХарборе такой же функции.
|
|
|
|
| |
Пост N: 6794
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.03.18 21:48. Заголовок: Andrey пишет: Да я ..
Andrey пишет: цитата: | Да я его для хХарбора делаю ! |
| Не проще ли привести все свои задачи к какому то одному языку и не выносить себе мозг ? Я бы выбрал Harbour. И потом если ты юзаешь связку Minigui + Harbour и Minigui + XHarbour в других задачах , то я думаю в Minigui это учтено. Или мы говорим о задаче без Minigui ?
|
|
|
|
| постоянный участник
|
Пост N: 5803
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.18 10:35. Заголовок: Dima пишет: Не прощ..
Dima пишет: цитата: | Не проще ли привести все свои задачи к какому то одному языку и не выносить себе мозг ? Я бы выбрал Harbour. |
| Это конечно было бы лучше. Но нет времени перевести терминалку с хХарбора на Харбор. Очень плотно занят переносом задачи на МиниГуи. Хочу избавиться от терминалки. Юзера не хотят, уж очень шустро терминалка работает по сравнению чем новая программа на МиниГуи. Компы на ХР всё таки слабо подходят для МиниГуи, да и сами компы оставляют желать лучшего. Так и приходиться пока приводить в соответствие выборочно некоторые функции для хХарбора.
|
|
|
|