local procedure ConverBase64Text(FileContent: text)
var
BaseConvert: Codeunit "Base64 Convert";
TempBlob: Codeunit "Temp Blob";
OutStr: OutStream;
RecRef: RecordRef;
begin
if FileContent = '' then
exit;
RecRef.Open(Database::<TargetTable>);
RecRef.GetTable(<TargetTable>);
TempBlob.CreateOutStream(OutStr);
BaseConvert.FromBase64(FileContent, OutStr);
TempBlob.ToRecordRef(RecRef, <TargetTable>.FieldNo(<BlobField>));
RecRef.SetTable(<TargetTable>);
RecRef.Close();
end;
André Arnaud de Cal... 291,784 Super User 2024 Season 2
Martin Dráb 230,476 Most Valuable Professional
nmaenpaa 101,156