vcard Bild umwandeln und speichern

Anfängerfragen zum Programmieren mit PureBasic.
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

vcard Bild umwandeln und speichern

Beitrag von gnaps »

Hallo Forum,

ich habe mal wieder ein Problem.

Ich mache mit vcard herum und möchte nun aus meiner Adressverwaltung das Bild mit in die vcard speichern.

Ich habe eine Damo vcard mit einem Bild und hier steht unter Photo das da

Code: Alles auswählen

PHOTO;ENCODING=b;TYPE=jpeg:
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAYEBQYFBAYGBQYH
 BwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2w
 BDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgo
 KCgoKCgoKCgoKCj/wAARCAGgAdgDASIAAhEBAxEB/8QAHAAAAgIDAQEAAAAAAAAAAAAAAQIAAw
 QFBgcI/8QAVhAAAgECAwMGBgsKCwgDAQAAAAECAxEEBSEGEjEHQVFhcbETIjKBkdEUFSMzQlJy
 kpOywRc1Q1NiY3N0gqEWJCY0RVRVoqPC0gglNjdEZLPwJ4Ph8f/EABoBAAMBAQEBAAAAAAAAAA
 AAAAECAwAEBQb/xAA5EQACAQIEAwYEBQMDBQAAAAAAAQIDEQQFEjETIUEiMlFhcYEUIzNCBiQ0
 kbEVcqElYsE1Q4LR8P/aAAwDAQACEQMRAD8A8sTQ0WmZrwdN8G0L7Ba8mSfUz7zhyPhuJFmMh0
 ix4SqnpG66hXSnHjFrzG0tG1J9QWCkSzHQ1hWwIKQUhkg2FuKhhkhkhkhWxVwGSCkFIewrZEgj
 JIlhkhbkQUFIKQbC3IhkgJDpDJCtkSGQFxGGFZEOhUh0hkKxkRwi3dxi302IhhhBY0qaekIK/U
 gujSfGnD5qGQyNZAbYioUtPcqfzUFUaX4qHzUOgoOleAup+IPBU3rKnB9sUNGnTTVqcF5kQZGs
 gNsdMKYiIgiWLUxrlSYd4IrRah0yhSGUtQitGRFjpmOpDqQUI4mRGRYpaGKpFimEm4mSpFkZdZ
 jRncsjIDRJxMqNS3OXRlGXlJMwVItjOxNxJuBmRo4eflXg+lD+1TnrRqxkuh6GLCq+kyKVdx8l
 sjJTWzDGduUkJVy7E0tZUpW6VqU+CadpKz6Dd4XM5xaUnobOlWw2Jj7rThLzEZYipDvI6YUoVe
 7KxyXgLrgVVMGpLgdv7UYCv5F6b6mWx2dVvc5RmusT+oRW5ZZdiL9lnm2IyxNaI0eOyl2bUT2a
 eQJq06LXWkYlfZONaL8G2n1o3x9GXKR1U8Ni6eyueCYrAyg3dGHKg0uB69nexeKpwlLwLaXPFH
 E4zJKlKck4tW43Qrpwqc6budtPFtcqiszjqlJqWiE8H1G8xOXThNNp2auYlXD+DV5aM55UHHod
 0K6kuRrHC3ERoyKvUUNHPJHRF3EaIF2IIPc65RG3S1QDuHvaTwNRUkOlYbdGUQ6RXIrcIy8qEX
 5gPDUpfBt2MvURkhtK8Aa2upi+wYW8WTT6yuWBl8GSZsUiWA6UWbjSRq3haseYDhNLWLRtkFq/
 NcHBXQPH8TT6rmGRtHTg/KhER4ak/gtdgOGxuMma9DpGW8HH4Mmu0V4SaejTBoaNxIsxrDIsdC
 ovgsChJcUwpM2pCpDJDJDJIawrYlgpFiQVEawuoRIZIewUhrCuQrQyDYNjC3IgpBSCEVsCQRkr
 k3TAuLcNyboDGDclwEfAwRt4m8IRMwLFlwpldw3sEGktUgqRUmG5rgcS9THUzFUh1INxXEyo1B
 1UMRSfSPFt81zaibgjMjU6yyNQxYUqsvJpyfYi6OFr88d3tdgakTcYl6qdZZGpbnKoYWd1ecV5
 y5YaMfKrK3UgNxJOKHhV62X08Q4u8W0+0x4rDwfjSlP9pL7GOq+Hjwoxfa2ycueyE0LobTD5tV
 pteNvG4wWfSuk4y8yucrHMHF+JCMeyC7xlm1ePCUrdG9buOWphdf2nVRxFSk+8em5fm9WSS8FJ
 rrRu6GOw7s66pQfXNI8Wlmtdr4KfnfeD20xfNXnH5OnccM8oc9nY9ilnTprmrnvUMXljj49WEk
 +ZJsxcTs/s7mu9KpQpty0b8lnh0swxM/KxFV/tMNPF1otS8LUuuD3mQ/otSn2o1Gi7z+E+U6SZ
 2XKZsPlWU5RTxuA3oyclFQlK6s02eDZrRmqkrrQ9s5X8yqw2V2doqVnUoKpJfsx9Z4hXxcpvxj
 pwMpvDfNd3zKV4xVe9JWXLkaepBrRopcTZVHGXMY8qa5mLKB0Rny5mG4kL502uBCWkspHbbgHA
 z3h2uYrdF9B9DY+XVUwnAiiZTpO/AVwfQaw2spUQpFm4wqJrG1CJBsWKIUjWF1FaiGxaogsGwN
 RXYm7qWeYnmNY1xVHUNgriSxgXIkHR8UmQKRjXEdOD4xQHhqb4JrzlyQxrA1tGL7F6JAeGqLhZ
 makGxrG4rNf4GceMWRRa4qxs49o6inxSfmNpBxvE1iSG3bmxVGm+MfQR4WHM2jWBxka/wZNyxn
 +xOiSCsJIxuMjBjAs8HeN7GbDCS6GbnJdnMxzKtGlhcLUmmvK3bRXnZOdWnTWqTDHXUdoJs5Pd
 uRR6jd5rkmKyzE1KOOoypVIPg+D60yzZnIKu0WbLAYWrClUcHPenqkl//QSrU4w4jfZKQhOc+G
 lzOecQWR6Bi9h8ty6c4ZntJhIVY8adKO9Jea9zW1cu2XoKyx2OxT/IgoL96OaOOhU+mm/ZnTOh
 Kn32l7nHvTiL6Dqp1MlpfzbLZTfxqs27+beKZZhGL9wwlCklw3YRT9NvtOhTlLaJzSnGOzuc/T
 pVJvxKcpfJVy6GBxU34tCfnVjbTzCvNcVp2vvKZYmtL8I/NZDpTJOs+iMSGV4mS1UI9si6OVNe
 +VoLsQZVJPym32sXeT42G0sVzm+o6wOHj5da/YWKhg480pFKlbg/3h3lfmNpEep9TIjKhHyKCf
 ah/ZG75NOMewxN9E3w6UCxkyrzfOhPCzfGRTvEvfnGSQNJbvv4z9JLld10kUkayNYsTI5a8BN5
 A3gmsPfQKZXcZMwLD3ChLoZNBAOG7sxLjRYktgLc23LHX38Ds7Ba7uDS/cjySorM9K5VZN4XIn
 e98N9kTzWo9DxKK00kv/tz6dS1O5jy4sRjy4iMzOhCMhGQncc9XVNNcAOgnobOFPCy4uUX2FkM
 FQqO0MRZvpR7DrJbnxUbvZmkeF14FcsL1HTwyacvIrwfaN7RYvmjTl+0L8VBbssoVuiOQnhWuY
 plQa5js/aHEtveoSXWrMqqbPYh8IX81grFU31KRjW3cWcduNDKB0GIyTEU771GXbYwKmCnB6xa
 7UVjUjLZhc2t0YCg7CuGpsYYeTQjoPjbQbUgKd9jA3QbplSp62WvYSOFrzfiUasuyDYHOK6lFq
 8DEaCjN9rMZa/sWqu2LQFl9ZaSiov8qSBri9gOSW5iBSMxYFryqsF57hWEprjVv2IKYrnExEEz
 VQor47/cOoUY/g0+13DcR1EYKQyhJ8E2Zyaj5MYrzDKc3z2NdiOoYkKFV8IMujhqvOku1lu8+l
 hQG2I6jBHDW8qcUWxoUl5VR+ZCDJiu/iTcmX04YWK1p1JvrdjKp18PC25hIftO5godE5Qvubiy
 jsbvBZnWVS1KjRh1qJ6PsLiK9av7rJOO7zI8qy+3htdHzHqWwX865uB4ea04xpOyPo/w9UlOsm
 2c7yzU6Xs/DS3PdHDWXUaHkdgltqrfiJ/Yb/lmaePwy6Is0fI1rtlL9Xn3oal/0p+heo/9Xt5m
 XtJgsJWzrGucd2Tqyu12mirZLQk/Eqrzm82i1zjG/pZd5oqt09G9DqwmpU42fQ8jHzjGtLl1MW
 pkVVLxHGXYzBrZTiYauD9BtI1asW7Tl6S2OMrx+FftO3iVV1OBV4HNVMLXg7OBTKE48YnXezlJ
 WqUYS8wrlgqmtSju9iGVeS3iUVWL6nINtcQbx10svwFZeLLdv0ooqbP05p+CqxfQnoFYmHUonf
 ocxciepu6uz1ePkJSXUzCq5ViafGnK3YVVWEtmG66mFvBuNPDVYeVB3K2muKaHT8GbkNvIFxSG
 NYe5LikTCaw1wpigAaxZvBUioZMNwNFqkNvaFKYyYRWi1SHT0ZSmMnowPYWxbyoXWX7Pyb44dr
 6p5zOVz0flUdsm2a/QT/ynmkpXPDg+X7/yfTUo9lCyfERsknxFYrZdIDIBsgg9j1yNTrLI1EYa
 kFTPfcLnxDgbGliJQfizkuxmbQzXEU/wja6zRqY3hOslKhGW4YucecWdXQ2hnH3yNzY0dpKWm8
 vScIqrD4VnPLA030OqGOxENmek0do8E0lUULdZke2WQYj+cU6WvYeXqoxlO/FnPLLIdG0dMc2q
 rvRT9j2XZ3J9m8Zi3PDU6dSok3uPW/mMvM55Hl+IqYaOAwsqkNWpRVv/AHU865NcROG1uEgpPd
 nGafzWzB2uxEqu02ZSk37/ACj5k7fYeU8BKeKdKU3a1z11mkKeCVWNNar2O5x08TWX+745Zh1z
 blBN+l+o57G5ZtFW/wCujJdELQ7kcnDFVYeTVmuyTMqlnGNp+RiKmnS7nfDATpdxp+qPLqZnTr
 c6ia9C7F5DnV71Y1av7bZq6uVY2k/Hw1VP5Ju6O0+Y0377GS60ZlLa/Ep+60qc122OlSxMPtTI
 Xwk/ua9Tjp0KkXaUJrtVhN181zvI7U4Sov4xgYtvoSY3tls9iPfcIoN/kDfGVY96mFYajLu1Uc
 Ck0HU772Ds1iNIVFTfVKwr2Wyqvrh8c150wrMYLvRa9jfATfdafucIkE7SrsNJu+HxlOS6GYVb
 YzMqfkeDmuqQ6zChL7icsBXX2nMIZG3rbOZpS8rCTfY0zDqZdi6XvmHqx/ZLLEU5bSRzzoVI7x
 ZijIMqU4+VGSfWgK6G1p7Mi4tbjIsg9StNlkQMm0ZeEdqyPT9gH/HLdR5XSdpJnpfJ9VSzGmr+
 UmePm0b0We9+HZJYhJml5Y5/73oq/CBqORZ32yn1Yafei3lexO9tLUgvgQSKORB7219d9GGl3o
 W2nKvY749rNXL/AHGTtFJ+22Ms+NWXeaOpK8rG3z+TeaYu342XeaVqz5jtwq+XE+dzGTdWXqBs
 FyPiQ6jzwXCQiMYOnYOnK9lJipjxSfB6isaLZbTr1oPSo7GVDF1fhJSMRq3F3LbXtYlKMTrpzm
 upleFpSXulGMunQSeFwFZPepOL6hEmOkTtbZnVGd90Y9TIsHVXuVRx7TFq7MS40qkZI2sb9JbC
 cl0m4lRbMolB9LHMVtnMXDVQuulGDVy3E0vKpT9B3lOtNLjoXqu5Lx4xfahli6i3Q/Bi9meZzp
 Tj5UWhHFrmZ6ZKnhat/CUI686RRUybLqy8hw7B1jl9yN8NPo0edJEO6qbKYWor0a9upmDX2QxE
 bulOE11MrHG0n1EdCouhyltAm5r7O4+itaMmYNTA4mk/HoyXmLxqwlsyTi1ujGQ64MjpyXFNBt
 bzj3TE5E5VZ3yTZnXXwNTvieZuWp6ByoVN7Ltnqav4uHm/TL/8PPUjwOabXm/5PqKDUqcX5Ech
 HIaS0K2BsukHfIIyC3sPY9T39NCbxVHQZcT6M+NsXKQ1ylMsiwitFiYyYiCmYRosvoFMrvoG+g
 GhbHT8ns93a3BP5f1WYW0r3toczfTiKn1mXbCy3dqMG3+V9VmLnzvneYPpxFT6zPMUfzrfl/yd
 03+SS/3GFe1iXAwHfY8yw9ybwt2G5rGsNcO8IFAaAOpMeNSS4NrsKQ3FcEzc1sZtPG4inbcr1I
 9kmZ1DPsxpPxcVJroeppb8A3JSoQluisa9WHdkzqKG1+YQVpuM+02FHbLeVq+GhLp0OITG3mc8
 sBRl0OmGZ4mP3XO/p7Q5XiPfsHD0Is3tnsT5WHjF9ljz2MteguhWlG1pMjLL0u42vcvHOJ/9yK
 fsd28i2fxDvTqbj+UVS2LwNTWhjfS0cnSx048WzLoZnL47XnJPD1492bOhY3B1O/TRu57C1bN0
 cTGSR0WyWSYvLs0pSqpOEb3afUcvhc0rfBqyXnOr2UzKvXzKlTnUcou/ccOMeI4bU3dHq5dDB8
 VSpRs/U8z5Va+9tZjkuaSj+4zOQrXarE9WGfejT8qErbXZj+l9RueQV32pxj6MM+9HoYjlln/i
 iWEV8wf9zL84oyeYYq8X77LvNRVoyi30HqmIxmW1atRVsMr7z1t1lM8JkdfjBRZy0swcIpOLJ4
 rJo1ZNxmjyzck+Zi21PTamzeUVtadbdb4amLV2LoTv4DFLsOmOaUvu5Hnz/D9dc4tM87sFna1t
 hsStaVWMjX19kcwpvSkpdh0Rx9CW0jjnlGLhvA5pJtjxjd6aG2q5FjqL8bDz8xjSwGIp6SpzXa
 inHhLZog8HWh3osohBvsLlHhZkVOa4qw6jJ89gOV+pSNNroFJrRjxi+cVJvjfQsSelkKy6Q0V1
 DpCKL0HimmIy0UWR5rosVxLDRRNloliTuMo3FjdFi7BGWREiyDlF6Nijx4ispEtjWqR4Suusd1
 IyVqlKEl1oqXEZK6JtIqm+os8Fl1f3zCwT6UjErbM5ZXXiOVN9RsIIsSBrnHuyYXSpy70UeMcr
 VJYfF5Zh4u8KdCST6VvyPP72PQeWBv22wK/MPT9uR59It0OigkoJIDegj4BbBdc4rLoVogbogL
 IY9LTGTK1caJ9GfIsceHErHg9QiNFxLi3IEmMuAUKFMADfbGvd2jwj65dzMbN3vZrjX+em/wB7
 Ltj3faHC9r7mY+ZO+Y4t9NWXezht+Zb8jom/y6XmYxCXIdRwkCAhjBCBBMAKCKuAQACQCCAwyY
 yYiCBgaHQyEQwBWOmHnFQRRTNwlR8OB3Gw8r5xQ6739B5/Qluzud1sDK+cUdenuPLzGNqMvQ97
 JKl68U/E845Sqm9tdmfVWaOh5Av+I8e+jDf5kcrygz3tq8za/Hz72dVyAff/ADJ9GGX1g4vll1
 vJf8Hq4L9bfzZ0OJqtV6lvjPvKvDNFVeV61T5TK2znhFaUTq1Gpsy1XZZDFzi9JSXnMFPqBvDc
 NMCrSWxuaWZ14eTVl6TKp53iY/hE+055TsMpN85GWHg+heOLqLqdRTz6ppvwhLzF3tthqllVws
 X5jlYyduJYptEXhIdC8cbPrzOlc8oraVMOlfqEllWS1/JtE0KqNPiWqs7cReBKPdkyixEJd6KN
 nPZfA1HejibX6zHqbHy40q8ZdpjxrzXBsvp4yrHhOS85vnx2mDThZ7wMerspjYeSoy7GYdTIsf
 T40JeY39PM8RG3uku8yqecV1xcX2o3HxC3szPB4WW10cdPA4mCtOjONuoR0prjFrzHeQzdSVql
 GEh/ZmBq++YaPoN8bUW8Qf06k+7M4DdaHS/9sd08PlNZeNSUblbyTLKnvdTdfaH4+PVNGeVz+2
 SOLjEdI6yey9KWtLEekx6my9ePkVIyGWNpPqI8vrR6HOpFijwNvPIMZT4U97sZRPLcTDyqMvQM
 q8Hsxfhqkd0YUdB1zlrw9SPlQkvMDcdnoHWnsbRJdDxDlebebZf+rv68jgpX5zu+WCX++cAudY
 b/ADyOFctDpQ1LuIpk7MVyT4osfEDSAy6aK9ObQgXuviQRjHplgrQgUfSHx4b3ItCcxBgFi4Do
 rjwGuYRjDLgLcZBAbrY5X2iwva+5mJjHfF12/wAZLvZmbHf8Q4bz9zMHFP8AjNb5b7zhX6h+n/
 spU+ivUrRAcweY6jkJcIAmMQbmFDzAFCuAQBQDECAIABCgcxFxMAYZcRQoUDHuMitMdMURoeL1
 O65PvvxRs9LS7jhEzteTibedU+jdl3Hn5kvkS9D1sllbFRR5ht0/5T5n+sVPrM7L/Z/+/WbPow
 y+scPtrO+0mZfrFT6zO4/2ffvtnD6MMu8njuWAt5I97AL81fzZtKkvHl2iXDJ3bYosNkclR9ph
 uREROcYQZDRuKhkhWMhx1cRajx4iMoh7jRYi4jLUVlEWJ9JbGRSh0xGiqZapDJlSY8RLFFItUm
 XQm7GOh4iNFYsyoy5yxTZjxHT4EnFFoyZlRrTjwk15y6GMqx4VJekwk9BlJE3TT6Fo1JLZmzp5
 nXXGV+0yIZrO1pKLNNFodMlKjErGvPxN5HHUZ++UYvzEbwFVNSoxXmNMpMthIm6KWzKqtfdHzf
 y27kdqaEafvaoafPkef76SO75Z3fabDX/qkfrSPP3wPai7I8yCuixzVhHK5U73Gs7aGcimklyC
 O6IJqGseqIgsWE+nPjWhrhTEGQwC1cxLATCmYRhXEfoET1GizCs3uxzttBhn8ruMDE/zir8t95
 m7Hv8A39Q7H3GDXd8RU+U+85EvzEvRFKn0V6iEIuBDoOVhRELzjowGQKAFAAFBAuBLgAMkQiZA
 AIHnAFGAEKYAoAA84U9RRkAA6Z2fJprnkPky7ji0dnyYu+e2fxH3Hn5j+nl6Ho5P+rgeUbXyct
 ocxb4+yKn1md9/s+ffLOnzLDx7zz3auSln2PaejxE/rM9E/wBn737PpfmI97I5j+jt5I+jwHPE
 fubB8WAjZBY7HDU3YSc4AoIqGQyFQyQGOMixaFSQ6uKx0x0+ksTK0goRlEy1MZcLla4IfihWUT
 LI6jxKo6FqEZRDosgipDwEZVF0R0Ihok2UQ/YOloKmWRegjKIkVZDoCGQrKIZIdcBUOhGP0Pmn
 lnf8psPpb+KU+9nn+8d/yzu+1FC/9Up/aefPgehfkc1NdkbesBzaKnKxN7QGotpLL3RBLkBcx6
 ncKYEE+pPjGMhhUFhFY1x4tFYyCKxxosVEMKdBsat7PqNuCUn+411f36fyn3m12H1z6HyJfYaq
 uvdqnyn3nJF/mJeiK1F8mL82IR8Cc5DoOMK4hQBkYDIFACAUKJYiCABAkRAGIFAQTGCRAuS5gD
 BQoVxAwDo7Pkv12gfVTfccYjtOSxXz6b/Ns8/Mv00/Q9HKF+ch6nkG0TUs3xjXPWm/7zPSeQBW
 W0EuijH7TzPPdMzxN/xku89P5AbLD7QvopR/zEcy/Sv2Po8u+v8AuZV9BbsnMgpAjsedPdkuxk
 3zgsR6GBsOtWOhIMcVlEMtApihQGMh1JjxfSVpFiWgjHQ6Y8WiqKdx1xFZRFqLFwK4jx4E2VQ6
 LIFaGiKyqL1wCLEdE2VQ8OJaimL1Lok2ViMkOkCI6EZRBSGtowIZuyl2CMfoz5m5ZLvaql1YSl
 3M8/Z6ByxO21cP1Wl3Hn7Z6PRHNT2K2gJDsVsRliWIC5DGseqRuOtRUPE+qPi2FILQLh4mFIOh
 ES9mMAtQWVqY17gFsdLsFZ5/H9HLvRq6792qfKZteTxb20K/RS70ams/d6nymccXfET9EWrL5E
 PViMhCHUcIUFACmYDCRMhAAGTImAhgWHuQVDCgIEAbGMAgbAMYNwpijIwB0dvyV/fur+iZw6Z2
 3JXL/flX9FJnm5l+mmejlH6yB45nct/Ma8umbf7z1DkG0y7aSb5qUe6R5Xm0v45V+Uz1bkJ+8m
 07/Nx+rIlmf6X9v5Pocu+t+5dcidyMiAtjzpbhb1Je/EHOGwQBTLIlaDFgaGTLVcKYkZMZPgK0
 OmWJ3ZYipJ30LY8CbKodaDJc4ieo6FZRFsB0VxuOibLIdDIRcR+YVlENF2ZbGVylLQsgIx0WxL
 EyuBZEmysS6BYJHgOibLobmA77suwK1DJeK7dAo3Q+ZuWd/wArl1YWl9U8/Z6Dyz3/AIZ1l0UK
 X1EefM7/ALUc9PYQVod6CsUqgW6yA4EAMeskNYs3w3xxlm2G+OfT8WPifH/D1PA2VyK5r1m2G+
 OH21w3xw8SPiDgVPA2FyXMFZlhmvfV6Q+2OH/Gx9IdcfEHAn4GaOnoYHthQ5qiGhj6HDwiNrj4
 iujPwO45No720T/Qy70aatpXq3+M+823JZiKVTaOW7L8BLvVjDxOVZlCtUvl2M8pu6oyfccEas
 Y4mep25ItVoyeHjZdWYVyXLKmExdPWpg8VBflUZL7CltxfjQqLtgzujOMtmedKlKO6GuiFfhI8
 6kv2WRVqfO36GNdC6GXJhKvD0/jB8PS+MgC6X4FgSrw9P46Iq9P46MbS/AuQyKfD0/jxD4el8e
 PpALpfgWhKlWpvhKPpD4SHxkAGl+BbcDEVSHxl6QqcPjL0mNpYwRd+PSg7yfOAFmMnqdlyYu2d
 130YeRxiZ2vJtRrLMsRX8FUVFYea33F7vpPPzKS+Hkj0cphL4qDSPFcfK+KqdG8z1vkKf8n9qJ
 L4kfqyPG8dVXh6jXSz2LkH3pbM7U7icnuxSSWr8SRzZnK+H/Y+jwEHGr7P+CxzDGpe4ngcRHSW
 HxC7aUvUC1SOngaq/wDrfqHi423PHkpqTui5SGUjHc5LjCp54MirJPWM/msNjXMm5LlHsiPDX5
 rJGvB879DBYKkZMZD3uYyrQ6X6CyNWNuIrRSLMqMkWKSMVVI9JZGpG3ERotGRlRsPG1+BjRqR6
 S6NSPSTZaLMmNh0Y8akeksjUjfiTZaLRakixJFanHpHjKPSIyqHtoRAUl0jXQlxx4PUthxKItd
 JdBpc4sikTIjwHRUpx6UMpLpRJlkWoZv3OXYVprpQZNbknfmEY580ctD/ltiP0NH6iPP2zveWd
 /wAuMUvzVH/xo4JxZ6CfZRzw2Ek9BCxxBZ9ArLJlTIWOJAWCmbhIJYqFW3vcvQyeAq/i5eg9HS
 /A87Uiu4b66Fiw9X8XL0MZYat+Ll6DKMvADkitNvnCpsuWGrfi5ehhWFq/i5egdRl4CuUSlTeg
 ynLpLVhav4uXoHjgqr+A15gqEhXOKGwWPxeDq+EwmJq0anxqcnF/uNxLbXaS+uc436Qs2T2TxG
 0OYSw1KtCg4w33KafC6X2nTYvksqUpPdz3LEubfnu/aQqypqVqm40OautjkJ7XbQ1FaecY2S6H
 UZi1NoM2qe+Y/Ey7Zs6TFcn+IoPTOcnqfJxBrq2yGJp8cdgJfJq3+wanpfcJVJ0137GoecZg+O
 Kqvzg9tsf/AFmp6TPls3iY/hsO+yQj2exS/CUfnHSlUI8TD+Ri+22O/rEwe2uN/rEzJ9oMV8el
 84ntFivjUvnDaavmbXh/Ix1m2N/rEhlm2NX4eX7i72ixXTS+cH2ixf5v5xrVQOeH8ij22xv49+
 hB9tsb+PfoRd7R4v8AN/OIsjxnRT+ca1TzBqw/kVe2+N/Hv0IZZvjfx37kWLI8Z0U/nDLI8Zbh
 T+cG1TzA5YfyKvbjGr8N+5BWdY1fhv7qLPaLGdFP56Csgxj5qfz0btg1YfyEWe4+LvGsvmR9Rb
 HaTMY8KtN9tGL+wMdnsZL8Wu2RbT2Vxs+E8Mu2rYSSfUMZYfpYsobY5tSacJ4dNc/gIeo3mF5V
 dpKOAnhIVMM4Si1veBSaT7DUUdic0rSSpzwbb6K6N39yjPlk1bMHLBunShKo4xq3bSV3zHJW4G
 1Wx2UFLm6P+DzypK7107TfbMbZZzsvTxFPJsSqNOu05qVNSu1w49pop093jp2nQ7K7DZ5tThK+
 IybD0qtKjPcm5VFHW1+cau4KD4uxWipuV6e5tXyt7X2++NP6GPqKp8rG10uOY0/oY+osnySbYK
 9svoy7MRD1mPU5LNr4f0ZHzYin6zi/KX5WLt1utyupyobVy44+n9DH1GPPlK2ok9cdD6KPqHqc
 mu1kdHlf+PT/ANRj1OTramPHK39NT/1FFwehNyfUMuUfaZ8cdD6KPqEfKLtL/XYfRR9QkuT/AG
 mX9Fv6WHrEfJ/tN/ZkvpoesNodAXh1LPui7Sv/AK2P0UfUB8om0i/62P0UfUV/c/2nt965fSw9
 YP4AbT/2XL6WHrB2Q9gt+6NtI/8Arl9HH1AfKHtJ/Xv8OPqK/wCAG0/9mS+lh6yfwA2n/suX0s
 PWa6D2B/uibSf19/Rx9QVyibTf2h/hx9Qn3PdqP7Ll9LT9Yfue7UW+9Uvpaf8AqNeIbRH+6JtN
 /aL+jj6gfdE2mv8AfJ/Rx9QPuebU/wBlS+lp/wCoi5OtqX/Rb+mp/wCoF4GsiPlE2o5szl9HH1
 CvlF2p/tOf0cfUP9zjan+yn9NT/wBRPubbVv8Aop/TU/8AUB6BkkI+Ubalf0pL6OPqB90fam/3
 0l9HD1Fv3NNq3/RT+mp/6iLky2rf9Ff49P8A1C3gEq+6PtVf761PNTj6ifdH2qv99qv0cfUXrk
 w2rv8Aez/Hp/6g/cw2rv8AeyP09P1mvDyCYz5Rtq7/AH2q/Mj6iLlI2sX9L1vmQ9Rl/ct2sf8A
 Rsfp4esK5K9rG9Muh9PD1i/L8hk2Yj5Sdq+bN63zI+oD5SNrP7YrfMj6jO+5Rta1976f08PWPH
 kl2strgaX08PWC9LyDaRxWc5tjM5x08ZmNeVfEzSUpySTdtFwMBs2ef5JjMhzOrgMyhGGJpWc4
 xkpJXSa1XUzVMp05GViOSFckHdBuCjom8iE3CGCen+Bh8WPoD4KC+DH0DN8yJa59RZHxup+IFC
 n8WPoGUIc0Y+gm6PFamsgNvxJ4OHxV6CKEPix9A4EGyE1MG5D4sfQTcjbyV6BiBsbUzqeTpqnm
 2JaSX8XnzdaNI1FybsrvjobfYWSjmOKbdv4vI1JxQgviJu3gPWm+DFEUIpcwd2PxV2kQUddjhb
 ZFGPQvQNux6F6CINwAuyOK6F6CKEehegIyALdgUY9CCoR6EQNkAF2Ddj0Im6uhBCjGuxUl0INl
 0BCAFxdOgNl0BIY1yK3QS/QFBXEAGwpyWqbXYdnsBOrVjmsJ1KkqSwk1uOTa1XQcakd5ycUb4f
 NZ9NCS/cedmdlQZ6mTapYqKXn/AAeDY2lFVp2Xaez8jEfB8n20c4txfhJap/kI8hx8bV5p9LPY
 OR9W5ONoeurL6kSOaRSoL1X8n0GXybm/RmLKc3q6tR36ZsVTd7OcvnMdwXMI1Z8xRRj4HiynLx
 Gv1y9JONtX6RUPG3QbSjKTfUaysKo3fFhkGNgBuxoxVixRQiHiK0VTY8YosSXQIuA6EaLRZYrD
 JIrQ6QjRRNl8WkWRaKYlpNovFlkUv/WWRduBXEdE2isZMyItFqMaEi+DJtF4u464jxtfVCIsSu
 TZVFiUegeKXQVx4FiEZRFis+YNVqNCba4RYsSYn+aVX+Q+4m0UvZM+ZuWWUZbeZi1wtT/8cTgm
 juOV3XbrMOyn/wCOJxDPSS7KOaIjQB2C2hrDikCQDNc9OTGXASI6Ppz49jIZCoKYRWMECDzGFJ
 cjAExjotjdMZin/wBvL7DWJmz2R0xOL/QSNWuCOen9aXsGr9OPuMgoCCjoONjIIEEUUIyAgoAG
 QKIQACBQBkYBCIlhkAACBDYBrgSGSIkMkBi3DCN2kemcnlFxyzMdONJr9x53g6TnVXUer7D0LZ
 Xjbc8bfuZ4+bVLUreh9F+HqLddzfgz5uzSNsTU7Wevckitya58+mvJf3YnlecQtiql1bXger8l
 StyY52+mvL6sCma/Qj6o9DK5XnL0ZiPRFLim7tllRMrdxonlSCoobRcRVfzAbuEAU7tjxXWJHU
 aJmFMtSGQsRhCsSxDoSLGQhVDpjxdypMsixWURdEsTKY8S2KJMtFl0R0Vx4Fi4E2XQ0eOpdF2K
 FqWwEZWLZfCRbFlCHiSaLJl6Y8XcqV7FkRGVRYmDFN+w6yXHcfcRArt+xqvVF9wj3Q77rPmPla
 /45zK/N4Nf4cTimdrytu+3eafKgv7kTiranpLZHNEkUSS0G4EdpIw4iSsQdK/AgLGuejoZASCz
 6U+RYyQy04FeoybMKMmMImMmEDCREYUEB0Gynv8AjP1eRrl0Gw2Vfu2M/V5dxr48xzQ+rL2NV7
 kQhROcJ0HIwoIqGQABQwAoUVh5iE5iGAQZAGSAwMgUFIIotwWGS0IFABcKQ0FeVgIvwiTqCSdk
 aC1OxtMDRWlvMeq7H0tzKa2nH1Hm2XRTnHQ9W2ago5S+s+bzafYsfd5BRs2/I+Ztp6ahmmJVtP
 CSVvOemclt1yYZxpxxEvqwPPNsIbmcYtfnZd56NyZacl+bfrM+6B6GZu+Gp+qOTK/qz9Ga+Svx
 KZcbIvqOyKm2ViebMXVrUaKA2RPXiERDKFyxRSEi9eI6btxFKKwyDbrFTYVfnAyiLYodcSuPEd
 CMoh1FFkUitdRbBCNlolsIotSRWlfgW00SZeI9tEOgDRjcm2XSJC1y1CKNh0hGOhkyyJUh4isd
 F0GyyLK4cCyPEmy0SxMTFP8AitX5L7hkV4x/xOs/yH3CW5jN9lnzLyrO+3Wav8uP1InHWOv5U1
 fbjNPlx+pE5Fo9JbI547AsFcAD20MkNcQgWQxj0hEAuAUfRnyYVxDzgCEAyGQqGQRWEKIGKuEU
 6LZON6mOfRh5dzNYuCNtsj/SD/MS7maiPMccPrS9g1l8qPuEPMAh1HIEZChQADDIQKFFYwRUgg
 AMMhUMgMDChkKFAFGQyEuMuIBWMjMwllw4mHcycLLxrcCc9ilF2kdBlrXhI9p6rs7JPKey55Ng
 H48bdJ6ns1K+TT6rnzObR7KPvMilzfofOu189/N8W/zku89G5Mv+V2a/rM+6B5ntPK+Y4lvnnL
 vPS+TL/lbmn6zPugenmathqfqjz8r+rP0Zral27cwklzl2lhJNMqjz5oSxFxDcWTs9Ak9i2PAZ
 LrK4N9BYmKyiGSGsKhvOKyiGWg8eAiGQrKItgi+FiiBbe2iJsvHkWxki2EtSmKui6CsTZaJZfU
 eEitK4yRNl1cujK4zEiPa4hRERZGNwRRbFaCNjpBjoh0BBQjKoeJXjNMJW+QyyImN/mVf5DF6h
 l3WfMfKc77b5t+lX1UcnI6rlK122zb9L/lRyzR6SXJHNB8hUh/ggSDzBGZVJ2ISaVyCNjo9IQU
 AMeJ9IfJDkIiBFDzBiBLQNzAY48FYriWIYVnS7IpeDzN9FF/VkaaOqRvNjop4TNnbhS/yzNHHg
 jipO9afsPXVqUAk5ic4TqOIgSIKMAiGQEMhRWHmIAIABDcW4UYA9woS4yFYGMFcRQgFHRbRlaS
 KUMuoVq5k7O5vcDUtUjrpc9X2VqJ5JVd+C19B43l9TdktdbnqeydZvZ/H6+TFv+6z57N6fYXqf
 Zfh6veTXkzwLaWSlmGIfTOXeemcmenJdmf6zLugeU5xNyrzb52eq8mf/ACtzHrxUv8h3ZqvkQX
 mieVd+b8mYT4CNdRa0CwU+RxSRXYDiy0jQbi6RIx0LEuoiHiBspGIEuoawUNa4rZRIVJosjHnG
 jC6LYw0EcikYCRRZGNwxj1FsYvoJtloxBCNkWxfQBRY8VZk2y0YsMWOiKLfMPGDZNsqkyR4lkU
 SMGWRgI2isYskUy1IMIssUCbkWUREhktSxQfQWwoN62JuaXUqoN9CmK6CvHJrA1+jdZsYYWb4R
 YmZYKr7XYluDVoMRVFqXMaVKWhnyfyiyvtpmz/PfYjmzo+UO/wDDLNtPw7Ob16D2Y7I8+HdRG9
 RZS0C10CtagY6K5O5BlHpITaZS56SFcQInOfSnyI6ChUNzhFYQMJErmAPBFkRYIsihibZ1Oxqf
 tdnL/NL6szn4nTbGRvlGePopr6szmY8TgoP59T2L4lfKgEIEQ7DgYyIiEMAIyEQyAAZEIQArIh
 hQoBgriMKrDAAwjC9BEAUe4U9RQoAC6lPdmn1nqOxtXe2fzTqpN/3WeUo9J2Blv7P5rHn8C/qs
 8jN4/Kv5r+T3/wAPTaxDj5M8MzOXu8u09d5NP+VuYfrMu6B49mGtefaexcma/wDizH9eKl/kHz
 Z/Kh6o9LLFacl5Mw+cLQ254w24xdSscmm5UlqGxfGkOqWoHNIZU2zHih4xbMqNBvmLqeFm1pF+
 gm6sfErGhJ9DDUOkeMLcDYU8urzfi0pvzGZTyPFztalIjLEQW7Lwwk3sjUKD5y2MeBvIbPYj4b
 hBdckXLJqFJe74ujH9ojLFU+jOmODqLdGhUUWRg29Dculk9H33HwfVHUSWZ5FR4SqVexE3iG+7
 F/sVWHjHvSS9zXRoyfMWxw0n8FmS9o8spr3LByl2lU9rre84OlHt1NevLaAb4eO8yylgqsuFNm
 VSyrES/BtGrntbjp+9qnDsiY09oMxqvxsRJdUVYHBxD6JG+Jwq2bZ01PJ61vG3YrrZastpQXum
 IpR85xs8wxNXy69R/tMqdWcvKlJvtN8LVe8g/HUVtE7d08upeXiot9Qvs7KaXwpzt0I4pNvnLI
 yN8F4yN/UX0iddLO8BD3vDTl2sqltIl71hYR7WcymOmmb4On15m+Pqs30tosXPyFTj2IwczzbG
 VsFWjKs0nHgjBiJjdMJVf5I0cPTi1ZCTxNSUXdnzrt677X5tf8eznmdBt5/xdmz/AD8jQNnorY
 lT7qA+AjQzYt3zmZRAsQLfWyChPRAxWpZukUT6Kx8ncCQbDKIyiGwrYjREWOJFHU1gXHjHRFiR
 IrQZIJJs7DYeN8mz/qpR+rUOTjp5ztNg6TeRbRS5lRX1ZnG20R5mGlfEVfVfwdmKVqNJ+TAQNr
 Ih6FzziIIEtRjAZCDJMKXUKAVDIKi3zBUX0AckBsAR1Tb5i2nha0/IpTl2REdSK3YVCT2Rj2Gt
 c2VDJcfW97wlV+Yz6OyebVbWwziuluxGWKpR3kiscLWn3Ys5+wUmdbR2KxnGvWoUlz3ki1bLYC
 ld4rNsPG3G0rkHmFFbO/oXjleIe6t6nHc4UdksDsthletmTqtc0U2B5psnhV7lRr12uq3eK8df
 uwb9h1ljXfml7nJQpTl5MZPsR6TsFRnSyjNFKLV6L5upmhe1uU0tMJk6k/zkkdVshn6zfA5pBY
 Snh406XCPPdM8/MKtadLtQsuR62UYehRr9mpd2Z88ZhpiJrrPbOSXDyxXJri6VNXlLEy0+aeJ5
 g7159p7FycV6mH5KcfWoycZxxMrNc3kHVm93Rgl4o6MsajUlKS5JM30Nm8StakoRXWyx5Jh6av
 Xx1GFuOp55iM2xtZvfxFRr5TMOdapN3lOTfWyMcBXkuc/8HDPOcNHuUz0108joe+4+EmuZFc83
 2cofCnVfUeZ3b4sFx1ll+9NkXn8l3KaR6PLa/JqKtQwLk18Yx6m3kY6YbBUop9OpwOvSGLKLK6
 C3u/cjLPsU9rL2O0qbb5lO6p+Dp9kTFrbTZrVb3sXNX6NDmoVHzGRC9tbajfBUYbRQFmmJqbyZ
 sZ5pjar8fEVH+0Uyq1JeVOT7WURt0lkWhlSitkbj1JbyY8eOrLE+wrTJvXYbBU2ZEZD3ZVBuxY
 ibReLLE2WRdtSpDxYjRZMuTHTKU9B1JIRoqpFqkWKRQpq5YpJiNFEy1MeLKbt8EWRUhGUUi2LB
 jf5lV7BLxj5dSK7WU4vF4ZYWpBVouclZK4ul35IaU0os+f8AblX2rzT9PLvNA1Y6LblL+FOaNf
 j5d5z8nqdVuRWm+yimQBpMVuwjLIjZBbkAGx6sqZPBmZGmOqR9C5JHw7qmEqevAbwRnRooshh9
 4V1BeKax0iKk78Df0cvUuMkZ1HKMO/Km/SSlioxLwhUnscqoNcwypvoO0hlOXx98lFLrZl0cPs
 9Rs8RWh5tTnlj0tk2dMcDOW7S9y3k9w0pbMbQStfep2/uv1nAqk0tUz3DZzM9naGWVaeFxFGFK
 V3NTdm+Y108t2RqSc6eLwjnLVKdVJHjUMxdKtUlKDs34HuYjKuPh6UadSN0ufM8g8G2PDDVZu0
 YSl8mLZ6jiMvnC7yjA5Tiorg41033faaTH43anCXUcoo0l8anTUvtO+GZupyil7ux5c8pdPvy/
 ZHKUMnx1Z+54Ss/2GbGhslmtX/pnD5TsUYzabaGKca06tH/6937DU4jPszrP3XG13+0zpXxVTZ
 xX+SHCw0e9qf8Ag6unsZiUr18Rh6S65lj2by3D/wA7zjDxfRGSOEqYytV1qVqku2TZTv34u4fh
 sRLvVP2QVOhHan+7O+9j7K4fxauY1ar6Ix4h9tdlsMvc8HiK1ueWlzgd98Cbwf6ffvTb9w/F6e
 7BL2O9e1+V0f5tk1O655yKp7e4lK2GwWEpfs3OHUuthuFZbQ6q/wC4Hjq3R29Ejq8RttnVVeLi
 IUl0Qgka7EbQ5riH7pjq/mlbuNLcKZeODoR2iiUsTWlvJmXVxmIqu9SvUk+lyZS5tu/OVBLKnF
 bIg5Se7LL3GTK0FBshGWwep6XyWRXtfnLtr4L7GeZR4nqXJZTbyfOJ24xt+5nk5xyw79V/J6mS
 K+LXo/4PDsxVsRNLpPXdgLrkjzL9Yl/kPJcxjbESXWetbAv/AOJcz6sRL/ITzT6VP+5HfgX3/w
 C1nJcxCMh6CR8jLdgsFEIwgCmQCCpJPgZmsWQeqXOZEb9Jiup0cR1VfMibVy0JJGUmyxPTiYkZ
 VJcEy+EZc90TaOmE77IuT6xk0VpRS8acV5xXXw8PKqrzCW8EXUvEyVUtwQ8ar10NdPM8LDheXn
 Mepn1OHkQiu0PClLZDqql1N9CTkWRUrXscnV2jna0bLsRiVc8xE1pOSN8LN78inHt0O4bUfKlF
 ecSeLw1Pyq0ezief1Mxrzesn52UvEVJPWbHWC8Wb4ifRHfTzrBU+Dc31GNV2nowTVOn6WcQ5yf
 wmxdecosFT6g49R9TrK21dZ+9xikYNbaLGVLrwskuo0a4ERWOGprZE5VJvdsz6uZYip5VWT87L
 cvqzqY3DqUr3qLvNYbDJ1fMsMvy0PUhFQdkTS7SON27stq80/Ty7zm5s6Tb1W2szVf8AcSOame
 K9kfUUu6ipgYzWgpMugIgbEAE9hVdcyD4d9Bq/ZFuAHimfRaUfFcC5tliH02J7I6ZGklipdJW8
 TLpBpiMsMb14xR+EyueZNcJM0Uq8nzsR1W+cGmPgUjhrG2q5lOTdpMp9lybu2zXKbuNvhVlsV4
 KRsaeMkpt7z4WKqleTb1t2GIpahcjcjKFmXqvOPkykuxmZhs9zTDWVDMcXTS4KNaVvRc1e8C4k
 qcJd5FVKUdmdJDbHOUkquIjXj0VaUZX/AHXA9ooVXfFZdhJ9cLw+05y9wp6k1hqa2Vgym5d7mb
 /2xyuovHwdam+dwqJ/YNF5PVl4uKr0f0lK69KbOf3g711qNwrbSZNxT6HQrA4Wrd4fMcJPqlNw
 f95IjyjFWvTiqifB05xn3NnPp9A0ZtO6bXYwpVF9wrhFm3ngMTTvv0Zq3Sirwc46NNeYoo5hi6
 VvB4mtG35bMiGdY5K0qqqL8uEZd6DeouiEdNdGVveXSFNl8c4cvfsHhanWouD/ALrRYsfgKj8f
 B1Yfo6qf7nH7TcSa3iLw/AxbsZNGUp5bUTtVr03+XT9T+waGGwk1enjaS6pXX2B4q6piumzEUh
 kzNWWTn7zWoVOjdqL7WGeT46mrvDVbdKi2vSbjQ8RXTl4GNT8pHsfJbCP8GcbJpeM3f0M8gjh6
 sZeNB3XMer8mirUdnczVaMoKza3lbTdZ5GdNSoWT6o9XIuzirtdGeH5zFLGVN16XPT9hXbkjzR
 /9zL/IeWZlLfxEz1DYiUY8kWauWi9lNfUGzT6VP+5F8B9/9rOYbBzCzrUo9PnKZ42nHoPQSbR8
 s6cm9jI1YUmzXVMzjG9jGnmcnwHUGx44eb6G6tbi0ib1NPWfoOdnj6kucqliKsl5bNwy0cK+p0
 ssTQhx17WVyzWlDSCijmnKT4tsF7h4S6lVhkjfTzxpeK/QYtTN6km7OXpNUwDKEfAqqMTNnmFW
 XOUzxNWXGTKSLiGyG0RXQZzk+LZLkJYIRk2MhUMgoUIbACYBEhhbkuYA5BVIbeuEFgm0yFXzXC
 LpqI1Rudl4upnmCivxhKu7U5PyDBXmkcVyhQttfm/6xLvOWkjreUZfyxzf9Yl3nKSWp4q5xTPp
 absrFVhWi1oVoDRVMra0IM0QWwyZ23husV1bmJvgU2e3rPC4RkuqLvsp3kDeNqDoMhTDvGOpDK
 RtQHEyFINyhSGUhtQriXKQd4qTJcNwOJdcF2IpB3jAsMmG4lw3Maw9w3K9Sb1udBBYuTDfQpU1
 0k8IjXBpZepBuY/hW+Ym/I1waDJUg766TFu+cl30mNoMtVEucbwyXSYaYb9Ybi6EZfh1zIspY6
 vRlvUatSm+mMmjBv1kv1iuKfKxtKRvKW0ua0o2WMqyXRN7/ebLBbc5thsJiMLTdDwWIg4TapKL
 1VuKOTv1kTaIzw1GfKUUVp1Z03eDsyyau5Xd+s7vYva7K8p2cxGT5tl9fFYetWdWTpyX5OnNzx
 OCTvxCnfnBiMNTxEVGfQahiJ0Jaone4nE7E41ydP2fgm+acW0vQ2a2tlGTVNcHnFKXVUe6/wB9
 jk3LmEvbnEhhpU+UZv3NOop7xXsdHV2fq39xqwqp8N1p91zCq5Pi6TalTenUzVRbTvFtGRTxuK
 pP3PE1o9k2WSqLqmR0+Y8sHWXGm/MI6U1o4SXmMmGc49aSr+E/SwjPvRdHOpyt4XCYadudRce5
 h1VF0F0s1261xTA1Y2rzTC1PfMJOK/JqJ96Cq+W1Pg1Y9e5fuYVUfVAeo1VulE3eo23gsvm/Ex
 MY/KUl9g6yynN2pV6M/k1I39F7h4seouryNNuh3TazyitDjCSXS4uxS8BUV3p6RlOL2YNaMDdC
 kZUsJVXwH6BJUZrimG6fU2tFFhkizcaeqCo9QQaiu2gVEs3Q7oQORXuksW7oGjAuIkSw9g2Ma4
 iR0OxEN/aXAq3wpfVZobHV8nFPf2vwCfDx/qM5sa9NCb8mXwvarwXmed8pUbbZ5xb+sz7zkne5
 23KfT/lnnH6zPvOPcOo8uCvTi/JHvRdm0UMVlklYqbYGVXMWRCcSCMc6DeCpFCloG56Wo83SX7
 wN4q3gqaT1aDqBpLlIKkUOrHpJ4VcxtQHAyVIZSMRVnfQaM5BUwOBmJhv1mLvN87GH1iOJk7yX
 OB1UipcCMbUxdKLFWYfCSZSFNg1M2lF28+klmxFJDJ68RrgsOlZjJIFyNjCDB0FTCmEAUECsEw
 AkAEJiEDzEsYAUG4EgmAw3ImCxDACAOpLaGMQKIkMkYFwBSCojqIUK2KkG3TqPGOo6iwiuQiVx
 0h4wLFANhHMSnKcHenOcX+S7GVDHYtfhpy+V43eVqAyh1CuEXuibmZMMyrqV5QpTfXTRfHMKcn
 7rhINP4k3HvuYSh1DqArpRFdQzo4jAVL71GvTf7M19g3gcvmlu1km/j05Rf7rmCoFih1E3TttJ
 i8VeBmPLcPKypV6bfSqq7mkT2jqzfuTcrcbRT7mzGjT6iyMHrbQRqotpA4sfAEsnrwT3lZdMk4
 95TLLa7fiRUvkyTNthJY+NlQrV4Jcym7G4w/thU0qypVV0VKUZfYRniasPBnRSiqj5JnGzwOIh
 5VGov2Sl0mr6O56ng8PVqK0sJR/YTj3M21DIqWIVqtB2fM5KXejmlm+jvRPTp5RUq91ni241qd
 hyWUZVNr8K+aEZyfzWvtPSIbEZXWivC0IW6oJP91jY5LsrlGS4x4vB0tytuuN3NvR9pw4zO6VW
 jKnFO7R6GDyCvTrRqSasmfO3KRgJT2wzduLt7Im79VzhMbGNN2WvYe3ctWDpPMXPL5UG5XdZRl
 eW91nh+YUakJ+Mmjvw81PDQaXQnJONecG+pr6j11ZTKpFBrxa4mNI55ydzthFMslW6EQx7kJam
 V0o3vhWTwkmVXImd2o4dKLVJsYrix0xkxWgpaliKrjJhuK0WxY6ZSmPGQ6YjRenoOmUxkMpFEy
 bRdfQlypPUeL1GuLYcgFoMFAIh09BUMMhWFPQdPQrUR0MhWMiXFIg3FsOmOmVoZDCse5GwIaxg
 BXAZcBUMgisKQ26CPEcwrYliWHIYFxbBsMkMkEDYqQyiMojKIRXIVRHjEaMSxRNYRyFjAsUBkh
 kNYk5CqJYohQ6MxHIEYjqJEPEVsm2RRHjHUCHXERsRsKiWRiKmMpIR3JtsspwcpWRtsJhYRV2r
 vrNTCq4+TZFyxU7pt3SIVIyexajOEHeSOmw0IL/8NphtxWskclQzOMI+M3ceee7i8RNnBPDTke
 3Rx9KCPQcNiqdPi4ovqZ/hcLG86kVbrPJ8ZtDXknae6uric5mWdTlfem2+tk1k+vnNnZHOpvs0
 onrOdcpNPDwccLHefSzzfaDb7NMfXW/ipwgnfdg2jicbmUpt+MaueJbfE6KeFw1B9lcwupiMR9
 WXLwN/tLm1bF4z2U6snOaTk78Tnq+OlN+O7kxGI36SRrakhqtW3KOxWhQSXPctq1IyvbiYtQWT
 5xHJnHKVztjCwr4kI2QlcrY2zehFxK97QaJ2XOKw9xkxLhQyYLFiYyZWhkPcRosQU7C3GQyFZZ
 GQ6ZUuAyY6EaLEy1PUqiWIoibLExhEMOTY6YxWhkxkxWiy4UIFMa4thiJakTCggGQUAKGQgyCK
 FMwB0MhExkwi2GQ1xEwpmA0OhhExkwitDLiFMS+oyZhWWJjJlSY6YRWi6LLEzHTLY68Ak2i1Ma
 5Wnbiw+EiucNxLFqY6KFU6A776TCuJkJrnY6kjF3hlIGkRxMpSDvGMpk8JbnFcRdBlb3WHfRhu
 slzlcsSlzm0hVJs2DqpCSxCRqp4vrMWti3zMDikVhhmzb1cYlzmBiMfo7M1NXGcbs19fF35ycq
 kYnbRwSNniMe3fxjT4vEuV9TGqYi74mLVq8Tkq4i56lHDKIalVvnKJVOsrnPUqlM4ZTO+NMyPC
 eLxKqjuVqYspXJuRRQsFsS4GxWybZRIMiFbZBB7H/9k=
