Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2010, 18:03   #1
timyr1997
Пользователь
 
Регистрация: 10.06.2010
Сообщений: 37
По умолчанию Картинка кодом

Здравствуйте!!! Я делаю XML запрос и получаю
<img>/9j/4AAQSkZJRgABAQAAAQABAAD//gA7Q1JFQVRPUjogZ2QtanBlZyB2MS4wICh1 c2luZyBJSkcgSlBFRyB2NzApLCBxdWFsaXR 5ID0gOTAK/9sAQwADAgIDAgIDAwMDBAMDBAUIBQUEBAUK BwcGCAwKDAwLCgsLDQ4SEA0OEQ4LCxAWEBE TFBUVFQwPFxgWFBgSFBUU/9sAQwEDBAQFBAUJBQUJFA0LDRQUFBQUFBQU FBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQ UFBQUFBQUFBQUFBQUFBQU/8AAEQgASAB4AwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQ YHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQ USITFBBhNRYQcicRQygZGhCCNCscEVUtHwJ DNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNE RUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ 3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpq eoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1 tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQ YHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBA UhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwF WJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpD REVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV 2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpK Wmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1 NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A/TiiiivkjIKKKKACiiorq7hsbd57iVIIEGWk kYKqj3JoAlorzr4mfG7SPhrrOlaK9jf63ru pK8lvpelQma4Ma/efaOcf57U74Z/Hfwp8Urq70/TbqWy12yJW70bUYWt7uAjrlHAyPcZq+SVua 2hHPG/LfU9DoooqCwooooAKKKKACiiigAooooAKKK KACvAv2zPhMPiP8Idbvkvb9LnRrGW7gsbZw Ip3XDfvBjJwqtgAjr7V77WT4tWJ/CusrPgwGymEmem3yzn9KuEnCSkiJxUotM+O vFPxQbw/41/Z/wDjHq+6fS9V0NdJ1W5ThYpnXLtj0Ds7f8Ar a/bp8Mx6Ho2gfFvwndJp/iTTJ0jGoWbD/SIGBxyOG6nnuuRWbo+l+F9e/wCCd2gW3iy5NtbmGT7FKg3Si7FzN5IjXI3M eRtHUZFfMs2seLtK/wCEf+GXxOvdT0fwr9oSZXmjYtGjD5QCxGUH GcHjn6V6cIc0rr7La9UedOVo2fWz9Ge/eFv2ufjKPD9t4hn8HLr+hum6WWxjJdAvDHA 6jPbHH96vc/gt+2P4K+LUsWny3C6JrbfL9ju3Cbm9FJ/lXp/wu8HaJ4K8EaVpmguk+mRRK0MqMGVwRwwI46 YH4V8yft3fs86HceCLrx/olnBpWtaYyy3UlugjE6Zxk4x8wJXnrXMnSq y5OW3ZnQ1Upx5r3PsjrRXzl+wn8S9a+I3wa X+3He5uNMnNpHdSDmVAPlye5HTNfRtcs4OE nF9DphJTipLqFFFFQWFFFFABRRRQAUUUUAF ed/HHTvF/iPwVe+HfB1tai91aCS1m1G8uDElnGy4LKoU l2IJAHAHXPY+iUU4vldyWrqx8KfC7wlqlh+ 0P4D+E3irUtPv9J8C6XLqdta20LJHPcSDKl 8sd7qXDjoODx1z3v/BRCx8KS/CBJtTa3TxJHcR/2WFx9oc7gHA7lcHJ7fjivZ/H37P3gv4j+JbPxFqljcQeILRBHFqmnXclrc BRnA3oQeMnB6803Qv2dvAOh6wNYbRDq+tBg 39pa3dS6hcZGMENMzbcYHTFdfto80Z9v6/E5vZS5XDufE/wn/an+Ifwa+H+jeHNU8NnT9NUB7fXddt7p4/KYgqAFHIweBu6YHFeiajax/tJaQ7+L/jlokfhyFfPn0vR4xb8AAkMZCCSCueh+h619 rXOn2t7B5FxbRTw4x5ciBlx6YNeU+Kf2Tfh P4vu1ur3wbYw3AcSGWyBti5zn5thG78aft4 N81rPy1/MXsZpWvdef/AOg+B+m+E9L+G2lweCbdoPDo3i3d0ZWlwxB f5gCckHnvXe1V0rS7TRNMtdPsYEtrO1jWGG GMYVEUYAFWq45O7bOpKysFFFFIoKKKKACiv gz/h6V/1TL/yv/wD3NR/w9K/6pl/5X/8A7mrq+q1v5fyOX6zS7n3nRXwpbf8ABTq6v Ibua3+FM08VpEJriSPWyywxl1QO5Fr8q73R cnjLqOpFXz/wUb14TadCfgvqIl1KVIbKP+1JN11I6ROiRD 7J87Mk8DALkkSxkcMuT6rV7fih/WKXf8z7cor4ck/4KVapD9o8z4QXafZraK9n3aww8qCTy/Klb/RflR/Oi2seD5iYJ3DNe2/4KdXV5DdzW/wpmnitIhNcSR62WWGMuqB3ItflXe6Lk8ZdR 1Io+q1e34oPrFLv+Z910V8V/wDDwvxR/Z39of8ACjtX+wf8/X9oy+V/x7/avvfZMf8AHv8Avuv+r+f7vNV9T/4KN69olhBfaj8F9RsLKeKCaK5utUkjjkjmD mF1ZrQArIIpSpHDCN8Z2nC+rVe34r/MPrFPv+DPtyivjqD9vLxb/wAJnpnha9+CGr6TrWoYeK0vLy5E3lZbdN5K 2LSsihHJKIxwjYBIxVDQf+Cjc3iDw94m1aD wBaQ/2DbQ3k1nNr8gmnikuI4C0eLMp8rzRbgzKcP lQ2Dg+rVe34oft6ff8z7Uor4U0/8A4KdXWrX9tY2PwpmvL25lWGC2t9bMkksjE BUVRa5ZiSAAOSTV+9/4KN69pkKzXnwX1G0iaxj1NZJ9UkRTaSOEju ATaf6pnZVD/dJYAHJp/Vavb8UL6xS7/mfblFfCl7/wU6utMmWG8+FM1pK0Ucyxz62UYxyIHjcA2v 3WRlYHoQwI4NV/+HpX/VMv/K//APc1H1Wt2/IX1ml3PvOivgz/AIelf9Uy/wDK/wD/AHNRR9Vrfy/kH1ml3Pg2iiivoDwzvPg/8QNL+H+tajNrOk/21pt7bQxS2ZCssvk3tteLG6sMFJWtBCxOdq ys+19vlv6Zo37RnhfTrzTJbjQbu+/4R+5tJdJmkji8yX7NDpSLI2WP2d5P7GSMhD JtS/mO5/JCzlFZypxk7s0jOUVZHM+IfjNoOrfD27023 0WaHX77SLTSLi6KRhfLhXTUH7wHc6r/AGQjqpUDN/MOPJDTweC/iB4E+H+tW81lpOr61pt7olnFrNnrAgZZb+G 9t7ySONQMG1la0SHL5ZVldyr7RG5RR7NWsH O73O10H9pzQdAv/D6JpWo3Nlp99aRyzMI0ka0tjoOyVU3Eea40 WQmIsFQzqBI+0k5D/tBeHbrQf7G1Dw7d6npq6bYWzwNcCH7W0a6C lxCzKcxIV0aYLIpZv3yfKuDRRU+ygP2six/wu7wgfEnwvmddRNl4S8QXGs3l3ZeHtP09rx SLN41S0tnSNG3WxjYtI5xh9xyIU868Ja74X 0HRviNYXF9q7/2vpo07SZItNiPmbbyC5V7gG4HlZ+yopCebj zWOTsAcoqlTS/r5ic2/6+RY+GHibwb4Kv8Awl4hvo9cl8T6T4ptL+e O3EJsm0yIo7BQSHNwXU4yQm3uDVfwj8Q90f ibTPFWqavPpviG2kjuLyL/AEya3ne6tbmS4EUkiCR5Gs40cmRSQQxLbAp KKbimLmaKHxT8U6X4x8XLqGjWt3Zaamm6dY xQX8iyTJ9nsYLdgzqAH+aI4YKuRg7VztHJU UVSVlZEt3dwooopiP/Z</img>


