30. August 2011 13:11
NavHummel hat geschrieben:Vielen Dank, aber warum steht in der Funktion dann:
" ANSI[84] := 245; ASCII[84] := 228; // ä " ???
ANSI[67] := 228; ASCII[67] := 132; // ä
[...]
ANSI[84] := 245; ASCII[84] := 228; // õ
30. August 2011 17:03
23. Februar 2012 11:54
23. Februar 2012 16:56
20. März 2012 16:08
20. März 2012 16:47
1. Juni 2012 08:38
1. Juni 2012 08:55
simon123 hat geschrieben:Habe die Codeunits importiert.
Jedoch habe ich beim aufrufen der CU`s das Problem, dass mir immer gesagt wird ich habe keine Rechte um ausführen der CU?
Kann ich das ändern?!
24. Juli 2012 12:25
22. Januar 2014 10:20
EBCDICchars[17] := 216; ASCIIchars[17] := 81; // Q
...
EBCDICchars[27] := 129; ASCIIchars[17] := 97; // a
Timo Lässer hat geschrieben:Alle Zeichensätze (ASCII, ANSI, UTF-8) sind in den ersten 7 Bit (also bis einschließlich Position 127) identisch, somit brauchen diese Zeichen nicht konvertiert werden.
(Von ISO8859-1 nach UTF-8 sind die Zeichen sogar bis Position 159 identisch.)
29. Mai 2014 09:53
31. Mai 2014 11:07
2. Juni 2014 08:24
Müsste man da nicht etwas wie Ansi2Unicode haben?
2. Juni 2014 19:10
f.OPEN(Filename, TEXTENCODING::Windows);
2. Juni 2014 21:15
3. Juni 2014 05:51
READ (OEM -> Default): Dies ist ein Test: äöüÄÖÜß
Byte: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 132 - 148 - 129 - 142 - 153 - 154 - 225 -
Char: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 228 - 246 - 252 - 196 - 214 - 220 - 223 -
READ (ANSI -> Default): Dies ist ein Test: õ÷³Íœ
Byte: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 228 - 246 - 252 - 196 - 214 - 220 - 223 -
Char: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 245 - 247 - 179 - 143 - 205 - 339 - 157 -
READ (OEM -> Windows (ANSI)): Dies ist ein Test: „”Ž™šá
Byte: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 179 - 203 - 177 - 195 - 217 - 218 - 160 -
Char: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 8222 - 8221 - 129 - 381 - 8482 - 353 - 225 -
READ (ANSI -> Windows (ANSI)): Dies ist ein Test: äöüÄÖÜß
Byte: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 132 - 148 - 129 - 142 - 153 - 154 - 225 -
Char: 68 - 105 - 101 - 115 - 32 - 105 - 115 - 116 - 32 - 101 - 105 - 110 - 32 - 84 - 101 - 115 - 116 - 58 - 32 - 228 - 246 - 252 - 196 - 214 - 220 - 223 -
3. Juni 2014 10:22
6. August 2014 09:51
16. Dezember 2014 20:39
23. November 2015 16:26
24. November 2015 12:15
Documentation()
[...]
| Date Version No. Description |
+----------------------------------------------------------+
| 14.03.2006 TL4.01 00 Encrypt/Decrypt Management |
| - MD5-Encoding |
| - Base64EncodeStream |
| - Base64DecodeStream |
Base64EncodeStream(VAR InStr : InStream;VAR OutStr : OutStream)
// +---------------------------------------------------------+
// | Credits goes to 'fb' on mibuso for this topic: |
// | http://www.mibuso.com/forum/viewtopic.php?p=20166#20166 |
// +---------------------------------------------------------+
24. November 2015 13:27
Timo Lässer hat geschrieben:Hello Furkan,
as you can see, this could was taken from mibuso.com in 2006 (NAV4.00).
- Code:
Documentation()
[...]
| Date Version No. Description |
+----------------------------------------------------------+
| 14.03.2006 TL4.01 00 Encrypt/Decrypt Management |
| - MD5-Encoding |
| - Base64EncodeStream |
| - Base64DecodeStream |
- Code:
Base64EncodeStream(VAR InStr : InStream;VAR OutStr : OutStream)
// +---------------------------------------------------------+
// | Credits goes to 'fb' on mibuso for this topic: |
// | http://www.mibuso.com/forum/viewtopic.php?p=20166#20166 |
// +---------------------------------------------------------+
It could be that this procedure is not compatible with later versions.