Witam,
"dorwalem" taki kod:
var
hLPT:HWND;
ret:dword;
data:integer; // tu bedą zapisywane dane wysyłane na port
begin
hLPT:=CreateFile('LPT1',GENERIC_WRITE,0,nil,OPEN_EXISTING,0,0);
data:=1; //00000001 binarnie czyli syg "1" na pinie zerowym (D0)
WriteFile(hLPT,data,1,ret,nil);
data:=8; // 00001000 binarnie czyli syg "1" na pinie trzecim (D3)
WriteFile(hLPT,data,1,ret,nil);
data:=0; // czyli wyzerowanie portu
WriteFile(hLPT,data,1,ret,nil);
CloseHandle(hLPT); //zamknięcie portu
end;
z tym ze mam problemy z winapi i nie moge skompilowac, chodzi mi o prosty programik wysylajacy pewne dane na lpt, powiedzmy zapisane w pliku czy wpisane do programu. Mecze sie z tym dosc dlugo aly stworzyc taki program ale nie moge sobie poradzic :| , chce sie tego nauczyc i z czesem sie naucze ale poki co ten program jest mi potrzebny na "juz" dlatego jesli jest ktos tak mily i mi pomoze, tzn stworzy taki prosty dla was program w oparciu o ten kod to bede bardzo wdzieczny.
pzdr