During preparation for the #DirectionsEMEA i moved my demos to the Wave 2 and found that TypeHelper.SetBlobString and TypeHelper.ReadBlob doesn’t exist in Wave 2.
Searched here and found this walkthrough
Well, not very helpful.
That is the real solution, that works for me.
TypeHelper.SetBlobString
Original code was
procedure SetRestaurantModel(ModelAsText: Text)
var
TypeHelper: Codeunit "Type Helper";
RecordRef: RecordRef;
begin
RecordRef.GetTable(Rec);
TypeHelper.SetBlobString(RecordRef, FieldNo("My Model"), ModelAsText);
RecordRef.SetTable(Rec);
end;
Wave 2 compatible code
procedure SetRestaurantModel(ModelAsText: Text)
var
OutStream: OutStream;
begin
"My Model".CreateOutStream(OutStream, TextEncoding::UTF8);
OutStream.Write(ModelAsText);
end;
TypeHelper.ReadBlob
Original code was
procedure GetRestaurantModel(): Text
var
TypeHelper: Codeunit "Type Helper";
BlobFieldRef: FieldRef;
RecordRef: RecordRef;
begin
RecordRef.GetTable(Rec);
BlobFieldRef := RecordRef.Field(FieldNo("My Model"));
exit(TypeHelper.ReadBlob(BlobFieldRef));
end;
Wave 2 compatible code
procedure GetRestaurantModel() Content: Text
var
TempBlob: Codeunit "Temp Blob";
InStream: InStream;
begin
TempBlob.FromRecord(Rec, FieldNo("My Model"));
TempBlob.CreateInStream(InStream, TextEncoding::UTF8);
InStream.Read(Content);
end;
