الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي مشكله في برنامج الشات

مغلق
بدأه Lola في 28 مايو 2002 · 5 رد · 622 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

حيث ان الشخص الذي يبدا الاتصال(يبدأ المكالمه) عندما يحاول ان يغير لون الخط

تظهر له رساله list index out of boundrs(0)n

وطبعا ما يترسل الخط هذه الرساله تعني انني خرجت عن البرنامج ولكن كيف الحل؟

procedure Tconversation.SpeedButton1Click(Sender: TObject);

var

size1:string;

begin

memo1.Font:=FontDialog1.Font;



if FontDialog1.Execute then

        with memo1.Font  do

        begin

          Color:=FontDialog1.Font.Color;

          Name:=FontDialog1.Font.Name;

          Size:=FontDialog1.Font.Size;

          main1.ServerSocket1.Socket.Connections[0].SendText('set_font#'+ColorToString(Color)+'#'+Name+'#'+inttostr(size));

          memo2.Lines.Add('Font send');

        end;



end;

بينما الجهاز الاخر (الذي يستقبل المكالمه) حينما يرسل الخط يصل بدون مشاكل

#2

أخى العزيز Lola:

أرجو منك مزيد من التفصيل ولكن حسب ما فهمت أعتقد أن حكاية الألوان تكون أفضل عند إستقبال الرسالة.

عموماً فى إنتظار مزيد من التفصيل لمشكلتك لعل الله يوفقنا لحلها.

أخوك : إبراهيم دياب

#3

هذا الكود يتم تنفيذه عند الضغط على زر تغير الخط

وللاسف لا اعرف ما هو الخطا في الكود هذا او ما الذي يمكنني تغيره او اضافته على الكود؟

مثلا اذا كان هناك شخصين يستخدمون البرنامج مثلا محمد اسامة فرضا

عندما يبدا الاتصال محمد تظهر شاشه محادثه في جهاز اسامه

عندما يريد اسامة تغير الخط يتمكن من ذالك وترسل تغيرات الخط الى جهاز محمد ويحتفظ بها هناك

ولكن عندما يحاول محمد تغير لون الخط او اي شئ تظهر رساله الخطأ

ولا يتغير الخط ابدا

لاحظ في الكود عند ارسال الخط للجهاز الاخر كتبت رساله اخرى ان يظهر لي في جهاز محمد Font send وللاسف حتى هذه الرساله لا تظهر

ارجو منكم المساعده

#4

السلام عليكم

أعتقد المشكلة تكمن في هذا السطر

 main1.ServerSocket1.Socket.Connections[0].SendText

حيث انه عندما يتم اتصل يكون ServerSocket عامل اتصال في احد الاجهزة بينما في الجهاز الاخر لا يكون يعمل ويعمل بدلا منها ClientSocket، لذلك فهي تعمل في جهاز ولن تعمل في الجهاز الاخر

اعتقد يجب تعديل الكود ليتم فصح اي المكونات هوا الذي لديه اتصال Server o client ومن ثم استخدامه

قد اكون مخطئا لانه لم اعمل بشكل كبير مع هذين المكونين

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#5

بالفعل اخي محمد نسمان اشكرك جدا

وهذا الكود بعد التعديل

procedure Tconversation.SpeedButton1Click(Sender: TObject);

var

size1:string;

begin

memo1.Font:=FontDialog1.Font;



if conversation.FontDialog1.Execute then

        with memo1.Font  do

        begin

          Color:=FontDialog1.Font.Color;

          Name:=FontDialog1.Font.Name;

          Size:=FontDialog1.Font.Size;

          if isserver then

          main1.ServerSocket1.Socket.Connections[0].SendText('set_font#'+ColorToString(Color)+'#'+Name+'#'+inttostr(size))

          else

          main1.ClientSocket1.Socket.SendText('set_font#'+ColorToString(Color)+'#'+Name+'#'+inttostr(size));

          memo2.Lines.Add('Font send');

        end;



end;
#6

منيح انو اشتغل معك

موش عارف كيف فهمتي كلامي اللي كان كلو اخطاء، انا كتبو لاني كنت مستعجل والان لما شفتو اتعجبت لاني موش فاهم شي منو، وحاولت اعدل على شان اخبي اخطائي لكن لا يسمح بالتعديل بعد 180 دقيقة

عموما المهم انو اشتغل :)

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…