delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته

اعمل على برنامج يظهر المعلومات المستقبلة من السيرفر الى الكلاينت على اداة richedit لكن المشكلة هي انه لا يعرض الصور

يمكن ان نضيف اداة WebBrowser لاظهار الصور لكن سؤالي هوو كييف نقل المعلومات الظاهرة على richedit الى WebBrowser

مـا هو الكود ؟؟
وشكراااااااااااااااااااااا

كود :
http://store1.up-00.com/Mar12/q6t48275.jpg

وجدت الكود

كود :
procedure richediteowbrs(WebBrowser1: TWebBrowser ; AHTMLCode : TStrings) ;
var
Data:OleVariant ;
begin
if WebBrowser1.Document = nil then WebBrowser1.Navigate('about:blank');
Data:= WebBrowser1.Document;
Data.Write(AHTMLCode.Text);
Data.Close;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
richediteowbrs(WebBrowser1,Richedit1.Lines);
richedit1.Lines.Add(memo1.text);
end;

sa7er100

sa7er100