mssql 에서의 image필드를 파일로 만들기

MSSQL에 image type 필드에 이미지가 있는 경우 파일로 만드는 방법입니다.

var
  qryCust : TMSQuery;
  ms := TMemoryStream;
 begin


  qryCust := TMSQuery.Create(nil);
  qryCust.Connection := DBCONNECTION;

  ms := TMemoryStream.Create;


  try
    with qryCust do
    begin                   
      close;                
      sql.text := ' select imageField from TableName ';
      Open;

      TBlobField( FieldByName('Image')).SaveToStream(  ms );
      ms.Position := 0;
      ms.SaveToFile('C:\123.jpg');
    end;


  finally
    qryCust.Free;
    ms.free;
  end;