1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function TDBWerkzeug.getBLOBData(ACol:TIB_Column):TStream;
var
  OutData:TStream;
  InData:TBlobStream;
  ZStream:TCustomZLibStream;
  ZLibBuffer,
  ZLibBufferSize:LongInt;
  Count:Integer;
begin
  Result:=nil;
  InData:=TBlobStream.Create(TBlobField(ACol),bmRead);// hier die    Zugriffsverletzung
  //wurden Daten aus  dem Blob-Feld gelesen?
  if InData.Size=0 then
    begin
      InData.Free;
     // ShowMessage(cErrNullData);
      Exit;
    end;
  try
    // Exportdatei anlegen
    OutData:=TMemoryStream.Create;
    try
      //komprimierte Blob-Daten entkomprimieren
      ZStream:=TDecompressionStream.Create(InData);;
      try
        //in 4096-Byte Häppchen in die Datei schreiben
        While true do
          begin
            Count:=ZStream.Read(ZLibBuffer,ZLibBufferSize);
            if Count<>0 then
              OutData.WriteBuffer(ZLibBuffer,Count)
            else
              Break;
          end;
      finally
        //
      end;
    finally
      //Free--> Buffer wird geleert
      ZStream.Free;
    // Ergebnis zuweisen
    Result:=OutData;
    end;
  finally
  //
  end;
end;					

1:
2:
3:
4:

if squery.FieldByName('BILD').BlobSize>0 then
  Grafik:=TPicture(getBLOBData(squery.FieldByName('BILD')))
else
  Grafik:=nil;					

1:
2:

  MemoryStream := TMemoryStream.Create;
  TBlobField(ACol).SaveToStream(MemoryStream);					

1:

InData:=TBlobStream.Create(TBlobField(ACol),bmRead);