오류는

Question

나는 다음과 같은 기본 코드가 있습니다

procedure TForm4.shrek1Click(Sender: TObject); 
begin 
    shrek1.Picture.LoadFromFile('donkey.jpeg'); 
end; 

shrek1가 TImage이다

및 donkey.jpeg가 이미지를 내가 클릭하면 shrek1로드 할.

donkey.jpeg 은 문자 그대로 모든 기타 관련 프로젝트 파일과 동일한 디렉토리에있는, 아직 내가 코드를 실행하려고하면 오류 얻을 수있다 :

Exception class EFOpenError with message 'Cannot open file "\(removed directory for privacy)\donkey.jpeg". The system cannot find the file specified

내가 잘못하고있는 중이 야 무엇을?

Answer 1

항상 절대 경로를 사용하십시오. 상대 경로는 호출 프로세스의 현재 작업 디렉토리와 관련이 있으며 프로세스의 수명 기간 동안 값을 변경할 수 있으며 일반적으로 사용자가 기대하는 것은 아닙니다. jpg이 파일이 당신의 EXE 같은 폴더에있는 경우

대신이 작업을 수행 할 수 있습니다

var 
    AppPath: string; 

procedure TForm4.shrek1Click(Sender: TObject); 
var 
    FileName: string; 
begin 
    FileName := AppPath+'donkey.jpeg'; // <-- make sure this path is accurate! 
    shrek1.Picture.LoadFromFile(FileName); 
end; 

initialization 
    AppPath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));