| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в перемен. типа PGif загрузить из перемен. типа TStringStream

Vinum ©   (2007-12-07 22:11:00) 

Чтоб потом эта PGIF анимировалась
Помогите кто чем может :)

---

Дмитрий К   (2007-12-09 00:19:00) [1]

Сдаюсь :)

---

ANTPro   (2007-12-09 00:17:00) [2]

> [7] Дмитрий К ©   (08.12.07 23:56)
> JVCL не входит в «стандартную комплектацию».

KOL тоже :)


> [7] Дмитрий К ©   (08.12.07 23:56)
> Это риторический вопрос?

Это не вопрос :o)

---

Дмитрий К   (2007-12-08 23:56:00) [3]

> В JVCL много чего есть.

JVCL не входит в "стандартную комплектацию".
Правда в Delphi 2007 gif есть.


> Интересно что будет если PStream заменить на TStringStream :)

Это риторический вопрос?

---

ANTPro   (2007-12-08 23:40:00) [4]

> [5] Дмитрий К ©   (08.12.07 22:23)
> В вкл гифа нет.

В JVCL много чего есть.


> [5] Дмитрий К ©   (08.12.07 22:23)
> KolStream: PStream;

Интересно что будет если PStream заменить на TStringStream :)

---

Дмитрий К   (2007-12-08 22:23:00) [5]

В вкл гифа нет.
По сабжу:
unit Unit1;
...
implementation
{$R *.dfm}
uses KOL, KOLGif;

var
 GifShow: PGifShow;
 KolForm: PControl;
 KolStream: PStream;

procedure TForm1.Button1Click(Sender: TObject);
begin
 KolStream := NewMemoryStream;
 KolStream.Write(Pointer(StrStream.DataString)^, Length(StrStream.DataString));
 KolForm := NewForm(nil,'');
 KolForm.HasBorder := False;
 GifShow := NewGifShow(KolForm);
 KolStream.Position := 0;
 GifShow.LoadFromStream(KolStream);
 GifShow.ResizeParent;
 Windows.SetParent(KolForm.Handle, Self.Handle);
 KolForm.Show;
 KolStream.Free;
 (Sender as TButton).Enabled := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 KolForm.Free;
 Button1.Enabled := True;
end;

end.


---

Vinum   (2007-12-08 19:34:00) [6]

> ANTPro  (08.12.07 19:04)

Какой? Где? в D6 он есть?
сорри за такой тупой вопрос :)

---

ANTPro   (2007-12-08 19:04:00) [7]

> [2] Vinum   (08.12.07 18:32)

В VCL есть свой PGif

---

Vinum   (2007-12-08 18:32:00) [8]

В общем дело так: смысл программы, к-ю я пишу, в том, что из ZIP архива, в котором находятся GIF файлы, при помощи либы SciZipFile by Patrik Spanel я эти самые файлы хочу "извлекать" и при помощи KOLGIF анимировать. На сайте по KOL нашел пример с использованием KOLGIF, в SciZipFile тоже был пример, но там был пример с отображением из архива простых BMP. Я попытался сделать аналогичное, но когда в архиве были GIF файлы, и вот возникла заморочка, прилагаю кусок кода из примера SciZipFile:

var
 StrStream : TStringStream ;
 ABitmap   : TBitmap ;

...
{ Convert string to stream }
 StrStream := TStringStream.Create(ZipFileMem.Data[ListBox1.ItemIndex]) ;
.....
 { Assign bitmap }
 ABitmap := TBitmap.Create ;
 ABitmap.LoadFromStream (StrStream) ;


и все прекрасно работает :)
Вопрос тогда по-другому задам: как мне получив StrStream GIF файла прокрутить его при помощи KOLGIF

---

Dimaxx   (2007-12-08 16:04:00) [9]

Причем здесь StringStream и GIF??

---

Наверх