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

 
 Ответить  Открыть новую тему 
> Глючный FPC
сообщение
Сообщение #1


Новичок
*

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

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


Вот, пользуюсь Free Pascal IDE. Недавно решил перейти на wingraph с псевдографики. Сегодня был турнир, но изза компиля я даже простейшую игру написать не смог. Понял это, к сожалению, поздно. Скачал тут демки wingraph'а, но нигде, ни в какой демке не работает управление. Такое ощущение, будто IDE не дает считывать нажатие клавиш с клавиатуры. В crt всё нормально работает. Как только переключаюсь на граф - фиг тебе. Сам вопрос: это из-за FPC IDE? Или я что-то не понимаю?
Вот пример. Мой. Тут по идее всё должно работать, а именно: программа должна завершиться.

program testimage;
uses wingraph,wincrt;
const
UpKey= #72;
LtKey= #75;
RtKey= #77;
DnKey= #80;
EscKey= #27;
EnterKey= #13;

var menumod,i,j:integer;
key:char;

procedure LoadBMP(x,y:integer);
var f:file; bitmap:pointer; size:longint;
begin
{$I-} Assign(f,'bgmain.bmp'); Reset(f,1); {$I+}
if (IOResult <> 0) then Exit;
size:=FileSize(f);
GetMem(bitmap,size);
BlockRead(f,bitmap^,size);
Close(f);
PutImage(x,y,bitmap^,NormalPut);
FreeMem(bitmap);
end;

begin
i := detect;
InitGraph(i,j,'');

LoadBMP(0,0);
menumod:=1;

while menumod = 1 do
begin
delay(10);
if CloseGraphRequest then
menumod:=0;
if keypressed then
begin
key:=readkey;
if key = EscKey then
menumod:=0;
end;
end;

closegraph;
end.


Сообщение отредактировано: Anonimys -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

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


Опять они что-то поломали sad.gif Надо исходники WinCRT поднимать, смотреть, что там делается...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


Значит так не у меня одного? :C
А я хотел побыстрее перейти к графике. Чтож, пока останусь на псевдографике..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

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


Я ж говорю, поломали. Взял старый WinCRT, который шел в комплекте к WinGraph-у еще под FPC 2.2.0 - все завелось... Нужен тебе рабочий WinCRT, или тебе надо, чтоб со стандартным работало?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

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

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


Скорее правильным решением будет достать старый WinCRT (мвахаха, я такого понаделаю.. *потирает руки).
Кстати, ты говоришь, что скачал. Можешь пожалуйста дать ссылку? Или залить на RGhost, к примеру?

Сообщение отредактировано: Anonimys -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

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


Я не скачал, а "взял", это разные вещи smile.gif На диске у меня лежат исходники разных версий, разных библиотек, чтоб если в новых чего понакручено - проще было поправить под себя.

Вот WinGraph + WinCRT, с которыми у меня твой код отработал:
Прикрепленный файл  wingraph.zip ( 24.74 килобайт ) Кол-во скачиваний: 740


(я там что-то правил в WinGraph-е, поэтому его тоже присоединил, на одном из форумов поймали глюк, я нашел и исправил ошибку)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

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

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


Большое спасибо :D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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