Devart Forums

Hi,
how do I save a memo text into a blob column in my data table

Im using Delphi 10.4 & Firebird

This is the procedure I have in my project Data-module but I can not get it to work

Thanks in advance - Grant

procedure TDataModule2.SaveMasterCompanyData(Sender: TObject; MasterCompany: ptrCompanyData);
begin
try
Save_Master_Company.PrepareSQL;
Save_Master_Company.ParamByName('COMPANY_NAME').AsString := MasterCompany.CompanyName;

Save_Master_Company.ParamByName('COMMENTS').AsMemo := MasterCompany.Comments_Data.Text;
Save_Master_Company.Execute; // executes the stored procedure
finally
Save_Master_Company.Close;
end;
end;

Hey Grant,

Thanks for reaching us!

We have compiled a sample application (https://download.devart.com/81371_ticket.zip) using our IBDAC components to insert text from a DBMemo component into a table BLOB field, and to output a table field BLOB as the text of a BDMemo component.
Please, run the application and report the results.