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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка счетчика через прокси, не получаетсо 
:(
    Опции темы
kazilop
Дата 31.1.2009, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нужно сделать загрузку счетчика,  например Рамблера ( http://cnt.rambler.ru/top100.scn?1591238&a...5160593&rf= )
через проксю
делал через WebBrowser  - слишком все долго и как-то не правильно
потом думал как картинку JPEG загружать  - но возвращает ошибку что это не jpeg файл

подскажите, плиз, как это осуществить грамотно
PM MAIL   Вверх
kazilop
Дата 31.1.2009, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
написал вот
а оказалось счетчик то в Gif формате грузится
Код

procedure TForm3.BitBtn1Click(Sender: TObject);
var
 cad: TMemoryStream;
   jpg: TJPEGImage;
begin
cad:=TMemoryStream.Create ;

//IdHTTP1.get('http://cnt.rambler.ru/top100.scn?1591238&rn=0.8230003645676056&rf=',cad);

           jpg := TJPEGImage.Create;
          try
             IdHTTP1.get('http://www.yaplakal.com/uploads/previews/post-3-12333672369758.jpg',cad);
            cad.Position := 0;
            jpg.LoadFromStream(cad);
            Image1.Picture.Bitmap.Assign(jpg);
          finally
            jpg.Free;
            cad.Free;
          end;
PM MAIL   Вверх
sai_NT
Дата 2.2.2009, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 3
Вот тебе модуль для работы с Gif (см. аттач)

А вот кусочек кода:
Код

...
uses GIFImage;
...
var
  ...
  Img : TGIFImage;
begin
    ...
    cad.Seek(0, soFromBeginning);
    img := TGIFImage.Create();
    try
      img.LoadFromStream(cad);
      Image1.Picture.Bitmap.Assign(img);//на форме кинут TImage
    finally
      img.free;
      cad.Free;
    end;
    ...
end;


Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  gifimage.pas 360,55 Kb
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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