Bild in RichEdit einfügen

[Bobator]

hi,

ich hab ein echt großes Problem an dem ich schon ein paar Monate sitze(sicher so wie jeder der ein neuen Thread öffnet). Ich will ein Bild in ein RichEdit einfügen. Als Komponente verwende ich TJvxRichEdit der JVCL. Zum Einfügen verwende ich diesen Code von swissdelphicenter:

Delphi-Quellcode:

uses 
  RichEdit; 

// Stream Callback function 
type 
  TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte; 
    cb: Longint; var pcb: Longint): DWORD; 
  stdcall; 

  TEditStream = record 
    dwCookie: Longint; 
    dwError: Longint; 
    pfnCallback: TEditStreamCallBack; 
  end; 

// RichEdit Type 
type 
  TMyRichEdit = TRxRichEdit; 

// EditStreamInCallback callback function 
function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte; 
  cb: Longint; var pcb: Longint): DWORD; stdcall; 
  // by P. Below 
var 
  theStream: TStream; 
  dataAvail: LongInt; 
begin 
  theStream := TStream(dwCookie); 
  with theStream do 
  begin 
    dataAvail := Size - Position; 
    Result := 0; 
    if dataAvail <= cb then 
    begin 
      pcb := read(pbBuff^, dataAvail); 
      if pcb <> dataAvail then 
        Result := UINT(E_FAIL); 
    end 
    else 
    begin 
      pcb := read(pbBuff^, cb); 
      if pcb <> cb then 
        Result := UINT(E_FAIL); 
    end; 
  end; 
end; 

// Insert Stream into RichEdit 
procedure PutRTFSelection(RichEdit: TMyRichEdit; SourceStream: TStream); 
  // by P. Below 
var 
  EditStream: TEditStream; 
begin 
  with EditStream do 
  begin 
    dwCookie := Longint(SourceStream); 
    dwError := 0; 
    pfnCallback := EditStreamInCallBack; 
  end; 
  RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream)); 
end; 

// Convert Bitmap to RTF Code 
function BitmapToRTF(pict: TBitmap): string; 
// by D3k 
var 
  bi, bb, rtf: string; 
  bis, bbs: Cardinal; 
  achar: ShortString; 
  hexpict: string; 
  I: Integer; 
begin 
  GetDIBSizes(pict.Handle, bis, bbs); 
  SetLength(bi, bis); 
  SetLength(bb, bbs); 
  GetDIB(pict.Handle, pict.Palette, PChar(bi)^, PChar(bb)^); 
  rtf := '{\rtf1 {\pict\dibitmap '; 
  SetLength(hexpict, (Length(bb) + Length(bi)) * 2); 
  I := 2; 
  for bis := 1 to Length(bi) do 
  begin 
    achar := Format('%x', [Integer(bi[bis])]); 
    if Length(achar) = 1 then 
      achar := '0' + achar; 
    hexpict[I - 1] := achar[1]; 
    hexpict[I] := achar[2]; 
    Inc(I, 2); 
  end; 
  for bbs := 1 to Length(bb) do 
  begin 
    achar := Format('%x', [Integer(bb[bbs])]); 
    if Length(achar) = 1 then 
      achar := '0' + achar; 
    hexpict[I - 1] := achar[1]; 
    hexpict[I] := achar[2]; 
    Inc(I, 2); 
  end; 
  rtf := rtf + hexpict + ' }}'; 
  Result := rtf; 
end; 


// 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;

Das Problem ist, dass man später die Größe des Bildes ändern kann. Wie kann ich das Verhindern?

[max]

hallo,
ich habe das gleiche prob...
zudem freezed bei dem ausführen und anklicken der
eingefügten bitmap windosen komplett ein...

lg
XAM

[mirage228]

Du könntest es mal mit dem "RxRichEdit" aus der "RxLibrary" versuchen.

mfG
mirage228

[max]

hi,
das problem existiert leider auch mit dieser...

lg
XAM

[Matze]

Hi, oben ist die Rede von TJvxRichEdit, ich weiß nicht, ob's ein Tippfehler ist, falls ja, vergesst meinen Post.

Es gibt dort auch die Jedi-Komponente: TJvRichEdit (wenn nicht die gemeint ist), mit der es gehen sollte.


Der Code von Swissdelphicenter bezieht sich auf das TRxRichEdit.

[max]

hi
TJvxRichEdit ist die Migration von TRxRichEdit in Jedi...
Demzufolge ist das Problem "nicht 100% readonly" leider
auch dort vorhanden...

lg
XAM

[Die Muhkuh]

Es geht mit beiden

[max]

@spider:das einfügen eines images - logo -
aber wie verhindern das ein eingefügtes
image als object bei mausaktion nicht
skaliert wird - obwohl read only definiert...

XAM