Код
if graphresult <> grok then halt;
...1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Вставка картинок в Pascal |
Altair |
Сообщение
#21
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
убери вот эту строчку:
Код if graphresult <> grok then halt; ...-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
murphy |
Сообщение
#22
|
Пионер Группа: Пользователи Сообщений: 98 Пол: Мужской Репутация: 0 |
В том то и дело что убирал
вот прога Код 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
|
volvo |
Сообщение
#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 - |
murphy |
Сообщение
#24
|
Пионер Группа: Пользователи Сообщений: 98 Пол: Мужской Репутация: 0 |
Цитата Чем компилируешь? TP 7.1 ошибка graphics error (30) tp 7.0 вобще не находит bmp.tpu (где бы не сувал) всунул но тоже самое Сообщение отредактировано: murphy - -------------------- collect the infotrons and find Exit
|
Guest |
Сообщение
#25
|
Гость |
народ подскажите где можно достать этот файл ---- bmp.tpu (и вообще что еще нужно чтоб картинки грузить????) плз....... :molitva: <<Lego>>
|
volvo |
Сообщение
#26
|
Гость |
FAQ: Модули для вывода графики
закрыто. Тема разобранна до мелочей на форуме... Oleg_Z Сообщение отредактировано: Oleg_Z - |
Текстовая версия | 4.05.2024 15:29 |