Q&A
- ^JOB_INFO_1 -> 인식문제
프린터 스풀제어에 관하여 김영대님께서 올리신 글을 찾았습니다.
그런데 에러가 나는군요...T.T
제 생각에 uses절에 뭐가 빠진거 같은데 뭐가 빠졌는지 몰겠네요...
아시는 분 글 좀 남겨 주십시요.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, winspool, Activex, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
var
i : integer;
pjobinfo : ^JOB_INFO_1; <--에러 위치(Undeclared Identifire)
hprinter : Thandle;
dwneeded, dwreturned : Dword;
begin
dwneeded := 0;
dwreturned := 0;
msg.Result := 0;
if (OpenPrinter('삼성 MyLaser ML-66H', hprinter, nil) = false) then closeprinter(hprinter);
if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, nil, 0, dwneeded, dwreturned) = false) then
begin
if (GetLastError() <> ERROR_INSUFFICIENT_BUFFER) then closeprinter(hprinter);
end;
GetMem(pjobinfo, dwNeeded);
if (pjobinfo = nil) then closeprinter(hprinter);
if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, pjobinfo, dwneeded, dwneeded, dwreturned) = false) then begin
closeprinter(hprinter);
FreeMem(pjobinfo);
end;
if msg.jobsleft > 1 then setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,1);
end;
end.
그런데 에러가 나는군요...T.T
제 생각에 uses절에 뭐가 빠진거 같은데 뭐가 빠졌는지 몰겠네요...
아시는 분 글 좀 남겨 주십시요.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, winspool, Activex, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
var
i : integer;
pjobinfo : ^JOB_INFO_1; <--에러 위치(Undeclared Identifire)
hprinter : Thandle;
dwneeded, dwreturned : Dword;
begin
dwneeded := 0;
dwreturned := 0;
msg.Result := 0;
if (OpenPrinter('삼성 MyLaser ML-66H', hprinter, nil) = false) then closeprinter(hprinter);
if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, nil, 0, dwneeded, dwreturned) = false) then
begin
if (GetLastError() <> ERROR_INSUFFICIENT_BUFFER) then closeprinter(hprinter);
end;
GetMem(pjobinfo, dwNeeded);
if (pjobinfo = nil) then closeprinter(hprinter);
if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, pjobinfo, dwneeded, dwneeded, dwreturned) = false) then begin
closeprinter(hprinter);
FreeMem(pjobinfo);
end;
if msg.jobsleft > 1 then setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,1);
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델파이종
- •
- 2001.08.03 22:48
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.04 01:29델파이종 wrote: > > 컴포넌트 동적생성에 대해 많이들 묻고답하셨던데... > > 제가초보라그런지 아...
-
- 소연이
- •
- 2001.08.03 22:29
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.03 23:46소연이 wrote: > 안녕하세염.. > 델파이를 공부중인 소연이에염.. > 많이 많이 모자라고..부족한게 많아...
-
- 델맨
- •
- 2001.08.03 22:19
- 1 COMMENTS
- /
- 0 LIKES
-
irookie•2001.08.03 22:34지가 지금 직접 해 보았는데, 그냥 그자리에 입력이 되는데요? 혹시 인덱스나, 쿼리의 order by를 사용...
-
- 정종섭
- •
- 2001.08.03 22:16
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.08.09 03:39가능합니다... 여기 자료실인가에 소스 있습니다. SOcket이용해서 파일 주고 받는 거요 정종섭 wrote: ...
-
- irookie
- 2001.08.03 22:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 성필
- •
- 2001.08.03 21:40
- 4 COMMENTS
- /
- 0 LIKES
-
성필•2001.08.03 23:27답변해 주셔서 감사합니다. 하나씩 대입하면서 mismatch 부분을 찾고, 형식을 몇 번 바꾼 결과 성공했습니...
-
김정선•2001.08.04 04:17쿼리문에서 SELECT 를 제외하고는 마지막에 ExecSQL 을 사용합니다.. 그런데..님의 소스 마지막에 Ex...
-
좋은날•2001.08.03 23:08성필 wrote: > 안녕하세요.. > 1시간째 요거 잡느냐구..ㅡㅡ;; > 부탁합니다..흘흘.. > 어디가 에러났...
-
김정선•2001.08.03 22:50입력 필드를 하나 하나씩 늘려가면서 해 보십시요.. 디비가 뭐에 따라서 인티저 타입이나 날짜 타입을 ...
-
- 델초보
- 2001.08.03 21:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.08.03 21:02
- 1 COMMENTS
- /
- 0 LIKES
-
명탁•2001.08.15 11:35초보 wrote: > 인터베이스 5.5를 삭제하려고 합니다. > 프로그램추가삭제에서 하면 실행중이라 프로그램...
-
- 완전초보
- •
- 2001.08.03 20:48
- 1 COMMENTS
- /
- 0 LIKES
-
설탕시럽•2001.08.03 21:05완전초보 wrote: > currency edit를 사용하는데요 초기화가 되지않아서 예를 들어 currency1에 1000을 쓰...
-
- 완전초보
- •
- 2001.08.03 20:17
- 2 COMMENTS
- /
- 0 LIKES
-
김정선•2001.08.03 22:53메인이 되는 테이블 컴포넌트와 디비 그리드를 연결하시고... 디테일이 되는 테이블 컴포넌트의 프라퍼...
-
방기남•2001.08.03 21:14Master / Detail 에 대해서 공부를 하시면 바로 적용하실 수 있습니다.
-
- 탈초보하자
- •
- 2001.08.03 20:13
- 4 COMMENTS
- /
- 0 LIKES
-
스따시커•2001.08.07 01:13select maincd, seccd, val from percode order by maincd, seccd 일케 하면 될 듯 한데여..^^;;;...
-
김정선•2001.08.03 22:56SELECT 코드대분류, 코드소분류, 코드내용 FROM 테이블 GROUP BY 코드대분류, 코드소분류 하시면 ...
-
초보•2001.08.03 23:43김정선 wrote: > > > SELECT 코드대분류, 코드소분류, 코드내용 > FROM 테이블 > GROUP BY 코드대분...
-
김정선•2001.08.04 04:19Group by 로 해보셨나요? 제가 보기엔 서브쿼리까지 쓰실 필요가 없을듯해서요.. 함 해보셔요....
-
- 광란자
- •
- 2001.08.03 20:11
- 1 COMMENTS
- /
- 0 LIKES
프린터 스풀제어에 관하여 김영대님께서 올리신 글을 찾았습니다. 그런데 에러가 나는군요...T.T 제 생각에 uses절에 뭐가 빠진거 같은데 뭐가 빠졌는지 몰겠네요... 아시는 분 글 좀 남겨 주십시요. unit Unit1; interface uses Windows,...-
최용일•2001.08.03 21:31안녕하세요. 최용일입니다. WinSpool유닛을 추가해주세요... ^^ 항상 즐코하세요... 광란자 wrot...
-
- xxx
- •
- 2001.08.03 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
김정선•2001.08.03 23:01TO_DATE 함수를 쓰는걸 보니 오라클인거 같네요.. TO_DATE를 사용하실경우 TO_DATE( 날자, 형식 ) 이...
-
- 김재성
- 2001.08.03 19:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 정종섭
- 2001.08.03 19:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보~
- •
- 2001.08.03 18:45
- 1 COMMENTS
- /
- 0 LIKES
-
이박사•2001.08.03 19:28번호 3649 김영대님께서 설명올려놓으셨네여. 검색기에서 작성자를 선택하시고 "김영대"라고 입력하신뒤 ...
-
- 초보입니다...
- 2001.08.03 18:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 군바리델피언
- 2001.08.04 00:35
- 0 COMMENTS
- /
- 0 LIKES
-
- dskang
- •
- 2001.08.03 07:47
- 1 COMMENTS
- /
- 0 LIKES
-
방기남•2001.08.03 21:15여기 자료실에서 FlatStyle 라고 찾아보시면 있습니다.
-
- 정이
- •
- 2001.08.03 06:55
- 2 COMMENTS
- /
- 0 LIKES
-
aparadin•2001.08.04 01:54정이 wrote: > 클릭한 셀의 내용을 알고 싶어서 > StrGring1.Cells[StrGring.Col, StrGring.Row] 이렇게 ...
-
광란자•2001.08.03 18:45혹시 스트링그리드의 옵션에서 goRowSelect가 트루 아닙니까? 아마도 이걸 수정하면.....쩝
WinSpool유닛을 추가해주세요...
^^ 항상 즐코하세요...
광란자 wrote:
> 프린터 스풀제어에 관하여 김영대님께서 올리신 글을 찾았습니다.
> 그런데 에러가 나는군요...T.T
> 제 생각에 uses절에 뭐가 빠진거 같은데 뭐가 빠졌는지 몰겠네요...
> 아시는 분 글 좀 남겨 주십시요.
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ComCtrls, winspool, Activex, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> private
> { Private declarations }
> procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
> message WM_SPOOLERSTATUS;
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
> var
> i : integer;
> pjobinfo : ^JOB_INFO_1; <--에러 위치(Undeclared Identifire)
> hprinter : Thandle;
> dwneeded, dwreturned : Dword;
>
> begin
> dwneeded := 0;
> dwreturned := 0;
> msg.Result := 0;
>
> if (OpenPrinter('삼성 MyLaser ML-66H', hprinter, nil) = false) then closeprinter(hprinter);
> if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, nil, 0, dwneeded, dwreturned) = false) then
> begin
> if (GetLastError() <> ERROR_INSUFFICIENT_BUFFER) then closeprinter(hprinter);
> end;
>
> GetMem(pjobinfo, dwNeeded);
>
> if (pjobinfo = nil) then closeprinter(hprinter);
>
> if (EnumJobs(hprinter, 0, $FFFFFFFF, 1, pjobinfo, dwneeded, dwneeded, dwreturned) = false) then begin
> closeprinter(hprinter);
> FreeMem(pjobinfo);
> end;
>
> if msg.jobsleft > 1 then setjob(hprinter,pjobinfo^.jobid,1,pjobinfo,1);
>
> end;
>
> end.