Отправлено: 05.12.15 13:58. Заголовок: xHarbour -> Harbour

Всем привет!

Имею конструкцию в проге на хХарборе:
try
//
catch
//
end // try

Как перевести в Харбор ?

 Отправлено: 05.12.15 14:03. Заголовок: #xcommand TRY =..

#xcommand TRY => BEGIN SEQUENCE WITH {|e| Break( e )}
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->

 Отправлено: 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

 Отправлено: 05.12.15 14:23. Заголовок: Andrey пишет: defau..

Andrey пишет:

цитата:

default

попробуй OTHERWISE

а вообще смотри xhb-diff.txt в папке doc

 Отправлено: 17.12.15 20:33. Заголовок: Ни кто не сталкивалс..

Ни кто не сталкивался с проблемой индексация на последнем Харборе ?

У меня есть терминалка. База 866 кодировка, экран тоже. хХарбор 1.2.3
Открываю базу в 866
Делаю условную индексацию по ключу: 'ОТКАЗ' $ UPPER(PRIM).AND.!Deleted() находит 3567 записей

МиниГуи - последний Харбор, Окна в кодировке WIN, та же база в 866 кодировке.
Открываю базу в 866
Делаю условную индексацию по ключу: 'ОТКАЗ' $ UPPER(PRIM).AND.!Deleted() находит 0 записей.

 Отправлено: 17.12.15 20:42. Заголовок: Блин, сбоит Мозила, ..

Блин, сбоит Мозила, выдавала ошибку при передачи, а сама нафигачила...

 Отправлено: 17.12.15 20:47. Заголовок: Разобрался... Нужно ..

Разобрался...
Нужно перед передачей строку поиска менять функцией HB_ANSItoOEM(), тогда ищет...

 Отправлено: 17.12.15 22:38. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, сбоит Мозила, выдавала ошибку при передачи, а сама нафигачила...

Да не только у тебя нафигачила
А я чистил потом за всеми в том числе за собой :)

 Отправлено: 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

Теперь думаю, что с этим делать...

 Отправлено: 24.03.17 11:37. Заголовок: rvu пишет: Теперь д..

rvu пишет:

цитата:

Теперь думаю, что с этим делать...

Подключить библиотеки xhb и hbct

 Отправлено: 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) ?

 Отправлено: 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 

 Отправлено: 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

 Отправлено: 30.03.18 16:14. Заголовок: Andrey пишет: FUNCT..

Andrey пишет:

цитата:

FUNCTION GetUserTempFolder()

А зачем если она уже есть в i_pseudofunc.ch ?

 Отправлено: 30.03.18 20:54. Заголовок: Dima пишет: А зачем..

Dima пишет:

цитата:

А зачем если она уже есть в i_pseudofunc.ch ?

Да я его для хХарбора делаю ! Не нашёл в хХарборе такой же функции.

 Отправлено: 30.03.18 21:48. Заголовок: Andrey пишет: Да я ..

Andrey пишет:

цитата:

Да я его для хХарбора делаю !

Не проще ли привести все свои задачи к какому то одному языку и не выносить себе мозг ?
Я бы выбрал Harbour.
И потом если ты юзаешь связку Minigui + Harbour и Minigui + XHarbour в других задачах ,
то я думаю в Minigui это учтено.
Или мы говорим о задаче без Minigui ?

 Отправлено: 31.03.18 10:35. Заголовок: Dima пишет: Не прощ..

Dima пишет:

цитата:

Не проще ли привести все свои задачи к какому то одному языку и не выносить себе мозг ? Я бы выбрал Harbour.

Это конечно было бы лучше. Но нет времени перевести терминалку с хХарбора на Харбор.
Очень плотно занят переносом задачи на МиниГуи. Хочу избавиться от терминалки.
Юзера не хотят, уж очень шустро терминалка работает по сравнению чем новая программа на МиниГуи.
Компы на ХР всё таки слабо подходят для МиниГуи, да и сами компы оставляют желать лучшего.
Так и приходиться пока приводить в соответствие выборочно некоторые функции для хХарбора.