Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скачать с инета картинку в Bitmap 
:(
    Опции темы
Святогор
Дата 17.1.2008, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет
Так я и не понял, как это сделать с TStream, т.е. без сохранения строки в файл и споследующим скачиванием ?

Вот это не работает:
Код

var
  _HTTP: TIdHTTP;
   s: string;
  _Stream: TStream;
  _WeatherBitmap: TBitmap;
const
  WeatherImageSource = 'http://info.weather.yandex.net/informer/175x114/29634.png';
begin
 _HTTP := TIdHTTP.Create(nil);
 _HTTP.HandleRedirects := True;
 _HTTP.ProtocolVersion := pv1_0;
 _Stream := TStream.Create;
 try
   s := _HTTP.Get(WeatherImageSource);
   _Stream.Read(s, Length(s))
 except
 end;
 _HTTP.Free;
 _WeatherBitmap := TBitmap.Create;
 _WeatherBitmap.LoadFromStream(_Stream);



Дайте пример, пожалуйтса?!
PM MAIL   Вверх
merge
Дата 17.1.2008, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 20.3.2007

Репутация: нет
Всего: 1
дак ты скачиваешь png а это не битмап изначально... тебе нужно модуль для работы с пнг скачать
PM MAIL   Вверх
Святогор
Дата 17.1.2008, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет
Ну а допустим, что битмап?!  smile 

Все равно в стрим не загоняется  smile 
PM MAIL   Вверх
Святогор
Дата 17.1.2008, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет
Ладно, допустим так-с:

Код

var
  _HTTP: TIdHTTP;
  s: string;
  _Stream: TStream;
  _WeatherBitmap: TBitmap;

const
  WeatherImageSource = 'http://lh3.google.com/_qtubsS-ydXc/RuED3QNlnXI/AAAAAAAAAzI/xXh4NH49UMw/s800/Nazgul.bmp';

begin
 _HTTP := TIdHTTP.Create(nil);
 _HTTP.HandleRedirects := True;
 _HTTP.ProtocolVersion := pv1_0;
 try
   s := _HTTP.Get(WeatherImageSource);
   _Stream := TStringStream.Create(s);
 except
 end;
 _HTTP.Free;
 _WeatherBitmap := TBitmap.Create;
 _WeatherBitmap.LoadFromStream(_Stream as TStream);



Ну почему же не работает-то??
PM MAIL   Вверх
VICTAR
Дата 17.1.2008, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
зачем тебе StringStream?
Код

M: MemoryStream;
...
_HTTP.Get(WeatherImageSource, M);
PM MAIL   Вверх
Святогор
Дата 17.1.2008, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет
Вроде в поток что-то пишется, свойство Memory содержит указатель, но вот после кода:
Код


 _WeatherBitmap := TBitmap.Create;
 _WeatherBitmap.LoadFromStream(_Stream);

 _WeatherBitmap все равно пустой  smile 
PM MAIL   Вверх
MetalFan
Дата 17.1.2008, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
тебеж сказали:
Цитата(merge @  17.1.2008,  09:49 Найти цитируемый пост)
тебе нужно модуль для работы с пнг скачать 




--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WaReZMEN
Дата 18.1.2008, 01:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3
Святогор, на пару постов ниже посмотри... 
http://forum.vingrad.ru/forum/topic-163605.html
PM MAIL ICQ   Вверх
Святогор
Дата 18.1.2008, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

Репутация: нет
Всего: нет
Цитата(MetalFan @ 17.1.2008,  17:04)
тебеж сказали:
Цитата(merge @  17.1.2008,  09:49 Найти цитируемый пост)
тебе нужно модуль для работы с пнг скачать 

Так я ж написал:
Цитата


const
  WeatherImageSource = 'http://lh3.google.com/_qtubsS-ydXc/RuED3QNlnXI/AAAAAAAAAzI/xXh4NH49UMw/s800/Nazgul.bmp';
PM MAIL   Вверх
aktuba
Дата 18.1.2008, 09:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата(Святогор @ 18.1.2008,  09:42)
Цитата(MetalFan @ 17.1.2008,  17:04)
тебеж сказали:
Цитата(merge @  17.1.2008,  09:49 Найти цитируемый пост)
тебе нужно модуль для работы с пнг скачать 

Так я ж написал:
Цитата


const
  WeatherImageSource = 'http://lh3.google.com/_qtubsS-ydXc/RuED3QNlnXI/AAAAAAAAAzI/xXh4NH49UMw/s800/Nazgul.bmp';

А указатель позиции в потоке в начало установил? ;)


--------------------
user posted image
PM MAIL WWW Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0494 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.