델파이 고수님들에게 한가지 물어보겠습니다..
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 ;
답변해주시면 감사하겠습니다.......