Q&A

  • bmp를 TImage에 넣을려고 하는데 에러가 나요..
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 메세지가 나옵니다

어떻게 해야 하나요??

2  COMMENTS
  • Profile
    KDDG_ZZOM 2002.09.11 02:44
    잘되는데... 쩝...
    혹시 dir란 변수디렉토리를 확인해보세요...
    그대루 복사 해서 테스트 해보니깐 잘되거든요...

    즐프하세요...

  • Profile
    바다를향해 2002.09.11 02:43
    아래와 같은 루틴엔 문제가 없는듯 한데...스트림에러가 난다는것은
    아마도 비트맵이 올바른 비트맵형식이 아닌듯 합니다.
    close.bmp 라는 파일이 올바른 비트맵 형식인지 다시 한번 확인해 보시구여
    글구 밑에 루틴 보다는 차라리
    img1.Picture.LoadFromFile(dir);
    이 더 편하지 않나여??
    글구 맨밑에
    bmp.free;
    라는 코드는 들어 가야 하는데.....
    암튼 즐코 하세용...^^;;;