Консольное приложение и TBitmap

[alu]

Lazarus 0.9.20
ASPLinux 11.2

почему-то не работает корректно создание битмапов в консольных приложениях

Код: Выделить всё

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,Graphics
  { add your units here };
var
w:tbitmap;

begin
w:=tbitmap.Create;
w.Canvas.Color:=0;//здесь программа вылетает, не может вызвать CreateBitmap
w.Free;
end.


в чем дело? и как это обойти?
Задача в косоле по входным параметрам нарисовать изображение и сохранить в файл.

[Sergei I. Gorelkin]

CreateBitmap - функция widgetset-a, который подключается с помощью модуля Interfaces. А если его подключить, то программа уже не будет консольной, будет требовать всякие там gtk и т.д.

Альтернатива - использовать пакет fpImage, для поставленной задачи его должно хватить.

[shade]

CreateBitmap - функция widgetset-a, который подключается с помощью модуля Interfaces. А если его подключить, то программа уже не будет консольной, будет требовать всякие там gtk и т.д.

От того, что требуется gtk и т.п. программа не становиться оконной...

[Attid]

От того, что требуется gtk и т.п. программа не становиться оконной..

но не будет через ssh к примеру работать, или без иксов.

[alu]

CreateBitmap - функция widgetset-a, который подключается с помощью модуля Interfaces. А если его подключить, то программа уже не будет консольной, будет требовать всякие там gtk и т.д.

Альтернатива - использовать пакет fpImage, для поставленной задачи его должно хватить.

Спасибо за подсказку.

[alu]

а метод Polygon может рисовать заполненные многоугольники?

Код: Выделить всё

var
BitmapCanvas: TFPImageCanvas;
.....
TempImage.BitmapCanvas.Polygon(points_arr);

FloodFill не корректно отрабатывает и долго слишком

или хотбы метод который может рисовать заполненные треугольники

[alu]

что-то про заполненные многоугольники ничего в описании этого модуля не нашел.
Кто-нибуть рисовал их с помошью FPImage или нет, вопрос принципиальный.
Или там все это нужно делать ручками????
Уравнени прямых и тд..???

если так, то хотбы скажите как получить доступ к области памти где хранится по-пиксельно изображение, или к ScanLines. Писал подобную вешь, но нужен прямой доступ к памяти изображения...

[Sergei I. Gorelkin]

Посмотрел в исходники... Теперь я вообще жалею, что его посоветовал
Прямого доступа к памяти там картинки там нет в принципе, только через Pixels[x,y].
Рисования закрашенных полигонов тоже нет, стоит TODO...

[alu]

И всеже вернусь к первому посту. а возможно ли вообще создать TBitmap в консольном приложении.
и чтобы это приложение запускалось на runlevel 3 без загруженных X

И может еще есть какие графические библиотека для 2-х мерной графики у FreePascal

[alu]

Код: Выделить всё


const
  maxLongint  = $7fffffff;
...
    const
       MaxInt  = MaxLongint;
.....

  TFPIntegerArray = array [0..(maxint-1) div sizeof(integer)-1] of integer;
  PFPIntegerArray = ^TFPIntegerArray;
...
  TFPMemoryImage = class (TFPCustomImage)
    private
      FData : PFPIntegerArray;
.....


как получить доступ к FData
просто перенесение его в исходниках в public выдает ошибку
identfier idents no member "FData"
при попытке доступа к нему

[shade]

И может еще есть какие графические библиотека для 2-х мерной графики у FreePascal

Попробуй подключить Widgetset, да будет зависимость от X и от Widgetset'а, но от этого программа по идее не перестанет быть консольной...

[Attid]

станет, она не будет запускаться из голой консоли, только из иксовой.

[alu]

запускатьс она будет из голой консоли (из php exec()) и соответстсенно нужна работа без Х-сов
-------
А почему во врем отладки немогу спуститься на уровень исходников этих модулей, отладчик просто не входит в методы TFPImage мне нужно сравнить занчени полей Fdata и мое, которое я получил из этого объекта
(у мен возникает ощущение что он делает что-то не то что написанно в исходниках, это случайно не закрытый проект????)

в TFPMemoryImage это указатель
ширина и высота хранится по смещению в этом указателе 5*4 байта и 6*4 байта соответсвенно
FDATA по смещению 7*4 байта - и по иерархии объектов и по бампу памти, который я смотрел
т.е. доступ получить можно

НО.... беру это значение и заполняю по его адресу нулями первые 100 integer (картинка 450х450), после этого перестает срабатывать сохранение в PNG файл этого образа. Все остальные методы рисования нормально отрабатывают, без ошибок... (могу выложить сюда исходник на котором эксперементирую, если это нужно)

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

полученный адрес где-то такой
$a10080 - странный немного
все адреса выделемые динамически получают адреса как посмотрел
$9xxxxx

Народ, подскажите, ООЧЕНЬ надо!!!!

[Sergei I. Gorelkin]

Модуль этот открыт, как и все, что идет с FPC.

Но, в релизных сборках файлы .ppu "отвязаны" от исходников, чтобы при случайном их изменении компилятор не кидался пересобирать все пакеты. Или же на машине, где все собирали, исходники лежали в другом месте относительно .ppu. Отсюда и описанные глюки - он просто не замечает переноса FData в public и т.д.

Как правильнее поступить, даже не знаю - то ли прибить "лишние" .ppu, то ли скопировать пакет в папку проекта, то ли собирать его отдельно с помощью "make; make install"...

[alu]

как заметил еще вызов метода Pixels у TFPImage приводит к такой же ошибке при сохранении файла... это что значит сам объект не может работать со своими полми корректно??? через TFPCanvas->Colors все проходит нормально...
формат там специфичный чтоли какой? по объвлениям это не видно..
фигня какая-то...