إدراج صورة فى ال RichEdit

أعتقد أنى وصلت للحل

function BitmapToRTF(pict: TBitmap): string;

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 {pictdibitmap ';

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 := 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 := achar[2];

Inc(I,2);

end;

rtf := rtf + hexpict + ' }}';

Result := rtf;

end;

(f) (f) (f) مع تحياتى (f) (f) (f)

:) يعطيك العافيه اخي

اظنن اننا نعمل في نفس المشروع

اقوم بعمل مسنجر في شبكه داخليه

ربنا يوفق الجميع

أخى Lola ، إخوانى الأعزاء بالمنتدى

أعتقد أن المثال السابق سيحتاج للـ RxRichEdit ضمن مجموعة الـ RxLib والتى يمكنكم تحميلها من العنوان التالى

http://www.murtsoft.com/Downloads/ThirdParty/rx_d6.zip

مع تحياتى

(f) (f) (gift) (f) (f)

أهلاا :)

أردت ان اشارككم بكومبننت ممكن يكون اسهل لهذا العمل, هو عباره عن تقريبا نفس الـMemo المستخدم في الـmIRC

تنزيله من :

http://www.delphipages.com/result.cfm?SR=F...uestTimeout=500