자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Delphi 델파이7과 델파이XE에서의 동일 함수의 리턴값이 서로 다릅니다.

2012.05.03 20:29

희망봉 조회 수:11673

궁금한 사항이 있어서 문의드립니다.

Delphi7과 Delphi XE에서 아래의 함수를 각각 실행해 보았을 때

Return(sT)값이 서로 틀리게 넘어오는데 

왜 그런지 확인 부탁드립니다.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

  ComCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    IdTCPClient: TIdTCPClient;

    Button2: TButton;

    Button3: TButton;

    edtIp: TEdit;

    edtPort: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    lStatus: TPanel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

const

  STX = #$02;

  ETX = #$03;

  LF = #$0A; // Line Feed

  CR = #$0D; // Carriage Return

  SO = #$0E; // 확대적용

  SI = #$0F; // 확대취소

implementation

{$R *.DFM}

// CRC를 계산해 준다

function funGetCrc( lsData : String ) : String;

var crc,temp  : Word;

    lnI,lnJ,lnL : Integer;

    SEED : word;

begin

  SEED := $8005;

  crc  := $ffff;

  if Length(lsdata) = 0 then

  begin

    result := #$00#$00;

    Exit;

  end;

  lnL := length(lsData);

  for lnI := 1 to  lnL do

  begin

    temp := byte(lsData[lnI]) and $00ff;

    for lnJ := 1 to 8 do

    begin

      if  ((crc and $0001) xor (temp and $0001)) <> $0000 then

      begin

         crc := (crc shr 1) xor SEED;

      end else

      begin

         crc := (crc shr 1);

      end;

      temp := (temp shr 1);

    end;

  end;

  result := chr(low(Temp)) + chr(low(crc)) ;

  crc    := not crc;

  temp   := crc;

  crc    := (crc shl 8) or ((temp shr 8) and $00ff);

  temp   := (crc shr 8);

  crc    := (crc shl 8);

  crc    := (crc shr 8);

  result := chr(Temp) + chr(crc);

end;

function funMakePrt( PrtFileName, PrtData : String ) : String;

var

  sT : String;

  iT : integer;

begin

  SetLength(sT,17);

  FillChar(Pointer(sT)^,17,' ');

  Move(Pointer(PrtFileName)^,Pointer(sT)^,Length(PrtFileName));

  sT := sT + FormatFloat('0000',Length(PrtData)) + PrtData ;

  iT := Length(sT);

  sT := Chr((iT shr 8)) + Chr((iT and $ff)) + 'P' + sT + #$03;

  Result := #$02 + sT + funGetCrc(sT);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  Command: string;

  sSendStr: string;

  sPrtFileName: string;

begin

  Command := 'C' + CR + LF;

  Command := Command + 'T110' + '일반' + CR + LF;

  Command := Command + 'T110' + SO + '가로확대' + SI + CR + LF;

  Command := Command + 'T110' + SO + '세로확대' + SI + CR + LF;

  Command := Command + 'T110' + SO + '가로세로확대' + SI + CR + LF;

  Command := Command + 'L50' + CR + LF; // 라인피드 5회

  Command := Command + 'PC' + CR + LF; // 프린트 & 컷팅

  sPrtFileName := 'A123456' + FormatDatetime('MMddhhmmss',Now);

// 1.  델파이7에서 실행했을 때와 델파이 XE에서 실행했을 때의 함수 리턴값(=sSendStr)이 서로 틀립니다.

  sSendStr := funMakePrt(sPrtFileName, Command);

// 2. 아래의 코드를 XE에서 실행하면 오류가 발생을 하는데

//   XE에서 실행하려 하면 어떻게 변경해야 하는지요.. 

  IdTcpClient.Socket.Send(pointer(sSendStr)^,length(sSendStr));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  with IdTcpClient do

  begin

    Host := edtIp.Text;

    Port := StrToInt(edtPort.Text);

    try

      Connect;

      if Connected then

      begin

        lStatus. Caption := '연결성공';

      end;

    except

      MessageDlg('TS-163N 단말기 연결 실패', mtInformation, [mbOk], 0);

    end;

  end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

