Q&A

  • 디비에 저장된 그림파일 불러온후 그림파일 filename 알아보기
델파이 고수님들에게 한가지 물어보겠습니다..



db( oracle ) 에서 저장된 그림파일을 읽어들인후



그 그림파일 이름을 불러 오는 방법좀 가르쳐주세요..



bmp :=Tbitmap.create ;

JpegImage :=TJPEGImage.Create;

MS :=TMemoryStream.Create ;





if LowerCase(ExtractFileExt( 이곳에 파일 메일은 넣어서.. 그 확장자 별로

그림 파일 보는 로직을 바뀌려고 하거든요...))='.jpg' then begin



if (FieldByname('사진') As tBlobfield).IsNull then

dbimage1.picture := nil

else begin

(FieldByname('사진') As tBlobfield).SaveToStream(MS);

MS.Position := 0 ;

// JpegImage.LoadFromStream(MS);

bmp.LoadFromStream(MS);

dbimage1.Picture.Assign(bmp);

end;

end;

MS.free;

// JpegImage.free ;



답변해주시면 감사하겠습니다.......



0  COMMENTS