Arsip: cek printer hiDup/mati

more 19 years ago
ImanD
frienDs gwe mo nanya gimana listing buat ngecek klo printer hiDup/matinya. soalnya klo printer msh mati program koe jadi hang nich. tolong dibantuin.

more 19 years ago
mat_koder
emangnya ngeakses printer pake cara gimana tuh ampe hang segala ( klo si printer ngga di-ON-in)
pake report engine apa akses TPrinter?

more 19 years ago
saysansay
Coba Pake Fungsi Yang ini
Function PrinterStatus(LPTPort: Word): Byte;
var
Status: byte;
CheckLPT: word;
begin
Status := 0;
if (LPTPort >= 1) and (LPTPort <= 3) then
begin
CheckLPT := LPTPort - 1;
asm
mov dx, CheckLPT;
mov al, 0;
mov ah, 2;
int 17h;
mov &Status, ah;
end;
end;
Result := Status;
end;
Ok Never Give Erorr Wakakakaakakkakaka
more 19 years ago
ImanD
thanks ya ntar gwe coba dulu.
btw kemarin temen gwe di kalimantan pke vb katanya hang klo printer gwe, tar gwe convert ke .dll atw script vb.
saysansay gwe pengen pke image di akun gwe, gmn ye kasitau.

more 19 years ago
brodien
halo...
apa betul ya function itu gak bisa jalan di keluarganya NT (aku ake XP pro)
Note:
This function doesn't work under NT, it gives an access violation
from the DOS interrupt call.
//
klo pake winXP pr o gimana ya caranya
manggil function itu
==========
pas lpt di kasih nilai 1
error pas int17h;
keluar acces violation...............
gimana ya caranya...........

more 19 years ago
saysansay
Wakakakaka..Kata sapa Nga jalan Di XP Mungkin Pemanggilan Fungsinya salah.....
Bole tak liat Coding buat Manggil Fungsinya

more 19 years ago
brodien
jangan di ketawain dong ntar gua ngambek trus siapa yang bertanya paling banyak di forum ini ( kayak nya aku pegang rekor bertanya)
wakakakak juga
var
prn:word;
begin
prn:=testprinterstatus(1);
edit1.Text:=pchar(prn);
end;
==============
klo aku mau menyetringkan
01h - Timeout
08h - I/O Error
10h - Printer selected
20h - Out of paper
40h - Printer acknowledgement
80h - Printer not busy (0 if busy)
=========
biar klo edit1.text:=10h
aku bisa bikin showmessage('masukkan kertas');
=============
makasih
jangan :lol: in aq ya aq :oops:

more 19 years ago
mat_koder
spy bisa jalan di NT/XP , diperlukan driver yg ngebolehin akses ke port IO.
salah satunya :
http://www.driverlinx.com/DownLoad/DlPortIO.htm
HTH

more 17 years ago
basslover
gw uda donlod driver nya tapi tetep ga bisa tuh. .salah dimana yah.. btw, setelah donlod driver perlu dikutak katik ga tuh programnya... ga ngerti nih.. ndeso nih.. wew
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- Insert Data Stringgrid Ke combobox
by hak3nd3n in Network, Files, I/O & System more 16 years ago - Absen dengan barcode
by nasbms in Tutorial & Community Project more 13 years ago - program yang bisa aktiv sendiri setiap 5 menit
by goodday in Tip n Trik Pemrograman more 19 years ago - [OOT]-Ada yg perlu MSSQL Server 2005??
by ichan29 in OOT more 18 years ago - tanya ngatur ukuran kertas buat double folio
by budhie_yk in Reporting more 17 years ago - Triger mysql ke host berbeda
by sinaga in MySQL more 15 years ago - Drivernya apa yah ?
by budi_bunga in OOT more 18 years ago - error : STRING type tidak cocok dengan NULL type...
by nnd_ms in MySQL more 19 years ago - membuat simulasi di program delphi
by salsa in Hal umum tentang Pascal Indonesia more 14 years ago - E-Book Here!
by ZeAL in OOT more 20 years ago