BLOB 에 저장된 OLE Type BMP 저장 1

ole2img ( blob lb_ole_data ) returns blob

long ll_len, ll_index
blob lb_bm

ll_len = Len(lb_ole_data)
ll_index = 1
   
lb_bm = blob("BM", EncodingANSI!)
   
do while ll_index <= ll_len
      if BlobMid(lb_ole_data, ll_index, 2) = lb_bm then exit
      ll_index++;
loop
   
return BlobMid(lb_ole_data, ll_index, ll_len - ll_index)

* PB 에서 위와 같이 검색 알고리즘을 이용하여 BMP Image 파일을 얻어 낼 수 있지만 너~무 느려서 위의 알고리즘과 같은 역할을 하는 DLL 파일을 만들어 외부 호출을 통해 해결하는 것이 좋음