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

 Отправлено: 24.03.19 20:28. Заголовок: Можно записать в фай..

цитата:

Можно записать в файл, а дальше как печатать этот файл ?

Я открываю файл в AkelPad ( у него есть все средства для масштабирования, ориентации ) и печатаю.

 Отправлено: 24.03.19 20:34. Заголовок: Кодировка ru1251..

Кодировка ru1251

 Отправлено: 24.03.19 20:47. Заголовок: У юзера может не уст..

У юзера может не установлен AkelPad и ставить каждому клиенту занятие неблагодарное.
Нужно свой компонент для простой печати и просмотра текстовых файлов.

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

Еще много лет назад записал себе в программу для подсказки, чтоб не рыться в документации

 Отправлено: 24.03.19 22:35. Заголовок: nick_mi пишет: Так ..

nick_mi пишет:

цитата:

Так у Harbour'а есть средства печати

Вопрос был - свою простую печать из МиниГуи ?

Вот нашёл короткий пример - MiniGUI\SAMPLES\Advanced\PrintRAW\PrintRAW.exe
Но он что-то не работает...

 Отправлено: 24.03.19 23:09. Заголовок: Andrey пишет: Вопро..

Andrey пишет:

цитата:

Вопрос был - свою простую печать из МиниГуи ?

Скорее из Harbour чем из Минигуи

 Отправлено: 25.03.19 09:37. Заголовок: Dima пишет Скорее из..

Dima пишет

цитата:

Скорее из Harbour чем из Минигуи

Дима, что не так при печати простенькой из MiniGui ?
Плотно не занимался, но примеры даже с preview есть.
Вот BASIC\PRINT\demo.prg - простенький вывод по листам с preview.

 Отправлено: 25.03.19 10:22. Заголовок: Andrey У юзера може..

Andrey

цитата:

У юзера может не установлен AkelPad

Сразу AkelPad включаю в состав комплекта программы. А в программе настроены горячие клавиши, кнопочки для
открытия в редакторе выгруженного файла. Так что, никаких проблем.

 Отправлено: 25.03.19 13:07. Заголовок: Vlad04 пишет Сразу A..

Vlad04 пишет

цитата:

Сразу AkelPad включаю в состав комплекта программы.

Сам использую AkelPad в работе, а для клиентов, ставим (с программами) Notepad2.exe (аналог win notepad, только получше). Клиенты воспринимаюn notepad2.exe легче, чем AkelPad
Есть версии 32, 64 ось.

 Отправлено: 25.03.19 13:29. Заголовок: Andrey пишет: Вопро..

Andrey пишет:

цитата:

Вопрос был - свою простую печать из МиниГуи ?

Указанная простенькая печать (oprn := win_prn():new(GetDefaultPrinter()) )
работает в том числе и из программы, написанной на HARBOUR c
использованием MINIGUI.

 Отправлено: 25.03.19 13:47. Заголовок: nick_mi пишет Указан..

nick_mi пишет

цитата:

Указанная простенькая печать (oprn := win_prn():new(GetDefaultPrinter()) ) работает в том числе и из программы, написанной на HARBOUR c использованием MINIGUI.

похоже miniprint в hmg сделан на win_prn(), сужу только по одинаково названным методам, только + preview

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

Всё равно принтер молчит...
Почему ? Где ошибка ? Может не у всех работает ?

 Отправлено: 25.03.19 15:22. Заголовок: Andrey У тебя стоит..

Andrey
У тебя стоит, наверно, где то
#define _HMG_OUTLOG
потому _msglog.txt образовался.
У меня сработал пример ок.

 Отправлено: 25.03.19 18:06. Заголовок: SergKis пишет: У ме..

SergKis пишет:

цитата:

У меня сработал пример ок.

Сразу на печать лист ушёл ? Принтер лазерник ?
Так я тоже делаю сразу печать WinPrintRaw(cPrinter, cFILE, "Test-Print-Job") - не идёт...

 Отправлено: 25.03.19 18:14. Заголовок: Andrey Под рукой пр..

Andrey
Под рукой принтера нет, но задание для принтера в очередь получил.

 Отправлено: 25.03.19 18:51. Заголовок: Andrey Пробнули на ..

Andrey
Пробнули на 2х др. pc с принтерами на wifi, как и у тебя полный ноль - нет ни очереди, ничего

 Отправлено: 25.03.19 20:18. Заголовок: Подскажите пожалуйст..

Подскажите пожалуйста - Как определить в какой кодировке файл/строка ?
Вроде писалось на форуме об этом, никак не могу найти.

 Отправлено: 25.03.19 21:48. Заголовок: Andrey пишет: Вроде..

Andrey пишет:

цитата:

Вроде писалось на форуме об этом, никак не могу найти.

Нашел за 5 секунд
http://clipper.borda.ru/?1-4-0-00000734-000-0-0-1333909105

 Отправлено: 26.03.19 00:39. Заголовок: Dima пишет: Нашел з..

Dima пишет:

цитата:

Нашел за 5 секунд

Спасибо Дима.

 Отправлено: 27.03.19 11:09. Заголовок: SergKis пишет: как ..

SergKis пишет:

цитата:

как и у тебя полный ноль - нет ни очереди, ничего

Для печати с использованием функции WinPrintRaw() требуется принтер, который поддерживает такой тип печати.
По-видимому, современные принтеры уже не имеют этой возможности

Поэтому рекомендую посмотреть универсальный пример печати текстового файла, который находится в папке
samplrs\Basic\MiniPrint_3