Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2020, 12:24   #1
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
Лампочка Загрузка изображения из сервера на TIMAGE

Помогите загрузить изображения из сервера на TIMAGE (RxGIFAnimator)
Так что-то не грузит:
Код:
procedure TForm1.RxGIFAnimator1DblClick(Sender: TObject);
var
  FS: TFileStream;
  Url, FileName: String;
  I: Integer;
begin
  for I := 7400 to 7500 do
  begin
    Url := 'https://commons.wikimedia.org/wiki/File:COVID-19-outbreak-timeline.gif' + IntToStr(I) +  '.gif';
    FileName := 'D:\' + IntToStr(I) + '.gif';
    FS := TFileStream.Create(FileName, fmCreate);
    try
      try
        try
          IdHTTP1.Get(Url, FS);
        except
          on E: EIdHTTPProtocolException do
            Continue;
        end;
        Application.ProcessMessages;
      finally
        Fs.Free;
      end;
    except
      DeleteFile(FileName);
    end;
  end;
end;
И в TMS примере WebImage не грузит картинку как результат роботы


Последний раз редактировалось beegl; 28.02.2020 в 12:37. Причина: add IMG
beegl вне форума Ответить с цитированием
Старый 30.03.2020, 17:17   #2
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
По умолчанию

загрузил: (скачать)


Последний раз редактировалось beegl; 30.03.2020 в 17:19. Причина: add IMG
beegl вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загрузка изображения в TImage. rustorkan Общие вопросы Delphi 12 01.07.2018 14:36
Сжатие изображения в TImage dwp_prof Мультимедиа в Delphi 2 21.04.2012 22:16
Загрузка PNG из dll в TImage bombers Помощь студентам 1 27.01.2011 01:59
Загрузка GIF изображения в TImage из TMemoryStream Crystallon Общие вопросы Delphi 0 28.12.2010 12:16
Загрузка изображения для создаваемого TImage LynxRufus Общие вопросы Delphi 3 20.01.2010 08:07