Автор | Сообщение |
Andrey
|
| постоянный участник
|
Пост N: 1929
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)
Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах) Предложение Григорию: Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ? Пример: \MiniGUI\SAMPLES\Advanced\Tsb_filter - вылетает на ХР -------------------------------------------------------------------------------- Harbour MiniGUI Errorlog File Harbour MiniGUI Extended Edition 2.0.1 - 2011.09.21 -------------------------------------------------------------------------------- Date: 11/15/2011 Time: 22:13:24 Error BASE/1124 Argument error: LEFT Called from LEFT(0) Called from SCANSOFT(195) Called from MAIN(84) Пример: \MiniGUI\SAMPLES\BASIC\MsgEdit - не собирается... Z:\MiniGUI\SAMPLES\BASIC\MsgEdit>call ..\..\..\batch\compile.bat demo /L shell32 Harbour 3.1.0dev (Rev. 17042) Copyright (c) 1999-2011, http://harbour-project.org/ Compiling 'demo.prg'... Lines 20133, Functions/Procedures 30 Generating C source output to 'demo.c'... Done. Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland demo.c: Error E2141 demo.prg 993: Declaration syntax error *** 1 errors in Compile *** C compile error.
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
SergKis
|
| постоянный участник
|
Пост N: 559
Зарегистрирован: 17.02.12
|
|
Отправлено: 08.04.15 08:58. Заголовок: Andrey пишет:Только ..
Andrey пишет: цитата: | Только для 866 кодировки нужно ставить так |
| где нибудь с этим могут быть проблемы. лучше: <html><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title>Create dokuments</title> ... и кодировать вывод в utf8. Ты же не любишь модули на Run, почему не сделал для вывода текста окно MiniGui с EditBox или RichEditBox с disable := .T. ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4104
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.04.15 11:24. Заголовок: SergKis пишет: Ты ж..
SergKis пишет: цитата: | Ты же не любишь модули на Run, почему не сделал для вывода текста окно MiniGui с EditBox или RichEditBox с disable := .T. ? |
| Да хотел обойтись Notepad'ом, а потом посыпались предложения... Вот пока выбираю.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 571
Зарегистрирован: 17.02.12
|
|
Отправлено: 10.04.15 14:11. Заголовок: Andrey пишет: Вот по..
Andrey пишет: Если планируешь, получать таблички и т.д. в html, а не только тэг pre, то глянь пример SAMPLES\Advanced\ActiveX
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4108
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.04.15 16:29. Заголовок: Всем привет ! Возвра..
Всем привет ! Возвращаюсь опять к ранее заданному вопросу: В терминалке на хХарборе использую базы в 866 кодировке. Символы CHR(250)-CHR(253) пишутся в текстовые поля базы нормально ! Пытаюсь то же самое сделать под МиниГуи не выходит, коды другие: Как записать в поле базы символы CHR(250) или CHR(251) или CHR(253) ? Так и не смог сделать.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 594
Зарегистрирован: 17.02.12
|
|
Отправлено: 17.04.15 17:20. Заголовок: Andrey пишет:Так и н..
Andrey пишет: а кодовая страница установлена 866 ? работаю с LV866 - chr(251), chr(254) точно нормальные, другие не пользую может у тебя 1251 - смотри в фонте, что на этих местах а в базу и utf8 прекрасно пишутся.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4109
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.04.15 17:38. Заголовок: SergKis пишет: а ко..
SergKis пишет: цитата: | а кодовая страница установлена 866 ? |
| Экран - 1251, а база открыта 866 !
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 595
Зарегистрирован: 17.02.12
|
|
Отправлено: 17.04.15 18:01. Заголовок: т.е. у тебя раскладк..
т.е. у тебя раскладка 1251, dbf 866. ansitooem() может надо применить при записи
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4110
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.04.15 18:49. Заголовок: Делаю так: U..
Делаю так: USE ( cPath+cDatabase ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW // сетевой захват записи IF RecLock( LOCK_RETRY ) cVal := CHR(250)+CHR(251)+CHR(252)+CHR(253) cVal := HB_ANSITOOEM(cVal) FIELDPUT(2,cVal) DBUnlock() DBCOMMIT() ENDIF В поле записывается: "клмн" Если убрать HB_ANSITOOEM(cVal), то записывается: "ъыьэ"
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 596
Зарегистрирован: 17.02.12
|
|
Отправлено: 17.04.15 19:40. Заголовок: Andrey пишет:Если уб..
Andrey пишет: а если поставить страницу 866 FieldPut(..., chr(251)) поставить страницу 1251
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 597
Зарегистрирован: 17.02.12
|
|
Отправлено: 17.04.15 19:44. Заголовок: PS. в твоем варианте..
PS. в твоем варианте на месте 250, 251,... стоят буквы, получемые по ansitooem, найди в 1251 нужные (если они есть) и попробуй сделать от них
|
|
|
Softlog86
|
| |
Пост N: 231
Зарегистрирован: 03.12.08
|
|
Отправлено: 17.04.15 22:19. Заголовок: Вопросик : в контро..
Вопросик : в контроле PROGRESSBAR ограничение максимального значения в 65535 .... Нафига вообще было ограничивать ??? Я часто сканирую базы с большим числом записей и крайне неудобно использовать алгоритмы пересчета чтоб войти в эти самые 65 тыщ ...... Кто как решает таое неудобство ?
|
|
|
|
petr707
|
| |
Пост N: 131
Зарегистрирован: 21.04.13
|
|
Отправлено: 17.04.15 22:39. Заголовок: Andrey пишет:делаю так..
FIELDPUT(2,cVal) DBUnlock() DBCOMMIT() Вроде лучше так.. FIELDPUT(2,cVal) DBCOMMIT() DBUnlock()
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4111
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.04.15 03:52. Заголовок: SergKis пишет: в тв..
SergKis пишет: цитата: | в твоем варианте на месте 250, 251,... стоят буквы, получемые по ansitooem, найди в 1251 нужные (если они есть) и попробуй сделать от них |
| Вот есть шестнадцатеричные коды Unicode (1251): ° - 00B0, ∙ - 2219, · - 00B7, √ - 221A, № - 2116, ¤ - 00A4 Как их вывести ? Может вопрос и тупой, но что-то я никак не соображу...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 599
Зарегистрирован: 17.02.12
|
|
Отправлено: 18.04.15 09:42. Заголовок: Andrey будет работа..
Andrey будет работать: на входе ставь страницу 866 gC866() // инициализация ставь страницу 1251 и работай, где надо вызывай gC866(251)+gc866(254) ... Func gC866( nChar866 ) Local cChar866 := '' STATIC aChar866 IF aChar866 == NIL aChar866 := array(255) aEval(aChar866, {|x,n| aChar866[ n ] := chr(n) }) ENDIF IF hb_IsNumeric(nChar866) .and. nChar866 > 0 .and. nChar866 < 256 cChar866 := aChar866[ nChar866 ] ENDIF Return cChar866
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4112
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.04.15 12:43. Заголовок: Andrey пишет: будет..
Andrey пишет: Не а, не работает - " ъыьэ" ....
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4113
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.04.15 13:00. Заголовок: Для чего это ОЧЕНЬ н..
Для чего это ОЧЕНЬ нужно: 1) чтобы при сортировке записи были в конце списка 2) визуальное отображение по SET RELATION Это терминалка хХарбор: Это на МиниГуи:
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 601
Зарегистрирован: 17.02.12
|
|
Отправлено: 18.04.15 13:11. Заголовок: Andrey пишет:Не а, н..
Andrey пишет: сделай hb_memowrit('_0.txt', gc866(251)+gc866(254)) - будут в файле символы 866 вмешивается перекодировка при записи в dbf убери указание страницы у dbf - тоже должно быть ok с этими символами
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4114
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.04.15 13:15. Заголовок: SergKis пишет: вмеш..
SergKis пишет: цитата: | вмешивается перекодировка при записи в dbf убери указание страницы у dbf - тоже должно быть ok с этими символами |
| Блин, так просто....
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4115
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.04.15 13:33. Заголовок: Ура, заработало !!! ..
Ура, заработало !!! SergKis СПАСИБО БОЛЬШОЕ !!!
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4118
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.04.15 23:58. Заголовок: Сделал небольшую про..
Сделал небольшую программу, ввод пароля. Работает нормально. Беру переношу в свой большой проект, компиляция НЕ ИДЕТ вообще. Выдает такую ошибку: Harbour 3.2.0dev (r1503131756) Copyright (c) 1999-2015, http://harbour-project.org/ Source\form_LoginPassw.prg(82) Error E0030 Syntax error "syntax error at '@'" Source\form_LoginPassw.prg(90) Error E0030 Syntax error "syntax error at '@'" 2 errors No code generated. Что за фигня такая ? Стоки 82 и 90: @ 245,155 BUTTONEX BUTTON_Ok WIDTH 90 HEIGHT 32 ; CAPTION "Ввод" ; FONTCOLOR aButtColor ; BACKCOLOR LGREEN ; SIZE nFBSize BOLD ; NOHOTLIGHT NOXPSTYLE HANDCURSOR ; ACTION {|| nRet := 0, cUserName := cLogin, cPassword := cPswd, ; ThisWindow.Release } @ 245,255 BUTTONEX BUTTON_Cancel WIDTH 90 HEIGHT 32 ; CAPTION "Отмена" ; FONTCOLOR aButtColor ; BACKCOLOR MAROON ; SIZE nFBSize BOLD ; NOHOTLIGHT NOXPSTYLE HANDCURSOR ; ACTION {|| nRet := -1, ThisWindow.Release } И в обычные скобки ставил () и в одну строчку делал: ACTION { || nRet := 0, cUserName := cLogin, cPassword := cPswd, domethod("Form_LoginPass", "Release") } и модуль в проекте сдвигал, ни чего не помогает. А в маленьком проекте (6 файлов) всё нормально собирается и работает ! Помогите понять в чем дело ....
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|