Código Delphi [-] Var b: TBlobField; begin b := TBlobField.Create(Self); try B.LoadFromFile('Archivo'); IBQuery1.Fields[0] := B; Finally B.Free; End; end;
Var b: TBlobField; begin b := TBlobField.Create(Self); try B.LoadFromFile('Archivo'); IBQuery1.Fields[0] := B; Finally B.Free; End; end;