Standardprinter i Delphi 5?

husk at læse "commens"
http://www.swissdelphicenter.ch/en/showcode.php?id=660

>Stone
Tak for svaret. Jeg har læst på lektien. Jeg må vel også kunne bruge TPrinter Object direkte. Jeg kan dor ikke finde noget om at checke om standardprinteren er Online eller Offline. Ved du hvordan det evt. gøres?

jo men den virker ikke i NT

ved tryk på button1 kommer der en fejlmelding ved .....int $17 // status in ah


function PrinterStatus : integer;
asm
mov ah, 2 // function 2 - returns status of port
mov dx, 0 // lpt1 = 0, lpt2 = 1 etc
int $17 // status in ah
mov al, ah
and eax, $FF // status now in eax with top 24 bits cleared
end;

const
PrinterCodes : array [0..7] of string =
('printer timed-out',
'unused',
'unused',
'I/O error',
'printer selected',
'out of paper',
'printer acknowedgment',
'printer not busy');

procedure TForm1.Button1Click(Sender: TObject);
var
L, P : integer;
begin
P := PrinterStatus;
ListBox1.Clear;
for L := 0 to 7 do
if P and (1 shl L) <> 0 then
ListBox1.Items.Add (PrinterCodes [L]);
end;

har siddet og arb lidt på det og kan ikke få den til at virke i NT kan ikke se hvorfor.

>Stone: Jeg har prøvet ovenstående i Windows XP, men får EAccessViolation i asm-linien int $17.

>Stone: Udover det - virker det kun på lpt-porte? Hvad hvis det er en TCP/IP port på et internt netværk?

når det ikke virker i NT vil det heller ikke virke i xp.

ja mit eksempel dur ikke, det er for gammelt.

prøver lige at kigge på en anden løsning

Nedlagt spørgsmål.