+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نقل text من مكون RichEdit الى WebBrowser (/showthread.php?tid=4097)
نقل text من مكون RichEdit الى WebBrowser - sa7er100 - 11-04-2012
السلام عليكم ورحمة الله وبركاته
اعمل على برنامج يظهر المعلومات المستقبلة من السيرفر الى الكلاينت على اداة richedit لكن المشكلة هي انه لا يعرض الصور
يمكن ان نضيف اداة WebBrowser لاظهار الصور لكن سؤالي هوو كييف نقل المعلومات الظاهرة على richedit الى WebBrowser
مـا هو الكود ؟؟
وشكراااااااااااااااااااااا
كود :
http://store1.up-00.com/Mar12/q6t48275.jpgنقل text من مكون RichEdit الى WebBrowser - sa7er100 - 11-04-2012
وجدت الكود
كود :
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;