델파이/Delphi] TVirtualTable에 이미지 넣기

안녕하세요, 일마레입니다.

 

프로그램 내에서 데이터 관리를 위해 TVirtualTable를 사용하고 있는데,

이미지를 넣어 달라는 요청이 있었다.

 

이미지는 파일 이름만 관리하고 FTP를 이용하여 데이터를 저장하고 있던 터라

작업이 좀 필요했고 아래와 같이 처리하였다.

var

  sFile : string;
  Stream: TMemoryStream;
begin

  Stream := TMemoryStream.Create;  

  try
    with VirtualTable do
    begin
            sFile := ExtractFilePath(Application.ExeName) +                      ChangeFileExt(ExtractFileName(FieldByName('ImgName').AsString), '.png');
            if fileExists(sFile) then
            begin
               stream.LoadFromFile(sFile);
               VirtualTable.Edit; // 데이터셋 수정
               (VirtualTable.FieldByName('IMAGE') as TBlobField).LoadFromStream(Stream);
               VirtualTable.Post;
            end;
    end;
  finally
    Stream.Free;
  end;
end;

 

도움이 되었기를 바랍니다.