Форум » Clipper » Просмотр JPG файла » Ответить
Просмотр JPG файла
Dima: Нужна библа или маленькая прога позволяющая просматривать JPG картинки ЗЫ я разделом не ошибся ;)
Ответов - 17
AlexMyr: Dima пишет: ЗЫ я разделом не ошибся ;) тогда вопрос к-й задают всем - почему не перейти на harbour?
Dima: Нашел кучу не больших программ для просмотра и все работает как надо путем запуска через Swpruncmd , но есть проблема ;) После запуска таких программок портится изображение в проге. Русские буковки превращаются в крякозяблы........ Savescreen с последующим Restscreen - не помог SWPVIDMDE(.T.) из Blinker так же не помог. Что же делать ? Как вернуть экран к нормальному виду как до запуска Swpruncmd ? AlexMyr пишет: тогда вопрос к-й задают всем - почему не перейти на harbour? Шибко большая задача , на переделку уйдет не один месяц.
nick_mi: Может слетает каким-то макаром русификатор. Мож его повторно запустить или вообще на другой перейти
GeorgTor: Function DosPrgRun(cNamePrg,cParam,nuMemo,cPath2Prg,cTmpPath,isDos,isMsg) Local lRetSucces:= .f. Local nOldVideo := Set( _SET_VIDEOMODE ) SaveRest(1,0,0,29,79) IF(P_DEF(isMsg,.T.),SWPGETKEY( .T. ),) SWPVIDMDE( .T. ) If isDos SCROLL() Set( _SET_VIDEOMODE ,LLG_VIDEO_TXT ) EndIf IF(P_DEF(isMsg,.T.),SWPDISMSG(.T.),) lRetSucces:= SWPRUNCMD(cNamePrg+IF(!ISNIL(cParam)," "+cParam,""),nuMemo,cPath2Prg,cTmpPath) If isDos Set( _SET_VIDEOMODE, nOldVideo ) LoadPal()//загрузить палитру по-новой EndIf SaveRest(0) mSetCursor(.T.) Keyboard chr(0) Return( lRetSucces )
Dima: Из какой оперы функции: P_DEF() LoadPal() mSetCursor() ?? PS У меня Сlipper 5.2e
Dima: Идея тут посетила. А что если просмотровщик картинок будет написан на Harbour c Wvt терминалом (что не проблема) Каким образом после закрытия этой смотрелки вернуться обратно в Clipper задачу ?
GeorgTor: Я для вызова внешних программ(в составе Винды) уже достаточно давно и результативно использую Vouch32 - server. Это сервер 32-х разрядных приложений, который позволяет из Clipper вызывать любую программу. В тех архивах, что я предлагал, он был.
Dima: GeorgTor Спасибо , но проблем с запуском внешних программ у меня нет. Вполне устраивает Swpruncmd()
Virtuallab: В эпоху Summer'87, делал просмотрщик PCX-файлов, линкуя библиотеку от ZSoft. Насколько помню, пакет библиотек назывался FXTools. Извиняюсь, если это флуд.
MIKHAIL: Если актуально, то после просмотра вызывай следующие команды: ! mode con:lines=50 cga80() ! mode con:lines=25 И все путем будет... Есть мысль использовать эмулятор DOS - DOSBOX. Преимущество в том что можно использовать просмотр картинок прямо в windows окне, а не в полноэкранном режиме... Вопрос будет ли она работать по IPX протоколу с NW и ADS... ? У кого есть опыт прикручивания, поделитесь....
Dima: MIKHAIL Пробну , спасибо !
MIKHAIL: Это кстати касается не только выода картинок, а так же можно использовать для перевода крякозябликов в нормальный шрифт и в других случаях... Несколько постов с этими проблеммами я уже читал, по поводу отоброжения в полноэкранном режиме...
Dima: MIKHAIL Проверил. Не помогло. ! showjpg 134.jpg ! mode con:lines=50 cga80() ! mode con:lines=25 ? "Проверка" А точнее команда ! mode con:lines=50 не выполняется. На экране вижу Bad command. Если просто в командной строке выполнить mode con:lines=50 , работает. Скопировал mode.com в папку с прогой , заработало.
nick_mi: А если после showjpg запустить keyrus ну или uniscr, в зависимости от того, чем ты пользуешся
Dima: nick_mi Да юзаю RKM , да срабатывает , но палитра становится более темной.
Dima: MIKHAIL пишет: ! mode con:lines=50 Разобрался. Запускать нужно так swpruncmd(GetEnv("SYSTEMROOT")+"\system32\mode con:lines=50")
MIKHAIL: или просто пути в переменной окружения path прописать...;-)
полная версия страницы