بشرى لمبرمجي دلفي (هدية لمن لايعرف كيفية برمجة منفذ الطابعة على Xp)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

procedure Out32(PortAddress:word;Value:byte);stdcall;export;external 'inpout32.DLL';

function Inp32(PortAddress:word):byte;stdcall;export;external 'inpout32.DLL';

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

OUT32(888,255);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

OUT32(888,0);

end;

end.

هل اصيح الموضوع قديم

لماذا لا ارى اي رد

رد!

اى رد هل تريد شكرا

طبعا شكرا على الموضوع

لكن اقسام الالكترونيات الرجل عليها قليلة وفرصة ان تجد مبرمجون دلفى بها ضئيلة جدا

فاذا اردت المشاركة من الممكن ان انقل لك الموضوع الى الدلفى

شكراً على الرد

اذا كان الموضوع يساعد المبرمجين فانا ارحب بالفكرة .

فقد قرأت الكثير من المشاركات يسأل اصحابها عن كيفية برمجة منفذ الطابعة .

انا الان اعمل على مشروع تحريك سيارة تعمل على الرموت كونترول عن طريق منفذ الطابعة

سلام موضوعجمیل

********************************************************************************

*******

الله الله عليك أخي الكريم

منذ 5 أشهر و أنا أبحث عن الطريقة

و الحل وجدته عندك

بارك الله فيك أخي الكريم+ لك مني دعاء في القلب

أرجو أن تضع دروسا حول التقنية و سأكون متابعا لك بإذن الله

********************************************************************************

********

أخوك خيرالدين