Q&A
- writeprinter함수 오류좀 잡아주세요
Dot로 바로 출력하는 부분인데 이상하게 WritePrinrer함수에서 에러가 납니다
좀 도와 주세요 참고로 저는 델파이4를 씁니다
Error 메세지는 (Types of actual and Fomal Var Parameters Must be Identical)입니다
type
TDocInfo = record
pDocName : PChar;
pOutputFile : PChar;
pDatatype : PChar;
end;
{$IFDEF Win32}
function TK_Sale_m2_18.PrintData( Data : String ): Boolean;
var
Prt : TPrinter;
ADevice, ADriver, APort : array[0..79] of Char;
ADeviceMode, HPrt : THandle;
DocInfo : TDocInfo;
WriterCount : Integer;
begin
Result := False;
Prt := Printer;
Prt.PrinterIndex := -1;
Prt.GetPrinter (ADevice, ADriver, APort, ADeviceMode);
if not OpenPrinter(ADevice, HPrt, nil) then
begin
Result := False;
Exit;
end;
if HPrt = 0 then
begin
Result := False;
Exit;
end;
DocInfo.pDocName := 'Test Print';
DocInfo.pOutputFile := nil;
DocInfo.pDataType := 'RAW';
if StartDocPrinter(HPrt, 1, @DocInfo) = 0 then
begin
Result := False;
Exit;
end;
if not StartPagePrinter(HPrt) then
begin
Result := False;
Exit;
end;
//이부분에서 에러가 납니다
if not WritePrinter(HPrt, PChar(Data), Length(Data), WriterCount) then
begin
MessageBeep($ffff);
Result := False;
Exit;
end;
if not EndPagePrinter(HPrt) then
begin
Result := False;
Exit;
end;
if not EndDocPrinter(HPrt) then Exit;
ClosePrinter(HPrt);
end;
{$ENDIF}
좀 도와 주세요 참고로 저는 델파이4를 씁니다
Error 메세지는 (Types of actual and Fomal Var Parameters Must be Identical)입니다
type
TDocInfo = record
pDocName : PChar;
pOutputFile : PChar;
pDatatype : PChar;
end;
{$IFDEF Win32}
function TK_Sale_m2_18.PrintData( Data : String ): Boolean;
var
Prt : TPrinter;
ADevice, ADriver, APort : array[0..79] of Char;
ADeviceMode, HPrt : THandle;
DocInfo : TDocInfo;
WriterCount : Integer;
begin
Result := False;
Prt := Printer;
Prt.PrinterIndex := -1;
Prt.GetPrinter (ADevice, ADriver, APort, ADeviceMode);
if not OpenPrinter(ADevice, HPrt, nil) then
begin
Result := False;
Exit;
end;
if HPrt = 0 then
begin
Result := False;
Exit;
end;
DocInfo.pDocName := 'Test Print';
DocInfo.pOutputFile := nil;
DocInfo.pDataType := 'RAW';
if StartDocPrinter(HPrt, 1, @DocInfo) = 0 then
begin
Result := False;
Exit;
end;
if not StartPagePrinter(HPrt) then
begin
Result := False;
Exit;
end;
//이부분에서 에러가 납니다
if not WritePrinter(HPrt, PChar(Data), Length(Data), WriterCount) then
begin
MessageBeep($ffff);
Result := False;
Exit;
end;
if not EndPagePrinter(HPrt) then
begin
Result := False;
Exit;
end;
if not EndDocPrinter(HPrt) then Exit;
ClosePrinter(HPrt);
end;
{$ENDIF}
3
COMMENTS
-
-
안녕하세요!
최용일님께서 말씀하신대로 수정을 하니 정장적으로 되는군요.
감사합니다.
근데 궁금합니다
왜 Cardinal로 선언을 해야하죠?
댈3에서는 문제가 없었는데.........
-
안녕하세요. 최용일입니다.
약간 바뀌었습니다. 델4,5에서는 뒤의 파라매터가 DWORD형으로 선언되어 있습니다.
^^ 즐코하세요.
이승우 wrote:
> 안녕하세요!
> 최용일님께서 말씀하신대로 수정을 하니 정장적으로 되는군요.
> 감사합니다.
> 근데 궁금합니다
> 왜 Cardinal로 선언을 해야하죠?
> 댈3에서는 문제가 없었는데.........
(NOTICE) You must be logged in to comment on this post.
-
- 성찬
- 2000.08.01 06:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종석
- •
- 2000.08.01 06:18
- 2 COMMENTS
- /
- 0 LIKES
-
허춘•2000.08.01 08:49김종석 wrote: > 음...어떻게 설명을해야할지... > 간단한 주소록을 작성하고 있습니다. > 제가 사용하...
-
4master•2000.08.01 07:04김종석 wrote: > 음...어떻게 설명을해야할지... > 간단한 주소록을 작성하고 있습니다. > 제가 사용하...
-
- 김영습
- •
- 2000.08.01 06:10
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.01 06:43안녕하세요. 최용일입니다. 윈도우미디어플레이어만 따로 깔면됩니다. 6.4이상의 버전을 설치하시면 됩...
-
- webcome
- •
- 2000.08.01 05:23
- 2 COMMENTS
- /
- 0 LIKES
-
4master•2000.08.01 07:08webcome wrote: > 불철주야 저희같은 초보를 위해 애쓰시는 고수님들 먼저 감사드리며.... > > access...
-
webcome•2000.08.02 08:384master wrote: > webcome wrote: > > 불철주야 저희같은 초보를 위해 애쓰시는 고수님들 먼저 감사드리...
-
- 남효숙
- •
- 2000.08.01 05:15
- 2 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.08.01 05:21남효숙 wrote: > 음, 오랜 만에 들어와서 원시적인 질문을 하게 되었네요...쩝~ > > 다른 여타의 프린...
-
남효숙•2000.08.01 18:29음, 설마 엡손회사에 다니는건 아니지요? ^^; 몇 시간을 끙끙대서야 다른 버전을 다운 받을 걸 생각해냈...
-
- 빌더맨
- •
- 2000.08.01 04:44
- 1 COMMENTS
- /
- 0 LIKES
-
고준환•2000.08.07 20:53빌더맨 wrote: > CppWebrower 컴포넌트를 쓰면 웹브라우저를 만들수 있다고 하는데, 어떻게 만드나요? > ...
-
- 배움이
- 2000.08.01 03:58
- 0 COMMENTS
- /
- 0 LIKES
-
- somoon
- •
- 2000.08.01 03:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.01 06:42안녕하세요. 최용일입니다. 타이머건 뭐건 시스템 리소스를 사용하지 않는것은 없습니다. 타이머를 사용...
-
- 최제승
- •
- 2000.08.01 03:17
- 3 COMMENTS
- /
- 0 LIKES
-
이은정•2000.08.01 03:38최제승 wrote: > 이런 종류의 질문이 있긴 했는데 답변이 없어서 다시글을 올립니다. > 제목과 같이 db...
-
최제승•2000.08.01 03:58이은정 wrote: > 최제승 wrote: > > 이런 종류의 질문이 있긴 했는데 답변이 없어서 다시글을 올립니다. ...
-
이발사•2000.08.03 02:08최제승 wrote: > 이은정 wrote: > > 최제승 wrote: > > > 이런 종류의 질문이 있긴 했는데 답변이 없어...
-
- 강경원
- 2000.08.01 02:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민우
- 2000.08.01 01:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 보헤미안
- 2000.08.07 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김기수
- 2000.08.01 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 개발자
- •
- 2000.08.01 01:16
- 1 COMMENTS
- /
- 0 LIKES
-
이은정•2000.08.01 03:40개발자 wrote: > 디비그리드에서 마지막 필드에 도달했을때 다음 칸으로 이동하려 하는데 > > 실제로 ...
-
- 초보
- •
- 2000.08.01 01:11
- 1 COMMENTS
- /
- 0 LIKES
-
4master•2000.08.01 07:21초보 wrote: > MDI의 Child폼의 크기를 변경하고 싶거든요 > > 일단 처음 생성시에 borderstyle을 bsSi...
-
- 하명훈
- •
- 2000.08.01 00:55
- 1 COMMENTS
- /
- 0 LIKES
-
허춘•2000.08.01 08:29하명훈 wrote: > > 파라독스를 Tssesion을 이용해서 공유하는 방법은 많이 올라와있던데.. > 이미 만들...
-
- 이승우
- •
- 2000.08.01 01:00
- 3 COMMENTS
- /
- 0 LIKES
Dot로 바로 출력하는 부분인데 이상하게 WritePrinrer함수에서 에러가 납니다 좀 도와 주세요 참고로 저는 델파이4를 씁니다 Error 메세지는 (Types of actual and Fomal Var Parameters Must be Identical)입니다 type TDocInfo = record...-
최용일•2000.08.01 01:02안녕하세요. 최용일입니다. 그건 변수형이 안맞아서 그런것입니다. 아래와 같이 Cardinal형으로 형변...
-
이승우•2000.08.01 05:15안녕하세요! 최용일님께서 말씀하신대로 수정을 하니 정장적으로 되는군요. 감사합니다. 근데 궁금합니...
-
최용일•2000.08.01 06:28안녕하세요. 최용일입니다. 약간 바뀌었습니다. 델4,5에서는 뒤의 파라매터가 DWORD형으로 선언되어 있...
-
- 영원한 초보
- 2000.08.01 00:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 황웅
- •
- 2000.08.01 00:04
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.01 01:05안녕하세요. 최용일입니다. bmp그림을 가지고 윈도우영역을 재설정하시면 됩니다. 좀더 쉽게 할려면 이...
-
이경문•2000.08.01 00:51HRgn이라는 Class를 살펴 보세요
-
- 김봉준
- •
- 2000.07.31 23:10
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.31 23:21두번째 질문은 잘 모르겠구요.. 첫번째것은 Memo 컴포넌트의 Property 중 WantRabs라는 프로퍼티를 True...
그건 변수형이 안맞아서 그런것입니다.
아래와 같이 Cardinal형으로 형변환해주세요...
WritePrinter(HPrt, PChar(Data), Length(Data), DWORD(WriterCount));
^^ 항상 즐코하세요.
이승우 wrote:
> Dot로 바로 출력하는 부분인데 이상하게 WritePrinrer함수에서 에러가 납니다
> 좀 도와 주세요 참고로 저는 델파이4를 씁니다
> Error 메세지는 (Types of actual and Fomal Var Parameters Must be Identical)입니다
>
> type
> TDocInfo = record
> pDocName : PChar;
> pOutputFile : PChar;
> pDatatype : PChar;
> end;
>
> {$IFDEF Win32}
> function TK_Sale_m2_18.PrintData( Data : String ): Boolean;
> var
> Prt : TPrinter;
> ADevice, ADriver, APort : array[0..79] of Char;
> ADeviceMode, HPrt : THandle;
> DocInfo : TDocInfo;
> WriterCount : Integer;
> begin
> Result := False;
>
> Prt := Printer;
> Prt.PrinterIndex := -1;
>
> Prt.GetPrinter (ADevice, ADriver, APort, ADeviceMode);
>
> if not OpenPrinter(ADevice, HPrt, nil) then
> begin
> Result := False;
> Exit;
> end;
>
> if HPrt = 0 then
> begin
> Result := False;
> Exit;
> end;
>
> DocInfo.pDocName := 'Test Print';
> DocInfo.pOutputFile := nil;
> DocInfo.pDataType := 'RAW';
>
> if StartDocPrinter(HPrt, 1, @DocInfo) = 0 then
> begin
> Result := False;
> Exit;
> end;
>
> if not StartPagePrinter(HPrt) then
> begin
> Result := False;
> Exit;
> end;
>
> //이부분에서 에러가 납니다
> if not WritePrinter(HPrt, PChar(Data), Length(Data), WriterCount) then
> begin
> MessageBeep($ffff);
> Result := False;
> Exit;
> end;
>
>
> if not EndPagePrinter(HPrt) then
> begin
> Result := False;
> Exit;
> end;
>
> if not EndDocPrinter(HPrt) then Exit;
>
> ClosePrinter(HPrt);
>
> end;
> {$ENDIF}
>