Kết quả Delphi TPath.GetTempPath bị cắt

Question

Tôi đang sử dụng Delphi 2010 và chương trình của tôi muốn có đường dẫn tạm thời của hệ thống. Tôi đang sử dụng TPath.GetTempPath và mọi thứ đang hoạt động tốt ... ít nhất là đối với tôi và đồng nghiệp của tôi. Nhưng trên một số máy khách, phương thức này trả về một đường dẫn bị cắt (dĩ nhiên) không tồn tại. Tôi phát hiện ra rằng vấn đề có vẻ là kết quả từ cuộc gọi cơ bản đến GetLongPathName().

Các mã hoàn chỉnh trông như thế này:

[...] 
var 
TmpDir : String; 
Len : Integer; 
begin 

[... Call to GetTempPath succeeds and we have a valid temp directory in short "~" notation in var TmpDir ...] 

Len := GetLongPathName(PChar(TmpDir), nil, 0);  // Len = 37 
    SetLength(TmpDir, Len - 1);       // We want to set the len of TmpDir to 37 - 1. 
    GetLongPathName(PChar(TmpDir), PChar(TmpDir), Len); // Only 32 (instead of 36) characters are copied - so we have a cropped path - But why?! 

end; 
[...] 

này chỉ xảy ra trên một số hệ thống và tôi không biết tại sao. Tôi tìm thấy một cách giải quyết khó chịu cho điều này, nhưng tôi muốn biết những gì đang xảy ra ở đây.

Ai đó có thể đặt ánh sáng lên điều này không?

Answer 1

Có một lưu ý về hàm API này Windows trên các trang An ninh Nội địa:

"Các bộ đệm để đổi lấy GetLongPathName() và tương tự chức năng có thể trả về một cắt ngắn đường dẫn và dẫn đến khó lỗi -find. "

https://buildsecurityin.us-cert.gov/bsi-rules/home/g1/753-BSI.html

Nếu bạn có mã nguồn, bạn có thể kiểm tra nếu vấn đề được mô tả trong bài viết này tồn tại trong việc thực hiện Delphi 2010.

Answer 2

gì xảy ra nếu bạn cố gắng:

var 
    longpath : string; 

SetLength(longpath,MAX_PATH); 
SetLength(longpath, GetLongPathName(PChar(TmpDir),PChar(LongPath),MAX_PATH)); 

này đã làm việc cho tôi, phiên bản của bạn cắt ngắn con đường.