새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

B-452라벨프린터로 인쇄합니다 델파이7에서는 한글 영문 순자 모두 이상없이 나오는데 XE7으로 실행하면 '한글'만나오고 '-ABC-1234' 는 인쇄가 안됩니다 원인은 유니코드때문이라 추측하고 이것저것많이 해봤지만 해결을 못하여 문의드립니다 

unit barcode7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function FnMiniBarcodePrint(v_Prodknm : AnsiString) : boolean;
    function GetHangul452(HanData: AnsiString): AnsiString;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FnMiniBarcodePrint('한글-ABC-1234'); // 한글인쇄 영문인쇄
end;

function TForm1.FnMiniBarcodePrint(v_Prodknm: AnsiString): boolean;
var OutFile : TextFile; //로 변수를 잡고서
    sPrn : AnsiString ;     //바코드 프린팅 명령어를 넣어주고
begin
    sPrn := '{D0230,0550,0200|}';
    sPrn := sPrn + '{C|}';  //버퍼크리어
    sPrn := sPrn + '{AY;+00,0|}';  //+09->헤드온도
       sPrn := sPrn + '{PC001;0050,0121,2,2,51,00,B|}';  //51->한글폰트   //한글인쇄
    sPrn := sPrn + '{RC001;' + GetHangul452(v_Prodknm) + '|}';
    sPrn := sPrn + '{XS;I,0001,0002C5100|}';
    ShowMessage(GetHangul452(v_Prodknm));
    try
      AssignFile(OutFile, 'LPT1');
      Rewrite(OutFile);
      Writeln(OutFile, sPrn);
      CloseFile(OutFile);
      Result := true;
    except
      CloseFile(OutFile);
      Result := false;
    end;
end;

function TForm1.GetHangul452(HanData: AnsiString): AnsiString;

var
hData: AnsiString;
tData: Ansistring;
tData01: AnsiString;
hOrd01 : integer;
StrPos: integer;
ExitWhile: integer;
HanChar : array[0..5] of AnsiChar;
begin
     hData := Trim(HanData);
     tData := '';
     StrPos := 1;
     ExitWhile := 1;
while (ExitWhile <> 0) do
     begin
         strpcopy(HanChar,copy(hData, StrPos, 2));
         hOrd01 := ord(HanChar[0]);
         if copy(hData, StrPos, 1) > #128 Then
             begin
             tData01 := copy(Trim(hData), StrPos, 2);
             StrPos := StrPos + 2;
             end
         else
         begin
         if copy(hData, StrPos, 1) = #32 Then
            tData01 := chr(163) + chr(160);
            tData01 := chr(163) + chr(hOrd01+128);
            StrPos := StrPos + 1;
         end;
         tData := tData + tData01;

          if Length(hData) < StrPos then
             begin
             ExitWhile := 0;
             end;
      end;

     Result := tData;

end;


end.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.4~2019.7 관리자 2015.01.22 6403
공지 유용한 관련 사이트 관리자2 2014.03.20 43736
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85023
1351 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 4 [1] file 관리자 2016.05.02 140
1350 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 3 [1] 관리자 2016.05.02 68
1349 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 2 [1] file 관리자 2016.05.02 76
1348 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 1 [1] file 관리자 2016.05.02 101
1347 FireDAC Unicode 문제? [2] file 홍홍홍 2016.05.24 204
1346 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 23 - Exercise 1 관리자 2016.05.27 62
1345 VCL 파일 배포 질문. syc 2016.05.27 59
1344 ListBox Item Style내부 색상변경 [2] 박군80 2016.05.24 264
1343 OSX 개발시 ICON 가져오기 freehun 2016.05.27 64
1342 DBGIRD 내용을 PDF로 저장하는 방법 문의 [1] JKPARK 2016.05.16 372
1341 안드로이드 블루투스 한글 관련 질문 [1] hsson 2016.05.13 278
1340 위험 경보앱을 코드 입력해서 다만들었는데 실행이 되지 않습니다. [2] file 교타로 2016.05.20 107
1339 델파이를 이용하여 ioT [2] 김하나 2016.05.13 324
1338 XE8 블루투스 메티페어링 가능한지? [1] 제이슨 2016.05.25 235
1337 투명판넬 처리에 대해서..? [3] file 헨씀히포 2016.05.19 964
1336 델파이로 Jsp,php 등 웹서버와 통신할수 있나요? [2] 드레곤 2016.05.26 465
1335 안드로이드 비트맵 최대크기관련 질문. [1] hsson 2016.05.26 260
1334 파이어몽키로 사진저장 파일오류...?? [1] 밤바야 2016.05.26 331
1333 델파이와 전자정부프레임워크와 연동이 가능한가요? [1] 드레곤 2016.05.25 123
1332 퀵레포트 미라보기가 윈도우10에서는 축소해서 나옵니다 file 헨씀히포 2016.05.25 286



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..