3tier 관련 이미지를 어떻게 처리해야 할지 몰라서요
photo를 어떻게 해야 하는지 DB 는 FtBlob 형이거든요
var
rc : LongInt;
vEmpno : Variant;
vPhotoSize : LongInt;
vPhoto : Pointer;

  rc := db_pia1075b_Get_photo(empno.Text, vEmpno, vPhotoSize, vPhoto);
  ※ db_pia1075b_Get_photo서 vPhoto는 pointer 형으로 반환됩니다.

  CData.CPhoto.FieldByName('empno').AsString := vEmpno[0];
  CData.CPhoto.FieldByName('photo_size').AsFloat := vPhotoSize;
  CData.CPhoto.FieldByName('photo').asB LoadFromStream(vPhoto^, FtBlob)//아래함수
  ※ 'photo'를 어떻게 넣어줘야 하는지 모르겠습니다.

이미지
    G := CData.CPhoto.CreateBlobStream(TBlobField(CData.CPhoto.FieldByName('photo')),bmRead);
    G.Seek(0,soFromBeginning);
    ReadPicCheck(G, GifHeader, Sizeof(GifHeader)) ;
    if (UpperCase(GifHeader.Signature) = 'GIF') then
      ReadGifBlob(G, PersonPic)


function db_pia1075b_Get_photo(lempno: String;
var empno: Variant;
var photo_size: Longint;
var photo: Pointer): LongInt;