+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : Synaser للتعامل مع المنفذ التسلسلي (/showthread.php?tid=4656)
Synaser للتعامل مع المنفذ التسلسلي - Lam.Abdeldjalil - 20-10-2012
السلام عليكم
SYNASER مكتبة للتعامل مع المنفذ التسلسلي
-ليست بمكونات و لكن classes و routines فقط ، لا تحتاج إلى أي تثبيت .
-متعددة المنصات Win32 و Linux .
-تدعم سرعة إتصال عالية .
-إستهلاك ضعيف من سرعة المعالج .
-إغلاق المنفذ في Linux مثلما يفعله الويندوز .
-يمكنك فتح أي منفذ مهما يكن رقمه ( مع وجوده بالطبع) .
-دعم سهل لأوامر الـ AT .
أمثلة :
* الإتصال بجهاز customer display في المنفذ COM1 (حقيقي أو تخيلي نفس الشيئ) بالإعدادات ; 9600,8,n,0
و إرسال النص edit1.Text ثم غلق الإتصال
كود :
uses synafpc, synaser
var
ser:TBlockSerial;
begin
ser:=TBlockserial.Create;
try
ser.RaiseExcept:=True;
ser.Connect('COM1');
ser.Config(9600,8,'N',0,false,false);
ser.SendString(edit1.Text);
finally
ser.Free;
end;كود :
var
ser:TBlockSerial;
s,ReceivedData:string;
begin
ser:=TBlockserial.Create;
try
ser.RaiseExcept:=True;
ser.Connect('COM1');
ser.Config(9600,8,'N',0,false,false);
while (ser.CanRead(100)) do
begin
s := ser.RecvPacket(0);
ReceivedData := ReceivedData + s;
end;
if (Length(ReceivedData) > 0) then
begin
edit1.Text:=ReceivedData ;
ReceivedData := '';
end;
finally
ser.Free;
end;التحميل :
كود :
http://www.ararat.cz/synapse/doku.php/downloadSynaser للتعامل مع المنفذ التسلسلي - piratewar - 21-10-2012
أستاذي العزيز
هل يمكنكم كتابتها أيضاً كملفات pdf
هذه المقالات مهمة
Synaser للتعامل مع المنفذ التسلسلي - mobile - 22-10-2012
وعليكم السلام ورحمة الله
بارك الله فيك اخي عبد الجليل
تفضل اخي piratewar نيابة عن عبد الجليل الكتاب