On-line:гостей 2. Всего: 2 [подробнее..]
АвторСообщение
постоянный участник




Пост N:4596
Зарегистрирован:12.09.06
ссылка на сообщение  Отправлено:05.12.15 13:58.Заголовок:xHarbour -> Harbour


Всем привет!

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


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

Спасибо: 0 
ПрофильЦитата Ответить
Ответов -16 [только новые]


администратор




Пост 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->


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост 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



Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N:5392
Зарегистрирован:17.05.05
ссылка на сообщение  Отправлено:05.12.15 14:23.Заголовок:Andrey пишет: defau..


Andrey пишет:

 цитата:
default


попробуй OTHERWISE

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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост 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 записей.




Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




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


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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N:4623
Зарегистрирован:12.09.06
ссылка на сообщение  Отправлено:17.12.15 20:47.Заголовок:Разобрался... Нужно ..


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

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N:5417
Зарегистрирован:17.05.05
ссылка на сообщение  Отправлено:17.12.15 22:38.Заголовок:Andrey пишет: Блин,..


Andrey пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить





Пост 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

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


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N:1434
Зарегистрирован:09.10.06
ссылка на сообщение  Отправлено:24.03.17 11:37.Заголовок:rvu пишет: Теперь д..


rvu пишет:

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


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

Спасибо: 1 
ПрофильЦитата Ответить
постоянный участник




Пост 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) ?

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост 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


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост 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


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N:6792
Зарегистрирован:17.05.05
ссылка на сообщение  Отправлено:30.03.18 16:14.Заголовок:Andrey пишет: FUNCT..


Andrey пишет:

 цитата:
FUNCTION GetUserTempFolder()


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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N:5801
Зарегистрирован:12.09.06
ссылка на сообщение  Отправлено:30.03.18 20:54.Заголовок:Dima пишет: А зачем..


Dima пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N:6794
Зарегистрирован:17.05.05
ссылка на сообщение  Отправлено:30.03.18 21:48.Заголовок:Andrey пишет: Да я ..


Andrey пишет:

 цитата:
Да я его для хХарбора делаю !


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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N:5803
Зарегистрирован:12.09.06
ссылка на сообщение  Отправлено:31.03.18 10:35.Заголовок:Dima пишет: Не прощ..


Dima пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
-участник сейчас на форуме
-участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 495
Права: смайлыда,картинкида,шрифтыда,голосованиянет
аватарыда,автозамена ссылоквкл,премодерацияоткл,правканет