XP, Delphi, Paralleel port.

[svenson]

Tere

Kuidas kontrollida delphiga XP all paralleel porti. Uurisin Internetist aga ei saanud õieti pihta. On mingi class selle jaoks, või mõni leht, kus puust ja punaselt asi kirjas, kuidas toimetada?

[Elektrik]

Google abiks.
On mitmeid komponente/dll-e asja lahendamiseks. Ntx Torry lehelt esimene komponent vabavara, koos lähtekaga. DirectPort 3.8. Ise pole proovinud.
Üks tuntud asi on veel inpout32
Delphi näited pole kohanud.
Komponendi eeliseks on see et läheb koos muu kolaga exe-sse ja siis ei tolkne Sul mingi dll progega kaasas.
Ei tea kui suured Su teadmised Delphist ja progemisest on, oskaks paremini soovitada.

[svenson]

Tänud!

Proovisingi seda Torry lehe esimest komopnenti Delphi 7-mele installida, aga saan Errori: "invalid pointer operation." Ei tea, mis viga võib olla?

[Elektrik]

Ei taha minulgi see komponent tööle hakata. Kasutan Delphi 5-te. Teisi ei viici ka testida. Aga proovi inpout32.dll-ga.
Kirjutasin väikese näite, kuidas floppy led põlema panna.

function Out32(adre:word;jama:smallint):smallint; stdcall; external 'inpout32.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  out32($3f2,$10);
end;

Kui kustutada tahad, siis $10 (ehk 16) asemele kriba $0. $ tähendab, et number on HEX. Lpt näide, kõik pinid sisse:

procedure TForm1.Button1Click(Sender: TObject);
begin
  out32($378,$255);
end;

Et kõik nullida, kriba $0. Pole midagi keerulist. inpout32.dll peab olema samas kaustas kus Su projekt on või siis Windowsi süsteemikaustas. Ise praegu proovisin, töötab küll. LPT adre muuda vastavalt oma masina LPT adrele ära.
Üks hea leht kogu asja kohta, mille soovitan läbi lugeda:

LINK
Lehel on ka arvutuse näide kuidas üksikuid pin-e kasutada.
Aga ing. keel peab selge olema.

[svenson]

Tjah, selle DirectPort-iga jõudsin praegu just niikaugele, et mul Delphi enam üldse käima ei lähe :unsure: Peab vist uninstalli tegema..

Hakkan siis nüüd seda inpout32 varianti uurima.

Suurimad tänud!

[Elektrik]

Üldiselt enne uute komponentide installi soovitan Lib kaustast backup teha, nagu Windowsi restore point. Kui mingi komponent nässu keerab midagi, siis backupist kõik tagasi. Üldiselt saab viga ka parandada, uninstalli kasutamata, aga kõik sõltub jama suurusest ja kasutaja kogemustest. dclusrxx (xx on versiooni number) on see mis inffi endas hoiab, ja kui midagi mis sinna kribatud on, kadunud on vms siis tekivadki jamad. Üldiselt Delphi annab teada mingi komponendi vea korral, ntx ei saa seda laadida, et siis järgmine kord jäetakse see nö. mängust välja. dclusrxx saad ka ise avada ja siis vigased asjad ise eemaldada, aga jällegi vaja kogemusi. Suvaliselt ei saa asja teha.

[andreie]

Ise olen kasutanud dlportio-d.