Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[14639] [질문] 간체. 그리고 XE2로 만든 dll
김한순 [kyunghu] 2415 읽음    2013-03-30 10:34
1. 간체
  SAP와 RFC로 데이타를 받아서 MS SQL로 넣는거를 하고 있는데 간체에서 막힙니다.
  (델파이7 사용)
  Temp : widestring;
  Temp := Trim(Table.Value(i,j));
  이렇게 했을때 UTF8Encode를 해도 깨지고 안해도 깨지고
  (RFC로 붙을때 코드페이지는 8500, 4310 둘다 해봐도 마찬가지입니다)

    SQLText := 'EXEC TEST001 ' + ' N''' + Temp + '''';
    UniQuery1.Close;
    UniQuery1.SQL.Clear;
    UniQuery1.SQL.Text := SQLText;
    UniQuery1.Execute;
  제어판에서 국가및언어를 중국어(간체)로 바꾸면 간체는 안깨지고 잘 들어갑니다만. 한글이깨지죠.

2. dll
  델파이 XE2로 만든 dll이 있는데 XE2하고 C#에서는 잘 사용하는데 Delphi7에서는 엑세스바이오레이션 에러가 납니다
  무슨 이유가 있을까요??

function DBOpen(rIP : pAnsichar; rID : pAnsichar; rPassword : pAnsichar; rDB : pAnsichar) : pAnsichar; stdcall;
begin
    Result := 'NG';
    if not Assigned(UniConnection1) then begin
        UniConnection1 := TMyUniConnection.Create(nil);
        UniQuery1 := TMyUniQuery.Create(nil);
        SQLServerUniProvider1 := TMySQLServerUniProvider.Create(nil);
    end;
    UniConnection1.Username := string(rID);
    UniConnection1.Password := string(rPassword);
    UniConnection1.Server := string(rIP);
    UniConnection1.Database := string(rDB);
    UniConnection1.ProviderName := 'SQL Server';
    UniConnection1.Connect;  ==> 이 부분에서 남..
    if UniConnection1.Connected then begin
        UniQuery1.Connection := UniConnection1;
        Result := 'OK';
    end else begin
        MessageDlg('SQL Connection Error', mtError,[mbOk], 0);
    end;
end;

+ -

관련 글 리스트
14639 [질문] 간체. 그리고 XE2로 만든 dll 김한순 2415 2013/03/30
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.