I/O port - komponent

Jeg har selv lavet et udfra et andet... jeg kan sende det til dig hvis det er...

det komponent kan både bruge seriel og pa... og også andre fx til computer højttaleren...

Hey sbay.
Det du har gang i lyder interessant, jeg går og fumler med lidt fjernstyring af et musikanlæg, med mixerpult og lignende, samt fjernstyrring af pc fra mixerpulten, men jeg mangler alt, lige fra det komponent du efterlyser, til det hardware der skal sidde imellem porten på pc'en og de forskellige musik enheder.
Kan du indvie mig i den løsning du får?

Jeg bruger io.dll.
http://www.ustr.net/epromer5/io.dll


procedure PortOut(Port: Word; Data: Byte); stdcall; external 'io.dll';
function PortIn(Port: Word): Byte; stdcall; external 'io.dll';


så kan man eller bare bruge:
PortOut(StrToInt('$' + '378'), longword(strtoint('0x10')));
til at sende.

var
DataRead: Byte;
begin
DataRead := PortIn(StrToInt('$' + Edit2.Text));
end;
til at læse fra porten

mysitesolution>>> det lyder spændende - min mail: bay@cool.dk - så vil jeg da lige prøve det!

dkn>>> hmmm, det er noget med dll'er - det ved jeg ikke om jeg er så meget for!!! - virker det under XP????

anton_kruse_andersen >>>>> Det hardware jeg vil bruge er bare 8 elektroniske relæer koblet på parallelporten - senere vil jeg bruge et interface fra www.brinck.dk varenr.: Br 847.

ja det virker under nt.

Den er meget nem at bruge, har endda skrevet hvad du skal :)

Bruger den selv sammen med det interface kort fra brinck.

min er fuldstændig det samme som dkn´s  mit er dog et komponent og ikke en dll... sender den lige

ResetPort:
Du sætter PortAddress ( word ) som portens nummer og skriver komponent.Reset;

Send data:
Du sætter PortAddress ( word ) som portens nummer, PostData ( byte ) som hvad der skal sendes og skriver komponent.Write;

Modtag data:
Du sætter PortAddress ( word ) som portens nummer og skriver komponent.Read;

resultatet kommer nu ind i PortData


ps brugen er på eget ansvar

ok - jeg vil prøve begge her i løbet af ferien og så vender jeg tilbage! (måske før hvis jeg har problemer ;-) )

dkn>>>> hmm - hvad gør jeg så med den dll-fil????

mysitesolution>>>> når jeg installere den component du har sendt til mig, kan jeg ikke finde den nogen steder, så den er lidt svær at bruge!!!!!

du ligger pas filen ind i "lib" i borland delphi mappen... og åbner den derfra og trykker "install component"

dll filen skal bare ligge i system32 mappen eller i samme mappe som din exefil.

så skirver du:
procedure PortOut(Port: Word; Data: Byte); stdcall; external 'io.dll';
function PortIn(Port: Word): Byte; stdcall; external 'io.dll';

over implementation

Du kan så bare bruge kaldende:

PortOut();
PortIn();

dkn >>>> lad mig lige forstå det ret! Jeg skal altså bare putte .dll-filen ind i systemfolderen, og så skrive koden - ikke noget med at indsætte en komponent eller noget på formen?????

Hvis jeg så vil lave henholdvis en procedure og en function - der sender data (f.eks tænde ben 1) til porten, skriver jeg:

procedure PortOut(Port: Word; Data: Byte); stdcall; external 'io.dll';
begin
og hvad så her?
end

har du eventuelt en lille stump kode med uses, var osv. jeg kan studere????

hmm... har du fået mit komponent installeret... jeg ved altså det virker

mysitesolution>>> nej desværre - der skulle da komme sådan et ekstra faneblad - ikke???? det kan jeg ikke få det til!

nej,,, den ligger i fanebladet system

mysitesolution>>>  ja det hjalp jo gevaldigt - hehe....


Det er ved at være et godt stykke tid siden jeg har kodet i Delphi - er der en mulighed for at du har en stump "demokode"???? Eller er det bare sådan her:

procedure TForm1.Button1Click(Sender: TObject);
begin
PortAddress:=378;
PostData:=1;
PortReader1.Write;
end;

ja det der er rigtigt.. det er til at skrive 1 til porten

jeg får en fejl i komponenten - er det ikke rigtigt nok at LPT1 hedder 378???? Det er noget med en "Privileged Instruction"

ja du har næsten forstået det :)

Dll skal programmet bare have adgang til, det fås ved at smide den i samme mappe som exe filen eller i windows/system.

Dernæst i de to functions declareret og så kan du ellers sende data.

uden nogen component!

bare brug dem som de ser ud :)

PortOut($378, 123);
showmessage(inttostr(PortIn($378));

btw hvis de andet component siger Privileged Instructions, så er det fordi den ikke har fået adgang til hardwaren pga windows. Det component virker altså kun i 98 så

hmm... virker det kun i 9x... der er vidst noget jeg må have rettet så

ja eller også er han ikke logget ind som administrator, nu får vi lige at se om den dll kan.

type
  TForm1 = class(TForm)
    PortReader1: TPortReader;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure PortOut(Port: Word; Data: Byte); stdcall; external 'io.dll';
    function PortIn(Port: Word): Byte; stdcall; external 'io.dll';

Så får jeg en fejl på STDCALL!!!!!

PS. er logget ind som admin!

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure PortOut(Port: Word; Data: Byte); stdcall; external 'io.dll';
  function PortIn(Port: Word): Byte; stdcall; external 'io.dll';

var
  Form1            : TForm1;

implementation

dkn >>> nu får jeg noget skrevet ud i en messagebox!

portnummeret $378 er i hex - eller hvad??? Hvad så hvis det er COM1???

123: er vel bare en parameter -> kunne lige så godt være 1 eller 2 eller 4 eller.....???

Og hvad er historien med $ - den bruges både i in og out???

Når der skal skrives til porten:
PortOut(StrToInt('$' + Edit1.Text), data);

Hvor edit1 indeholder port nummer, fx 378 til lpt.

Læsning fra port:
var
  data              : byte;
begin
  data := PortIn(StrToInt('$' + Edit12.Text));
end;

ok - nu skal jeg bare have tjekket at det virker på mit interface - går nok lige et par dage!!!

ØV - det virker ikke. Jeg får en permanent spænding på PC'ens LPTport på 1,5 volt. Det er lige fra den starter op - og så sker der ikke noget når jeg prøver at sende til porten!

procedure TForm1.Button5Click(Sender: TObject);  //LEFT
begin
PortOut($378, 1);
end;

Ok du bliver vidst nødt til at læse mere om det....
Hvis du endelig skulle bruge byte værdi direkte skulle det være
PortOut($378, 10000000);

men det er bedre at converte din byte til en hex værdi, ellers virker det simpelthen for usikkert har jeg lagt mærke til

hmmm, jeg bliver nok nødt til at finde en anden komponent! Den jeg brugte sidste gang virkede (2 år siden)!! Interfacekortet ved jeg også virker!

ok giv op det er nok bedst...bruger selv den dll fil til mit interface kort og det virker fint.

bare for at være helt sikker - kunne du så ikke lave en demokode, bare hvor man tænder alle 8 dioder på en knap og slukker dem på en anden - det kan være jeg har lavet noget ged!!! Det der står efter $378, skal det være i hex??? - i så fald er det der fejlen er!

var
  data              : Longword;
begin

  data := Longword(StrToInt('0x01')) + Longword(StrToInt('0x02')) +
    Longword(StrToInt('0x04')) + Longword(StrToInt('0x08')) +
    Longword(StrToInt('0x10')) + Longword(StrToInt('0x20')) +
    Longword(StrToInt('0x40')) + Longword(StrToInt('0x80')) and $FF;
    PortOut($378, data);

end;


ikke testet, men burde tænde alle

Delphi 3 kender ikke Longword :-(

Det virker!!!!!!! Det er parallelporten på min laptop der er færdig! På min stationære virker det perle!

Mange takker!