unicode karakter ile base64 decode

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
aegean
Üye
Mesajlar: 41
Kayıt: 24 Tem 2019 09:32

unicode karakter ile base64 decode

Mesaj gönderen aegean »

Merhaba unicode veri içeren base64 string decode esnasında bu bilgileri decode edilecek karakter map tablosu yoktur hatası ile islemi kesmektedır
stackoverflow üzerinde konu ile verilmis orneklerin bulabildiklerimi denememe ragmen sorunu cozemedim.
Kodlu string içerisinde pdf dosyası oldugu için standart karakter veya utf8 e uygun karakter yok dolayısı ıle unicode karakterleri decode yapabilmesi gereken bir rutine ihtiyac var. kullandıgım delphi versiyon 11.3 ve TNetEncoding ve TIdEncoderMIME ile soap.encddecd rutinlerinin tüm tavsiyelerini denedim sonuç olumsuz. Bu konu ile karsilaşmis ve görece büyük boyutlu unicode içeren base64 stringi decode edebilecek örnek veya tavsiyeye ihtiyacım var
Tüm arkadaşlara simdiden tesekkür eder iyi günler iyi çalısmalar dilerim
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: unicode karakter ile base64 decode

Mesaj gönderen ertank »

Merhaba,

Örnek Base64 verisi paylaşabilir misiniz?

Teşekkürler.
aegean
Üye
Mesajlar: 41
Kayıt: 24 Tem 2019 09:32

Re: unicode karakter ile base64 decode

Mesaj gönderen aegean »

