 Test Print Is Online |
|
|
|
|
  |
 Oct 23 2006, 11:51 AM
Post
#1
|
|
|
Newbie  Group: Members Posts: 1 Joined: 23-October 06 Member No.: 32,084  |
Test print is OnLine
CODE Function PrinterOnLine : Boolean; Const PrnStInt : Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. } Var nResult : byte; Begin (* PrinterOnLine*) Asm mov ah,StRq; mov dx,PrnNum; Int $17; mov nResult,ah; end; PrinterOnLine := (nResult and $80) = $80; End; Error: CODE [Warning] Funcoes.pas(204): Unsafe code 'ASM'
|
 |
 
|
|
Oct 23 2006, 09:10 PM
Post
#2
|
|
|
$p4m 0n j00 $h4m3 m3 0nc3 $p4m 0n m3 $h4m3 m3 7\/\/1c3 Group: [HOSTED] Posts: 6,444 Joined: 21-September 04 From: 9r33|\| 399$ 4|\|D 5P4/\/\ Member No.: 1,218  |
Although I don't know this type of programming it would help to know what this is used for and what not. Just posting code doesn't help any members who might have questions about what your post is about or what problems you might have with it.
|
|
|
|
|
Oct 24 2006, 10:22 PM
Post
#3
|
|
|
Super Member Group: Members Posts: 399 Joined: 14-November 04 From: Elysium Member No.: 2,280 |
QUOTE Although I don't know this type of programming it would help to know what this is used for and what not. Just posting code doesn't help any members who might have questions about what your post is about or what problems you might have with it. Actually, St. Michael, it isn't really that arcane. Ok, /]/]@t, from the looks of it, your program should work fine. - Checks printer status, right? - It's just that your compiler/assembler either a)doesn't like asm or b)is paranoid. Probably because you left nResult as a variable. In either case, turning warnings off should solve the problem. And I hate to say it, but Saint_Michael's right. Specify your post next time. Don't expect someone like me to come by and say. *Oh! That's obvious.*  Btw. what compiler/assembler are you using there? |
|
|
|
|
Similar Topics
|
Lo-Fi Version | Time is now: 6th September 2008 - 05:48 AM |