Nhúng một phông chữ vào delphi

Question

Tôi đang làm việc trên một ứng dụng yêu cầu một phông chữ loại mã vạch thực sự cụ thể không có khả năng trên PC của người dùng.

Tôi có thể nhúng phông chữ vào ứng dụng bằng cách nào đó hoặc tôi có cần sử dụng trình cài đặt để cài đặt phông chữ không?

Answer 1

Có, bạn có thể lưu nó dưới dạng tài nguyên trong tệp EXE và trên máy tính của người dùng, bạn có thể trích xuất tệp dưới dạng tệp bằng cách sử dụng cá thể TResourceStream. Sau đó, bạn có thể gọi hàm AddFontResource API. Cuối cùng, bạn nên gửi một tin nhắn WM_FONTCHANGE đến tất cả các cửa sổ cấp cao nhất trong hệ thống (Kiểm tra phần Ghi chú của mô tả AddFontResource trong trang web MSDN).

Nếu bạn cần mã mẫu, hãy cho tôi biết.

Answer 2

Theo tôi, cách dễ nhất là sử dụng AddFontMemResourceEx trong trường hợp phông chữ được nhúng dưới dạng tài nguyên vào EXE. Nó cho phép tải phông chữ trực tiếp từ bộ nhớ, không cần phải lưu phông chữ vào tệp.

Mã số Ví dụ:

function LoadResourceFont(const ResourceName, FontName : string) : boolean; 
var 
    ResStream : tResourceStream; 
    FontsCount : integer; 
    hFont : tHandle; 
begin 
    ResStream := tResourceStream.Create(hInstance, ResourceName, RT_RCDATA); 
    hFont := AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount); 
    result := (hFont <> 0); 
    ResStream.Free(); 
end;