자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
2019 sendMultimediaMessage 사용방법은?? [1] kerry 2017.12.14 540
2018 디스플레이 설정에서 항목 크기 변경(HighDPI 적용) 후 컨트롤 크기 및 위치를 수동 지정 시 올바르게 표시되지 않습니다. file 험프리 2017.12.14 1382
2017 [마이그레이션] MaxLength 속성이 이전버전(2007 이전)에서는 한글이 2였는데... file 험프리 2017.12.14 434
2016 cport 질문드려요! 신종훈 2017.12.13 213
2015 모바일에서 메일전송시 ssl negotiation failed 메세지?? [1] kerry 2017.12.08 302
2014 intent 이용 sms,mms 보낼때 이미지 파일및 동영상파일 첨부는?? 고견을 부탁드립니다. 답변 0 [1] kerry 2017.12.12 1065
2013 델파이 도쿄10.2.1 에서 개발한 앱을 ios Enterprise program형태로 배포 [1] 밤바야 2017.12.11 145
2012 XE10 시애틀에서는 문제가 없는 소스가 10.2에서 컴파일 후 segment falut 11이 발생해요~ [1] file 소란코더 2017.12.12 130
2011 파이어몽키 mms 장문문자+이미지파일및 첨부파일 전송?? [1] kerry 2017.12.07 676
2010 Datasnap 오류 문의 [1] 파란하늘 2017.12.07 218
2009 적외선 리모컨 앱을 만들고 싶습니다 [1] 박군80 2017.09.21 572
2008 [안드로이드]LocationSensor의 Accuracy / Distance 에 대한 문의 [1] 소란코더 2017.12.04 254
2007 CPort baudrate 질문드려요 [1] 신종훈 2017.12.04 325
2006 안드로이드 Runtime.getRuntime().exec 커멘드처럼 할려면 어떻게 해야하나요? [1] 소란코더 2017.12.04 1723
2005 TMediaPlayer 위의 텍스트 구현 문제 [1] 소란코더 2017.12.01 149
2004 (델파이xe8) 중국어 데이타베이스 등록시 깨짐 발생 [1] 라일락 2017.12.01 372
2003 광고영상 재생 프로그램 강제 종료 오류 관련 문의 [2] file 소란코더 2017.11.24 335
2002 XML 호출해서 사용하는 프로그램인데 윈도우플랫폼에서는 잘되는데 안드로이드 플랫폼에서 오류남 [5] SHWOO 2017.11.17 511
2001 class tlineseries not found [1] rrraggg 2017.11.30 129
2000 RAD 스튜디오질문있습니다. [1] JK 2017.11.28 120