IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

2 страниц V < 1 2  
Closed Topic Открыть новую тему 
> Вставка картинок в Pascal
сообщение
Сообщение #21


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


убери вот эту строчку:
Код
if graphresult <> grok then halt;
...


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Пионер
**

Группа: Пользователи
Сообщений: 98
Пол: Мужской

Репутация: -  0  +


В том то и дело что убирал blink.gif

вот прога
Код

program test;
uses bmp, graph, crt;
var gd,gm:integer;
begin
{gd:=detect;
initgraph(gd,gm,'D:\TP_71\TP\bgi');
{bar(0,0,20,20);}

gd:=installuserdriver('VESA256',nil);
initgraph(gd,gm,'');
if graphresult <> grok then halt;

SBMI('D:\P2s2.bmp', 0, 0, 0 );
readkey;
end.

помогите :p2:

Сообщение отредактировано: murphy -


--------------------
collect the infotrons and find Exit
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Гость






murphy
Чем компилируешь? У меня в ТР70 и Vesa и Svga отработали. Я делал так (Vesa - без расширения BGI)
Код

uses bmp, graph, crt;
var gd,gm, err:integer;
begin

gd:=installuserdriver('vesa256',nil);
initgraph(gd,gm,'');
err := graphresult;
if err <> grok then
  begin
    writeln('error: ', grapherrormsg(err));
    readln; halt;
  end;

SBMI('budda.bmp', 0, 0, 0);
readkey;
end.


P.S. файл Vesa.BGI должен быть в той же папке, что и программа...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Пионер
**

Группа: Пользователи
Сообщений: 98
Пол: Мужской

Репутация: -  0  +


Цитата
Чем компилируешь?

TP 7.1

ошибка graphics error (30)

tp 7.0 вобще не находит bmp.tpu (где бы не сувал) blink.gif

всунул

но тоже самое blink.gif

Сообщение отредактировано: murphy -


--------------------
collect the infotrons and find Exit
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Гость






народ подскажите где можно достать этот файл ---- bmp.tpu (и вообще что еще нужно чтоб картинки грузить????) плз....... :molitva: <<Lego>>
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Гость






FAQ: Модули для вывода графики

закрыто.
Тема разобранна до мелочей на форуме... Oleg_Z


Сообщение отредактировано: Oleg_Z -
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.09.2020 13:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name