ÔõôÓÃdelphi¶ÁÈ¡³öOracleÖеÄBlobͼƬ²¢ÏÔʾ³öÀ´£¿

±¾ÈËÏë×öÒ»¸öÏÔʾOracleÖÐͼƬµÄ½çÃ棬µ«ÊǽñÌìÉÏÍøÕÒÁËÒ»ÌìҲûÓз¢ÏֱȽÏÏêϸµÄ½éÉÜ£¬¶¼Ìáµ½ÒªÓÃTTableºÍTDatabase£¬µ«ÊÇÎÒÅä²»¶ÔTTable£¬×ÜÊDZ¨"general error ORA:90036 ȱʧ±í´ïʽ"µÄ´í£¬ÄÄλ¸ßÊÖÄܸøÖ¸µãÏ°¡
×îºÃÄÜÓиö¼òµ¥µÄʾÀý£¬½²½âÏÂÔõôÍê³É¶ÁȡͼƬµÄ£¬Ð»ÁË¡£

---

LazarusÉÏÓиö TOracleConnection ¿Ø¼þ£¬DelphiÉÏû¸ã¹ý£¬°ï¶¥¡£

---

blob¸ñʽµÄÎļþÐèÒªÓøöAPIº¯ÊýÀ´²Ù×Ý£¬¾ßÌåµÄÄãËÑË÷һϡ£

---

ѧϰ

---

ÒýÓÃ

Èç¹ûÄã×°ÁËOracle¿Í»§¶ËµÄ»°¾ÍÖ±½ÓÓÃADO¿Ø¼þµÄOracle Provider for OLE DB¾Í¿ÉÒÔÁ¬½ÓÊý¾Ý¿âÁË¡£²»ÒªÓÃMicrosoft OLE DB Provider for Oracle²»È»¾Í»á±¨²»¼¼ÊõBlob¸ñʽµÄÊý¾Ý¡£
var mem:Tstream;
jpeg:TJpegimage;
begin
    jpeg:=TJpegimage.Create;
    mem:=adoquery1.CreateBlobStream(adoquery1.FieldByName('pic'),bmRead);
    mem.Position:=0;
    if mem.Size>0 then begin
    begin
      jpeg.LoadfromStream(mem);
      image.Picture.Assign(jpeg);
    end;
end;

Èç¹ûûÓа²×°¿Í»§¶ËµÄ»°¾ÍÒªÓõÚÈý·½¿Ø¼þODACÁ¬½Ó¡£¶ÁÈ¡·½·¨ºÍÉÏÃæÒ»Ñù¡£

ÎÒÊÔ¹ýÓÃadoquery£¬¿ÉÊÇÀïÃæµÄsqlÓ¦¸ÃÔõôд°¡£¿
blob×ֶβ»ÄÜÖ±½Óselect°¡

---

ÒýÓÃ

var 
  pjpg:tjpegimage; 
  pic:TMemoryStream; 
  begin 
  pjpg:=tjpegimage.Create; 
  pic:=TMemoryStream.Create; 
  TBlobField(dataset.FieldByName('Img')).savetoStream(pic); 
  pic.posit