wie bekomme ich das hin?
Und wie bekomme ich daraus auch wieder ein Bild ?

Danke für Eure Hilfe.

Gruß gnaps
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: vcard Bild umwandeln und speichern

Beitrag von Kiffi »

das ist ein Base64 kodierter Textblock.

Mit Base64Decoder() solltest Du daraus wieder ein Bild machen können.

Grüße ... Peter
Hygge
Benutzeravatar
juergenkulow
Beiträge: 188
Registriert: 22.12.2016 12:49
Wohnort: :D_üsseldorf-Wersten

Re: vcard Bild umwandeln und speichern

Beitrag von juergenkulow »

Hallo gnaps,

hier ein Programm um an das JPG mit den blauen Fenstern zu kommen:

Code: Alles auswählen

; Warum Schreibe einen TextJPG-Daei Base64Encode in eine jpg-Datei und zeige die jpg-Datei an. 
EnableExplicit
Define Dateiname$=OpenFileRequester("TextJPG Quell-Datei auswählen","JpgText.txt","*.txt",0)
Define Datei=OpenFile(#PB_Any,Dateiname$)
Define Laenge=Lof(Datei)
Define *ptrtxt=AllocateMemory(Laenge)
Define DecodeLaenge=ReadData(Datei,*ptrtxt,Laenge)
CloseFile(Datei) 
;ShowMemoryViewer(*ptrtxt,DecodeLaenge)
Define *ptrDecode=*ptrtxt
While 13<>PeekA(*ptrDecode) : *ptrDecode+1 :DecodeLaenge-1 : Wend : *ptrDecode+2 :DecodeLaenge-2 ; Überspringe erste Zeile 
; alle CR LF und Leer-Zeichen loswerden 
Define *ziel=*ptrDecode
Define *quelle=*ptrDecode
Define i,j=DecodeLaenge
For i=0 To j-1 
  If PeekA(*quelle)>32 
    PokeA(*ziel,PeekA(*quelle))
    *ziel+1
    *quelle+1
  Else
    *quelle+1
    DecodeLaenge-1
  EndIf 
Next i 
;ShowMemoryViewer(*ptrDecode,DecodeLaenge)
Define *ptrjpg=AllocateMemory(DecodeLaenge)
Define jpgLaenge=Base64Decoder(*ptrDecode,DecodeLaenge,*ptrjpg,DecodeLaenge)
;ShowMemoryViewer(*ptrjpg,jpgLaenge) 
Dateiname$=SaveFileRequester("JPG-Ziel auswählen","Test.jpg","*.jpg",0)
Datei=OpenFile(#PB_Any,Dateiname$)
WriteData(Datei,*ptrjpg,jpgLaenge)
CloseFile(Datei) 
UseJPEGImageDecoder()
Define Fenster=OpenWindow(#PB_Any, 0, 0,2500, 1400, "JPG zeigen ", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Define Gadget=ImageGadget(#PB_Any, 0, 8, WindowWidth(Fenster), WindowHeight(Fenster), 0, #PB_Image_Border)
Define Bild=LoadImage(#PB_Any, Dateiname$)
If 0<>Bild 
  SetGadgetState(Gadget, ImageID(Bild))  
EndIf   
Repeat : Define Event = WaitWindowEvent() :Until Event = #PB_Event_CloseWindow  
Bitte stelle Deine Fragen, denn den Erkenntnisapparat einschalten entscheidet über das einzig bekannte Leben im Universum.

Jürgen Kulow Wersten :D_üsseldorf NRW D Europa Erde Sonnensystem Lokale_Flocke Lokale_Blase Orion-Arm
Milchstraße Lokale_Gruppe Virgo-Superhaufen Laniakea Sichtbares_Universum
Antworten