Вот забыл. Основной файл - template.dpr. Если компилировать в Delphi то ничего менять не нужно, если в FreePascal - расширение вместо dpr на pas поменять (хотя если не менять оно тоже скомпилируется, только в fp.exe подсветка синтаксиса на этом файле работать не будет).

FPC скомпилил без вопросов! ;-)  Delphi 7 не хочет - обижается на стоки ReadFile(F,Header,SizeOF(Header),n,nil) фразами
[Error] TexLoad.pas(179): Types of actual and formal var parameters must be identical

Delphi7 не для OpenGL на мой взгляд, у меня Delphi 3 - всё ок! Хотя я всё равно разберусь ;) Вот, кстати http://opengl.land.ru/files/header.zip ->
моя версия gl.pp (только для win32!) - по идее, должно уменьшить размер exe на 20-30кб

Попробуй посмотреть, какие параметры требует ReadFile в Delphi7. Мне кажется, если два последних поменять с Integer на Longint или что-то в этом роде, то должно работать.

Кстати не работает на 1.9.6. Работает только на 1.0.10 ;-(

В IDE нужно поставить mode-release, тогда всё заработает. У меня с коммандной строки всё компилируется и запускается без проблем.
Для gl.pp нужно включить smartlink (он собственно, для этого режима и делался)
Вы ж как-то поинформативней описуйте ошибки ;)

>>frame: Как-то всё у вас тут тяжело
Так онож ещё и JPG грузит (да и заголовочный файл ипользуется нестандартный dglOpenGL.pas, всё-в-одном).
>>frame: Иногда проще написать самому, чем добиться этого от окружающих =)
Всегда :о)

новый dglOpenGL.pas с версии 1.6 поддерживает и FPC=)
Может переделать?

>>Sniper17: новый dglOpenGL.pas с версии 1.6 поддерживает и FPC
Уже 1.6 есть, это хорошо :о)
1.5 тоже FPC поддерживает, только как-то коряво.

>>Sniper17: Может переделать?
Чего переделать?

Модуль texload.pas не скомпилировался:


отсюда:
PROCEDURE invDCTfix(var dst,src:Tblocklongint);assembler;

Удалено модератором

звиняюсь за некропостинг, однако не удержусь:


> procedure CopySwapPixel(const source, destination: Pointer);
> asm push eax push edx push ebx mov eax, source mov edx,
> destination mov bl,[eax+0] mov bh,[eax+1] mov [edx+2],bl
> mov [edx+1],bh mov bl,[eax+2] mov bh,[eax+3] mov [edx+0],
> bl mov [edx+3],bh pop ebx pop edx pop eaxend;


о хосспаде...
кто писал это... этот... код?
есть ведь гораздо более быстрые (алсо, вменяемые) способы!

EAX: [ 0 1 2 3 ]
EDX: [ 2 1 0 3 ]

напоминает RGBA -> BGRA переход, правда?
не проще ли будет сделать вот так:



по х86-соглашениям (а этот код определённо заточен под 32, если Pointer-ы имеют четырёхбайтный размер), стандартная pascal-евская директива вызова предполагает наличие в EAX первого параметра, а в EDX — второго.
на протяжении всех 4 строчек ни тот, ни другой, в полном согласии с директивой const, вручную не меняются.
по тем же соглашениям, *CX и *DX — это регистры, сохраняемые вызывающим, т.е. вызываемая подпрограмма о них заботиться не должна.

единственное замечание — указанный код не заработает на процессоре классом ниже *486.
впрочем, не думаю, что в наше время кто-то попытается для раскодировки всяческой мультимедии пользовать триставосьмидесятники %)
но если уж вдруг, могу предоставить код и для них:

procedure CopySwapPixel(const source, destination: Pointer);



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

У меня почему-то компилятор ругается на директивы {$MODE DELPHI}
{$asmmode Intel}

> У меня почему-то компилятор ругается на директивы
> {$MODE DELPHI} {$asmmode Intel}

возможно, компилятор не тот? =)
взгляни на название конференции.