tabii ki
JVBERi0xLjQNJeLjz9MNCjE5IDAgb2JqIDw8L0xpbmVhcml6ZWQgMS9MIDE0MDI0L08gMjEv
RSA3NTk0L04gMS9UIDEzNTk3L0ggWyA2MTYgMjAyXT4+DWVuZG9iag0gICAgICAgICAgICAg
ICAgICAgDQp4cmVmDQoxOSAxNg0KMDAwMDAwMDAxNiAwMDAwMCBuDQowMDAwMDAwOTg0IDAw
MDAwIG4NCjAwMDAwMDEyNTMgMDAwMDAgbg0KMDAwMDAwMTUxMiAwMDAwMCBuDQowMDAwMDAx
NTM2IDAwMDAwIG4NCjAwMDAwMDE2ODcgMDAwMDAgbg0KMDAwMDAwMjA1NCAwMDAwMCBuDQow
MDAwMDAyNTM0IDAwMDAwIG4NCjAwMDAwMDQzMTQgMDAwMDAgbg0KMDAwMDAwNDM0OCAwMDAw
MCBuDQowMDAwMDA0NDE3IDAwMDAwIG4NCjAwMDAwMDcwODYgMDAwMDAgbg0KMDAwMDAwNzI5
MyAwMDAwMCBuDQowMDAwMDA3NTE4IDAwMDAwIG4NCjAwMDAwMDA4MTggMDAwMDAgbg0KMDAw
MDAwMDYxNiAwMDAwMCBuDQp0cmFpbGVyDQo8PC9TaXplIDM1L1ByZXYgMTM1ODYvWFJlZlN0
bSA4MTgvUm9vdCAyMCAwIFIvSW5mbyA4IDAgUi9JRFs8RkZBQTMzMzRBNTJENkRERjU2MUE2
NDQyQjVFMjhGOTg+PDAxNTAzM0IwMjU5NUU2NENCODIyMTIxMzI2MjM0QzdBPl0+Pg0Kc3Rh
cnR4cmVmDQowDQolJUVPRg0KICANCjM0IDAgb2JqPDwvTGVuZ3RoIDEwNS9DIDExNi9GaWx0
ZXIvRmxhdGVEZWNvZGUvSSAxMzkvTCAxMDAvTyA4NC9TIDQwPj5zdHJlYW0NCnjaYmBg4GFg
YJFmAAKJowyogBmIWRg4FjCwNCCJ8kAxUAMDD98GBvaP4TJtdxgW6C4N2M4zwQQsw8jAIPMA
SDMB8XGwKQwKxVC+BcRk2eUQdUxnwOLMMUCKg4HBKAwizPgJIMAAM6gPXg0KZW5kc3RyZWFt
DWVuZG9iag0zMyAwIG9iajw8L0xlbmd0aCAyMC9GaWx0ZXIvRmxhdGVEZWNvZGUvV1sxIDEg
MV0vSW5kZXhbOSAxMF0vRGVjb2RlUGFybXM8PC9Db2x1bW5zIDMvUHJlZGljdG9yIDEyPj4v
U2l6ZSAxOS9UeXBlL1hSZWY+PnN0cmVhbQ0KeNpiYmJmYGJgYCSEAQIMAAM5ACMNCmVuZHN0
cmVhbQ1lbmRvYmoNMjAgMCBvYmo8PC9NYXJrSW5mbzw8L0xldHRlcnNwYWNlRmxhZ3MgMC9N
YXJrZWQgdHJ1ZT4+L091dGxpbmVzIDEgMCBSL01ldGFkYXRhIDcgMCBSL1BpZWNlSW5mbzw8
L01hcmtlZFBERjw8L0xhc3RNb2RpZmllZChEOjIwMDcxMDMxMDczNzIxKT4+Pj4vUGFnZXMg
NiAwIFIvUGFnZUxheW91dC9TaW5nbGVQYWdlL1N0cnVjdFRyZWVSb290IDkgMCBSL1R5cGUv
Q2F0YWxvZy9MYXN0TW9kaWZpZWQoRDoyMDA3MTAzMTA3MzcyMSkvUGFnZUxhYmVscyA0IDAg
Uj4+DWVuZG9iag0yMSAwIG9iajw8L0Nyb3BCb3hbMzcgMzcgNTc1IDc1NV0vQW5ub3RzIDIy
IDAgUi9QYXJlbnQgNiAwIFIvU3RydWN0UGFyZW50cyAxL0NvbnRlbnRzIDI2IDAgUi9Sb3Rh
dGUgOTAvTWVkaWFCb3hbMCAwIDYxMiA3OTJdL1Jlc291cmNlczw8L0NvbG9yU3BhY2U8PC9D
UzAgMjcgMCBSPj4vRm9udDw8L1RUMCAyNCAwIFIvVFQxIDI1IDAgUj4+L1Byb2NTZXRbL1BE
Ri9UZXh0XS9FeHRHU3RhdGU8PC9HUzAgMzIgMCBSPj4+Pi9UeXBlL1BhZ2U+Pg1lbmRvYmoN
MjIgMCBvYmpbMjMgMCBSXQ1lbmRvYmoNMjMgMCBvYmo8PC9SZWN0WzQwNS44NzQgMjUzLjE5
NyAzODYuNDk4IDUwNi42MjNdL1N1YnR5cGUvTGluay9CUzw8L1MvUy9XIDAvVHlwZS9Cb3Jk
ZXI+Pi9BIDI4IDAgUi9IL0kvU3RydWN0UGFyZW50IDAvQm9yZGVyWzAgMCAwXS9UeXBlL0Fu
bm90Pj4NZW5kb2JqDTI0IDAgb2JqPDwvU3VidHlwZS9UcnVlVHlwZS9Gb250RGVzY3JpcHRv
ciAzMCAwIFIvTGFzdENoYXIgMTIxL1dpZHRoc1syNzggMCAwIDAgMCAwIDAgMCAwIDAgMCAw
IDAgMCAwIDI3OCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDcyMiA3
MjIgNjY3IDAgMCAwIDI3OCAwIDAgMCAwIDAgMCA2NjcgMCA3MjIgNjY3IDYxMSA3MjIgMCAw
IDAgMCAwIDAgMCAwIDAgMCAwIDAgMCA1MDAgMCA1NTYgMCAwIDAgMjIyIDAgMCAwIDgzMyA1
NTYgMCAwIDU1NiAzMzMgNTAwIDI3OCA1NTYgMCAwIDAgNTAwXS9CYXNlRm9udC9BcmlhbC9G
aXJzdENoYXIgMzIvRW5jb2RpbmcvV2luQW5zaUVuY29kaW5nL1R5cGUvRm9udD4+DWVuZG9i
ag0yNSAwIG9iajw8L1N1YnR5cGUvVHJ1ZVR5cGUvRm9udERlc2NyaXB0b3IgMzEgMCBSL0xh
c3RDaGFyIDE0OC9XaWR0aHNbMjc4IDAgMCAwIDAgMCAwIDAgMzMzIDMzMyAwIDAgMjc4IDAg
Mjc4IDI3OCAwIDU1NiA1NTYgNTU2IDU1NiA1NTYgMCAwIDAgMCAzMzMgMCAwIDAgMCAwIDAg
NzIyIDAgNzIyIDcyMiAwIDAgMCAwIDI3OCAwIDAgMCAwIDcyMiAwIDY2NyAwIDAgNjY3IDYx
MSA3MjIgMCA5NDQgMCAwIDAgMCAwIDAgMCAwIDAgNTU2IDYxMSA1NTYgNjExIDU1NiAzMzMg
NjExIDYxMSAyNzggMCA1NTYgMjc4IDg4OSA2MTEgNjExIDYxMSA2MTEgMzg5IDU1NiAzMzMg
NjExIDU1NiA3NzggNTU2IDU1NiA1MDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAg
MCAwIDAgMCAwIDAgMCAwIDAgNTAwIDUwMF0vQmFzZUZvbnQvQXJpYWwsQm9sZC9GaXJzdENo
YXIgMzIvRW5jb2RpbmcvV2luQW5zaUVuY29kaW5nL1R5cGUvRm9udD4+DWVuZG9iag0yNiAw
IG9iajw8L0xlbmd0aCAxNzEwL0ZpbHRlci9GbGF0ZURlY29kZT4+c3RyZWFtDQpIiXxXW2/b
NhR+96/gowRUtEjdi6LAmhRDB3QIZhV7aPagSHTMzZFckY7X/vqdQ4qirKQLAku+nMNz+77z
aXtH3r3bfr75dEti8v79h9sbsonJ44YRSTbbX3dwrzYf6s22rmPCSL3fRDGN47ggdUvMLUtI
fQFjUivCYrz+gHf1CC8pfM9JZC8xqRKaloTxmOakftoEN1/u7nbbmy87fKk/krubT9vb3Y6E
9d8Qg/MfZ+if0ZInJGKUVRWpu02wE+15lPo7+UN8O8tRPIleK7T8WG8+foYstrtDcxJzdsxl
Z5Nhy2Qyf1hlk2EJrUo4zlzgbVXRnJO8oNyE/jVgNIRviyyoD2EWCCWIsgGFUR58DxkLyIi3
Iox48O0Mv7Exwo1WpDnB9XT8HuYB0QNpjkcS/lX/NoWTYDgxBsIZzXIsHWT8NbjnPFHGt9Li
ibTD02noMW0K36RwUMmCXRgl9nyFJ/vfYZTu9FEsjmOpOQ4PTvHMiEGuCbO1LuzJndjLXnSk
AeMevMcB6YW+DOM/PopFApWvJzPNy2lepDaNgNwHkgpqDM9ajOoNlG58Nje9wA5ay3x2gjW/
YEs4fGid2LOb0+kom74VYLqH+l6gkHA7+2DcpcbNkEa8oiW2FTxx40ddpG4PaD8OUzAXcHQU
CjJtwfHsa3ZlM8pokWVTMIqcBgltIEK39yEZRhOYj6L0WDEVrmial5OtbBsth57oQ6OJVHb2
J4BdCNStcqfIvj2eO2iC7PEI7z711TZGUcJoxapFA4N26HvRajCGadMHQdpm7A7DsRMj6Rrd
rCq2xB0kmrgBJKJ/luPQP4URTpOmpL725WeAozEMDjhfW2GaJt3FDDJ/rO2UPXeRwqkZNRn2
Jno3e8bLafAzU82jbHDMOM0K5rqkBP6vU8daKj92zHMBM9VkKU3Am/XRK6nlsyDNGcLotWse
+qGryXV3OHUlLSHDiNMEumkqyZE+4ioPfulnwBL0CIQGAQ3jY9PLH9b75bAoVLKGVkarmM3D
dCBCQmgjgKyBUTyNQ2uzvg8e4L3Sw7iA2GJy8slZGs/dRgIpimAIWYD+cLT12PTqSVqsGzs/
L8y0vKBZ6nHRjqKT+mpcX5BtlOSrcUW+eQAz7JSpLTDEATkSKCOM0uAEER1tyQC+BzJHw/KJ
bXjqksBxOTZaKI3rhdyiveHIHXEbxDja6abv4DxF18VeDmVJWcFtIyvrP7GNLEwjU2hkxPMK
WT8JbDcvUh1k/4jAM+Fb3kcGNbEv4lsQaDGTTWlx9PPY40XstmESib8nCqZH7ZvWzBAAZ+E+
tRu1umJ5U6pxsUyJ7F6DhYV2BZtwWkyIabmXlpn0AdANq1BLbzuvswqg5IZj6F1XR7GHgZ2I
yc/JXIOksraIoamrvqO4Y21hVkVZpOv5l6cOkElRXk3cXENYcB1SP2wnXHV5gM1bzMS6EMAP
ns27oT2b2sEaOSAa26YnD4us2JyV5WpgqJS5Ou6HM56tTSH2w/E4XPDwP8UDeY3iMptLPq00
18am60bA/Fuy+Ju3CrMYTUvHaISsf/cT/cSdftregChsFdiDjoNRsq9Etf0r0sqWK35VVKUx
mDLQBTxLIHooIorCg9Yn9Xa7vVwu9NRKo6pWjMXgdmapCcBW7TgMA39uTc9+kkzikkljTqH+
GAEHRCSluYXLKDb7V03TpUq+SthD62WqSUqBnBb6MXUL4NO0DxF7CnZZFvRAb0o+oGQ8Onoa
9ot5XuzodFJGyEduSTd9iBK0cAvFEqUZxy5ERcrBPRyGkLsmhUkrZU5uVblzinA4eml7kXgP
9GV4yUPP/2KBGCtKeEqLPH2JOUizwd6NeIcxwQV0ZitG3Rg+wR9YSFwrTAO9Kp5DRAVpqA4M
9pCjNRWeFXLLlPAhDglyZQnTgzsS1fighDvdJLtOI/YSxa6ZaDp+mRFSut0AqLGvd8+tYe6d
X1ZsLjhzVMB9Fz2Z8YnhoaNQKYaVKoKXe2rmOhtakl8rjswtqt8HbRbSRNa2DoaxByMs4fP1
rPnHPFAISTmLcMjPPMP5DQSU/j9aEh7ikhm4SP1AjSBNlR7P9uHiUT5jaO4Zw83vFZ0vteKk
rzLKrznQTvskhWYR9MbqH7VgU185u2mhcGWeuBU1zoJnKWW6hYIqV2IGUkyrWXw4EWNrbJWM
NBLm6dwjWorAjOUwvgpEl15Ok8zMWVpOzRT/wrOAmfb9ONgnPI9OrKDRFhacK63mn4ZAzXD/
cPmaHoLYHDZzwCaKA1yIkz6gVwz7nwADAJ/8Pa4NCmVuZHN0cmVhbQ1lbmRvYmoNMjcgMCBv
YmpbL0lDQ0Jhc2VkIDI5IDAgUl0NZW5kb2JqDTI4IDAgb2JqPDwvVVJJKGh0dHBzOi8vd3d3
LnBjaXNlY3VyaXR5c3RhbmRhcmRzLm9yZy8pL1MvVVJJPj4NZW5kb2JqDTI5IDAgb2JqPDwv
TGVuZ3RoIDI1NzUvRmlsdGVyL0ZsYXRlRGVjb2RlL04gMy9BbHRlcm5hdGUvRGV2aWNlUkdC
Pj5zdHJlYW0NCkiJnJZ5VFN3Fsd/b8mekJWww2MNW4CwBpA1bGGRHQRRCEkIARJCSNgFQUQF
FEVEhKqVMtZtdEZPRZ0urmOtDtZ96tID9TDq6Di0FteOnRc4R51OZ6bT7x/v9zn3d+/v3d+9
953zAKAnpaq11TALAI3WoM9KjMUWFRRipAkAAwogAhEAMnmtLi07IQfgksZLsFrcCfyLnl4H
kGm9IkzKwDDw/4kt1+kNAEAZOAcolLVynDtxrqo36Ez2GZx5pZUmhlET6/EEcbY0sWqeved8
5jnaxAqNVoGzKWedQqMw8WmcV9cZlTgjqTh31amV9ThfxdmlyqhR4/zcFKtRymoBQOkmu0Ep
L8fZD2e6PidLgvMCAMh01Ttc+g4blA0G06Uk1bpGvVpVbsDc5R6YKDRUjCUp66uUBoMwQyav
lOkVmKRao5NpGwGYv/OcOKbaYniRg0WhwcFCfx/RO4X6r5u/UKbeztOTzLmeQfwLb20/51c9
CoB4Fq/N+re20i0AjK8EwPLmW5vL+wAw8b4dvvjOffimeSk3GHRhvr719fU+aqXcx1TQN/qf
Dr9A77zPx3Tcm/JgccoymbHKgJnqJq+uqjbqsVqdTK7EhD8d4l8d+PN5eGcpy5R6pRaPyMOn
TK1V4e3WKtQGdbUWU2v/UxN/ZdhPND/XuLhjrwGv2AewLvIA8rcLAOXSAFK0Dd+B3vQtlZIH
MvA13+He/NzPCfr3U+E+06NWrZqLk2TlYHKjvm5+z/RZAgKgAibgAStgD5yBOxACfxACwkE0
iAfJIB3kgAKwFMhBOdAAPagHLaAddIEesB5sAsNgOxgDu8F+cBCMg4/BCfBHcB58Ca6BW2AS
TIOHYAY8Ba8gCCJBDIgLWUEOkCvkBflDYigSiodSoSyoACqBVJAWMkIt0AqoB+qHhqEd0G7o
99BR6AR0DroEfQVNQQ+g76CXMALTYR5sB7vBvrAYjoFT4Bx4CayCa+AmuBNeBw/Bo/A++DB8
Aj4PX4Mn4YfwLAIQGsJHHBEhIkYkSDpSiJQheqQV6UYGkVFkP3IMOYtcQSaRR8gLlIhyUQwV
ouFoEpqLytEatBXtRYfRXehh9DR6BZ1CZ9DXBAbBluBFCCNICYsIKkI9oYswSNhJ+IhwhnCN
ME14SiQS+UQBMYSYRCwgVhCbib3ErcQDxOPES8S7xFkSiWRF8iJFkNJJMpKB1EXaQtpH+ox0
mTRNek6mkR3I/uQEciFZS+4gD5L3kD8lXybfI7+isCiulDBKOkVBaaT0UcYoxygXKdOUV1Q2
VUCNoOZQK6jt1CHqfuoZ6m3qExqN5kQLpWXS1LTltCHa72if06ZoL+gcuiddQi+iG+nr6B/S
j9O/oj9hMBhujGhGIcPAWMfYzTjF+Jrx3Ixr5mMmNVOYtZmNmB02u2z2mElhujJjmEuZTcxB
5iHmReYjFoXlxpKwZKxW1gjrKOsGa5bNZYvY6WwNu5e9h32OfZ9D4rhx4jkKTifnA84pzl0u
wnXmSrhy7gruGPcMd5pH5Al4Ul4Fr4f3W94Eb8acYx5onmfeYD5i/on5JB/hu/Gl/Cp+H/8g
/zr/pYWdRYyF0mKNxX6LyxbPLG0soy2Vlt2WByyvWb60wqzirSqtNliNW92xRq09rTOt6623
WZ+xfmTDswm3kdt02xy0uWkL23raZtk2235ge8F21s7eLtFOZ7fF7pTdI3u+fbR9hf2A/af2
Dxy4DpEOaocBh88c/oqZYzFYFTaEncZmHG0dkxyNjjscJxxfOQmccp06nA443XGmOoudy5wH
nE86z7g4uKS5tLjsdbnpSnEVu5a7bnY96/rMTeCW77bKbdztvsBSIBU0CfYKbrsz3KPca9xH
3a96ED3EHpUeWz2+9IQ9gzzLPUc8L3rBXsFeaq+tXpe8Cd6h3lrvUe8bQrowRlgn3Cuc8uH7
pPp0+Iz7PPZ18S303eB71ve1X5Bfld+Y3y0RR5Qs6hAdE33n7+kv9x/xvxrACEgIaAs4EvBt
oFegMnBb4J+DuEFpQauCTgb9IzgkWB+8P/hBiEtISch7ITfEPHGGuFf8eSghNDa0LfTj0Bdh
wWGGsINhfw8XhleG7wm/v0CwQLlgbMHdCKcIWcSOiMlILLIk8v3IySjHKFnUaNQ30c7Riuid
0fdiPGIqYvbFPI71i9XHfhT7TBImWSY5HofEJcZ1x03Ec+Jz44fjv05wSlAl7E2YSQxKbE48
nkRISknakHRDaieVS3dLZ5JDkpcln06hp2SnDKd8k+qZqk89lganJadtTLu90HWhduF4OkiX
pm9Mv5MhyKjJ+EMmMTMjcyTzL1mirJass9nc7OLsPdlPc2Jz+nJu5brnGnNP5jHzivJ25z3L
j8vvz59c5Lto2aLzBdYF6oIjhaTCvMKdhbOL4xdvWjxdFFTUVXR9iWBJw5JzS62XVi39pJhZ
LCs+VEIoyS/ZU/KDLF02KpstlZa+Vzojl8g3yx8qohUDigfKCGW/8l5ZRFl/2X1VhGqj6kF5
VPlg+SO1RD2s/rYiqWJ7xbPK9MoPK3+syq86oCFrSjRHtRxtpfZ0tX11Q/UlnZeuSzdZE1az
qWZGn6LfWQvVLqk9YuDhP1MXjO7Glcapusi6kbrn9Xn1hxrYDdqGC42ejWsa7zUlNP2mGW2W
N59scWxpb5laFrNsRyvUWtp6ss25rbNtenni8l3t1PbK9j91+HX0d3y/In/FsU67zuWdd1cm
rtzbZdal77qxKnzV9tXoavXqiTUBa7ased2t6P6ix69nsOeHXnnvF2tFa4fW/riubN1EX3Df
tvXE9dr11zdEbdjVz+5v6r+7MW3j4QFsoHvg+03Fm84NBg5u30zdbNw8OZT6TwCkAVv+mLiZ
JJmQmfyaaJrVm0Kbr5wcnImc951kndKeQJ6unx2fi5/6oGmg2KFHobaiJqKWowajdqPmpFak
x6U4pammGqaLpv2nbqfgqFKoxKk3qamqHKqPqwKrdavprFys0K1ErbiuLa6hrxavi7AAsHWw
6rFgsdayS7LCszizrrQltJy1E7WKtgG2ebbwt2i34LhZuNG5SrnCuju6tbsuu6e8IbybvRW9
j74KvoS+/796v/XAcMDswWfB48JfwtvDWMPUxFHEzsVLxcjGRsbDx0HHv8g9yLzJOsm5yjjK
t8s2y7bMNcy1zTXNtc42zrbPN8+40DnQutE80b7SP9LB00TTxtRJ1MvVTtXR1lXW2Ndc1+DY
ZNjo2WzZ8dp22vvbgNwF3IrdEN2W3hzeot8p36/gNuC94UThzOJT4tvjY+Pr5HPk/OWE5g3m
lucf56noMui86Ubp0Opb6uXrcOv77IbtEe2c7ijutO9A78zwWPDl8XLx//KM8xnzp/Q09ML1
UPXe9m32+/eK+Bn4qPk4+cf6V/rn+3f8B/yY/Sn9uv5L/tz/bf//AgwA94Tz+woNCmVuZHN0
cmVhbQ1lbmRvYmoNMzAgMCBvYmo8PC9TdGVtViA5NC9Gb250TmFtZS9BcmlhbC9Gb250U3Ry
ZXRjaC9Ob3JtYWwvRm9udFdlaWdodCA0MDAvRmxhZ3MgMzIvRGVzY2VudCAtMjExL0ZvbnRC
Qm94Wy02NjUgLTMyNSAyMDAwIDEwMDZdL0FzY2VudCA5MDUvRm9udEZhbWlseShBcmlhbCkv
Q2FwSGVpZ2h0IDcxOC9UeXBlL0ZvbnREZXNjcmlwdG9yL0l0YWxpY0FuZ2xlIDA+Pg1lbmRv
YmoNMzEgMCBvYmo8PC9TdGVtViAxMzgvRm9udE5hbWUvQXJpYWwsQm9sZC9Gb250U3RyZXRj
aC9Ob3JtYWwvRm9udFdlaWdodCA3MDAvRmxhZ3MgMzIvRGVzY2VudCAtMjExL0ZvbnRCQm94
Wy02MjggLTM3NiAyMDAwIDEwMTBdL0FzY2VudCA5MDUvRm9udEZhbWlseShBcmlhbCkvQ2Fw
SGVpZ2h0IDcxOC9YSGVpZ2h0IDUxNS9UeXBlL0ZvbnREZXNjcmlwdG9yL0l0YWxpY0FuZ2xl
IDA+Pg1lbmRvYmoNMzIgMCBvYmo8PC9PUE0gMS9PUCBmYWxzZS9vcCBmYWxzZS9UeXBlL0V4
dEdTdGF0ZS9TQSBmYWxzZS9TTSAwLjAyPj4NZW5kb2JqDTEgMCBvYmo8PC9GaXJzdCAyIDAg
Ui9Db3VudCAxL0xhc3QgMiAwIFI+Pg1lbmRvYmoNMiAwIG9iajw8L1BhcmVudCAxIDAgUi9E
ZXN0WzIxIDAgUi9GaXRdL1RpdGxlKP7/AEMAVQBQAFAAUwAvAEMAVQBTAFMALwBDAFUAVABF
ACAAUABDAEkALwBEAFMAUwAgAFMAZQBjAHUAcgBpAHQAeQAgAFIAZQBxAHUAaQByAGUAbQBl
AG4AdABzKT4+DWVuZG9iag0zIDAgb2JqPDwvRmlyc3QgNjgvTGVuZ3RoIDYyMi9GaWx0ZXIv
RmxhdGVEZWNvZGUvTiAxMC9UeXBlL09ialN0bT4+c3RyZWFtDQp42oRT227aQBDdH8gftNI8
JlLq9R2oIkvQi9qSBASofYA+OGZD3Dg2WZYQfr7tmbW5JKpUwd5mzsycOd7tkEueS+2YPI88
38cgL4ItIN9tkxeS38ISUYCtF1MY4tRCiI8Vfy/w6OJC9jmJSyM5TLUqzUQrxQlfWq7Vs+mr
LflyVBXqKl1yMYZMtkslx0avM4sbVZVJEs46RQkAuDCWn3JIHRswlmOV1Zjr9cNqavlaIDNm
qPV9B6jS8nO+WGslJyjfq57lx/xJfkFFXeTlvbzkaXyXgkGNayr7mAc3v8gP6i4W5HsHsoPe
t1GSMKGaGhjZRHtYkkwh2oH7nmB83BBqdKeYmFq3yBel/ACtlJYDeZluq7WRP3Ru8nJxVc2V
vNSTGwv9Ws4Bo3eB67jyUzlvzu3QaUXQMdXmYIn9iIn2yWWy7Ybs8Jgps+CPyi5IvqMaUGgb
dHeSW5EOQnQLc/r7j5gIJZ6FESR6osLuPXYE6x3sKwyycybWQoscuC0sGpZHWHK7e8Ao4VnB
k4olfoVFGeRjS4Ef0Rv4txjGRhAyVliXmMt9vENv4Rn/F8dZteU2x3wLHuybW3vtLS0Dthqx
QawW9//INTvhvmenSODA4BxB1paARrrzRgItno4sr1PvGs9t8cyKx7jbRqRNI8Qu38aKmTUy
n1tRq1dVN01sYTF1Y1mTm0/cSL6XRNl8szNsmdQxpQx7g5X75u9yZ88k8tkJh57ZOzQs0kw9
4NrJXlFl94c7fLihncgJw+DlHY1bjh+1fNnD28R7j5xoZ6IoDJx2C+dO7ERRXD/qPtUP6/hq
Nk87Sf4KMAA2CyFgDQplbmRzdHJlYW0NZW5kb2JqDTQgMCBvYmo8PC9OdW1zWzAgNSAwIFJd
Pj4NZW5kb2JqDTUgMCBvYmo8PC9TL0Q+Pg1lbmRvYmoNNiAwIG9iajw8L0NvdW50IDEvVHlw
ZS9QYWdlcy9LaWRzWzIxIDAgUl0+Pg1lbmRvYmoNNyAwIG9iajw8L1N1YnR5cGUvWE1ML0xl
bmd0aCA0Mzk2L1R5cGUvTWV0YWRhdGE+PnN0cmVhbQ0KPD94cGFja2V0IGJlZ2luPSLvu78i
IGlkPSJXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQiPz4KPHg6eG1wbWV0YSB4bWxuczp4PSJh
ZG9iZTpuczptZXRhLyIgeDp4bXB0az0iMy4xLTcwMSI+CiAgIDxyZGY6UkRGIHhtbG5zOnJk
Zj0iaHR0cDovL3d3dy53My5vcmcvMTk5OS8wMi8yMi1yZGYtc3ludGF4LW5zIyI+CiAgICAg
IDxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSIiCiAgICAgICAgICAgIHhtbG5zOnBkZj0i
aHR0cDovL25zLmFkb2JlLmNvbS9wZGYvMS4zLyI+CiAgICAgICAgIDxwZGY6UHJvZHVjZXI+
QWNyb2JhdCBEaXN0aWxsZXIgNy4wLjUgKFdpbmRvd3MpPC9wZGY6UHJvZHVjZXI+CiAgICAg
ICAgIDxwZGY6S2V5d29yZHMvPgogICAgICA8L3JkZjpEZXNjcmlwdGlvbj4KICAgICAgPHJk
ZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIKICAgICAgICAgICAgeG1sbnM6eGFwPSJodHRw
Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIj4KICAgICAgICAgPHhhcDpDcmVhdGVEYXRlPjIw
MDctMTAtMzFUMDc6Mzc6MjAtMDc6MDA8L3hhcDpDcmVhdGVEYXRlPgogICAgICAgICA8eGFw
Ok1vZGlmeURhdGU+MjAwNy0xMC0zMVQwNzozNzoyMS0wNzowMDwveGFwOk1vZGlmeURhdGU+
CiAgICAgICAgIDx4YXA6Q3JlYXRvclRvb2w+QWNyb2JhdCBQREZNYWtlciA3LjAuNSBmb3Ig
UG93ZXJQb2ludDwveGFwOkNyZWF0b3JUb29sPgogICAgICAgICA8eGFwOk1ldGFkYXRhRGF0
ZT4yMDA3LTEwLTMxVDA3OjM3OjIxLTA3OjAwPC94YXA6TWV0YWRhdGFEYXRlPgogICAgICA8
L3JkZjpEZXNjcmlwdGlvbj4KICAgICAgPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIK
ICAgICAgICAgICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv
Ij4KICAgICAgICAgPGRjOmZvcm1hdD5hcHBsaWNhdGlvbi9wZGY8L2RjOmZvcm1hdD4KICAg
ICAgICAgPGRjOnRpdGxlPgogICAgICAgICAgICA8cmRmOkFsdD4KICAgICAgICAgICAgICAg
PHJkZjpsaSB4bWw6bGFuZz0ieC1kZWZhdWx0Ij5DVVBQUy9DVVNTL0NVVEUgU2VjdXJpdHkg
UmVxdWlyZW1lbnRzPC9yZGY6bGk+CiAgICAgICAgICAgIDwvcmRmOkFsdD4KICAgICAgICAg
PC9kYzp0aXRsZT4KICAgICAgICAgPGRjOmNyZWF0b3I+CiAgICAgICAgICAgIDxyZGY6U2Vx
PgogICAgICAgICAgICAgICA8cmRmOmxpPmp2aW5lbGxpPC9yZGY6bGk+CiAgICAgICAgICAg
IDwvcmRmOlNlcT4KICAgICAgICAgPC9kYzpjcmVhdG9yPgogICAgICAgICA8ZGM6ZGVzY3Jp
cHRpb24+CiAgICAgICAgICAgIDxyZGY6QWx0PgogICAgICAgICAgICAgICA8cmRmOmxpIHht
bDpsYW5nPSJ4LWRlZmF1bHQiLz4KICAgICAgICAgICAgPC9yZGY6QWx0PgogICAgICAgICA8
L2RjOmRlc2NyaXB0aW9uPgogICAgICA8L3JkZjpEZXNjcmlwdGlvbj4KICAgICAgPHJkZjpE
ZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIKICAgICAgICAgICAgeG1sbnM6eGFwTU09Imh0dHA6
Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iPgogICAgICAgICA8eGFwTU06RG9jdW1lbnRJ
RD51dWlkOjJlNmQ3ODA0LTBmYTktNGI1Ni1hYjViLWViMDFjOTk5ZjljNDwveGFwTU06RG9j
dW1lbnRJRD4KICAgICAgICAgPHhhcE1NOkluc3RhbmNlSUQ+dXVpZDplMWI3MTk0My00MzEw
LTRjMGQtYTEzYS04ZmFkNTkzMDAyM2I8L3hhcE1NOkluc3RhbmNlSUQ+CiAgICAgIDwvcmRm
OkRlc2NyaXB0aW9uPgogICAgICA8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0iIgogICAg
ICAgICAgICB4bWxuczpwZGZ4PSJodHRwOi8vbnMuYWRvYmUuY29tL3BkZngvMS4zLyI+CiAg
ICAgICAgIDxwZGZ4Ok1hbmFnZXIvPgogICAgICAgICA8cGRmeDpDb21wYW55PkdPQUE8L3Bk
Zng6Q29tcGFueT4KICAgICAgICAgPHBkZng6Q29tbWVudHMvPgogICAgICAgICA8cGRmeDpD
YXRlZ29yeS8+CiAgICAgICAgIDxwZGZ4Ol9BZEhvY1Jldmlld0N5Y2xlSUQ+MTU3NDY1NDcw
MDwvcGRmeDpfQWRIb2NSZXZpZXdDeWNsZUlEPgogICAgICAgICA8cGRmeDpfRW1haWxTdWJq
ZWN0PkNVUFBTLUNVU1MtQ1VURSBTZWN1cml0eSBSZXF1aXJlbWVudHMucHB0PC9wZGZ4Ol9F
bWFpbFN1YmplY3Q+CiAgICAgICAgIDxwZGZ4Ol9BdXRob3JFbWFpbD5KVklORUxMSUBnb2Fh
Lm9yZzwvcGRmeDpfQXV0aG9yRW1haWw+CiAgICAgICAgIDxwZGZ4Ol9BdXRob3JFbWFpbERp
c3BsYXlOYW1lPkpvaG4gVmluZWxsaTwvcGRmeDpfQXV0aG9yRW1haWxEaXNwbGF5TmFtZT4K
ICAgICAgICAgPHBkZng6X1Jldmlld2luZ1Rvb2xzU2hvd25PbmNlLz4KICAgICAgPC9yZGY6
RGVzY3JpcHRpb24+CiAgIDwvcmRmOlJERj4KPC94OnhtcG1ldGE+CiAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAKPD94cGFja2V0IGVuZD0idyI/
Pg0KZW5kc3RyZWFtDWVuZG9iag04IDAgb2JqPDwvQ3JlYXRpb25EYXRlKEQ6MjAwNzEwMzEw
NzM3MjAtMDcnMDAnKS9fRW1haWxTdWJqZWN0KENVUFBTLUNVU1MtQ1VURSBTZWN1cml0eSBS
ZXF1aXJlbWVudHMucHB0KS9TdWJqZWN0KCkvQXV0aG9yKGp2aW5lbGxpKS9DcmVhdG9yKEFj
cm9iYXQgUERGTWFrZXIgNy4wLjUgZm9yIFBvd2VyUG9pbnQpL0tleXdvcmRzKCkvX0F1dGhv
ckVtYWlsRGlzcGxheU5hbWUoSm9obiBWaW5lbGxpKS9Qcm9kdWNlcihBY3JvYmF0IERpc3Rp
bGxlciA3LjAuNSBcKFdpbmRvd3NcKSkvX1Jldmlld2luZ1Rvb2xzU2hvd25PbmNlKCkvX0F1
dGhvckVtYWlsKEpWSU5FTExJQGdvYWEub3JnKS9Nb2REYXRlKEQ6MjAwNzEwMzEwNzM3MjEt
MDcnMDAnKS9fQWRIb2NSZXZpZXdDeWNsZUlEKDE1NzQ2NTQ3MDApL0NvbXBhbnkoR09BQSkv
Q29tbWVudHMoKS9NYW5hZ2VyKCkvQ2F0ZWdvcnkoKS9UaXRsZShDVVBQUy9DVVNTL0NVVEUg
U2VjdXJpdHkgUmVxdWlyZW1lbnRzKT4+DWVuZG9iag14cmVmDQowIDE5DQowMDAwMDAwMDAw
IDY1NTM1IGYNCjAwMDAwMDc1OTQgMDAwMDAgbg0KMDAwMDAwNzY0NCAwMDAwMCBuDQowMDAw
MDA3NzkzIDAwMDAwIG4NCjAwMDAwMDg1MDkgMDAwMDAgbg0KMDAwMDAwODU0MiAwMDAwMCBu
DQowMDAwMDA4NTY1IDAwMDAwIG4NCjAwMDAwMDg2MTYgMDAwMDAgbg0KMDAwMDAxMzA4OCAw
MDAwMCBuDQowMDAwMDAwMDAwIDY1NTM1IGYNCjAwMDAwMDAwMDAgNjU1MzUgZg0KMDAwMDAw
MDAwMCA2NTUzNSBmDQowMDAwMDAwMDAwIDY1NTM1IGYNCjAwMDAwMDAwMDAgNjU1MzUgZg0K
MDAwMDAwMDAwMCA2NTUzNSBmDQowMDAwMDAwMDAwIDY1NTM1IGYNCjAwMDAwMDAwMDAgNjU1
MzUgZg0KMDAwMDAwMDAwMCA2NTUzNSBmDQowMDAwMDAwMDAwIDY1NTM1IGYNCnRyYWlsZXIN
Cjw8L1NpemUgMTk+Pg0Kc3RhcnR4cmVmDQoxMTYNCiUlRU9GDQo=
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: unicode karakter ile base64 decode

Mesaj gönderen ertank »

Bu veri bir PDF dosyaya ait. Herhangi basit bir metin değil.
https://base64.guru/converter/decode/file
Yukarıdaki siteye gidip veriyi decode ederseniz anlayacaksınız.

Delphi içinde Base64 dönüşümü sonrası elde ettiğiniz BYTE değerleri PDF dosyası olarak saklayıp bu dosya içinden veri okumanız gerekiyor.
Bazı ücretsiz PDF dosya içinden metin okuyan araçlar mevcut. Bunları kullanabilirsiniz.
Ya da PDF dosya işlemeye yarayan ücretli bileşenlerden faydalanabilirsiniz.
aegean
Üye
Mesajlar: 41
Kayıt: 24 Tem 2019 09:32

Re: unicode karakter ile base64 decode

Mesaj gönderen aegean »

Sayın @ertank ustam,
ilginize tesekkür ederim. Burada herkesin yardımına bir sekilde kosuyorsunuz cok sağolun .
Evet bunlar pdf dosyası tcp ip port uzerinden geldiği için base64 geliyor. dogru cevrildiğinde onu zaten binary bir dosya olarak temp içine yazıp sonra foxit ile goruntuluyorum ama ilk mesajımda belirttiğim gibi delphi ile bereber gelen hazır converterler ise yaramadı ben de bir zamanlar (nereden aldım su an hatırlamıyorum ama ) yine bir forum dan aldıgım manuel decode eden fonksiyonu elden gecirdim ve denedim calıstı.
belki benim gibi bir baska arkadasın da işine yarar diye buradan onu da vereyim iyi günler iyi calısmalar dilerim.

Kod: Tümünü seç

function base64decoderPdf(gir: string): string;
  const
  codes64: array[0..63] of Char =
  'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

  BinTable: array [0..15] of string =
  // 0       1       2       3       4       5       6       7       8       9       A       B       C       D       E       F
   ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');

       function HToBin(pHex: string): string;
       var
         i: integer;
       begin
           Result := '';
           for i := Length(pHex) downto 1 do
           Result := BinTable[StrToInt('$' + pHex[i])] + Result;
       end;


       function BToDec(Str: string): Integer;
       var
        Len, Res, i: Integer;
        Error: Boolean;

              function Pow(i, k: Integer): Integer;
              var
                j, Count: Integer;
               begin
                 if k>0 then j:=2
                 else j:=1;
                 for Count:=1 to k-1 do
                     j:=j*2;
                 Result:=j;
               end;

        begin
         Error:=False;
         Len:=Length(Str);
         Res:=0;
         for i:=1 to Len do
          if (Str[i]='0')or(Str[i]='1') then
            Res:=Res+Pow(2, Len-i)*StrToInt(Str[i])
          else
          begin
              lcom('It is not a binary number'+str[i]);
              Error:=True;
              Break;
          end;
          Result:=Res;
        end;

 var
  indis,i,y : integer;
  iLength,x : Integer;
  dizi      : wideString;
  hexx      : string;
  harf      : char;

 begin
  Result := '';
  dizi   := '';
  hexx   := '';
  iLength:= Length(gir);
  i      := 1;
  y      := 1;

   while i < iLength do
   begin
      harf := gir[i];
      indis:= ansipos(harf, codes64);
      if (indis>0) then begin
        dec(indis);
        hexx := inttohex(indis,2);
        dizi := dizi+copy(htobin(hexx),3,6);
      end else if harf = '=' then begin
         i:=ilength-1;
      end;

      Inc(i);
   end;

   while y-1 < length(dizi)-8 do
   begin
        result:=result+chr(btodec(copy(dizi,y,8)));
        x:= length(dizi)-length(leftstr(dizi,y)) ;
        if 8 > x-8 then  result:=result+chr(btodec(copy(dizi,y+8,8)));
        inc(y,8);
   end;

 end;
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: unicode karakter ile base64 decode

