procedure TForm1.Button1Click(Sender: TObject);
var
bmp : TBitmap;
dir : String;
begin
GetDir(0,dir);
dir := dir + 'CLOSE.bmp';
bmp := TBitmap.Create;
bmp.LoadFromFile(dir);
img1.Picture.Bitmap := bmp;
end;
버튼을 눌러서 이미지를 불러 들이면
stream read Error 메세지가 나옵니다
어떻게 해야 하나요??
혹시 dir란 변수디렉토리를 확인해보세요...
그대루 복사 해서 테스트 해보니깐 잘되거든요...
즐프하세요...