Devart Forums

Code: Select all

CREATE TABLE IF NOT EXISTS fdmandant14.postausgang (
  id BigSerial NOT NULL,
  empfaengermail VarChar(100),
  absendermail VarChar(100),
  emailtext Text,
  datum Timestamp,
  gesendet Boolean DEFAULT false,
  beleg Bytea,
  xmlbeleg Bytea,
  patpass Bytea,
  konfi Bytea
);

Code: Select all

qryPOstAusgang.Connection.StartTransaction;
              qryPostAusgang.sql.Text := 'Insert into postausgang Values (:Empfaenger, :Absender, :Emailtext, :Datum, :Gensendet, '
                                       + ':Beleg, :XMLBeleg, :PatPass, :Konfi)';

Code: Select all

procedure CreateLargeObject(const ALargeObject: TPgLargeObject; const AStream: TStream);
  begin
    ALargeObject.Connection := dataPG.PgConnectionFD;
    ALargeObject.ReadBlob;
    ALargeObject.Clear;
    ALargeObject.Truncate(0);
    ALargeObject.LoadFromStream(AStream);
    ALargeObject.WriteBlob;
    ALargeObject.CloseObject;
  end;

Code: Select all

var fs: TFileStream;
fs := TFileStream.Create(PDFPath + AnhangBezeichnung, fmOpenRead, fmShareDenyNone);
try
  CreateLargeObject(qryPOstAusgang.ParamByName('Beleg').AsPgLargeObject, fs);
finally
 fs.Free;
end;