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:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

//------------------------------------------------------------------------------
function updateBlob(AKeyFieldName, AFieldName, ATableName: String;
  AKeyFieldValue: Variant;
  ABlobField: TMemoryStream): boolean;
var
  LTransaction: TIBTransaction;
  LDataset: TIBQuery;
begin
  result := true;
  LTransaction := TIBTransaction.Create(nil);
  try
    LTransaction.DefaultDatabase := DSM_Datamodule.IBDB_DSM;
    LTransaction.Params.add('read_committed');
    LTransaction.Params.add('rec_version');
    LTransaction.Params.add('nowait');
    LTransaction.DefaultAction := TACommit;
    LTransaction.AutoStopAction := saCommit;
    LTransaction.StartTransaction;
    LDataset := TIBQuery.Create(nil);
    LDataset.Database := DSM_Datamodule.IBDB_DSM;
    LDataset.Transaction :=  LTransaction;
    LDataset.SQL.Add('UPDATE ' + ATableName + #13#10 +
      'SET ' + AFieldName + ' = :' + AFieldName + #13#10 +
      'WHERE ' + AKeyFieldName + ' = ' + AKeyFieldValue);
    LDataset.Params[0].DataType := ftBytes;
    ABlobField.Seek(0, soFromBeginning);
    LDataset.Params[0].LoadFromStream(ABlobField, ftBlob);
    LDataset.Prepare;
    try
      LDataset.ExecSQL;
    except
      result := false;
    end;
  finally
    if assigned(LDataset) then begin
      if assigned(LTransaction) then begin
        LTransaction.Commit;
        LTransaction.Free;
      end;
      FreeAndNil(LDataset);
    end;
  end;
end;

//Beispiel aufruf
var
  LMemoryStream: TMemoryStream;
begin
//hier muss überprüfung stattfinden, ob es den Datensatz schon gibt ansonsten mit insert anlegen

  LMemoryStream := TMemoryStream.Create;
  try
    vImage.Picture.Graphic.SaveToStream(LMemoryStream);
    updateBlob('Name', 'MeinFeld', 'MeineTabelle',
      cbStrToSQLStr(meinBezeichner), LMemoryStream);
  finally
    FreeAndNil(LMemoryStream);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//------------------------------------------------------------------------------
function TCBRechnung.getHeaderImage(AFieldName, ATableName, Identifier: String: TImage;
var
  LQuery: TIBQuery;
begin
  result := TImage.Create(self);
  LQuery := getQuery('SELECT ' + AFieldName + 'FROM ' +ATableName + #13#10 +
    'WHERE Name = ' + cbStrToSQLStr(Identifier));
  if assigned(LQuery) then
  try
    if not LQuery.FieldByName(AFieldName).IsNull then
      result.Picture.Assign(Lquery.FieldByName(AFieldName ));
  finally
    FreeAndNil(LQuery);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure AssignPictureToParam(Source: TPicture; Target: TParam);
var MStream : TMemoryStream;
begin
  MStream := TMemoryStream.Create;
  try
   Source.Graphic.SaveToStream(MStream);
   Target.DataType := ftBytes;
   MStream.Seek(0, soFromBeginning);
   Target.LoadFromStream(MStream, ftBlob);
  finally
   FreeAndNil(MStream);
  end;
end;

procedure AssignFieldToPicture(Source: TField; var Target: TPicture);
begin
  Target.Assign(TPicture(Source));
end;