데이터베이스 및 디스플레이에서 이미지를 읽기

절차 TForm_QTOrder1.ShowPic;
VAR
  VSTR : TADOBlobStream;
  vTmp, vPicType : 문자열;
  vtmpPath : PChar는;
시작
  상속은;

  Image1.Picture.Graphic = 닐; // 화상의 화상 제어 취소
  VSTR = TADOBlobStream.Create (TBlobField (QueryBill4.FieldByName ( '픽스'))을 bmRead) // BlobStream를 작성 픽스 필드가 설정되어 물방울 필드와 읽기 전용
  vstr.Size = 0 다음 0 // 스트림 크기에 이미지를 표시하지 않는 경우, 종료
  (가) 시작
    종료,
  끝,
  vPicType을 = CheckImgType (VSTR); // 결정 이미지 유형의 여부를
  vstr.Position = 0 ; //의 시작 포인터
  GetMem으로 (vtmpPath, MAX_PATH); // 임시 디렉토리 얻을
  GetTempPath (MAX_PATH, vtmpPath); // 임시 디렉토리 얻을
  vTmp : =의 StrPas (vtmpPath를); // 임시 디렉토리 얻을
  FreeMem (vtmpPath를); / / 해제 변수
  vTmp = vTmp + PubData1.GetGUIDString + + vPicType; // 디렉토리와 파일 이름 파일 이름과 경로 합성 일시적 '.'
  //에서, TBlobField (QueryBill4.FieldByName ( '갤러리'))를 SaveToFile (VTMP). 저장 BLOB 필드는 임시 파일에 이미지 데이터를 읽고
  Image1.Picture.LoadFromFile (vTmp); // 이미지 컨트롤은 임시 파일 읽고
  DeleteFile을 (vTmp를); // 임시 파일 삭제
  Application.ProcessMessage를을,
끝;