Mesaj gönderen ertank »

Merhaba,

Delphi içinde gelen Base64 fonksiyonlarında bir sorun göremiyorum. Aşağıdaki kod ile Delphi 11.3 kullanarak PDF dosyasını elde edebiliyorum.

Kod: Tümünü seç

uses
  System.IOUtils,
  System.NetEncoding;

procedure TForm1.Button1Click(Sender: TObject);
var
  LBytes: TBytes;
  LBase64Text: string;
begin
  LBase64Text := TFile.ReadAllText('base64.txt');
  LBytes := TNetEncoding.Base64.DecodeStringToBytes(LBase64Text);
  TFile.WriteAllBytes('a.pdf', LBytes);
end;
base64.txt dosyası içinde yukarıda verdiğiniz ham veri olmalı.
aegean
Üye
Mesajlar: 41
Kayıt: 24 Tem 2019 09:32

Re: unicode karakter ile base64 decode

Mesaj gönderen aegean »

Cok tesekkür ederim,
hemen deneyecegim bu sekilde kullanımı daha once gormemistim. Sanırım benim tnetencoding kullanım sekli ile alakalı hata olabilir.
Elinize sağlık. İyi günler dilerim.
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: unicode karakter ile base64 decode

Mesaj gönderen Commandx »

Farklı bir yolla çözdüm bende, Lazım olur D7 için

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
   EncdDecd;
function Base64ToBinary(const Base64String: string; out BinaryStream: TMemoryStream): Boolean;
var
  DecodedStream: TStringStream;
  DecodedString: string;
begin
  Result := False;
  DecodedStream := TStringStream.Create('');
  try
    try
      DecodedString := DecodeString(Base64String);
      DecodedStream.WriteString(DecodedString);
      DecodedStream.Position := 0;
      BinaryStream.CopyFrom(DecodedStream, 0);
      Result := True;
    except
      // Hata durumunda False döndürülür.
    end;
  finally
    DecodedStream.Free;
  end;
end;

procedure SaveBinaryToFile(const BinaryStream: TMemoryStream; const FileName: string);
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    BinaryStream.Position := 0;
    FileStream.CopyFrom(BinaryStream, BinaryStream.Size);
  finally
    FileStream.Free;
  end;
end;

procedure ConvertBase64ToBinary(const Base64String: string; const FileName: string);
var
  BinaryStream: TMemoryStream;
begin
  BinaryStream := TMemoryStream.Create;
  try
    if Base64ToBinary(Base64String, BinaryStream) then
      SaveBinaryToFile(BinaryStream, FileName)
    else
      ShowMessage('Base64 dönüşümü başarısız.');
  finally
    BinaryStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Base64String: string;
  FileName: string;
begin
  Base64String := Memo1.Text;//'QmFzZTY0IGVuY29kaW5nIHN0cmluZw=='; // Örnek base64 kodu
  FileName := 'binarydosya.dat.pdf'; // Hedef dosya adı
  ConvertBase64ToBinary(Base64String, FileName);
end;


end.

BUNU Memoya yapıştırın, Programın kendi dizininde pdf dosyası oluşturacaktır.

Kod: Tümünü seç

