Загрузка GIF из DLL

@_Leon · Регистрация: 26.12.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток.

Вообщем я упаковал GIF картинки в библиотеку 'Gif.dll', и после этого всеми усилиями пытался ее оттуда достать.
После этого следовало множество безуспешных повторов.

Если кому не сложно, может кто объяснить или лучше всего показать код, буду очень благодарен.

@wendstor · 24.12.2015, 16:44

Delphi

1 2	uses .... , Vcl.Imaging.GIFImg;

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  dll: HMODULE;
  rs: TResourceStream;
  Gif: TGifImage;
begin
  // загружаем dll
  dll := LoadLibrary('gifdll.dll');
  if dll <> 0 then begin
    // создаём TGifImage
    Gif:= TGifImage.Create;
    // загружаем ресурс по идентификатору
    rs:= TResourceStream.CreateFromID(dll, 1, RT_RCDATA);
    // перемещаемся на начало файла.
    rs.Position := 0;
    // загружаем картинку
    Gif.LoadFromStream(rs);
    // связываем наш Image1 с Gif
    Image1.Picture.Assign(Gif);
    // освобождаем Gif & rs
    Gif.Free;
    rs.Free;
    // и вот анимация
    (Image1.Picture.Graphic as TGIFImage).Animate := True;
  end;
end;

@_Leon 0 / 0 / 0 Регистрация: 26.12.2014 Сообщений: 45
		1
	Загрузка GIF из DLL 20.12.2015, 17:07. Показов 2032. Ответов 1 Метки нет (Все метки) Доброго времени суток. Вообщем я упаковал GIF картинки в библиотеку 'Gif.dll', и после этого всеми усилиями пытался ее оттуда достать. После этого следовало множество безуспешных повторов. Если кому не сложно, может кто объяснить или лучше всего показать код, буду очень благодарен. 0

	24.12.2015, 16:44

Загрузка GIF из DLL

Решение