如何将SQL 2000里的图片导出

Question

如题：在DELPHI 7中已经将图片写进SQL2000 里了，现在想问如何将图片导出并存放在桌面，谢谢!!!

Answer 1

        ms:= TMemoryStream.Create;
        TBlobField(ADOQ.Fields[10]).SaveToStream(ms);
        ms.SaveToFile('桌面路径\1.bmp');
        ms.Free;

Answer 2

var
  pidl: PItemIDList;
  path: array[0..MAX_PATH] of Char;
  ms: TMemoryStream;
begin
  SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, pidl);
  SHGetPathFromIDList(pidl, path);
  ADOQ.OPEN;
  ms:= TMemoryStream.Create;
  TBlobField(ADOQ.FieldbyName('Img')).SaveToStream(ms);
  ms.SaveToFile(Path+'\1.bmp');
  ms.Free;
  ADOQ.CLOSE;
end

Answer 3

提示:PItemIDList,SHGetSpecialFolderLocation,SHGetSpecialFolderLocation出错，请问如何解决？

Answer 4

已经搞定了。加ShlObj, ComObj ,谢谢