Это картинка!!! В коде!

Впорос: как при нажатие на Button1 этот код помещялся в Image1

Заранее спасибо
timyr1997 вне форума Ответить с цитированием
Старый 09.08.2010, 18:36   #2
Ins
Форумчанин
 
Регистрация: 29.12.2007
Сообщений: 137
По умолчанию

Это Base64. Расшифруй и загрузи из стрима, если конечно Image вообще способен отобразить картинку в том формате, в котором ты ее получаешь
Ins вне форума Ответить с цитированием
Старый 09.08.2010, 18:40   #3
timyr1997
Пользователь
 
Регистрация: 10.06.2010
Сообщений: 37
По умолчанию

А можно по подробнее??? Как? Каким компонентом
timyr1997 вне форума Ответить с цитированием
Старый 09.08.2010, 18:44   #4
Ins
Форумчанин
 
Регистрация: 29.12.2007
Сообщений: 137
По умолчанию

Ключевые слова для поиска - Base64, TStream Порядок действий:
1. Расшифровать Base64 в бинарный поток (поищи готовые реализации если лень писать свою)
2. Загрузить TBitmap или что там у тебя из стрима - метод LoadFromStream
3. И запихнуть его в TImage

Ну а код за тебя писать я не буду, уж извини
Ins вне форума Ответить с цитированием
Старый 09.08.2010, 18:57   #5
timyr1997
Пользователь
 
Регистрация: 10.06.2010
Сообщений: 37
По умолчанию

Блин(((

А я пример не могу найти((
timyr1997 вне форума Ответить с цитированием
Старый 09.08.2010, 20:09   #6
kroŧ
Пользователь
 
Аватар для kroŧ
 
Регистрация: 02.05.2010
Сообщений: 69
По умолчанию

http://www.x3k.ru/ тут Decode онлайн.

IdEncoderMIME1.Encode('текст') //на делфи
IddecoderMIME1.Decode('текст')
☣☣☣
kroŧ вне форума Ответить с цитированием
Старый 09.08.2010, 20:24   #7
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

http://www.programmersforum.ru/showp...40&postcount=2
W0LF вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц