9. November 2017 14:29
9. November 2017 15:57
ReadTextBlobWithTextEncoding(VAR BlobFieldRef : FieldRef;Encoding : TextEncoding) BlobContent : Text
TempBlob.INIT;
BlobFieldRef.CALCFIELD;
TempBlob.Blob := BlobFieldRef.VALUE;
TempBlob.Blob.CREATEINSTREAM(InStream,Encoding);
IF InStream.READ(BlobContent) = 0 THEN;
10. November 2017 17:31
Name   DataType   Subtype   Length
StreamOut   OutStream      
StreamWriter   DotNet   System.IO.StreamWriter.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'   
Encoding   DotNet   System.Text.Encoding.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'   Text2Blob(myText : Text)
CLEAR(Blob);
IF myText <> '' THEN BEGIN
  Blob.CREATEOUTSTREAM(StreamOut);
  StreamWriter := StreamWriter.StreamWriter(StreamOut,Encoding.UTF8);
  StreamWriter.Write(myText);
  StreamWriter.Flush;
  StreamWriter.Close;
END;Text2Blob(myText);Name   DataType   Subtype   Length
myText   Text      
StreamIn   InStream      
StreamReader   DotNet   System.IO.StreamReader.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'   
Encoding   DotNet   System.Text.Encoding.'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'   Blob2Text() : Text
CALCFIELDS(Blob);
IF NOT Blob.HASVALUE THEN
  EXIT('')
ELSE BEGIN
  Blob.CREATEINSTREAM(StreamIn);
  StreamReader := StreamReader.StreamReader(StreamIn,Encoding.UTF8,TRUE);
  myText := StreamReader.ReadToEnd;
  StreamReader.Close;
  EXIT(myText)
END;myText := Blob2Text;14. November 2017 09:49
14. November 2017 10:04
15. November 2017 17:49
15. November 2017 23:37
Na eben, da steht das ja. Sogar das Problem ist als Kommentar aufgeführt