JVBERi0xLjQNJeLjz9MNCjE5IDAgb2JqIDw8L0xpbmVhcml6ZWQgMS9MIDE0MDI0L08gMjEv
RSA3NTk0L04gMS9UIDEzNTk3L0ggWyA2MTYgMjAyXT4+DWVuZG9iag0gICAgICAgICAgICAg
ICAgICAgDQp4cmVmDQoxOSAxNg0KMDAwMDAwMDAxNiAwMDAwMCBuDQowMDAwMDAwOTg0IDAw
MDAwIG4NCjAwMDAwMDEyNTMgMDAwMDAgbg0KMDAwMDAwMTUxMiAwMDAwMCBuDQowMDAwMDAx
NTM2IDAwMDAwIG4NCjAwMDAwMDE2ODcgMDAwMDAgbg0KMDAwMDAwMjA1NCAwMDAwMCBuDQow
MDAwMDAyNTM0IDAwMDAwIG4NCjAwMDAwMDQzMTQgMDAwMDAgbg0KMDAwMDAwNDM0OCAwMDAw
MCBuDQowMDAwMDA0NDE3IDAwMDAwIG4NCjAwMDAwMDcwODYgMDAwMDAgbg0KMDAwMDAwNzI5
MyAwMDAwMCBuDQowMDAwMDA3NTE4IDAwMDAwIG4NCjAwMDAwMDA4MTggMDAwMDAgbg0KMDAw
MDAwMDYxNiAwMDAwMCBuDQp0cmFpbGVyDQo8PC9TaXplIDM1L1ByZXYgMTM1ODYvWFJlZlN0
bSA4MTgvUm9vdCAyMCAwIFIvSW5mbyA4IDAgUi9JRFs8RkZBQTMzMzRBNTJENkRERjU2MUE2
NDQyQjVFMjhGOTg+PDAxNTAzM0IwMjU5NUU2NENCODIyMTIxMzI2MjM0QzdBPl0+Pg0Kc3Rh
cnR4cmVmDQowDQolJUVPRg0KICANCjM0IDAgb2JqPDwvTGVuZ3RoIDEwNS9DIDExNi9GaWx0
ZXIvRmxhdGVEZWNvZGUvSSAxMzkvTCAxMDAvTyA4NC9TIDQwPj5zdHJlYW0NCnjaYmBg4GFg
YJFmAAKJowyogBmIWRg4FjCwNCCJ8kAxUAMDD98GBvaP4TJtdxgW6C4N2M4zwQQsw8jAIPMA
SDMB8XGwKQwKxVC+BcRk2eUQdUxnwOLMMUCKg4HBKAwizPgJIMAAM6gPXg0KZW5kc3RyZWFt
DWVuZG9iag0zMyAwIG9iajw8L0xlbmd0aCAyMC9GaWx0ZXIvRmxhdGVEZWNvZGUvV1sxIDEg
MV0vSW5kZXhbOSAxMF0vRGVjb2RlUGFybXM8PC9Db2x1bW5zIDMvUHJlZGljdG9yIDEyPj4v
U2l6ZSAxOS9UeXBlL1hSZWY+PnN0cmVhbQ0KeNpiYmJmYGJgYCSEAQIMAAM5ACMNCmVuZHN0
cmVhbQ1lbmRvYmoNMjAgMCBvYmo8PC9NYXJrSW5mbzw8L0xldHRlcnNwYWNlRmxhZ3MgMC9N
YXJrZWQgdHJ1ZT4+L091dGxpbmVzIDEgMCBSL01ldGFkYXRhIDcgMCBSL1BpZWNlSW5mbzw8
L01hcmtlZFBERjw8L0xhc3RNb2RpZmllZChEOjIwMDcxMDMxMDczNzIxKT4+Pj4vUGFnZXMg
NiAwIFIvUGFnZUxheW91dC9TaW5nbGVQYWdlL1N0cnVjdFRyZWVSb290IDkgMCBSL1R5cGUv
Q2F0YWxvZy9MYXN0TW9kaWZpZWQoRDoyMDA3MTAzMTA3MzcyMSkvUGFnZUxhYmVscyA0IDAg
Uj4+DWVuZG9iag0yMSAwIG9iajw8L0Nyb3BCb3hbMzcgMzcgNTc1IDc1NV0vQW5ub3RzIDIy
IDAgUi9QYXJlbnQgNiAwIFIvU3RydWN0UGFyZW50cyAxL0NvbnRlbnRzIDI2IDAgUi9Sb3Rh
dGUgOTAvTWVkaWFCb3hbMCAwIDYxMiA3OTJdL1Jlc291cmNlczw8L0NvbG9yU3BhY2U8PC9D
UzAgMjcgMCBSPj4vRm9udDw8L1RUMCAyNCAwIFIvVFQxIDI1IDAgUj4+L1Byb2NTZXRbL1BE
Ri9UZXh0XS9FeHRHU3RhdGU8PC9HUzAgMzIgMCBSPj4+Pi9UeXBlL1BhZ2U+Pg1lbmRvYmoN
MjIgMCBvYmpbMjMgMCBSXQ1lbmRvYmoNMjMgMCBvYmo8PC9SZWN0WzQwNS44NzQgMjUzLjE5
NyAzODYuNDk4IDUwNi42MjNdL1N1YnR5cGUvTGluay9CUzw8L1MvUy9XIDAvVHlwZS9Cb3Jk
ZXI+Pi9BIDI4IDAgUi9IL0kvU3RydWN0UGFyZW50IDAvQm9yZGVyWzAgMCAwXS9UeXBlL0Fu
bm90Pj4NZW5kb2JqDTI0IDAgb2JqPDwvU3VidHlwZS9UcnVlVHlwZS9Gb250RGVzY3JpcHRv
ciAzMCAwIFIvTGFzdENoYXIgMTIxL1dpZHRoc1syNzggMCAwIDAgMCAwIDAgMCAwIDAgMCAw
IDAgMCAwIDI3OCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDcyMiA3
MjIgNjY3IDAgMCAwIDI3OCAwIDAgMCAwIDAgMCA2NjcgMCA3MjIgNjY3IDYxMSA3MjIgMCAw
IDAgMCAwIDAgMCAwIDAgMCAwIDAgMCA1MDAgMCA1NTYgMCAwIDAgMjIyIDAgMCAwIDgzMyA1
NTYgMCAwIDU1NiAzMzMgNTAwIDI3OCA1NTYgMCAwIDAgNTAwXS9CYXNlRm9udC9BcmlhbC9G
aXJzdENoYXIgMzIvRW5jb2RpbmcvV2luQW5zaUVuY29kaW5nL1R5cGUvRm9udD4+DWVuZG9i
ag0yNSAwIG9iajw8L1N1YnR5cGUvVHJ1ZVR5cGUvRm9udERlc2NyaXB0b3IgMzEgMCBSL0xh
c3RDaGFyIDE0OC9XaWR0aHNbMjc4IDAgMCAwIDAgMCAwIDAgMzMzIDMzMyAwIDAgMjc4IDAg
Mjc4IDI3OCAwIDU1NiA1NTYgNTU2IDU1NiA1NTYgMCAwIDAgMCAzMzMgMCAwIDAgMCAwIDAg
NzIyIDAgNzIyIDcyMiAwIDAgMCAwIDI3OCAwIDAgMCAwIDcyMiAwIDY2NyAwIDAgNjY3IDYx
MSA3MjIgMCA5NDQgMCAwIDAgMCAwIDAgMCAwIDAgNTU2IDYxMSA1NTYgNjExIDU1NiAzMzMg
NjExIDYxMSAyNzggMCA1NTYgMjc4IDg4OSA2MTEgNjExIDYxMSA2MTEgMzg5IDU1NiAzMzMg
NjExIDU1NiA3NzggNTU2IDU1NiA1MDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAgMCAwIDAg
MCAwIDAgMCAwIDAgMCAwIDAgNTAwIDUwMF0vQmFzZUZvbnQvQXJpYWwsQm9sZC9GaXJzdENo
YXIgMzIvRW5jb2RpbmcvV2luQW5zaUVuY29kaW5nL1R5cGUvRm9udD4+DWVuZG9iag0yNiAw
IG9iajw8L0xlbmd0aCAxNzEwL0ZpbHRlci9GbGF0ZURlY29kZT4+c3RyZWFtDQpIiXxXW2/b
NhR+96/gowRUtEjdi6LAmhRDB3QIZhV7aPagSHTMzZFckY7X/vqdQ4qirKQLAku+nMNz+77z
aXtH3r3bfr75dEti8v79h9sbsonJ44YRSTbbX3dwrzYf6s22rmPCSL3fRDGN47ggdUvMLUtI
fQFjUivCYrz+gHf1CC8pfM9JZC8xqRKaloTxmOakftoEN1/u7nbbmy87fKk/krubT9vb3Y6E
9d8Qg/MfZ+if0ZInJGKUVRWpu02wE+15lPo7+UN8O8tRPIleK7T8WG8+foYstrtDcxJzdsxl
Z5Nhy2Qyf1hlk2EJrUo4zlzgbVXRnJO8oNyE/jVgNIRviyyoD2EWCCWIsgGFUR58DxkLyIi3
Iox48O0Mv7Exwo1WpDnB9XT8HuYB0QNpjkcS/lX/NoWTYDgxBsIZzXIsHWT8NbjnPFHGt9Li
ibTD02noMW0K36RwUMmCXRgl9nyFJ/vfYZTu9FEsjmOpOQ4PTvHMiEGuCbO1LuzJndjLXnSk
AeMevMcB6YW+DOM/PopFApWvJzPNy2lepDaNgNwHkgpqDM9ajOoNlG58Nje9wA5ay3x2gjW/
YEs4fGid2LOb0+kom74VYLqH+l6gkHA7+2DcpcbNkEa8oiW2FTxx40ddpG4PaD8OUzAXcHQU
CjJtwfHsa3ZlM8pokWVTMIqcBgltIEK39yEZRhOYj6L0WDEVrmial5OtbBsth57oQ6OJVHb2
J4BdCNStcqfIvj2eO2iC7PEI7z711TZGUcJoxapFA4N26HvRajCGadMHQdpm7A7DsRMj6Rrd
rCq2xB0kmrgBJKJ/luPQP4URTpOmpL725WeAozEMDjhfW2GaJt3FDDJ/rO2UPXeRwqkZNRn2
Jno3e8bLafAzU82jbHDMOM0K5rqkBP6vU8daKj92zHMBM9VkKU3Am/XRK6nlsyDNGcLotWse
+qGryXV3OHUlLSHDiNMEumkqyZE+4ioPfulnwBL0CIQGAQ3jY9PLH9b75bAoVLKGVkarmM3D
dCBCQmgjgKyBUTyNQ2uzvg8e4L3Sw7iA2GJy8slZGs/dRgIpimAIWYD+cLT12PTqSVqsGzs/
L8y0vKBZ6nHRjqKT+mpcX5BtlOSrcUW+eQAz7JSpLTDEATkSKCOM0uAEER1tyQC+BzJHw/KJ
bXjqksBxOTZaKI3rhdyiveHIHXEbxDja6abv4DxF18VeDmVJWcFtIyvrP7GNLEwjU2hkxPMK
WT8JbDcvUh1k/4jAM+Fb3kcGNbEv4lsQaDGTTWlx9PPY40XstmESib8nCqZH7ZvWzBAAZ+E+
tRu1umJ5U6pxsUyJ7F6DhYV2BZtwWkyIabmXlpn0AdANq1BLbzuvswqg5IZj6F1XR7GHgZ2I
yc/JXIOksraIoamrvqO4Y21hVkVZpOv5l6cOkElRXk3cXENYcB1SP2wnXHV5gM1bzMS6EMAP
ns27oT2b2sEaOSAa26YnD4us2JyV5WpgqJS5Ou6HM56tTSH2w/E4XPDwP8UDeY3iMptLPq00
18am60bA/Fuy+Ju3CrMYTUvHaISsf/cT/cSdftregChsFdiDjoNRsq9Etf0r0sqWK35VVKUx
mDLQBTxLIHooIorCg9Yn9Xa7vVwu9NRKo6pWjMXgdmapCcBW7TgMA39uTc9+kkzikkljTqH+
GAEHRCSluYXLKDb7V03TpUq+SthD62WqSUqBnBb6MXUL4NO0DxF7CnZZFvRAb0o+oGQ8Onoa
9ot5XuzodFJGyEduSTd9iBK0cAvFEqUZxy5ERcrBPRyGkLsmhUkrZU5uVblzinA4eml7kXgP
9GV4yUPP/2KBGCtKeEqLPH2JOUizwd6NeIcxwQV0ZitG3Rg+wR9YSFwrTAO9Kp5DRAVpqA4M
9pCjNRWeFXLLlPAhDglyZQnTgzsS1fighDvdJLtOI/YSxa6ZaDp+mRFSut0AqLGvd8+tYe6d
X1ZsLjhzVMB9Fz2Z8YnhoaNQKYaVKoKXe2rmOhtakl8rjswtqt8HbRbSRNa2DoaxByMs4fP1
rPnHPFAISTmLcMjPPMP5DQSU/j9aEh7ikhm4SP1AjSBNlR7P9uHiUT5jaO4Zw83vFZ0vteKk
rzLKrznQTvskhWYR9MbqH7VgU185u2mhcGWeuBU1zoJnKWW6hYIqV2IGUkyrWXw4EWNrbJWM
NBLm6dwjWorAjOUwvgpEl15Ok8zMWVpOzRT/wrOAmfb9ONgnPI9OrKDRFhacK63mn4ZAzXD/
cPmaHoLYHDZzwCaKA1yIkz6gVwz7nwADAJ/8Pa4NCmVuZHN0cmVhbQ1lbmRvYmoNMjcgMCBv
YmpbL0lDQ0Jhc2VkIDI5IDAgUl0NZW5kb2JqDTI4IDAgb2JqPDwvVVJJKGh0dHBzOi8vd3d3
LnBjaXNlY3VyaXR5c3RhbmRhcmRzLm9yZy8pL1MvVVJJPj4NZW5kb2JqDTI5IDAgb2JqPDwv
TGVuZ3RoIDI1NzUvRmlsdGVyL0ZsYXRlRGVjb2RlL04gMy9BbHRlcm5hdGUvRGV2aWNlUkdC
Pj5zdHJlYW0NCkiJnJZ5VFN3Fsd/b8mekJWww2MNW4CwBpA1bGGRHQRRCEkIARJCSNgFQUQF
FEVEhKqVMtZtdEZPRZ0urmOtDtZ96tID9TDq6Di0FteOnRc4R51OZ6bT7x/v9zn3d+/v3d+9
953zAKAnpaq11TALAI3WoM9KjMUWFRRipAkAAwogAhEAMnmtLi07IQfgksZLsFrcCfyLnl4H
kGm9IkzKwDDw/4kt1+kNAEAZOAcolLVynDtxrqo36Ez2GZx5pZUmhlET6/EEcbY0sWqeved8
5jnaxAqNVoGzKWedQqMw8WmcV9cZlTgjqTh31amV9ThfxdmlyqhR4/zcFKtRymoBQOkmu0Ep
L8fZD2e6PidLgvMCAMh01Ttc+g4blA0G06Uk1bpGvVpVbsDc5R6YKDRUjCUp66uUBoMwQyav
lOkVmKRao5NpGwGYv/OcOKbaYniRg0WhwcFCfx/RO4X6r5u/UKbeztOTzLmeQfwLb20/51c9
CoB4Fq/N+re20i0AjK8EwPLmW5vL+wAw8b4dvvjOffimeSk3GHRhvr719fU+aqXcx1TQN/qf
Dr9A77zPx3Tcm/JgccoymbHKgJnqJq+uqjbqsVqdTK7EhD8d4l8d+PN5eGcpy5R6pRaPyMOn
TK1V4e3WKtQGdbUWU2v/UxN/ZdhPND/XuLhjrwGv2AewLvIA8rcLAOXSAFK0Dd+B3vQtlZIH
MvA13+He/NzPCfr3U+E+06NWrZqLk2TlYHKjvm5+z/RZAgKgAibgAStgD5yBOxACfxACwkE0
iAfJIB3kgAKwFMhBOdAAPagHLaAddIEesB5sAsNgOxgDu8F+cBCMg4/BCfBHcB58Ca6BW2AS
TIOHYAY8Ba8gCCJBDIgLWUEOkCvkBflDYigSiodSoSyoACqBVJAWMkIt0AqoB+qHhqEd0G7o
99BR6AR0DroEfQVNQQ+g76CXMALTYR5sB7vBvrAYjoFT4Bx4CayCa+AmuBNeBw/Bo/A++DB8
Aj4PX4Mn4YfwLAIQGsJHHBEhIkYkSDpSiJQheqQV6UYGkVFkP3IMOYtcQSaRR8gLlIhyUQwV
ouFoEpqLytEatBXtRYfRXehh9DR6BZ1CZ9DXBAbBluBFCCNICYsIKkI9oYswSNhJ+IhwhnCN
ME14SiQS+UQBMYSYRCwgVhCbib3ErcQDxOPES8S7xFkSiWRF8iJFkNJJMpKB1EXaQtpH+ox0
mTRNek6mkR3I/uQEciFZS+4gD5L3kD8lXybfI7+isCiulDBKOkVBaaT0UcYoxygXKdOUV1Q2
VUCNoOZQK6jt1CHqfuoZ6m3qExqN5kQLpWXS1LTltCHa72if06ZoL+gcuiddQi+iG+nr6B/S
j9O/oj9hMBhujGhGIcPAWMfYzTjF+Jrx3Ixr5mMmNVOYtZmNmB02u2z2mElhujJjmEuZTcxB
5iHmReYjFoXlxpKwZKxW1gjrKOsGa5bNZYvY6WwNu5e9h32OfZ9D4rhx4jkKTifnA84pzl0u
wnXmSrhy7gruGPcMd5pH5Al4Ul4Fr4f3W94Eb8acYx5onmfeYD5i/on5JB/hu/Gl/Cp+H/8g
/zr/pYWdRYyF0mKNxX6LyxbPLG0soy2Vlt2WByyvWb60wqzirSqtNliNW92xRq09rTOt6623
WZ+xfmTDswm3kdt02xy0uWkL23raZtk2235ge8F21s7eLtFOZ7fF7pTdI3u+fbR9hf2A/af2
Dxy4DpEOaocBh88c/oqZYzFYFTaEncZmHG0dkxyNjjscJxxfOQmccp06nA443XGmOoudy5wH
nE86z7g4uKS5tLjsdbnpSnEVu5a7bnY96/rMTeCW77bKbdztvsBSIBU0CfYKbrsz3KPca9xH
3a96ED3EHpUeWz2+9IQ9gzzLPUc8L3rBXsFeaq+tXpe8Cd6h3lrvUe8bQrowRlgn3Cuc8uH7
pPp0+Iz7PPZ18S303eB71ve1X5Bfld+Y3y0RR5Qs6hAdE33n7+kv9x/xvxrACEgIaAs4EvBt
oFegMnBb4J+DuEFpQauCTgb9IzgkWB+8P/hBiEtISch7ITfEPHGGuFf8eSghNDa0LfTj0Bdh
wWGGsINhfw8XhleG7wm/v0CwQLlgbMHdCKcIWcSOiMlILLIk8v3IySjHKFnUaNQ30c7Riuid
0fdiPGIqYvbFPI71i9XHfhT7TBImWSY5HofEJcZ1x03Ec+Jz44fjv05wSlAl7E2YSQxKbE48
nkRISknakHRDaieVS3dLZ5JDkpcln06hp2SnDKd8k+qZqk89lganJadtTLu90HWhduF4OkiX
pm9Mv5MhyKjJ+EMmMTMjcyTzL1mirJass9nc7OLsPdlPc2Jz+nJu5brnGnNP5jHzivJ25z3L
j8vvz59c5Lto2aLzBdYF6oIjhaTCvMKdhbOL4xdvWjxdFFTUVXR9iWBJw5JzS62XVi39pJhZ
LCs+VEIoyS/ZU/KDLF02KpstlZa+Vzojl8g3yx8qohUDigfKCGW/8l5ZRFl/2X1VhGqj6kF5
VPlg+SO1RD2s/rYiqWJ7xbPK9MoPK3+syq86oCFrSjRHtRxtpfZ0tX11Q/UlnZeuSzdZE1az
qWZGn6LfWQvVLqk9YuDhP1MXjO7Glcapusi6kbrn9Xn1hxrYDdqGC42ejWsa7zUlNP2mGW2W
N59scWxpb5laFrNsRyvUWtp6ss25rbNtenni8l3t1PbK9j91+HX0d3y/In/FsU67zuWdd1cm
rtzbZdal77qxKnzV9tXoavXqiTUBa7ased2t6P6ix69nsOeHXnnvF2tFa4fW/riubN1EX3Df
tvXE9dr11zdEbdjVz+5v6r+7MW3j4QFsoHvg+03Fm84NBg5u30zdbNw8OZT6TwCkAVv+mLiZ
JJmQmfyaaJrVm0Kbr5wcnImc951kndKeQJ6unx2fi5/6oGmg2KFHobaiJqKWowajdqPmpFak
x6U4pammGqaLpv2nbqfgqFKoxKk3qamqHKqPqwKrdavprFys0K1ErbiuLa6hrxavi7AAsHWw
6rFgsdayS7LCszizrrQltJy1E7WKtgG2ebbwt2i34LhZuNG5SrnCuju6tbsuu6e8IbybvRW9
j74KvoS+/796v/XAcMDswWfB48JfwtvDWMPUxFHEzsVLxcjGRsbDx0HHv8g9yLzJOsm5yjjK
t8s2y7bMNcy1zTXNtc42zrbPN8+40DnQutE80b7SP9LB00TTxtRJ1MvVTtXR1lXW2Ndc1+DY
ZNjo2WzZ8dp22vvbgNwF3IrdEN2W3hzeot8p36/gNuC94UThzOJT4tvjY+Pr5HPk/OWE5g3m
lucf56noMui86Ubp0Opb6uXrcOv77IbtEe2c7ijutO9A78zwWPDl8XLx//KM8xnzp/Q09ML1
UPXe9m32+/eK+Bn4qPk4+cf6V/rn+3f8B/yY/Sn9uv5L/tz/bf//AgwA94Tz+woNCmVuZHN0
cmVhbQ1lbmRvYmoNMzAgMCBvYmo8PC9TdGVtViA5NC9Gb250TmFtZS9BcmlhbC9Gb250U3Ry
ZXRjaC9Ob3JtYWwvRm9udFdlaWdodCA0MDAvRmxhZ3MgMzIvRGVzY2VudCAtMjExL0ZvbnRC
Qm94Wy02NjUgLTMyNSAyMDAwIDEwMDZdL0FzY2VudCA5MDUvRm9udEZhbWlseShBcmlhbCkv
Q2FwSGVpZ2h0IDcxOC9UeXBlL0ZvbnREZXNjcmlwdG9yL0l0YWxpY0FuZ2xlIDA+Pg1lbmRv
YmoNMzEgMCBvYmo8PC9TdGVtViAxMzgvRm9udE5hbWUvQXJpYWwsQm9sZC9Gb250U3RyZXRj
aC9Ob3JtYWwvRm9udFdlaWdodCA3MDAvRmxhZ3MgMzIvRGVzY2VudCAtMjExL0ZvbnRCQm94
Wy02MjggLTM3NiAyMDAwIDEwMTBdL0FzY2VudCA5MDUvRm9udEZhbWlseShBcmlhbCkvQ2Fw
SGVpZ2h0IDcxOC9YSGVpZ2h0IDUxNS9UeXBlL0ZvbnREZXNjcmlwdG9yL0l0YWxpY0FuZ2xl
IDA+Pg1lbmRvYmoNMzIgMCBvYmo8PC9PUE0gMS9PUCBmYWxzZS9vcCBmYWxzZS9UeXBlL0V4
dEdTdGF0ZS9TQSBmYWxzZS9TTSAwLjAyPj4NZW5kb2JqDTEgMCBvYmo8PC9GaXJzdCAyIDAg
Ui9Db3VudCAxL0xhc3QgMiAwIFI+Pg1lbmRvYmoNMiAwIG9iajw8L1BhcmVudCAxIDAgUi9E
ZXN0WzIxIDAgUi9GaXRdL1RpdGxlKP7/AEMAVQBQAFAAUwAvAEMAVQBTAFMALwBDAFUAVABF
ACAAUABDAEkALwBEAFMAUwAgAFMAZQBjAHUAcgBpAHQAeQAgAFIAZQBxAHUAaQByAGUAbQBl
AG4AdABzKT4+DWVuZG9iag0zIDAgb2JqPDwvRmlyc3QgNjgvTGVuZ3RoIDYyMi9GaWx0ZXIv
RmxhdGVEZWNvZGUvTiAxMC9UeXBlL09ialN0bT4+c3RyZWFtDQp42oRT227aQBDdH8gftNI8
JlLq9R2oIkvQi9qSBASofYA+OGZD3Dg2WZYQfr7tmbW5JKpUwd5mzsycOd7tkEueS+2YPI88
38cgL4ItIN9tkxeS38ISUYCtF1MY4tRCiI8Vfy/w6OJC9jmJSyM5TLUqzUQrxQlfWq7Vs+mr
LflyVBXqKl1yMYZMtkslx0avM4sbVZVJEs46RQkAuDCWn3JIHRswlmOV1Zjr9cNqavlaIDNm
qPV9B6jS8nO+WGslJyjfq57lx/xJfkFFXeTlvbzkaXyXgkGNayr7mAc3v8gP6i4W5HsHsoPe
t1GSMKGaGhjZRHtYkkwh2oH7nmB83BBqdKeYmFq3yBel/ACtlJYDeZluq7WRP3Ru8nJxVc2V
vNSTGwv9Ws4Bo3eB67jyUzlvzu3QaUXQMdXmYIn9iIn2yWWy7Ybs8Jgps+CPyi5IvqMaUGgb
dHeSW5EOQnQLc/r7j5gIJZ6FESR6osLuPXYE6x3sKwyycybWQoscuC0sGpZHWHK7e8Ao4VnB
k4olfoVFGeRjS4Ef0Rv4txjGRhAyVliXmMt9vENv4Rn/F8dZteU2x3wLHuybW3vtLS0Dthqx
QawW9//INTvhvmenSODA4BxB1paARrrzRgItno4sr1PvGs9t8cyKx7jbRqRNI8Qu38aKmTUy
n1tRq1dVN01sYTF1Y1mTm0/cSL6XRNl8szNsmdQxpQx7g5X75u9yZ88k8tkJh57ZOzQs0kw9
4NrJXlFl94c7fLihncgJw+DlHY1bjh+1fNnD28R7j5xoZ6IoDJx2C+dO7ERRXD/qPtUP6/hq
Nk87Sf4KMAA2CyFgDQplbmRzdHJlYW0NZW5kb2JqDTQgMCBvYmo8PC9OdW1zWzAgNSAwIFJd
Pj4NZW5kb2JqDTUgMCBvYmo8PC9TL0Q+Pg1lbmRvYmoNNiAwIG9iajw8L0NvdW50IDEvVHlw
ZS9QYWdlcy9LaWRzWzIxIDAgUl0+Pg1lbmRvYmoNNyAwIG9iajw8L1N1YnR5cGUvWE1ML0xl
bmd0aCA0Mzk2L1R5cGUvTWV0YWRhdGE+PnN0cmVhbQ0KPD94cGFja2V0IGJlZ2luPSLvu78i
IGlkPSJXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQiPz4KPHg6eG1wbWV0YSB4bWxuczp4PSJh
ZG9iZTpuczptZXRhLyIgeDp4bXB0az0iMy4xLTcwMSI+CiAgIDxyZGY6UkRGIHhtbG5zOnJk
Zj0iaHR0cDovL3d3dy53My5vcmcvMTk5OS8wMi8yMi1yZGYtc3ludGF4LW5zIyI+CiAgICAg
IDxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSIiCiAgICAgICAgICAgIHhtbG5zOnBkZj0i
aHR0cDovL25zLmFkb2JlLmNvbS9wZGYvMS4zLyI+CiAgICAgICAgIDxwZGY6UHJvZHVjZXI+
QWNyb2JhdCBEaXN0aWxsZXIgNy4wLjUgKFdpbmRvd3MpPC9wZGY6UHJvZHVjZXI+CiAgICAg
ICAgIDxwZGY6S2V5d29yZHMvPgogICAgICA8L3JkZjpEZXNjcmlwdGlvbj4KICAgICAgPHJk
ZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIKICAgICAgICAgICAgeG1sbnM6eGFwPSJodHRw
Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIj4KICAgICAgICAgPHhhcDpDcmVhdGVEYXRlPjIw
MDctMTAtMzFUMDc6Mzc6MjAtMDc6MDA8L3hhcDpDcmVhdGVEYXRlPgogICAgICAgICA8eGFw
Ok1vZGlmeURhdGU+MjAwNy0xMC0zMVQwNzozNzoyMS0wNzowMDwveGFwOk1vZGlmeURhdGU+
CiAgICAgICAgIDx4YXA6Q3JlYXRvclRvb2w+QWNyb2JhdCBQREZNYWtlciA3LjAuNSBmb3Ig
UG93ZXJQb2ludDwveGFwOkNyZWF0b3JUb29sPgogICAgICAgICA8eGFwOk1ldGFkYXRhRGF0
ZT4yMDA3LTEwLTMxVDA3OjM3OjIxLTA3OjAwPC94YXA6TWV0YWRhdGFEYXRlPgogICAgICA8
L3JkZjpEZXNjcmlwdGlvbj4KICAgICAgPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIK
ICAgICAgICAgICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv
Ij4KICAgICAgICAgPGRjOmZvcm1hdD5hcHBsaWNhdGlvbi9wZGY8L2RjOmZvcm1hdD4KICAg
ICAgICAgPGRjOnRpdGxlPgogICAgICAgICAgICA8cmRmOkFsdD4KICAgICAgICAgICAgICAg
PHJkZjpsaSB4bWw6bGFuZz0ieC1kZWZhdWx0Ij5DVVBQUy9DVVNTL0NVVEUgU2VjdXJpdHkg
UmVxdWlyZW1lbnRzPC9yZGY6bGk+CiAgICAgICAgICAgIDwvcmRmOkFsdD4KICAgICAgICAg
PC9kYzp0aXRsZT4KICAgICAgICAgPGRjOmNyZWF0b3I+CiAgICAgICAgICAgIDxyZGY6U2Vx
PgogICAgICAgICAgICAgICA8cmRmOmxpPmp2aW5lbGxpPC9yZGY6bGk+CiAgICAgICAgICAg
IDwvcmRmOlNlcT4KICAgICAgICAgPC9kYzpjcmVhdG9yPgogICAgICAgICA8ZGM6ZGVzY3Jp
cHRpb24+CiAgICAgICAgICAgIDxyZGY6QWx0PgogICAgICAgICAgICAgICA8cmRmOmxpIHht
bDpsYW5nPSJ4LWRlZmF1bHQiLz4KICAgICAgICAgICAgPC9yZGY6QWx0PgogICAgICAgICA8
L2RjOmRlc2NyaXB0aW9uPgogICAgICA8L3JkZjpEZXNjcmlwdGlvbj4KICAgICAgPHJkZjpE
ZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIKICAgICAgICAgICAgeG1sbnM6eGFwTU09Imh0dHA6
Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iPgogICAgICAgICA8eGFwTU06RG9jdW1lbnRJ
RD51dWlkOjJlNmQ3ODA0LTBmYTktNGI1Ni1hYjViLWViMDFjOTk5ZjljNDwveGFwTU06RG9j
dW1lbnRJRD4KICAgICAgICAgPHhhcE1NOkluc3RhbmNlSUQ+dXVpZDplMWI3MTk0My00MzEw
LTRjMGQtYTEzYS04ZmFkNTkzMDAyM2I8L3hhcE1NOkluc3RhbmNlSUQ+CiAgICAgIDwvcmRm
OkRlc2NyaXB0aW9uPgogICAgICA8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0iIgogICAg
ICAgICAgICB4bWxuczpwZGZ4PSJodHRwOi8vbnMuYWRvYmUuY29tL3BkZngvMS4zLyI+CiAg
ICAgICAgIDxwZGZ4Ok1hbmFnZXIvPgogICAgICAgICA8cGRmeDpDb21wYW55PkdPQUE8L3Bk
Zng6Q29tcGFueT4KICAgICAgICAgPHBkZng6Q29tbWVudHMvPgogICAgICAgICA8cGRmeDpD
YXRlZ29yeS8+CiAgICAgICAgIDxwZGZ4Ol9BZEhvY1Jldmlld0N5Y2xlSUQ+MTU3NDY1NDcw
MDwvcGRmeDpfQWRIb2NSZXZpZXdDeWNsZUlEPgogICAgICAgICA8cGRmeDpfRW1haWxTdWJq
ZWN0PkNVUFBTLUNVU1MtQ1VURSBTZWN1cml0eSBSZXF1aXJlbWVudHMucHB0PC9wZGZ4Ol9F
bWFpbFN1YmplY3Q+CiAgICAgICAgIDxwZGZ4Ol9BdXRob3JFbWFpbD5KVklORUxMSUBnb2Fh
Lm9yZzwvcGRmeDpfQXV0aG9yRW1haWw+CiAgICAgICAgIDxwZGZ4Ol9BdXRob3JFbWFpbERp
c3BsYXlOYW1lPkpvaG4gVmluZWxsaTwvcGRmeDpfQXV0aG9yRW1haWxEaXNwbGF5TmFtZT4K
ICAgICAgICAgPHBkZng6X1Jldmlld2luZ1Rvb2xzU2hvd25PbmNlLz4KICAgICAgPC9yZGY6
RGVzY3JpcHRpb24+CiAgIDwvcmRmOlJERj4KPC94OnhtcG1ldGE+CiAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAKPD94cGFja2V0IGVuZD0idyI/
Pg0KZW5kc3RyZWFtDWVuZG9iag04IDAgb2JqPDwvQ3JlYXRpb25EYXRlKEQ6MjAwNzEwMzEw
NzM3MjAtMDcnMDAnKS9fRW1haWxTdWJqZWN0KENVUFBTLUNVU1MtQ1VURSBTZWN1cml0eSBS
ZXF1aXJlbWVudHMucHB0KS9TdWJqZWN0KCkvQXV0aG9yKGp2aW5lbGxpKS9DcmVhdG9yKEFj
cm9iYXQgUERGTWFrZXIgNy4wLjUgZm9yIFBvd2VyUG9pbnQpL0tleXdvcmRzKCkvX0F1dGhv
ckVtYWlsRGlzcGxheU5hbWUoSm9obiBWaW5lbGxpKS9Qcm9kdWNlcihBY3JvYmF0IERpc3Rp
bGxlciA3LjAuNSBcKFdpbmRvd3NcKSkvX1Jldmlld2luZ1Rvb2xzU2hvd25PbmNlKCkvX0F1
dGhvckVtYWlsKEpWSU5FTExJQGdvYWEub3JnKS9Nb2REYXRlKEQ6MjAwNzEwMzEwNzM3MjEt
MDcnMDAnKS9fQWRIb2NSZXZpZXdDeWNsZUlEKDE1NzQ2NTQ3MDApL0NvbXBhbnkoR09BQSkv
Q29tbWVudHMoKS9NYW5hZ2VyKCkvQ2F0ZWdvcnkoKS9UaXRsZShDVVBQUy9DVVNTL0NVVEUg
U2VjdXJpdHkgUmVxdWlyZW1lbnRzKT4+DWVuZG9iag14cmVmDQowIDE5DQowMDAwMDAwMDAw
IDY1NTM1IGYNCjAwMDAwMDc1OTQgMDAwMDAgbg0KMDAwMDAwNzY0NCAwMDAwMCBuDQowMDAw
MDA3NzkzIDAwMDAwIG4NCjAwMDAwMDg1MDkgMDAwMDAgbg0KMDAwMDAwODU0MiAwMDAwMCBu
DQowMDAwMDA4NTY1IDAwMDAwIG4NCjAwMDAwMDg2MTYgMDAwMDAgbg0KMDAwMDAxMzA4OCAw
MDAwMCBuDQowMDAwMDAwMDAwIDY1NTM1IGYNCjAwMDAwMDAwMDAgNjU1MzUgZg0KMDAwMDAw
MDAwMCA2NTUzNSBmDQowMDAwMDAwMDAwIDY1NTM1IGYNCjAwMDAwMDAwMDAgNjU1MzUgZg0K
MDAwMDAwMDAwMCA2NTUzNSBmDQowMDAwMDAwMDAwIDY1NTM1IGYNCjAwMDAwMDAwMDAgNjU1
MzUgZg0KMDAwMDAwMDAwMCA2NTUzNSBmDQowMDAwMDAwMDAwIDY1NTM1IGYNCnRyYWlsZXIN
Cjw8L1NpemUgMTk+Pg0Kc3RhcnR4cmVmDQoxMTYNCiUlRU9GDQo=
En son Commandx tarafından 01 Şub 2024 04:41 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
aegean
Üye
Mesajlar: 41
Kayıt: 24 Tem 2019 09:32

Re: unicode karakter ile base64 decode

Mesaj gönderen aegean »

ilgilenen arkadaşlara teşekkür ederim hepsi gayet güzel ellerinize sağlık.
Cevapla