//  IdTcpClient.Socket.InputBuffer.Clear;

  IdTcpClient.Disconnect;

  lStatus.Caption := '';

end;

end.

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 2

• 

  관리자

  2012.05.03 22:07

  아마도 Length 함수에서 길이를 구해오는 차이에서 발생하는 문제 인것 같습니다.

  기본적으로 델파이XE에서는 Unicode를 사용하고 있기 때문에 이전에 2바이트로 처리되던 한글을 

  1바이트로 인식하고 있어서 나타나는 문제가 아니가 싶습니다.

  
  

  예를들면 Length('한글')는 델파이 XE에서 2로 리턴합니다.

  델파이7이었으면 4의 값이 돌아 오겠죠

  
  

  결론적으로 XE에서는 영문 혹은 한글 동일하게 한개의 문자로 인식하므로

  거기에 맞게 코딩을 해주셔야 문제가 없습니다. 

  댓글

• 희망봉

  2012.05.04 02:18

  // 2. 아래의 코드를 XE에서 실행하면 오류가 발생을 하는데

  //   XE(Indy10)에서 실행하려 하면 어떻게 변경해야 하는지요.. 

    IdTcpClient.Socket.Send(pointer(sSendStr)^,length(sSendStr));

  
  

  이 부분도 확인 부탁드립니다.

  댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	20035
공지	유용한 관련 사이트	관리자2	2014.03.20	58944
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	102557
3219	c++빌더 2012 XE2 컨버팅 질문입니다. [1]	조우상	2012.04.23	9978
3218	바로 밑에 2010의 xe2 컨버팅에서 저도 이상한점이... [1]	나도몰라	2012.04.24	9718
3217	아래 질문에대한 에러 스크린샷입니다. [2]	조우상	2012.04.24	8281
3216	LINK32 에러 문의입니다. [1]	오상헌	2012.04.27	10734
3215	버튼, 폼 디자인 문의 합니다. [1]	조우상	2012.04.28	8481
3214	데이터베이스 엔진 에러 [1]	초딩개발자	2012.05.01	11174
3213	c++빌더에서 ios [1]	손마디	2012.05.02	10244
3212	window7에서 컴파일 관련 문의사항입니다. [1]	조우상	2012.05.02	8408
3211	아래 질문에 대한 스크린샷 첨부입니다. [2]	조우상	2012.05.02	4
3210	MIDAS.DLL [1]	쥐랑고양이	2012.05.03	15439
3209	지난번 세미나 자료 좀 구할 수 있을까요 ? [1]	준이킴	2012.05.03	7803
»	델파이7과 델파이XE에서의 동일 함수의 리턴값이 서로 다릅니다. [2]	희망봉	2012.05.03	11673
3207	Indy9 -> Indy10으로 변환중 오류 발생 [1]	희망봉	2012.05.04	13406
3206	UTF-8 관련하여 질문올립니다. [1]	조우상	2012.05.08	9074
3205	UTF-8로 작성된 XML파일 전송합니다. [2]	조우상	2012.05.08	10738
3204	델파이 xe 사용중 idHttp.post 한글 깨짐 문제 [2]	superman	2012.05.09	19049
3203	[인트라웹] 지원되는 인터넷익스플로러 인데도 "unknown browser type"이라는 메시지가 나옵니다 [1]	관리자	2012.05.09	10298
3202	Mac App Store 등록 관련 본사에 지원 부탁합니다. [2]	c2design	2012.05.09	9658
3201	TChart 그래프 -> QRChart [4]	양현숙	2012.05.10	14561
3200	글씨 크기 [1]	모든길	2012.05.12	9299

첫 페이지 1 2 3 4 5 6 7 8 9 10 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그