Как получить изображения от URL в Delphi

Я ищу любые примеры кода, которые показывают, как вытянуть изображения от URL в Delphi TImage компонент.

Спасибо,

16
задан Fabrizio 17 September 2019 в 10:06
поделиться

2 ответа

Я думаю, что удаление любого HTML-тега из входных данных даст вам что-то довольно безопасное, за исключением случаев, когда кто-то найдет способ ввести некоторые действительно испорченные данные в Markdown, заставив его генерировать еще более беспорядочные -up output ^^

Тем не менее, вот две вещи, которые мне приходят в голову:

Первая: strip_tags - это не чудо-функция: у нее есть некоторые недостатки ...

uses
  GIFImg;

procedure TForm1.btn1Click(Sender: TObject);
var
  MS : TMemoryStream;
  GIf: TGIFImage;
begin
  MS := TMemoryStream.Create;
  GIf := TGIFImage.Create;
  try
    IdHTTP1.get('http://www.google.com/intl/en_ALL/images/logo.gif',MS);
    Ms.Seek(0,soFromBeginning);       
    Gif.LoadFromStream(MS);
    img1.Picture.Assign(GIF);

  finally
    FreeAndNil(GIF);
    FreeAndNil(MS);
  end;
end;
33
ответ дан 30 November 2019 в 16:50
поделиться

Код также работает с JPEG.

3
ответ дан 30 November 2019 в 16:50
поделиться
Другие вопросы по тегам:

Похожие вопросы: