Цитата(former @ 17.4.2006, 20:58  ) | | Но тогда надо знать сам формат и уметь считать его из файла. |
форматы *.emf, и *.wmf , являются общепризнаными и информация об их формате у меня имеется, найти инфу о формате autocada - вообще не проблема.
Дело в том что распознование битмапа будет всегда производися с погрешностью, а первый этап поставленной задачи, фактически и будет превращение растра в векторное представление Т.е будет производится двойная работа. Вначале редактор линии превратит в точки затем, наша программа буден по точкам востанавливать линнии - это оправдано когда изображения даются от изначально растрового источника (фотоаппарата, сканера и т.д.). Чертежи вообще принято хранить в векторном формате, тогда их легче редактировать, масштабировать и поворачивать. По меньшей мере будет нелогично хранить битмап если можно *.wmf.
Так ради справки покажу как работать с битмапом.
Объявляются такие структуры
| Код |
TRGB = packed Record
b,g,r : byte;
end;
Line = array[0..32768] of TRGB;
pLine = ^Line;
var
mask1 : array of pLine;
|
Конвертируем растр из DDB в DIB
| Код |
image1.Picture.Bitmap.PixelFormat := pf24bit;
|
Устанавливаем размеры битмапа(если не загружен)
| Код |
image1.Picture.Bitmap.Width := image1.ClientWidth;
image1.Picture.Bitmap.Height := image1.ClientHeight;
|
Выделяем память под массив указателей
| Код |
SetLength(mask1, Image1.Picture.Bitmap.Height);
|
Заполняем масив указателей реальными указателями адресов строк изображения
| Код |
For i := 0 to Image1.Picture.Bitmap.Height - 1
do
mask1[i] := Image1.Picture.Bitmap.ScanLine[i];
|
закрашиваем первый пиксель например красным цветом
| Код |
mask1[0,0].b := 0;
mask1[0,0].g := 0;
mask1[0,0].r := 255;
|
или читаем (color1 := RGB(mask1[0,0].r, mask1[0,0].g, mask1[0,0].b))
|
