انتقال اطلاعات ساعتزنی ازطریق برنامه Delphi

[BPROD_ASLANI]

با سلام
من دنبال توابع و یا فایلهای Dll هستم که بتوانم به از طریق Modem به دریچه های ساعتزنی

شرکتهای مختلف نظیر دنیای پردازش، علم و صنعت و.. وصل شده و اطلاعات آنها را به صورت Online بخوانم و به نرم افزار حضوروغیاب خود متصل نمایم.

به امید همکاری متقابل
اصلانی

[Valadi]

جناب آقای اصلانی
برنامه نظیر ساعت زنی از مودم استفاده نمی کنند بلکه ار پورت com استفاده می کنند و دستگاه سخت افزاری یک حافظه دارد که هر موقع نرم افزار به سخت افزار کانکت می شود اطلاعات بازخوانی و حافظه سخت افزار را پاک می کند

[BPROD_ASLANI]

با تشکر از توضیحات شما دوست عزیز

من در حاضر برنامه حضوروغیابی را تهیه و در حال فروش ان هستم مشکل من این است که دریچه های ساعتزنی در جائی قراردارند که به شبکه متصل نمی باشد و پس از خواندن اطلاعات باید آنها راازطریق Modem انتقال دهم.
مشکل اول در خصوص خواندن اطلاعات موجود در دریچه های ساعتزنی است که نمی دانم چگونه اینکارراانجام دهم.

[Hadizadeh]

خوب هر شرکتی از پروتکل خودش استفاده می کنه. استاندارد نیست که بگیم مثلا با این روش شما اطلاعات رو می تونی از همشون بخونی. باید ببینی مثلا شرکت x از چه پروتکلی مثلا جهت ارتباط سریال استفاده می کنه که اونها هم مطمئنا به شما نمی گن!

[BPROD_ASLANI]

نوع دریچه برای شرکت دنیای پردازش و PW1100 می باشد

[Hadizadeh]

ببین این گیت ها یه استاندارد داخلی هستند ، بعید می دونم توی این فروم کسی با اینجور چیزای خیلی تخصصی کار کرده باشه.

[ali_abbasi22145]

سلام
این ساعت قدیمی است PW1400 جدید است با خود دنیای پردازش تماس بگیر تا جایی که من می دانم DLL انها پولی است.

[anubis_ir]

شرکت علم و صنعت به شما دستگاه کارتزنی با پورت lan هم می‌دهد. (همین نمونه‌های فعلی را ارتقاء می‌دهد)

[رها]

سلام.
کسی با دستگاههای شرکت سائلا (saela) کار کرده؟
واسه اتصال به دستگاه یه dll داره که من نتونستم ازش توی دلفی استفاده کنم.توی این dll کلاس تعریف شده حالا مشکل اینه که چه جوری می شه از توابع این کلاس توی دلفی استفاده کرد.
یه نمونه کد vb خود شرکت داده اما گویا نیست.


Private Saela As New ClassLink
Private Sub Command1_Click()
'All Command will send to Com1
Text2 = ""
Me.MousePointer = 11
Set Saela = New ClassLink

If Option1.Value = True Then
Text2 = Saela.TestCommunication("01")
ElseIf Option2.Value = True Then
'This Command Download all In/Out Data to PC
'and save them to "Saela.txt" file and then
'Clean data on System
Text2 = Saela.RamDataDownload("01", "c:\Saela.txt", True)
ElseIf Option3.Value = True Then
Text2 = Saela.ClearRamData("01")
ElseIf Option4.Value = True Then
'set system date and time to 25/10/2003 and 17:30
Text2 = Saela.SetDateTime("01", "031025", "1730")
ElseIf Option5.Value = True Then
'set system to enroll mode , if chose false
'enroll model will disabled for system
Text2 = Saela.EnrollMod("01", True)
ElseIf Option6.Value = True Then
'delete all fingerprint pattern on system
'you can enter templete number or templete index
'Example:
'Text2 = Saela.EraseTemplete("01", "00100", "all")
'Text2 = Saela.EraseTemplete("01", "00100", "01")

Text2 = Saela.EraseTemplete("01", "All", "All")
ElseIf Option7.Value = True Then
'download all templete of pin code 100 to c:\saela\00100\
Text2 = Saela.DownloadTemplete("01", "c:\Saela", "00100", "100")
ElseIf Option8.Value = True Then
'upload all templete of pin code 100 to system
'from c:\saela\00100
Text2 = Saela.UpLoadTemplete("01", "c:\saela", "00100", "100")
End If
End Sub

Private Sub Form_Load()
Set Saela = New ClassLink
Dim A
A = Saela.CommSet("01")
End Sub

Private Sub Option1_Click()

End Sub

Private Sub Text2_Change()
Me.MousePointer = 0
End Sub

[Hadizadeh]

دوستان می دونید که شرکت علم و صنعت هیچ کارست ، فقط یه دلاله. خودش دانش نداره. اینو گفتم که توی این تاپیک یک مطلب ضد تبلیغات هم باشه! لطفا اینجا تبلیغات نکنید.

[anubis_ir]

دوست خوبم.
من نسبتی با شرکت مذکور ندارم. من مشتری آنها هستم همین! (چندی قبل دستگاه کارتخوان شرکت ما رو گرفتند و پورت lan روی آن نصب کردند)
ضمنا dll ایی هم که دادند مجانی بود. (هم سمپل دلفی داشت و هم وی بی)

[Hadizadeh]

خوب پس بهترین راه برای حل مشکلتون سوال کردن از اونهاست. موفق باشید

[rasool_h]

دوست عزيز من برنامه نويس دستگاههاي حضور وغياب بودم در اين مورد شما اسم دستگاه و مدل آن را بيان نمايد شايد بتونم كمك كنم

[zman123456]

سلام Rasool_h
من می خوام به دستگاه PW1400 وصل بشم.میتونی کمکم کنی.