Jak używać portu LPT w Delphi na Windows XP? Szukam wskazówek dla początkujących

Heja wszystkim.
Przegladam i przegladam te posty i w sumie to nie ma zbyt wiele inforamcji na temat LPT w delphi na XP.Prosze o pomoc na ten temat.Przyda sie wszystko,gdyz jestem poczatkujacym...
Pozdrawiam/smalski

Tak samo jak na w2k, reszta już była powiedziana.

no to ja w takim razie nie potrafie znalesc...

Szukaj pod haslem DLPORTIO , a tak poza tym to: http://lpt_delphi.ag.bocznica.org

--
pzdr, damdam

Tak zgadzam sie,ze google to kopalnia wiedzy,ale najpierw trzeba wiedziec jakich slow szukac a po wpisaniu samego slowa "delphi" wywala tyle informacji,ze nie wiadomo co wybrac jak sie jest poczatkujacym...
Pozdro

procedure TForm1.FormCreate(Sender: TObject);
begin
PortOut($378, 0);
end;

Procedure Wpisz(PortValue, DataValue: Word);
begin
DataValue := (DataValue * 256) + DataValue;
asm
Mov ax,DataValue
Mov dx,DataValue
Out dx,ax
end;
end;

procedure PortOut(Port:word;Value:Byte);assembler;
begin
asm
mov DX,Port
mov AL,Value
out DX,AL
end;
end;

Cos mi pod XP nie dziala...
Komunikat
undeclared indentifier: 'portout'

???

Heja!
Jasne, że Ci nie będzie to działać w 2000/XP. One blokują bezpośrednie odwołania do portów (i w większości przypadków to bardzo dobrze, że tak robią). Z sieci możesz zassać komponenty do obsługi portów w tych systemach (np sadirectport).
Pozdrawiam,
Kuba

kuba_em ma racje nawet w pascalu ci nie zadziala pod winxp, musisz zassac komponenty, poloecam: www.4programmers.net

Ok mam juz biblioteke inpout32.
I co dalej?Opisy wszedzie sa ,albo do visual basica, albo do c+.Pomozcie ludzie bo tak to mi zajmie dwa lata zanim dojde o co chodzi .Potrzebuje tylko wystawiac bajty na porcie rownoleglym.(pod XP).
Jesli chodzi o komponent 'sadirectport' to nie moge go nigdzie znalesc bo ani google, ani szukacz nie wyswietlaja ani jednego pozytywnego wyniku.I jestem w punkcie wyjscia!!!A na www.4programmers.net jest do wyboru komponentow mnostwo,ale na RS-232 a to mnie nie interesuje.
Dzieki.

Moze sprobuj ZLPortIO

Heja!
Oto odnośnik do stronki Torry'ego, do części z komponentami dostępu do portów:
http://www.torry.net/pages.php?id=227
Komponent: DirectPort v.3.8 z przykładowymi programami, ale może wybierzesz coś innego...
Pozdrawiam,
Kuba

Ok dzieki jakos doszedlem.
Uzylem komponentu smallport.
Wszystko jest ok tylko dlaczego komp wystawia na wyjsciu 3,5V a nie 5V??Przy wlączaniu kompa jest 5V.o co chodzi??

Może jest tam jakiś zmienny przebieg. Spróbuj zobaczyć oscyloskopem lub innym przyrządem

Bedzie mi ciezko bo nie mam oscyloskopu i w sumie nic innego poza multimetrem.....

smalski: co ci przeszkadza mniejsze napięcie? mikrokontrolery takie napięcie traktują jako 1, a jak podłączasz jakieś inne urządzenia to i tak przez tranzystory, albo bufor.. ja mam na lpt 3,2V - 3,3V i wszystko mi działa picuś glancuś..

Ja nie pisalem,ze mi przeszkadza i wiem,ze to jest stan logiczny 1,ale bylem po prostu ciekaw dlaczego, jesli przy wlaczaniu jest 5V.

Czy wie ktos jak obsluzyc za pomoca LPT wiele urzadzen(>20)?

shivanwk napisał:

Czy wie ktos jak obsluzyc za pomoca LPT wiele urzadzen(>20)?

Spróbuj zewnętrzny koder/dekoder podłączony do portu - powinno wystarczyć bo sterujesz wtedy kombinacjami ustawień bitów D0-D7

a ten koder sie jakos nazywa? bo nie jestem zbytni w temacie elektroniki i tak jak bym mial jakis konkretny model to bym poszukal informacj

Oczja ktos obsługe portu LPT przez WinApi tj. CreateFile itd.? Pod Delphi 3 żaden z tych "wspaniałych" komponentów nie działa...
I nie mówcie, że wszystko już było powiedziane, bo nic nie było o tym powiedziane.

Aby sterować LPT w przez WinAPI wystarczy :
( działa pod XP, bez żadnych "extra" sterowników )

var :
MyLPT : THandle;
MyData : integer;

procedure OtworzPortLPT( var pHandle : THandle );
begin
pHandle := CreateFile('LPT1', GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
end;

procedure WystawDane( pData : integer; pHandle : THandle );
var
ret : dword;
begin
WriteFile( pHandle , pData, 1, ret, nil);
end;

procedure ZwolnijUchwyt( pHandle : THandle );
begin
CloseHandle( pHandle );
end;

begin
MyData := 129; { pierwszy i ostatni bit }
OtworzPortLPT( MyLPT );
WystawDane( MyData, MyLPT );
ZwolnijUchwyt( MyLPT );
end;

Ważne jest, aby we wtyczce piny 10, 11, 12 zewrzeć do masy. ( pin 18 - 25 )
pinem 10 drukarka informuje, że jest goowa na przyjęcie danych
pinem 11 drukarka informuje, że jest podłączona i nie ma zajęcia
pinem 12 drukarka informuje, że ma papier
także oszukujemy nieco system ...
Do pinów 2 - 9 podłączamy cokolwiek, najlepiej jednak na początek 8 diód anodami, do nich 8 oporników po 1k a oporniki do masy - żeby zobaczyć czy działa

poniżej:
* schemat połączeń
* kod źródłowy programu ( delphi 3 )
* programik do testów