Inserting, Saving and Loading Images

[rick2691]

I was able to implement the BitmapToRTF code. Images insert and resize. The RTF file saves and opens with the image intact and editable. Another editor was able to load and edit the file as well.

I wouldn't have been able to do it without your refusal to do so. It made me track everything down. Thanks.

Rick

[rick2691]

In reference to another snippet of code that you introduced on this thread. The following implementation to resize an image by code performs the work. But after do so, there isn't any problem until I close program. Then it raises an exception...

external: SIGSEGV at address 4B4112E4

It does it every time I close the program after having tested the code. It never does if I haven't tested the code.

Code: Pascal  [Select][+][-]

1. procedure TCmdForm.MnuResizeClick(Sender: TObject);
2. var
3.   ole: IRichEditOle;
4.   sz: TSize;
5. begin
6.   ole:= GetRichEditOLE(PageMemo);
7.   GetOleObjectSize(ole, PageMemo.SelStart, sz);
8.   sz.cx:=round(sz.cx * 1.5);  // magnify
9.   sz.cy:=round(sz.cy * 1.5);
10.   SetOleObjectSize(ole, PageMemo.SelStart, sz);
11. end;
12.  

It happens as a result of calling SetOleObjectSize(ole, PageMemo.SelStart, sz);

Rick

[skalogryz]

Are images inline images or rtf generated images?

If inline, try to change the code to rtf generated and see if it solves the problem

[rick2691]

It has always been doing this. I didn't want to bring up until the other issues were settled. I think they had been inline, but I am not using inline. I don't know about RTF files that have images. I'll have to test.

Attached is the assembler message. I scrolled it down a little so you could see what lead into the break. The green arrow is pointing at the break.

[rick2691]

I loaded a file where another editor had inserted the image. It does the same crash.

It did it with Inline before, and with my separate insert now. It is across the board.

Here is a better image of the crash info. The crash point is near the bottom.

[skalogryz]

r5196 should fix the issue. However, the interface of SetOleObjectSize / GetOleObjectSize functions changed. Now the first parameter must be TRichMemo object rather than an IRichMemoOle object.

[rick2691]

That fixed it. Thank you much.

Code: Pascal  [Select][+][-]

1. {
2.  r5196 should fix the issue. However, the interface of SetOleObjectSize / GetOleObjectSize
3.  functions changed. Now the first parameter must be TRichMemo object rather than an
4.  IRichMemoOle object.
5. }
6. procedure TCmdForm.MnuResizeClick(Sender: TObject);
7. var
8.   //ole: IRichEditOle;
9.   sz: TSize;
10. begin
11.   //ole:= GetRichEditOLE(PageMemo);
12.   GetOleObjectSize(PageMemo, PageMemo.SelStart, sz);
13.   sz.cx:=round(sz.cx * 1.25);  // magnify
14.   sz.cy:=round(sz.cy * 1.25);
15.   SetOleObjectSize(Pagememo, PageMemo.SelStart, sz);
16. end;
17.  

The above is the implementation. I can go on with refining the code.

Rick