20-10-2012, 01:29 PM
السلام عليكم
SYNASER مكتبة للتعامل مع المنفذ التسلسلي
-ليست بمكونات و لكن classes و routines فقط ، لا تحتاج إلى أي تثبيت .
-متعددة المنصات Win32 و Linux .
-تدعم سرعة إتصال عالية .
-إستهلاك ضعيف من سرعة المعالج .
-إغلاق المنفذ في Linux مثلما يفعله الويندوز .
-يمكنك فتح أي منفذ مهما يكن رقمه ( مع وجوده بالطبع) .
-دعم سهل لأوامر الـ AT .
أمثلة :
* الإتصال بجهاز customer display في المنفذ COM1 (حقيقي أو تخيلي نفس الشيئ) بالإعدادات ; 9600,8,n,0
و إرسال النص edit1.Text ثم غلق الإتصال
* إستقبال البيانات مثلا من barcode reader ذو المنفذ rs232
* تجد أيضا مثالا حول ATCommand في مجلد الأمثلة
التحميل :
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/download
