On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение
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.



Спасибо: 0 
Профиль
Ответов - 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 ( у него есть все средства для масштабирования, ориентации ) и печатаю.

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


Пост N: 820
Зарегистрирован: 13.10.05
ссылка на сообщение  Отправлено: 24.03.19 20:34. Заголовок: Кодировка ru1251..


Кодировка ru1251

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




Пост N: 6207
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 24.03.19 20:47. Заголовок: У юзера может не уст..


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

Спасибо: 0 
Профиль
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()

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

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




Пост N: 6208
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 24.03.19 22:35. Заголовок: nick_mi пишет: Так ..


nick_mi пишет:

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


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

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

Спасибо: 0 
Профиль
Dima
администратор




Пост N: 7029
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 24.03.19 23:09. Заголовок: Andrey пишет: Вопро..


Andrey пишет:

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


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

Спасибо: 0 
Профиль
SergKis



Пост N: 2289
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.03.19 09:37. Заголовок: Dima пишет Скорее из..


Dima пишет
 цитата:
Скорее из Harbour чем из Минигуи


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

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


Пост N: 821
Зарегистрирован: 13.10.05
ссылка на сообщение  Отправлено: 25.03.19 10:22. Заголовок: Andrey У юзера може..


Andrey

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


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

Спасибо: 0 
Профиль
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 ось.

Спасибо: 0 
Профиль
nick_mi



Пост N: 214
Зарегистрирован: 19.05.05
ссылка на сообщение  Отправлено: 25.03.19 13:29. Заголовок: Andrey пишет: Вопро..


Andrey пишет:

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


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

Спасибо: 0 
Профиль
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

Спасибо: 0 
Профиль
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")

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

Спасибо: 0 
Профиль
SergKis



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


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

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




Пост N: 6210
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 25.03.19 18:06. Заголовок: SergKis пишет: У ме..


SergKis пишет:

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


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

Спасибо: 0 
Профиль
SergKis



Пост N: 2293
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.03.19 18:14. Заголовок: Andrey Под рукой пр..


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

Спасибо: 0 
Профиль
SergKis



Пост N: 2294
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.03.19 18:51. Заголовок: Andrey Пробнули на ..


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

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




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


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

Спасибо: 0 
Профиль
Dima
администратор




Пост N: 7030
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 25.03.19 21:48. Заголовок: Andrey пишет: Вроде..


Andrey пишет:

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



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

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




Пост N: 6212
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 26.03.19 00:39. Заголовок: Dima пишет: Нашел з..


Dima пишет:

 цитата:
Нашел за 5 секунд


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

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1477
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 27.03.19 11:09. Заголовок: SergKis пишет: как ..


SergKis пишет:

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


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

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

Спасибо: 0 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 678
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет