| Автор | Сообщение |
|
Andrey
|
| постоянный участник
|
Пост N: 1929
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)
Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах) Предложение Григорию: Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ? 
Пример: \MiniGUI\SAMPLES\Advanced\DisplayMode - не работает под ХР и далее....  Пример: \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
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума