السلام عليكم ورحمة الله وبركاته
اعمل على برنامج دردشة على الشبكة المحلية :
انا أكتب الرسالة في memo
و أعرض الرسالة بعنصر webbrowser
كيف يتم تحويل الرموز في memo الى صور لكي تظهر في webbrowser
مثل سمايلات الياهو ؟؟
في الياهو عند كتابة وضغط ارسال تتحول الى صورة ابتسامة
كيف تتم العملية وشكرا للجميع
تقبلوا تحياتي

الفكرة العامة هي:
1- لكل صورة ضع رمز فريد
2- ارفع الصور بموقع له Bandwidth كبير
3- عند ادراج اي صورة ضع مكانها الرمز الفريد الذي يرسل مع النص
4- عند استقبال النص ابحث عن الرموز الفريدة وعوضها بروابط الصور Search & Replace
وبالتوفيق

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

أخى الكريم أولاً انت هتعمل دالة تقوم بعمل Replace للكلمات المحجوزة لبرنامجك
مثل :
انسخ الكود

 
function StripSwears(const sText: String): String;
begin
  Result := StringReplace(Result, ': D', '<image src="' + (extractfilepath(application.exename)
 + 'Smiles2.gif') + '" width="45" height="45">', [rfReplaceAll, rfIgnoreCase]);
end;
 
 

تلاحظ ان الصور محفوظة بفولدر بالبرنامج وليس على الموقع وذلك تفادى فى بطئ التحميل وهذا يفضل .

وعند الأرسال الدالة التى قمت بكتابتها مسبقاً هتقوم بالتحويل .
انسخ الكود

 
StripSwears(SendME.Text);
 
 
 

بالتوفيق

اخي الكريم محمد عبد العزيز
اخي swift
تحياتي لكم وأشكركم جداً جداً
الله يعطيكم ألف عافية ولا يضيعلكم تعب

السلام عليكم ورحمة الله وبركاته
الاخوة الاعضاء في المرفقات المثال بعد مساعدة الاخوة محمد والاخ swift ولكني ما زلت
اواجه مشكلة عند اضافة محتوى edit2.text و اظهارها في المستعرض
أريدها أن تظهر بسطر واحد
ولكن عند اضافة رمز يظهر في المستعرض كل رمز في سطر
أين الغلط ؟؟
تحياتي لكم

بالتوفيق

الملف بعد التعديل : إضغط لإظهار المرفق

طبعاً السطور كلها جنب بعض علشان تدرج سطر جديد راجع أوامر HTML

انسخ الكود

<p>Good</p>
 
 

السلام عليكم ورحمة الله وبركاته
أخي swift
تحياتي لك وألف شكراً

مشكورين . رائع , رائع . شكرا على : Test