I have this table:
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;
EPgError: "Large Object 0 existiert nicht"
What do I wrong?
Best regards
Wolfgang
p.s: I use your contact form (twice) and get a 404, maybe someone can fix this...