Làm thế nào để sử dụng Animated Gif ở dạng delphi

Question

Tôi nghĩ rằng không có hỗ trợ gốc để gif hình ảnh động.

Cách tốt nhất là gì? bất kỳ thành phần miễn phí nào cho phép điều đó? Tôi đã suy nghĩ trong việc sử dụng một TImage và một ImageList + Timer, nhưng tôi cần phải xuất khẩu mỗi khung của gif vào một tập tin bmp tách biệt.

Answer 1

được tìm kiếm Google cho 'Delphi Gif' đến với điều này

http://melander.dk/delphi/gifimage/

nay là một phần của Delphi

Answer 2

Nó khá đơn giản trong Delphi hiện đại. Tất cả được tích hợp sẵn. Hãy thả một số TImage vào biểu mẫu và tải GIF động vào thuộc tính Hình ảnh. Sau đó, khởi động hoạt hình bằng phương tiện của Animate tài sản:

(Image1.Picture.Graphic as TGIFImage).Animate := True; 

Bạn có thể kiểm soát hoạt hình với AnimateLoop và AnimateSpeed. Nó sẽ được khá dễ dàng để đoán làm thế nào để chuyển đổi các hình ảnh động tắt một lần nữa!

Bây giờ, vì bạn đang sử dụng Delphi 7, bạn không có tích hợp thành phần TGIFImage. Tuy nhiên, bạn có thể tải xuống mã từ trang web Finn Tolderlund's (bạn muốn có phiên bản mới nhất của TGIFImage). Với phiên bản này của thành phần, mã ở trên sẽ hoạt động tốt, mặc dù cá nhân tôi đã không sử dụng nó kể từ khi tôi chuyển từ D6 đến D2010 một vài năm trở lại.

Tất cả các mã TGIFImage thực sự chỉ là phiên bản của cùng một thành phần, ban đầu được viết bởi Anders Melander và, trong năm 2007, được tặng cho Embarcadero để đưa vào Delphi.

Answer 3

này chỉ đơn giản là tải một gif động và không làm cho một

procedure TForm1.FormCreate(Sender: TObject); 

begin 

    (Image1.Picture.Graphic as TGIFImage).Animate := True;// gets it goin' 

    (Image1.Picture.Graphic as TGIFImage).AnimationSpeed:= 500;// adjust your speed 

    Form1.DoubleBuffered := True;// stops flickering 

end; 

stackoverflow đã giúp tôi và vì vậy chút tôi lại :)