Udskrivning til printer port

Jeg mangler lidt hjælp til hvordan jeg kan skrive direkte til lpt3 printer porten i Delphi

Hvis jeg kører næsten samme program i "gamle" Borland Pascal så virker det godt nok med ..

I Delphi (Windows 95 til 98 (måske ME) virker dette

Direct I/O in Windows 95 and 98
function PortInByte(PortAddress: Word): Byte;
asm
mov dx,ax
in al,dx
end;

procedure PortOutByte(PortAddress: Word; Data: Byte);
asm
xchg dx,ax
out dx,al
end;
Dette er lånt fra http://www.optimalcode.com/Guido/basmex1.html

Men hvis du også vil kunne skrive ud i eks. Windows NT/2000/XP

så skal du bruge en VxD Driver

Hvis jeg var dig ville jeg tage en kik på http://www.lvr.com/parport.htm

og se under Programming Tools for Port I/O and Interrupts

MVH Lars



[Redigeret d. 09/04-02 18:18:13 af Lars G]

Jeg mangler lidt hjælp til hvordan jeg kan skrive direkte til lpt3 printer porten i Delphi

Jeg har prøvet med:

var
lst:textfile;
begin
Assignfile(lst,'LPT3');
rewrite(lst);
writeln(lst,' Hej Hej');
closefile(lst);
end;

Der kommer en fejltilstand: invalid filename.

Hvis jeg kører næsten samme program i "gamle" Borland Pascal så virker det godt nok med

var
lst:text;
begin
Assign(lst,'LPT3');
rewrite(lst);
writeln(lst,' Hej Hej');
close(lst);
end;

Er der en af jer som kan hjælpe mig igang

jegvedikke omdet er rigtitg men jeg ved a når jegbruger pascal til at skrive til ltp porten, ved je at i delphi kandet kunladesig gøre med et component, hvilket aner jeg ikke, desuden bruger jeg en anden kode!

-Thomas