|
Платные хостинги
Раскрутка сайта
Книги по программированию
Как преобразовать GIf в BMP, простым способом?, GIFtoBMP
- Надо программно это сделать!!!
- В RxLib есть поддержка GIF - посмотреть как они это реализовали...
- Спасибо, реализовал!!!
- А теперь расскажи как?
- Код procedure TForm1.Button2Click(Sender: TObject);beginif opendialog1.Execute then begin ListBox1.Items:=opendialog1.Files; Edit2.Text:=inttostr(ListBox1.Items.Count); end;end;procedure TForm1.Button1Click(Sender: TObject);vari,a: integer;bm: TBItmap;begina:=0;bm:=TBItmap.Create;image1.Picture.LoadFromFile(listbox1.Items[0]);bm.Height:= image1.Height;bm.Width:= listbox1.Items.Count*image1.Picture.width;for i:=0 to listbox1.Items.Count-1 dobeginimage1.Picture.LoadFromFile(listbox1.Items[i]);bm.Canvas.Draw(a,0,image1.Picture.Graphic);a:=a+image1.Picture.Height;end;//form1.Canvas.Draw(0,0,bm);bm.SaveToFile(Edit1.Text+'.bmp');bm.free;end;highlightSyntax('delphiJmOTY1','delphi');Этот код, делает следующее, загружаем в листбох список Gif файлов, затем это все дело обьединяетсяв один BMP файл,картинка к картинке, кто знает DirectX поймет для чего это надо (спрайты);Сделал еще код, чтобы по файловов из GIF (анимированных) вытаскивало каждую картинку в отдельности, или записывалов отдельный BMP по очереди, кому надо, скину!!!
- Бросай сюда, я помещу в FAQ
- Код procedure TForm1.Button4Click(Sender: TObject);vari,a: integer;bm: TBItmap;begina:=0;bm:=TBItmap.Create;bm.Height:= RxGIFAnimator1.Height;bm.Width:= RxGIFAnimator1.Image.Count*RxGIFAnimator1.width;for i:=0 to RxGIFAnimator1.Image.Count-1 dobeginRxGIFAnimator1.FrameIndex:=i;bm.Canvas.Draw(a,0,RxGIFAnimator1.Image.Frames[i].Bitmap);a:=a+RxGIFAnimator1.Height;end;//form1.Canvas.Draw(0,0,bm);bm.SaveToFile(Edit1.Text+'.bmp');bm.free;end;highlightSyntax('delphi2Y1ZWI','delphi');из файловов GIF (анимированных) вытаскивает каждую картинку в отдельности, или записывает в отдельный BMP по очередиДля этих программок нужен всеми любимый RX Lib !!!Vit, только эти способы которые я сам сделал, в RX Lib не заглядывал, может кто что лучьше предложит
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
