Richedit içerisine resim ekleme ?

[mbt]

Delphi'de richedit içerisine nasıl resim ekleyebilirim ? Yardımcı olursanız sevinirim.

[Kuri_YJ]

Selamlar,

RTF'nin içine açıp baktım (wordde bir deneme yaptım ve baya bir takım headerlar ve tagler olduğunu gördüm. Ben bu kadar çok tag olabilceğini ummuyordum ama varmış. Belki bir komponent vardır bu iş için ama aklıma gelen bir yöntem clipboardan yapıştırmak olabilir.

Yani resmi clipboard'a atıp oradan RichText'e clipboarddan çekmek şeklinde olabilir.

Kolay Gelsin.

[mbt]

Peki clipboard'daki nasıl aktarılacak. Meselâ diskte "a.bmp" adında bir resim dosyası olsun. Bunu richedit içerisinde gözükmesini istiyorum. Bunu kod olarakta biraz açar mısınız ? Kodları yazarsanız sevinirim.
Yoksa ayrı bir component mi var bunu sağlayan ?

[fahrettin]

RxRichedit icin soyle bir kod var belki fikir babından isinize yarar...

Ayrica runtime'de bir yerden kopyalşadıgınz resmi richedit'in icine yapitistirabildiginize gore. Bu isi Kuri_TLJ'nin dedigi gibi kod ile yapmak da bir cozumdur.

Kod: Tümünü seç

// Example to insert image from Image1 into RxRichEdit1 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  SS: TStringStream; 
  BMP: TBitmap; 
begin 
  BMP := TBitmap.Create; 
  BMP := Image1.Picture.Bitmap; 
  SS  := TStringStream.Create(BitmapToRTF(BMP)); 
  try 
    PutRTFSelection(RxRichEdit1, SS); 
  finally 
    SS.Free; 
  end; 
end;

[mbt]

Teşekkür ediyorum. Çok işime yaradı bu.