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

سلام الله عليكم

حملت مكون comport و به مثال يقوم بالإتصال و نجحت في مشاهدة التدفق الوارد كيف يمكنني أخذ كل تدفق يدخل عبر هذا المنفذ و حفظه ؟

السلام عليكم ورحمة الله
اولا تجنب اخي في التحية قول سلام الله عليم واكتفي بما ورد
قد ادرجت هذا الموضوع لك ولمن يحتاجه اتمنى ان يفيدك.كما ان في المنتدى مواضيع عنه على ما اظن
http://www.delphi4arab.net/forum/showthr...p?tid=7057

السلام عليكم

بالنسبة لـ Tcomport تابع الرابط

بالتوفيق

بارك الله فيكم إخواني

للقراءة:

كود :
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
end;

للحفظ مثلا عن طريق Memo:

كود :
procedure TForm1.Button1Click(Sender: TObject);
beginMemo.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+
'Fichier.txt');
Memo.Clear;
end;

السلام عليكم

أهلا أخي louay ، من باب الفضول
ماهو الجهاز المستعمل ؟ وإذا كان ممكن وضع مثال عن 'التدفق' المشاهد :o

شكرا أخي عبد الجليل

الجهاز المستعمل هو nortel meridian 81c cs1000 وnortel meridian 11c و هو نظام خاص لتحويل المكالمات الهاتفية الثابتة يحتوي على عدة منافذ من بينها COM و منه تستطيع برمجته ليعطيك :

-إتصال بالبروسيسور النظام لإجراء صيانة أو تغير
-إعطاك CDR (تقرير دقيق عن المكالمات) وهذا هو الذي أشتغل عليه
-إلخ

مثال عن ذلك في المرفقات.

السلام عليكم

بارك الله فيك أخي louay Smile

بعيد عن مجالي ، و لا أفهم فيه شيئ :confused:

بالتوفيق إن شاء الله

لؤي

mobile

Lam.Abdeldjalil

لؤي

Lam.Abdeldjalil

لؤي

Lam.Abdeldjalil