Widestring để chuyển đổi chuỗi trong Delphi 7

Question

ứng dụng của tôi là một ứng dụng không unicode viết bằng Delphi 7.

Tôi muốn chuyển đổi chuỗi unicode cho ANSI với chức năng này:

function convertU(ws : widestring) : string; 
begin 
    result := string(ws); 
end; 

tôi sử dụng cũng là mã này để thiết lập đúng mã để chuyển đổi.

initialization 
    SetThreadLocale(GetSystemDefaultLCID); 
    GetFormatSettings; 

Nó hoạt động tuyệt vời trong các chủ đề chính VCL nhưng không phải trong một TThread, nơi tôi nhận được một số câu hỏi dấu '?' là kết quả của hàm convertU.

Tại sao không có trong TThread?

Answer 1

Gọi SetThreadLocale() bên trong khối initialization không có hiệu lực trên TThread. Nếu bạn muốn đặt ngôn ngữ của một chủ đề, bạn phải gọi SetThreadLocale() bên trong phương thức TThread.Execute().

Một tùy chọn tốt hơn là không dựa vào SetThreadLocale(). Thực hiện chuyển đổi của riêng bạn bằng cách gọi trực tiếp WideCharToMultiByte() để bạn có thể chỉ định mã trang Ansi cụ thể để chuyển đổi thành.

Answer 2

AFAIK SetThreadLocale không thay đổi hệ thống hiện tại Mã Page, như vậy sẽ không ảnh hưởng đến việc chuyển đổi widestring để ansistring trong Delphi 7, mà dựa vào GetACP gọi API, ví dụ: hệ thống Mã Trang.

Trang mã hệ thống được đặt, ví dụ: trong Windows Seven trong Control Panel, sau đó là Region Languages ​​/ Administrative tab/Code Page cho các ứng dụng không phải Unicode. Điều này cần khởi động lại hệ thống.

Delphi 7 sử dụng trang Mã hệ thống này, cung cấp 0 cho tất cả các lệnh gọi API chuyển đổi. Vì vậy AFAIR SetThreadLocale sẽ không ảnh hưởng đến chuyển đổi widestring sang ansistring ở Delphi 7. Nó sẽ thay đổi ngôn ngữ (ví dụ: ngày/giờ và định dạng tiền tệ), không phải trang mã được hệ thống sử dụng để chuyển đổi Ansi < -> Unicode.

Phiên bản mới hơn của Delphi có chức năng SetMultiByteConversionCodePage(), có thể đặt trang mã sẽ được sử dụng cho tất cả xử lý AnsiString.

Nhưng các cuộc gọi API (nghĩa là tất cả các chức năng ....A() trong Windows.pas được ánh xạ bởi ...() trong Delphi 7) sẽ sử dụng trang mã hệ thống này. Vì vậy, bạn sẽ phải gọi API rộng ...W() sau khi chuyển đổi sang Unicode nếu bạn muốn xử lý một trang mã khác. Nghĩa là, VCL Delphi 7 sẽ chỉ hoạt động với trang mã hệ thống, không phải giá trị được chỉ định bởi SetThreadLocale.

Dưới Delphi 7, lời khuyên của tôi là:

• Sử dụng WideString ở khắp mọi nơi, và "Wide" cuộc gọi API cụ thể - có một số thiết lập của các thành phần cho Delphi 7 mà xử lý WideString;
• Sử dụng các loại của riêng bạn, với bộ ký tự chuyên dụng, nhưng bạn cần chuyển đổi rõ ràng trước khi sử dụng các lệnh gọi API VCL/RTL hoặc "Ansi" - ví dụ: MyString = type AnsiString (đây là những gì chúng tôi làm trong mORMot, bằng cách xác định một loại tùy chỉnh RawUTF8 cho quy trình UTF-8 nội bộ).

Điều này được xử lý tốt hơn với Delphi 2009 trở lên, vì bạn có thể chỉ định trang mã cho mọi loại AnsiString và xử lý đúng cách chuyển đổi sang/từ Unicode, cho các cuộc gọi API hoặc quá trình VCL.