السلام عليكم
هناك مشكلة تواجهني في إستخدام مكتبة ال InpOut32.dll بالدلفي بحيث قمت بعمل البرنامج بإستخدام الدلفي و الفجوال بيسك 6.
المشكلة انه عند فحص ال Signals الخارجة من ال Parallel port برنامج الفجوال يقوم بإرسال البيانات التي اريدها بشكل طبيعي و ممتاز. لكن عند إستخدام برنامج الدلفي و الذي يحتوي على نفس جمل الإستدعاء للدوال الموجودة في المكتبة في برنامج الفجوال لا يقوم برنامج الدلفي بإرسال البيانات.
uses
...................... etc
function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll';
type ............. etc
procedure TForm1.Button1Click(Sender: TObject);
var num:Integer;
begin
Out32($378,5);
showMessage('Five sent!');
end;كود الفجوال بيسك:
Case 39
If xxx = 38 Then '68:D
Out Val("&H378"), 1و كما تلاحظون نفس كود الإستدعاء بقيم مختلفة لإرسالها الى ال Parallel port و كما ذكرت سابقا ان كود الفجول يقوم بإرسال البيانات بينمت كود الدلفي لا يرسلها.
بحثت على النت و في عدة مواقع توجد دروس تم ذكر نفس الطريقة التي استخدمتها. لكن اجهل ما المشكلة هنا
و مشكورين اخواني
راكان الحنيطي
