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