Автор | Сообщение |
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
[только новые]
|
|
Vlad04
|
| постоянный участник
|
Пост N: 819
Зарегистрирован: 13.10.05
|
|
Отправлено: 24.03.19 20:28. Заголовок: Можно записать в фай..
цитата: | Можно записать в файл, а дальше как печатать этот файл ? |
| Я открываю файл в AkelPad ( у него есть все средства для масштабирования, ориентации ) и печатаю.
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 820
Зарегистрирован: 13.10.05
|
|
Отправлено: 24.03.19 20:34. Заголовок: Кодировка ru1251..
Кодировка ru1251
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6207
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.03.19 20:47. Заголовок: У юзера может не уст..
У юзера может не установлен AkelPad и ставить каждому клиенту занятие неблагодарное. Нужно свой компонент для простой печати и просмотра текстовых файлов.
|
|
|
nick_mi
|
| |
Пост N: 213
Зарегистрирован: 19.05.05
|
|
Отправлено: 24.03.19 22:27. Заголовок: Так у Harbour'а ..
Так у Harbour'а есть средства печати : * Печать из HARBOUR на Windows принтере, который не выводит текстовые * данные напрямую oprn := win_prn():new(GetDefaultPrinter()) oprn:create() oprn:topmargin := 40 oprn:bottommargin := oprn:PageHeight - oprn:topmargin -10 oprn:startdoc() oprn:NewLine() lin_page := 1 for iikk :=1 to 120 oprn:textout (" Печать на принтер"+ str(iikk,32) , .T.) lin_page := lin_page + 1 if lin_page >= oprn:maxrow() lin_page := 1 oprn:EndPage(.T.) oprn:NewLine() endif next oprn:enddoc() Еще много лет назад записал себе в программу для подсказки, чтоб не рыться в документации
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6208
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.03.19 22:35. Заголовок: nick_mi пишет: Так ..
nick_mi пишет: цитата: | Так у Harbour'а есть средства печати |
| Вопрос был - свою простую печать из МиниГуи ? Вот нашёл короткий пример - MiniGUI\SAMPLES\Advanced\PrintRAW\PrintRAW.exe Но он что-то не работает...
|
|
|
Dima
|
| |
Пост N: 7029
Зарегистрирован: 17.05.05
|
|
Отправлено: 24.03.19 23:09. Заголовок: Andrey пишет: Вопро..
Andrey пишет: цитата: | Вопрос был - свою простую печать из МиниГуи ? |
| Скорее из Harbour чем из Минигуи
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2289
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.03.19 09:37. Заголовок: Dima пишет Скорее из..
Dima пишет цитата: | Скорее из Harbour чем из Минигуи |
| Дима, что не так при печати простенькой из MiniGui ? Плотно не занимался, но примеры даже с preview есть. Вот BASIC\PRINT\demo.prg - простенький вывод по листам с preview.
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 821
Зарегистрирован: 13.10.05
|
|
Отправлено: 25.03.19 10:22. Заголовок: Andrey У юзера може..
Andrey цитата: | У юзера может не установлен AkelPad |
| Сразу AkelPad включаю в состав комплекта программы. А в программе настроены горячие клавиши, кнопочки для открытия в редакторе выгруженного файла. Так что, никаких проблем.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2290
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.03.19 13:07. Заголовок: Vlad04 пишет Сразу A..
Vlad04 пишет цитата: | Сразу AkelPad включаю в состав комплекта программы. |
| Сам использую AkelPad в работе, а для клиентов, ставим (с программами) Notepad2.exe (аналог win notepad, только получше). Клиенты воспринимаюn notepad2.exe легче, чем AkelPad Есть версии 32, 64 ось.
|
|
|
nick_mi
|
| |
Пост N: 214
Зарегистрирован: 19.05.05
|
|
Отправлено: 25.03.19 13:29. Заголовок: Andrey пишет: Вопро..
Andrey пишет: цитата: | Вопрос был - свою простую печать из МиниГуи ? |
| Указанная простенькая печать (oprn := win_prn():new(GetDefaultPrinter()) ) работает в том числе и из программы, написанной на HARBOUR c использованием MINIGUI.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2291
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.03.19 13:47. Заголовок: nick_mi пишет Указан..
nick_mi пишет цитата: | Указанная простенькая печать (oprn := win_prn():new(GetDefaultPrinter()) ) работает в том числе и из программы, написанной на HARBOUR c использованием MINIGUI. |
| похоже miniprint в hmg сделан на win_prn(), сужу только по одинаково названным методам, только + preview
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6209
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.03.19 13:56. Заголовок: Понял. Но нашёл врод..
Понял. Но нашёл вроде ещё простое решение и пилить ничего не надо MiniGUI\SAMPLES\Advanced\PrintRAW Но что-то не работает пример PRINTRAW.exe Запускается нормально создаётся файл __testFile.txt - пустой !!! Ещё создаётся файл _MsgLog.txt с нужной страницей печати. Печати нет. Беру и явно в проге меняю: //WinPrintRaw(cPrinter, TESTFILE, "Test Print Job") cFILE := GetStartUpFolder() + "\_MsgLog.txt" WinPrintRaw(cPrinter, cFILE, "Test-Print-Job") Всё равно принтер молчит... Почему ? Где ошибка ? Может не у всех работает ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2292
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.03.19 15:22. Заголовок: Andrey У тебя стоит..
Andrey У тебя стоит, наверно, где то #define _HMG_OUTLOG потому _msglog.txt образовался. У меня сработал пример ок.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6210
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.03.19 18:06. Заголовок: SergKis пишет: У ме..
SergKis пишет: цитата: | У меня сработал пример ок. |
| Сразу на печать лист ушёл ? Принтер лазерник ? Так я тоже делаю сразу печать WinPrintRaw(cPrinter, cFILE, "Test-Print-Job") - не идёт...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2293
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.03.19 18:14. Заголовок: Andrey Под рукой пр..
Andrey Под рукой принтера нет, но задание для принтера в очередь получил.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2294
Зарегистрирован: 17.02.12
|
|
Отправлено: 25.03.19 18:51. Заголовок: Andrey Пробнули на ..
Andrey Пробнули на 2х др. pc с принтерами на wifi, как и у тебя полный ноль - нет ни очереди, ничего
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6211
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.03.19 20:18. Заголовок: Подскажите пожалуйст..
Подскажите пожалуйста - Как определить в какой кодировке файл/строка ? Вроде писалось на форуме об этом, никак не могу найти.
|
|
|
Dima
|
| |
Пост N: 7030
Зарегистрирован: 17.05.05
|
|
Отправлено: 25.03.19 21:48. Заголовок: Andrey пишет: Вроде..
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6212
Зарегистрирован: 12.09.06
|
|
Отправлено: 26.03.19 00:39. Заголовок: Dima пишет: Нашел з..
Dima пишет: Спасибо Дима.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1477
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.03.19 11:09. Заголовок: SergKis пишет: как ..
SergKis пишет: цитата: | как и у тебя полный ноль - нет ни очереди, ничего |
| Для печати с использованием функции WinPrintRaw() требуется принтер, который поддерживает такой тип печати. По-видимому, современные принтеры уже не имеют этой возможности Поэтому рекомендую посмотреть универсальный пример печати текстового файла, который находится в папке samplrs\Basic\MiniPrint_3
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|