Загрузка BMP в Simple Graph и сохранение в BMP формат

[artemavd]

Добрый день! Сабж в названии темы. Как можно загрузить BMP файл в компонент Simple Graph? И как сохранить то, что нарисовано в Simple Graph в BMP файл? Не нашел примеров на эту тему. Поделитесь информацией кто знает. Заранее спасибо.

[Alexei91]

artemavd
Для сохранения схемы из SimpleGraph используется,например, SimpleGraph.SaveToFile(SaveDialog.F ileName).
Сохранить в BMP по-моему можно (но придётся свой код импорта в него вписывать),а загрузить обратно из BMP (в SG) никак не получится, -
Bitmap он и есть Bitmap,что с него взять? В св-вах SaveDialog вписываете Ваше расширение по-умолчанию - типа свой формат файла,регистрируете его в реестре,
чтобы Windows ассоциировала его с Вашей программой.

[artemavd]

но придётся свой код импорта в него вписывать

можно по-подробнее?

[Alexei91]

function TSimpleGraph.GetAsMetafile: TMetafile;
var
  I: Integer;
  GraphRect: TRect;
  MetaCanvas: TMetafileCanvas;
begin
  GraphRect := GraphBounds;
  Result := TMetafile.Create;
  Result.Width := GraphRect.Right - GraphRect.Left;
  Result.Height := GraphRect.Bottom - GraphRect.Top;
  MetaCanvas := TMetafileCanvas.Create(Result, 0);
  try
    SetViewportOrgEx(MetaCanvas.Handle, -GraphRect.Left, -GraphRect.Top, nil);
    for I := 0 to Objects.Count - 1 do
      with Objects[I] do if IsLink then Draw(MetaCanvas);
    for I := 0 to Objects.Count - 1 do
      with Objects[I] do if not IsLink then Draw(MetaCanvas);
  finally
    MetaCanvas.Free;
  end;
end;

procedure TSimpleGraph.SaveAsMetafile(const Filename: String);
var
  Metafile: TMetafile;
begin
  Metafile := GetAsMetafile;
  try
    Metafile.SaveToFile(Filename);
  finally
    Metafile.Free;
  end;
end;

У SG есть метод SaveAsMetafile - в метафайл.
Вроде как можно свой метод добавить с TBitmap.
А вообще в BMP сохранять нерационально - картинка может несколько
мегабайт весить, - сжатия,то нет никакого. ИМХО,лучше что-то типа JPEG
применять (подключаете стандартный модуль JPEG).
P.S.
Если не секрет,что за программу пишете?

[artemavd]

Сейчас расскажу подробнее....подождите.

Итак, мне нужно написать программу, в которой должна быть реализована возможность создания шаблонов для документов. То есть например есть документ (см.вложение "Документ"), на нем может быть еще какой-то текст, неважно и штрих-код. Мне нужно через мою программу создать для этого документа шаблон (см.вложение "Шаблон"). Чтобы она так рамкой и сохранялся, а потом, я загрузив в свою программу оригинал документа, должен наложить на него мой шаблон для дальнейших действий. Пока так. Вот я и прошу помощи в реализации вопроса как создавать такие шаблоны для любых документов.

[Alexei91]

Создание шаблонов для документов - типа как отчёты и всё как обычно бывает повязано на базу данных.
А так я в 1 библиотечке видел Инскейп использовали - для оформления чит. билетов.
Там как раз штрих-код и фото было - только это всё оператор вручную делала.

[artemavd]

как вручную?

[Alexei91]

Был шаблон чит. билета в Инкскейпе,когда приходил читатель его фотали,
фото вставляли в Инскскейп меняли пару цифр в штрих-коде в - в общем дальше вообще чудо... Потом ещё в Ирбис паспортные данные...

[artemavd]

Мне то что можно предпринять для моей задачи?

[Alexei91]

Шаблоны на основе док-тов Word. Использование COM-сервера Word - что-то в этом
направлении или возиться с генераторами отчётов типа Fast Report и др.
Если соврал - не обижаться. У Стилета или GunSmoker-а спросите.