Small and medium business | Business Central, N...

TextEncoding while using UploadintoStream function

(1) Share

Report

Posted on by Bilal Haider

414

Hi,

I am using UploadIntoStream function to choose a file and then get its data in the stream. The file has Danish characters that not work fine after they are read and special Danish characters change their format.

Is there a way to use TextEncoding with this UploadintoStream function.

I have the same question (0)

All responses (6)

Answers (0)

Suggested answer

srttel on at

Like (0)

Report

Hi Bilal,

please have a look at this github entry where something very similar was discussed.

github.com/.../2538

there is an example how to use the text encoding.

Was this reply helpful? Yes No
Bilal Haider 414 on at

Like (0)

Report

Thanks but issue still remains unsolved.

Even with using TempBlob function BlobImportWithFilter and explicitly giving Text Encoding still I am facing the same issues.

Was this reply helpful? Yes No
Suggested answer

Suresh Kulla 50,247 Super User 2025 Season 2 on at

Like (0)

Report

please check the file management codeunit it has some functions to apply encoding to the streams.

Was this reply helpful? Yes No
Suggested answer

Bilal Haider 414 on at

Like (0)

Report

Hi Suresh,

Thanks for you reply. Actually on SaaS version the TextEncoding::Windows does not work. I have tried with BlobImportWithFilter functions. I have temporary solved this issue by saving the text file in UTF-8 format.

If you have any suggestions please

Was this reply helpful? Yes No
Suggested answer

Maxime Caty 6 on at

Like (1)

Report

It seem like the "UploadIntoStream" function alway create a new InStream instance with windows encoding (which is weird as BC internaly use UTF8 for text).

You can fix this afterwhat if you copy it into an OutStream, then back again to an InStream but this time with specific TextEncoding.

var
  InStr: InStream;
  OutStr: OutStream;
  FormFile: Text;
  ReadLine: Text;
  ReadText: Text;
  Blob: Codeunit "Temp Blob";
begin
  UploadIntoStream('Choose a file', '', '', FormFile, InStr);

  // Show original InStream as Text
  ReadLine := '';
  while (InStr.ReadText(ReadLine) > 0) do
  ReadText += ReadLine;
  Message(ReadText);

  // utf8 transcode
  Blob.CreateOutStream(OutStr);
  InStr.ResetPosition();
  CopyStream(OutStr, InStr);
  Blob.CreateInStream(InStr, TextEncoding::UTF8);

  // Show new InStream as Text
  ReadLine := '';
  ReadText := '';
  while (InStr.ReadText(ReadLine) > 0) do
  ReadText += ReadLine;
  Message(ReadText);
end;

Here result with an utf8 xml file :

Original :

After transcoding :

Was this reply helpful? Yes No
Suggested answer

RWCH 2 on at

Like (0)

Report

I notice a few things looking at the answers. A temporary blob is used, which is not necesssary and a text variable is filled with the content of the file, which also is not necessary. I think it better to just use streams. What goes is, goes in. No need to worry about the encoding. Same thing, when getting it out. This is what it could/should look like:

actions
{
area(processing)
{
action(UploadBlob)
{
Caption = 'Upload file';
Promoted = true;
PromotedCategory = Process;

trigger OnAction()
begin
uploadFile();
end;
}
}
}

local procedure uploadFile()
var
InStr: InStream;
FormFile: Text;
begin
if not UploadIntoStream('Choose a file', '', '', FormFile, InStr) then begin
Message('File upload canceled.');
exit;
end;

processInstream(InStr);
end;

local procedure processInstream(InStr: InStream)
var
OutStr: OutStream;
begin
Rec.Data.CreateOutStream(OutStr);
CopyStream(OutStr, InStr);
Rec.Modify();
Commit();
//CurrPage.Update(true);
Rec.Data.Export('C:\Temp\' + Rec.FileName);
end;

I don't think the line CurrPage.Update(true); is necessary. I don't understand what it exactly does.

Disclaimer: I am an experienced developer, but fairly new to developing with AL in Business Central.

Was this reply helpful? Yes No