На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> bmp2pas
    качал енту прогу с разных источников. откомпилил - всё нормально. но пас который она из бмп генерит не работает. там вообще что-то типа массива [1..-3]
    я в форматах ентих не разбираюсь - может быть формат досовских и мастдаевских бмп различаюцца?
      Нет, не различаются. Есть, правда, упакованные BMP.
        bmp with rle енто уже не бмп.
        короче - 54 байта заголовок, а потом в (зависимости от глубины цвета ) идет растр. потому
        uses graph,crt;
        var
        f:file;
        dat : integer;
        i,j : integer;
        gd,gm: integer;
        begin
        gd:=detect;
        initgraph(gd,gm,'');
        assign(f,'file.bmp');
        reset(f,1);
        seek(f,54);
        for i:=1 to 640 do
        for j:=480 downto 1 do
        Begin
        BlockRead(f,dat,sizeof(dat));
        putpixel(i,j);
        End;
        енто если без палитры рисовать и в 16битном цвете. ясно что надо немножко править.... но идея думаю понятно .... скажем так - pcx сложнее ___)))
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0167 ]   [ 15 queries used ]   [ Generated: 27.04.24, 16:14 GMT ]