Вставка картинок в Pascal Опции

[Altair]

убери вот эту строчку:

Код

if graphresult <> grok then halt;

...

[murphy]

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

вот прога

Код

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 - 28.12.2004 4:11

[volvo]

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 - 28.12.2004 4:18

[murphy]

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

TP 7.1

ошибка graphics error (30)

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

всунул

но тоже самое

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

[Guest]

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

[volvo]

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

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

Сообщение отредактировано: Oleg_Z - 30.06.2005 0:20