[shaman]

Мне необходимо создать приложение, которое будет создавть htm страницы. Необходимо сохранять текст из мемо (возможна альтернатива) и самое главное - в htm необходимо экспортировать картинки. Возможно ли вставить картинку в memo? В общем, я печатаю текст в поле, вставляю картинку в него же и необходимо всё это сохранить в файл htm. Как это сделать? Желательно выложить исходник. Заранее всем большое спасибо.

[lmikle]

Тебе WYSIWYG обязателен? Если нет, то вставляешь "спецсимвол", а потом при экспорте в HTML заменяешь его на соотв. картинку (ес-но ссылку на картинку). Иначе - смотри в сторону RichEdit. Я тут как-то постил как вставлять в него картинки.

Кстати, даже обычный WebBrowser можно сделать WYSIWYG-едактором HTML'я. Поищи в гугле по EmbeddedWB.

[shaman]

Можете дать исходник этого примера (вставка картинки в richedit)

[lmikle]

Сообщение от shaman

Можете дать исходник этого примера (вставка картинки в richedit)

Ну лень поискать, да?
Аттачед.

[shaman]

Я имел ввиду уже готовый исходник с откомпилированным проэктом.

[lmikle]

см внутрь файла. Это модуль, который вставляет в RichEdit картинку. Картинка вставляется как символ (ну как в ворде), если правильно помню, то в текущее местоположение курсора.

[shaman]

Я пробую вставить этот код в делфи но у меня он ругается на этот модуль.

[lmikle]

И что говорит? Этот модуль взят из боевого коммерческого проекта для банка. Естественно, я уверен, что он не только компилится, но и работает.

[The Shadow]

У меня все нормально работает.

Код:

InsertBitmapToRE(RichEdit1.Handle, Image1.Picture.Bitmap.Handle);

[shaman]

Блин, Вам что трудно исходник дать?

[The Shadow]

Там писать то почти ниче не надо

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  RTFWorks, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Tmp: TBitmap;
begin
if (not FileExists(Edit1.Text)) or (ExtractFileExt(Edit1.Text) <> '.bmp') then Exit;
Tmp:=TBitmap.Create;
Tmp.LoadFromFile(Edit1.Text);
InsertBitmapToRE(RichEdit1.Handle, Tmp.Handle);
Tmp.Free;
end;

end.

В Edit1 пишешь имя файла.