AnimGIFGadget (windows only)

[Nino]

Beeindruckend.
Vielen Dank!

[ts-soft]

Danke Dir

Update:
Redundanten Code entfernt und aufgeräumt (über 70 Zeilen weniger Code )
(Sah so unprofessionell aus)

Und noch ein ausserirdisches Beispiel:

Code: Alles auswählen

XIncludeFile "AnimGIFGadget.pbi"


If gdiplus_Init()
  OpenWindow(0, #PB_Ignore, #PB_Ignore, 160, 180, "Alien")
  SetWindowColor(0, #Black)
  AnimGIFGadgetMem(0, 15, 15, ?alien00007_gif_start, 10613, #Black)
 
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        HideWindow(0, #True)
        FreeAnimGIFGadget(0)
        gdiplus_End()
        Break
    EndSelect
  ForEver
EndIf

DataSection
  alien00007_gif_start:
    ; size : 10613 bytes
    Data.q $007E613938464947,$040504003FE50096,$453F443F906D8970,$A1470347AAC7AD3E,$516251232524A0A2
    Data.q $ECC68FA992DADADA,$BE372645280428C0,$6A6A6B898B8AB8CD,$544E5A5A5B9DBAA2,$D72718283436344D
    Data.q $B2BDB7471347665F,$9B89B4D7B6141614,$C0322A625F746286,$F2F2F26E766FBBDA,$3744746DF2544EB2
    Data.q $3678967A66026643,$6F6AE66212623528,$484B5A5AC63A3A76,$55C6F6CEA5AEA64B,$E6E6E63216342A28
    Data.q $0913FEFEFE94B696,$9E3505365C665E12,$788A7A9599964A4A,$EECE520252B4C9B6,$C6AEBEAECECECEC6
    Data.q $0BFF21000000C6BE,$455041435354454E,$0000000103302E32,$003F00320904F921,$96007E000000002C
    Data.q $48709FC0FF060000,$6CC972A4C88F1A2C,$16AA48D4A8D09F3A,$5E983DC4CCC00018,$E8CF4EA8518D70B5
    Data.q $C1A62E5C2BA754B4,$EE4C3D7A11BF3707,$3505260357F7EB86,$246889886A243A05,$0E187A393D0A7257
    Data.q $1818919197793939,$86355F340F11913E,$0D353A2445A6A58A,$18B2789A902C0F10,$2C3D91B3B4B4B5B2
    Data.q $68C2A787602B1F1B,$B3B1943D1B122F6C,$9B9797B5B3B8789B,$C3668617261F3792,$D3903823173A4ADC
    Data.q $B9E7E9B8E5D1D0CE,$F3DD640723383D95,$77189A7A3713AA44,$B34A00D2B7B7CFD0,$D146266B0B170D15
    Data.q $08CF4A86C566C61B,$154B1DCEF124DBEC,$801DCF2963C46023,$8E904385D2D1CCFE,$6200A1585C488A85
    Data.q $6ED6748DC717672E,$08FC7D70907DA593,$A2141407FFBE5D72,$0479490284C05344,$121CA652B125BC56
    Data.q $A654AA69176811F3,$83C312375392243D,$862106F93E874209,$715AA5566290750F,$2B8255F350AB266A
    Data.q $F86172E889C5AA35,$E420A925D89482F0,$9D4FAA5762EB48E9,$8FB753EE38A4B5CA,$0E3B604FC89E1533
    Data.q $06C4C3A23DFD822F,$B4710B9D4162E3A4,$BAA1CEA43495D3D3,$171E0EDD89586A35,$FE6EC20D050F6693
    Data.q $E56159B4468566D1,$95C6D771B59ABC4C,$4B3D3E74FC8E4EA9,$BE840143ECAB52AB,$3341C0F1A8907FBB
    Data.q $929ACE5E9F19A55C,$5E61CFA81DE84A6A,$8E371F93EE077A43,$B8392130A9F42E7A,$62D50FA2E6C0A151
    Data.q $E87A9F0255E36195,$E0C831EE0681E0E5,$4A0C82C1E03A1082,$6B61A7B2070781A8,$115D6311FF36C1B0
    Data.q $08C3A50DFE0AC370,$B7C2055497634C11,$3285E1385A0E85DA,$DEE8C20F846308CA,$0D395CDB072E2E7A
    Data.q $04C3A3759A890946,$B9301A0619060DA0,$338CA138DE377B21,$20B9665895E13956,$2E3F69E508EE157C
    Data.q $0E8C29140C04D1C5,$779D535C21F4B810,$0B9627296A1083A0,$C1A02E7707A7584C,$31A979E0E956719D
    Data.q $9941F259E245C929,$D8FD704E98209CDC,$75A4E789CE129C1E,$A769F298A502D9D6,$558C7365E8EA919C
    Data.q $6868A22666A1DEC4,$59CE187C25C8BD76,$0BACE959EE789EE7,$A57A6295AD6B6AD0,$E94F6221A9BE9184
    Data.q $33412014A5A201B7,$4A4E54A75CA6A11F,$D3B4ED19E2B5AE29,$27EAEAB3B52B9B4A,$D41F324F96A1CC84
    Data.q $86D9070D1A89CA50,$D2D5B425FFAAB216,$B66D6B42D8BBED2A,$632A198C253B3AD5,$030146A8942369DA
    Data.q $2CF9F5AD62537268,$C696C2B08BB299AE,$85E52AEAD6BCED4B,$A6643706939BE9C7,$EA78CFBB20230906
    Data.q $6B5BC30AB5E74949,$332BAE328B43270B,$BE21894E9BB62EDC,$C142A5B0C1E69DF3,$9183DAD8FD4E0DC0
    Data.q $2F3CAF0AA6EB7B3A,$B32D02F4ACA32DBB,$AFE5B85E9AD3EF0B,$C0D467B8834069F6,$B2966BC7B2E74DC1
    Data.q $74CCB34DD36F3C2E,$BB4BD2F650B767CA,$539E4AAF33BDB4FC,$578949C7050BF813,$6B07AB2AD2577BB0
    Data.q $F45CAB6DCAF4CDA3,$EA17C9ACFE0B48D9,$7602C24DE4866719,$979DB0038370D451,$88E130CD1F619DA3
    Data.q $7A4E9388D27A0E87,$5333CCEB9C9B4DCA,$0D163D602507895D,$3E7AD4B7FFC7E98D,$EA366E8F82DA6B7C
    Data.q $1C33A5E8366E0F86,$0E54E2E83752EAEB,$9AD5B31C1392708C,$FFBDF0BA2CC27D7A,$EF382F1386DABBFE
    Data.q $097B33A6B11B47DF,$8DE584CEC80A0391,$3A7F6BBEC3B067B1,$B7F6FC7C5E87F2DB,$69DE68DFB9E2F28D
    Data.q $09805096F3C0980E,$02ACD883D53E2784,$B3DA74CD21FD3687,$EF89FDC117C0F5DF,$00C00C3E50D20E4A
    Data.q $970C833C02A09026,$647C1041A540A6FA,$4E06BF78510A9E03,$D38A835082F56DD0,$5DA00509100C1303
    Data.q $78B0ADBFA71414A1,$2038982AF060742F,$E2AF1D5B0B7B2F76,$D0466EC094071733,$2849561A91240541
    Data.q $C297BCF11C4B805B,$175E045B7E903A15,$F4460E353DAB8825,$E81A035094034C91,$87B6F0DB1AB07A6B
    Data.q $63DF8BCFFF71C2C4,$88CE24C468EF1920,$02F092D5CD49C56F,$E1549BB855870D9E,$BE854E9E17473890
    Data.q $2E053C48210B5FA3,$80F08A4088040088,$C1204805E018071F,$852B45BEA0D3500A,$56B2E85B0BE45C8F
    Data.q $140453D3F57BCCBA,$F81C03E0041281B0,$C5B8578250FA0040,$03800A10E1B82B01,$17E46B445D49384A
    Data.q $CF859181ECC2C921,$700D811034F164A4,$5038020098030260,$65C0049300C40502,$06A11A0E80F90E0C
    Data.q $0A00300735C3D10F,$1A0940F81F0113B0,$7BE188F2B9B2C437,$20280D32E70F3DA5,$B276C337E6E4DB00
    Data.q $0441C01B00204416,$1F4CC05408950930,$5A8A859036254164,$103801C0C8190B34,$DDE4D17471641880
    Data.q $6DB48639D24A4509,$0200AA5607012804,$069B6BDCFF6D4068,$751326FC0F80AA3A,$5C0C81112AC0022B
    Data.q $F00204C0CD3FA7F4,$19539F9512B67BD2,$015470008049EF17,$0402505B3DA3BD45,$1C53A8901C008068
    Data.q $001C3BD3122801B0,$949C0E003A8358AA,$C60AD5496B4492A4,$4CDA2CAF009372A6,$A625A0D01C80B015
    Data.q $505800507EFA81E9,$90020528BD80AC60,$A7BC438232367CD4,$56B3EE2FCF3A5406,$2690F038B441280A
    Data.q $7C2598EA4500E631,$651BA800CE9FD81A,$A02E90D6788F5AAB,$01C4F55AE5858DAA,$00C072FB97695C02
    Data.q $33B3B670A7227806,$5ACF819B736E68C8,$2B1F3F2A3D840334,$1EC0110034CDC15C,$0E6B4E5A2B8922DB
    Data.q $090240865800C18D,$B7466B1DB7008778,$3D16B7D76EEE807B,$368A98C14B4A0100,$48F95D00FFE0318C
    Data.q $2E801E6FF535C35C,$03E0E97F01F01C69,$03DDDA33502EC8CA,$7F466EF5FEBFE050,$655388B3E2F6D84A
    Data.q $75A2313F90634A99,$1CB0700713E60CB1,$7E00603F9CD7D03D,$140BD6F28B5FA12B,$5040013C4604C158
    Data.q $DBCE00E9FDB9BBA0,$AAB00A6D333E4960,$6115D005571C1B54,$0542201C06C0401E,$0E54E6280C085280
    Data.q $80349B37FADCD630,$536009010C9407C0,$C2F919522C462AC0,$02EF33D78F351718,$5A0260113BAB0A0E
    Data.q $605800707F8FCF0D,$40E346ACFD400680,$F3883701E03C0F83,$BC180E76E4D07003,$2CCCDB4CCB004059
    Data.q $F31DAF1808008C9F,$8B5256B5C2C5B817,$E10A359AFA5C00C1,$012C8F7EEB097200,$A600C0060580DF37
    Data.q $3FC0789C09810CDF,$FC45DB85FF84403D,$CB1F018808034CA1,$7A755E58D93D67EB,$60F6CB17303C0200
    Data.q $519BF607CC6665CC,$0F81F006CDC04C0A,$0F06E0636103C078,$328C678A7C3C34E8,$1002AE2A5CACC5F8
    Data.q $AA2D91D5994EF300,$00E060D1C33972BD,$10DB9C3ACF629843,$D60241E09CCE004B,$38030259CCB3809D
    Data.q $D3D752EA3A83A800,$B688C6E0697D4E91,$8EC09A0BC7163418,$C506610B700F95F5,$B33702BCD7874B9C
    Data.q $EDD7C48186EB07C0,$F66E27057B240303,$C62E0A20DA3D556F,$43D29C5F521C26AA,$86054D7E8CD00D8B
    Data.q $F59E0262570D8000,$3C4F896EA1F1AFEF,$02602607C8383C01,$102E1EA303360379,$AECB50480DE80693
    Data.q $391ED35863C7294C,$C0020CC21C010085,$C08732B7FA484AE3,$00801003FF0E6BA5,$05AD3FCECAF73806
    Data.q $5A77CB827E769AED,$7A7C5D067F4CF787,$0C1594EAAF132842,$10700392675406A1,$804F0F00DAFC2F54
    Data.q $E7835B9CF60EBFC4,$A1C8F01158F666F2,$6D81A66721BD30BB,$E8110686A96CE57C,$2BE809F7704C54B6
    Data.q $78115A0AF5EECD06,$89C096C9E2BCDFC1,$61DA0096A05DFF13,$CDB6494B13B51C44,$D038045A92B3E4D2
    Data.q $3836B607A7C35A03,$EFA00CD514E0466F,$616ECDD5CD373803,$13EAFD5F18021B23,$1DE98C91D3CAF1AF
    Data.q $60467F32B8FBE3AF,$9F545D85012A5891,$45DF42FA00609331,$C3D2E2B409826C8D,$8C15E4DE2DB0B626
    Data.q $FF13FDC01CEC9DC0,$592533E474973D53,$103101A34C7DB634,$1001121768829774,$7E616E44C25B0110
    Data.q $FA01E1AAFF18C026,$02C02C7EF7C95FC5,$34D864B00F10709B,$9D01064901202B00,$6F76376CD6F24ED6
    Data.q $B6D23F127B5E93A4,$0A2573A92B280732,$04463E4002BE01C0,$C61E73021B0C9015,$7100600F0AD01270
    Data.q $01384A02B64B6C86,$96F067466F038695,$B542E6AC00751782,$00B4CE4758020012,$801E38D48B52D031
    Data.q $876163FF25B02555,$77D7EA7C557D0442,$94F1843012023026,$706958220237F56C,$73E69E81F8460066
    Data.q $D7D93DB4CA01C517,$958345293844614C,$21475053501E5F02,$50053EA01C1EC74F,$FC5177C701E46F02
    Data.q $62584C86E0230075,$003402B0237F7080,$2B01271616770F67,$32948E74B5177FC0,$552D67F7B17D7858
    Data.q $4F21600A5582B944,$1E546E8685B32062,$DD51A562FF00A1EE,$6BE7D37F786D0145,$702C03E6C26C10AD
    Data.q $2E00300061D01471,$4296546CF5583BF6,$55AE52A2F641176E,$3A0426631102FA21,$7EB57F6B421B5E20
    Data.q $35FE6025FD897000,$178CA00E6C20AE7A,$4A98AA5166F30267,$676E36C67D5044FF,$AD57703120F30B88
    Data.q $6900244505793FF2,$D5BC64551420C26E,$9C6E87C905E5BB5B,$0008CE8A77F40180,$87486377716D178C
    Data.q $BB3B84648332B53F,$00809590225101F7,$38BC8B503503F450,$3389651859E89521,$07C6987808765FE0
    Data.q $945D74B5625BD64F,$4E82F85D85B7687D,$7E480F5AE54E8B33,$100F9284C20150ED,$BE58075721720686
    Data.q $66F7EF82351A66A5,$30009158CD6F001F,$8F95D87E55448C01,$0340382554AD5507,$0A44D1EBFF233944
    Data.q $48826F02B0F56180,$684C64789659D668,$265636297FB64D82,$0044746A64DC3BE7,$C0344FE2795C6962
    Data.q $2B1EC2803143FD02,$20901102F03F3390,$E66A51597201523A,$3873D7F684A89F05,$7DF5584467AF5809
    Data.q $62D076F85D40E634,$6857400802C01A46,$04457B3E81CB3AD9,$59937A02161CC35A,$9D6508C28C05BD51
    Data.q $65783702D4740195,$46F5025011368442,$799A901101E3522D,$0492243CC1E84322,$C01E4231AB014024
    Data.q $9B5DB5FC9B69B577,$6837B33DA6D559D9,$B2573258D46FE414,$0E3902342779AA7B,$83E0350478DF0110
    Data.q $A0599D79713AC1E6,$A942E8549B576566,$7D69C48063494279,$B2553AB0C785C458,$E56144042E17BD21
    Data.q $A0E61E9F46399D41,$A97916A8FF3BF9BC,$3A95700254FE02D4,$877051E01F836688,$6E40443663C1AE2F
    Data.q $A29A0E84025286A9,$74A96818847DA019,$D62334AEA1858B36,$1AC2194182B16A34,$73213FF98E04D3E9
    Data.q $5C808A29A296449C,$4AD4F37718825568,$2299570001529352,$0504D4C11EA43333,$8E543D86A6B401F0
    Data.q $E03132D9DD9D7A42,$8E6B0A4954D3F57F,$50401B0380312783,$F88F01E7C5237258,$2322E0CA00602F04
    Data.q $9DD972A5B92D4FE4,$885885C9BD52A505,$FC00A0014FE3628F,$50F00A37131427C3,$72E87BF01400504F
    Data.q $2B516A7895A9D59C,$4FF30A85902536D6,$850955727A37E82B,$0703D1E823A4317B,$3B720501F4049270
    Data.q $88E7A93A9201B2B0,$EC5C9A31412A8334,$325A69591A9D4662,$8C5F5213FF353351,$3CC92A00C03A0499
    Data.q $BAAEA4100A252250,$6352936551D3C05F,$A9B6FE03D2332EEA,$D55C20A2F739C2D7,$3328074F8131639E
    Data.q $A985FBAC96802752,$20319FE2D3A4D00B,$B86364D429339D2B,$9D525B47F4662CF7,$54C62280050532C4
    Data.q $E2AC800127626F45,$7DDA4D367605059A,$6AED9C72D552E591,$D523B27234634763,$1B040504EABF0359
    Data.q $5AFF02B01A322422,$4D00BA3232B5C151,$09F2B527C6888B15,$C47F3FC3853809C4,$0100C088A8A02C25
    Data.q $A5F27639B1AC46F3,$BB1E4DE349034B19,$1B4FF8879C750301,$21223947F343AA00,$C0101DB0679499EC
    Data.q $B325521A16909402,$62BA5BAFE0130312,$E20E52D8069C3388,$5AB3F50903149852,$00D02C35F37030F4
    Data.q $8302B00CFF08BB46,$87C6D33D51AC4001,$9AEE639367A95A42,$5E0250386D485D49,$01198825694176BB
    Data.q $1A0B33EAF70C3082,$1A6F103453329947,$8584DC8ACB545817,$F3F66AB38D50BB3A,$89B656B7214A6B36
    Data.q $2501C363B0150050,$E4B758B3C0307214,$1C01C013789994B6,$B5F50527086132D7,$43CE1EE468A37A4A
    Data.q $6B1E51A400F4520F,$8072D003B387424B,$D7DC91B361AE9BBE,$2C01E9CC3706B047,$03400C0241282FD0
    Data.q $F2782963EF2FB093,$2248B586BBCBBC58,$214AEC3103A08567,$C0C2B98007031212,$49B0820D44D0E108
    Data.q $6F64B044662D7485,$4AA6A8935F258ABA,$9E59602C01F0830F,$8AF78D93D39E342B,$D418A6A4DB00B4CB
    Data.q $421D994803137CA9,$3C9AC57C01ECAF70,$8865485AFF93D5C5,$21337CA4F5444D76,$6A84227128B1163E
    Data.q $307682B4B3C20A20,$8E701A32D8ABA478,$2BE239329E3C9570,$B7C0E815755BB516,$BE047D8AB4AA6062
    Data.q $D63E37C2F65948CF,$E392A02F02417FC2,$9C171E6D63C14A68,$45EA86359C85C747,$E89D0C08C3D23421
    Data.q $AE450447125C1E64,$70253884CC464BAE,$51AA51F0B08C295B,$21055B1DDC4004AC,$F5AB6FB60E57F2D7
    Data.q $1A34039C00394F48,$63B017C64C635390,$40144EC2B120F8BC,$253DE3875AB47203,$3E8B7C746000A770
    Data.q $3033024C63C3E00C,$A887E01A27D9F001,$A5E71D883ACF0136,$5402B0EB8400761D,$681CB5F8BCC04DC7
    Data.q $94051D008558504C,$C516C84001634588,$9E9AF8896B441895,$C4492B98F452048C,$1C0144DCFF54EB23
    Data.q $0085293F43C2BC05,$A01425BA9DC15AAD,$71C1F72E57CCB3C8,$5FC69ECBA98032AC,$D00300852B51C52B
    Data.q $F3337480C86516AA,$C68C1E98E054CC9B,$20084B685D4653AA,$DD401B4380EA29B5,$45579E035045CDEC
    Data.q $9A9391DB214FC432,$80CEEB2C861C6001,$9A5BFB8607C5CE01,$CAF3C70A788BE00B,$2E5F8A54CFCA081A
    Data.q $0315AA308CF30945,$ABB3212A05001A93,$BABE7110A8C04CD0,$C15580CD800B85BB,$C04ED1801703D25D
    Data.q $202B58B2B6C5F31D,$20A218AD8033562D,$B03A043D26CED038,$785906083B8CF28B,$D35D34010BC7C9AA
    Data.q $4471B9EB4C0261DA,$231EB2DCD05001CF,$0F94C503504BD42A,$3A788ACC3320B815,$69D19D4E96BABC6B
    Data.q $3BF4A73B925C1A62,$0D00D015FF9B5008,$5F1371AE90599920,$D1D0813024D4ED41,$21972D634AD29D23
    Data.q $02A0220280220220,$8D5BC1AA52B29519,$4FB5FA905F333C92,$D7AD7901600D5629,$9212A56016028028
    Data.q $725F8D19D813931A,$8E7D872EC7B99D41,$802A05902E00201D,$33A69D7BD8DD8DD7,$4A2044D94CB25334
    Data.q $6D8734523792B6DE,$A3D8BD9ED78D7A03,$35E20B80E02ED79D,$A1D00F8484DAAC74,$77515D4930C48977
    Data.q $DB7DA2036DB4D79D,$000D1C68DC014016,$13C1E755A55D94D8,$DCCD77000D042B63,$6022D8CDA301602F
    Data.q $BE57A1E76B48B503,$2B74C8D45D70180D,$5D7ADCB02E000D12,$AA334013D8CDDFDB,$18EC41DAAD6D0121
    Data.q $B05985C65DCF3DC2,$7ADF0002002DB7DD,$01903DA51863029D,$5835C46DFFDAADD2,$D8C0330072D3259A
    Data.q $1038021DB7DB6DDF,$36DE8DE7D5A20637,$D033242301A950C1,$1D78DC8E17E02033,$1FDBDA7496801302
    Data.q $94DB69512035049E,$8E1602F0014C9B9F,$50E2E012016DB3E1,$DD404AE3131A9EB1,$9025BBAE24CA2221
    Data.q $9EE2CD79E4DDA2D8,$19E0DEE44A6F1C92,$558B3704324C788D,$2902AE5ED8E00201,$8111EB2535AD02E0
    Data.q $512339861AE1FE0D,$0301B278489D467C,$51E4D95FD0150150,$0CB4E54E309ADA05,$1142425194DDADD7
    Data.q $96C3183FFC042F63,$B22C011BB6E32E7A,$DE9CBA6B2AF236A0,$E55E87D170947E4B,$14A5E4816EB4CE34
    Data.q $A9576969C72251AF,$B9D5D7268045E95D,$22F73FE3ACC17AFA,$2D01704EEA2C8890,$42339A1E4112B691
    Data.q $940FB1ACC8CEB2EA,$00D03A04DEAEDD10,$A9AD1F4D5E2C9512,$F90341C6E6C2083C,$1D016E81C19DEBDD
    Data.q $36DD24F25FC541A3,$4AEBF050EBDECA17,$1CB2AADD51552A2B,$8E670339D51A3615,$A5ED051201457CED
    Data.q $15E1A62031902E71,$F709015163EE6E43,$3D20635D1A6EEB21,$1DB04FEF2AF50140,$316F19226C094559
    Data.q $FE06500D01B0395F,$1A453602F1DB053E,$A02B01BBCF1A5261,$820151DB052F0B1B,$EFC28635E4549691
    Data.q $B02608CC64F17CC8,$239651C111D0E202,$063180F22EE50C00,$306002F0156277ED,$3AF39F38F2EF2D0A
    Data.q $04F921000041EE6F,$00022C003F003209,$06000092007B0001,$8F1A2C48709FC0FF,$8000302CC49124C8
    Data.q $1AD86A56AA60E999,$78B0E0BF7A54C0A3,$F0698B970AE9D46C,$3397AF4C396FB5C1,$15A854C0D5F871B8
    Data.q $2463848382642474,$188D39110601034E,$187174727273390E,$2F26340F11713E39,$3A2464A3A2858035
    Data.q $9496722C25100D35,$71B4AF3D93B17392,$A4819F2B1F1B2C3D,$3D0F122F6642C0BF,$B4B1B0CB18B5B490
    Data.q $261F0671CB93CDCF,$173A62DBC15D8017,$B2CEB3CFD2953823,$23383D8DE7E6E3D0,$3713A749F2DC5B07
    Data.q $B3E4EA0472949197,$86EB873B356ACEFA,$87015B7A12F35035,$28901030FC389CD9,$88E5F8FC898F4E91
    Data.q $C8E8CA73391A2970,$2E2460C24747C1C1,$158BB262F22030AC,$489C523128C4595B,$47030CC8B4BA2116
    Data.q $F080A03D1AB268FF,$58032C142602A8A4,$AB4DF09756CDA691,$4E65554B01230399,$8A13079C63F407CC
    Data.q $00070B020DE31D1A,$B7D552B5B91444E9,$A46E68E46DC2AF12,$42A1FA8ABDC74DB6,$30F8B042525FB1A8
    Data.q $E7C4D6E5747634E7,$7CDEE96FADA36E48,$7C7A958FBF274B7A,$1E261D12300BE060,$8CC44DAD4B76852C
    Data.q $C8EAB59AA0D64B25,$2DA712E9BC46E591,$C0AC2CF5881A0A0C,$974C4251F7A5160A,$C4806B9039E3EB31
    Data.q $9EBF9290E7F341DA,$D05897DB24F2159C,$1E35120FF7926178,$C8D7716EB1D99A58,$E7737DA0E1CFA921
    Data.q $6BBD9ECF87C7D9CE,$FD892CAFE76497C9,$B706D486F0050A8D,$9ED7A5725CCC944C,$781A839CB8341A7A
    Data.q $72E1484A12836110,$A25557715CA7D216,$8042B0DCB64BD1FF,$287CE4044230E963,$167260D235E85D1B
    Data.q $A32846340780E07A,$F2138CE378E63384,$635C5721D17C20D8,$A3C99D88DF545157,$C7751526D55104C3
    Data.q $63494DF0846157A9,$4E3396A5A9665785,$4D1AA625F67B60F9,$00E8F3670120F48C,$F09458F469392381
    Data.q $C1E9D65B9623784D,$66780680B9E67702,$7E1CC8BE728CA549,$736E68668F85A936,$368FE0C74D4C60C2
    Data.q $00B9EA949F6598DA,$EE34A66579EA989E,$7DDD282E918E6349,$3924350700E5A992,$31241A969939A2CA
    Data.q $E979DE7CA6A74976,$EEB7AEEB8A62B6A5,$A0E0E83E57AFE79A,$3A241B0388D61975,$6163DB333012014A
    Data.q $AB7AE6BA9D2388FE,$F6D9AEABEA5ABCA6,$649F17DA1173A5B9,$5898A40D41F7B245,$8D5CEA0D7264E6FF
    Data.q $9AF6D6BCE99A7693,$57BD2D5BCEBDB6AB,$C8DA1DAE7D5CDBBE,$D15800C052122408,$B5A9BAC43972D902
    Data.q $C0B41EBE6F4BE6F5,$9E84677B72DCB6EB,$80A6C2E37D612B06,$52CE08C2418AAA09,$A76B6AD692B81D25
    Data.q $2CD00BC5ADCA52F7,$2FBD736CD336C5B1,$9E5726FF8FAF0B7B,$1070030626EC0F07,$B5F3DC3E7F7262E7
    Data.q $5CE297CDABBCE6BC,$1EA735AD4352BE75,$0340683D7DEFFA03,$1D8E3E41C0D464BA,$D5311C4B2E961EDB
    Data.q $2CEB56D642DD4ABD,$E08575C9F2B6DDF1,$F271830504DAA746,$E750A6EF073C9581,$D5F37DDB8CCD774A
    Data.q $DCC696D6735E3390,$11039C597E5D8DA9,$D6E038370D462770,$538EDDF17E227273,$DC3ADADF8EE4BA9D
    Data.q $DC870C8E33ED6F92,$90C340E861D170FF,$EDC74FBEE58BBC74,$C8EB359EC756D5FA,$31EAFAF6EC376D57
    Data.q $9C4A77423645D295,$DDF6D8625101188C,$FEABE0F0F91F1B8D,$78E575AF17C8EB7D,$B640280ED0A608FA
    Data.q $D7A69CDEC90FA012,$F13DDDD791DCFE2B,$D8D3F9F7FCBFEFC9,$0267B1BF1C941EA4,$861E602601423BD4
    Data.q $B9005F32F86A6B51,$AB71762F09EF4127,$87F96232D570F720,$18E0E00541204901,$EADEF37265ECC170
    Data.q $E57F4F25FBB387BA,$D50A33E79D069F33,$50890241303D2E87,$988AD438E69DDD80,$7C0F91D83FD82EFF
    Data.q $3C27B836D620A3A8,$02094071744C28D9,$FC512A20541D0437,$0F1609C43890C693,$C627890B23033A86
    Data.q $8751725365CA6223,$060680D42380D11A,$2DC9BE16640390C4,$31131E3C007CB1FF,$0A377131F20B47B8
    Data.q $C0BC1FC540685D1A,$2BA661098AB95B00,$18DFE4647C717DE6,$DD8F118E4ABFA6EB,$700F80400802D5FA
    Data.q $F015228018330100,$92A9910560902282,$8FF0BDFDC325AE8D,$0C47A8991F64745C,$3204C0E00A01484A
    Data.q $588F7772F8280190,$63E04803800B0241,$493717121E531991,$10E4BCD092CFF215,$BE9780200080466D
    Data.q $8007AC70293666CC,$302927C7C3480870,$40F81C01000E7200,$78F2CE22C446F400,$023767C91F224BCC
    Data.q $1136A7CCDA028070,$642217C054163616,$32F26CCFA0360E44,$C5D62A0C40081C03,$23E68CCD9A7345E5
    Data.q $18A0A00C0081A95D,$09C001A43A050285,$99F34665E8B760E1,$E2347B8953AC0981,$026011B847D8EB1D
    Data.q $00F98E01E91D23FF,$4629881C12131112,$3E99B44649089033,$EA5D8316714FE895,$502ED9152819A334
    Data.q $400814A3151E7C09,$71F2C1F138F8013B,$D3CDCA4753C12B77,$8F48848B2810201C,$054303801E8C033A
    Data.q $356E98512AD2FFEA,$866006068C5007A3,$596B2D18AC65BC11,$52A0D59683833979,$56A9CF1AAD3C60DD
    Data.q $20354EEB7D4E008D,$6BC08E024090B095,$B2965803819A0F41,$C8465A840128357F,$156528BB388ED509
    Data.q $281F18E7440A4FAB,$F2F29259211B4DC0,$597B66052D801400,$6EA58D588ED6026C,$07B696CE97B358FD
    Data.q $6C07192A35692DB0,$D97D6B66301F0186,$EE88130076CECAD7,$9F35F403DB10F404,$14D138FD43DE1803
    Data.q $380400402B006012,$1851BAC1EC098100,$3017BED5A0022EFF,$3B9D5E40395598A0,$2FC01F0200400982
    Data.q $8B9762DADE602404,$0A01B6752BEB5CF2,$0C0DC0303701E0D0,$9B67A8F72C29DE52,$80E49101505E038C
    Data.q $8340576C2BDCFA06,$7E407E0BC1003C0F,$080A16666C4E5025,$D5FEE2A95F682ED0,$C05803C08014070C
    Data.q $40782C0300F81F02,$03F56F1381902979,$7D53932414C391F7,$580DF0F0120D72F2,$15FDC7582B1C0060
    Data.q $B67AAA03100F366E,$0F70218C19C47FC5,$0B01E009CBE0C01E,$3AC7D7040181006E,$E45B6142E45B80CD
    Data.q $DC3C04EE764603E0,$C0C6360780F01F64,$03383C7782BC740D,$00BFE9E0E2E16655,$419781603802401C
    Data.q $7818079A30100300,$90DEA460FB620480,$DAD1D845C038152E,$0241F0F718A0AF23,$03F98C1F6A3D46FF
    Data.q $3D370D039FEE0E24,$1F8C40C81A6AF80A,$4820D1C0CB476A20,$F7A75566500C0F80,$DF0BAC874FB834A8
    Data.q $8D72E003B61A74AA,$5000DA941865FD47,$3EB5E8097D9A029E,$900E00008BDD75F2,$35BEE0065A2C036C
    Data.q $C7B8380981FCC408,$38C0603936B69CBD,$B7732B7174B937C8,$4EA203197009014D,$804C83662D47B340
    Data.q $47CC5955B2AD48D2,$0DC0F82300E14005,$39013A3B86EB7CBC,$E28CEBEB2D75749E,$E0020CC0998E3A40
    Data.q $ED8524020068AB80,$CBFA3B2FE5EC979C,$75050CFC04F32690,$F00B5FFCCC92E067,$0820D1A0FB6ED959
    Data.q $B74C15DE6E23A3F7,$AA4118143755969C,$0E163F1C06A0AC1C,$8DDF5C92FB026E42,$574A6E5C140F3306
    Data.q $4010F1B6C52BC51A,$0EB8E73AD759EDFF,$788EFC034BEE1DB3,$004DDAC227D70005,$6B818A410260D413
    Data.q $60E4B8D71902B029,$F2CAEAAC778E75D6,$26AF772568259F55,$35100603FD376A77,$C658EB3D009D19CE
    Data.q $C063DED004327E0B,$8A898038EC7A207B,$0E49E6A14396D17B,$7E4FC76BAD480F35,$019C7DAAB89DB104
    Data.q $E7F2282DC5944DBD,$D0CF1A93D1F76E11,$7305637DF18CF0F6,$96C2986925C10560,$66D4A3120C9C179F
    Data.q $CEFBE3046F6B615F,$D47680258EB5DE78,$533678AFA8007783,$ED78062D56EEC17C,$58E71BE75C65392B
    Data.q $E93FA5A933B674C7,$5D2C63B5007367CA,$A0A0D7C951D5DF8C,$971164C1978D3C87,$0107650125E00077
    Data.q $F00A5AD740008034,$990194DA75C6037A,$5F961F6086327756,$9166175065D5F8FF,$4040384D97F74F76
    Data.q $E3A300C03F5ED16F,$9F02659572D6F200,$02B5F762160B8116,$B0387BA64901382E,$CC4016DB6526665F
    Data.q $6F60125B36716B14,$C02C7888305FC5FB,$276666BC78D6CE6C,$01E2451EC7975716,$A2C70C703503F19B
    Data.q $1002301472170601,$69F07A7D48146328,$E03377C6D064C674,$9355A62E4AE56863,$86D02307A7D88275
    Data.q $403E7287501A2775,$EC3B664065202B66,$71D01B0052E80101,$85AF5CC79D01E405,$575D483083D5F570
    Data.q $6A663500603861C8,$74290314F972C861,$145955CD69500B65,$8186FA6CB86F7147,$F0110334D90EF692
    Data.q $2B43D03F57474522,$0265967218551CB3,$67E47220537D95B3,$135AD79477B63663,$5CD8976696045BB0
    Data.q $557BD7EA6CA828FF,$0186ED2380135787,$285300703A03F4A5,$C189989880D5891D,$6786367767745965
    Data.q $18920508360268B6,$CB4F957988135754,$1066340AC7A10237,$C00A0335990EF012,$2436403D1721C730
    Data.q $5F35042122FF69A0,$B7CE6486E88636E8,$FA7C10130346D014,$7CA7572B78937DC4,$F5F88E4595563000
    Data.q $030509027D462261,$04348407445137C0,$38E03BE1CC00A035,$495CE79F9096D46F,$8358E864C88C00F6
    Data.q $48AB38C4F40116EA,$7E85C83D7747CB5A,$3B623501B0195996,$11E91E119D01903D,$295AF6685057B221
    Data.q $4BE8DB07B7FE8128,$892E93F2976D65D9,$198765D586D02689,$02B0C24DF4A31D12,$D5F456F6182171EB
    Data.q $185D77D95FB5F783,$5C381B2974130045,$164DB77F77E921FF,$02F2AA02B1EA2422,$48BC9673B41F4011
    Data.q $236E776882E5F505,$8A196883A5417815,$837C6544DA86379F,$EC9183EF3ED0041C,$90700A21130D4056
    Data.q $87DA0550148985AE,$4798178500B55554,$2231EC1EB9870255,$E3BE1F7026024046,$475A389758A74B01
    Data.q $99C92D3354300015,$D1EC2712C199E519,$1E21728385104839,$7425226E858A95B0,$25319B200152B985
    Data.q $A901A37E43627D01,$23C1EE84B4C40485,$D4756699C680C01E,$352917DB9D591D02,$45543B76D1AC4052
    Data.q $A82501E9A73D1958,$819923DF59B5939D,$01E1559D129C51B9,$43D93A297204A3EE,$0A4F99E897601E21
    Data.q $2798C55C39EC3FD0,$504A4C21F2290213,$0D2F043723201F00,$3589AE4DA9FB8CF2,$5501456F9FF011FF
    Data.q $2A801E24127F2BF6,$21F315591A02F05F,$81050A0FA0E03127,$37A0089FB8683C55,$F4FF9F21AC23D427
    Data.q $6C1D11AE5A600505,$432948A258F701E3,$82D59FD0079E89C5,$CE48500703D2EE25,$01B2591F61AD01F9
    Data.q $B9D5A3D3DE5C3A14,$A923321025A2F6A2,$5EC00A4220483255,$79DA9FA0313A51F6,$DB6D599C9BE44800
    Data.q $01B23320B29E2122,$28F52E40260DD8C9,$C8025A0F9D400429,$A2C01B0075A494C3,$A02501E23D9B52D7
    Data.q $F88520230050622C,$A2401F27748B1CB0,$755BA783925819C6,$A83B442749901156,$5C55020133062A99
    Data.q $2A0F02B004257A03,$54A7A5479D937555,$A584FE21121927E5,$01F53D887E4A8347,$349B2A740312982F
    Data.q $01B01C566A903580,$CB2B12954B6681FF,$01C1E00A317E03D1,$52973BF8EE18D167,$503FA00358AA6054
    Data.q $3CD50C0015D053BA,$F43A02C2183873C0,$5966E02B00C0240B,$5FFA4D6862BD9E54,$301C5956D4AD1390
    Data.q $0F39849A3B19D7A9,$130A840C1ADB0112,$45152F331DA5D26F,$313C3ACF56F84803,$00161D01C01C0340
    Data.q $43CF32F31945EAEC,$150050A49E1AF221,$36F3BF20F19387D0,$C9114EA02501A297,$20AED6AC5266AA5C
    Data.q $23337C31B2F738EB,$91E202F10A3D3039,$312BB83830F20C36,$50D4EC964B32B310,$C231A5436E703477
    Data.q $8F034ADD14630402,$7033C12924401130,$77DE50D62E03B316,$9A00A21827E34F3C,$2FE1AA0E00871807
    Data.q $74AEB374913A7235,$3933F44E3786AE44,$0A71DE20000A00B0,$4B49AB14A9B01FFF,$4B0B5D59EB084CC4
    Data.q $3B0E4A430D27229B,$B59F830084CA8416,$62B92BB6C3C64902,$328127C2FB20D316,$1F226180AAC4A423
    Data.q $6832B62F2B56989A,$B4F7B0078241252C,$DE39E0312D2B44B7,$2151AE168B110651,$8B463C24985862FB
    Data.q $18A1700800702541,$9A3B9BB9AB621CBA,$85589F82B01D1A1E,$1B2BDBB76027AF3F,$3ED9BCB829915D90
    Data.q $8936035A59BAFA31,$59A8E2BAB57BB33D,$AEC4E8297B206567,$500E2EF259004025,$D2241B2A3D5BC2A4
    Data.q $B084CF4F800B2F29,$07DC4F602D62E494,$5EBD71610393A535,$278B84A4AB121290,$2866B160080144E5
    Data.q $0335CA40A5F37158,$024047BEAA823EDA,$82C1440989013033,$7D5B8BD180601A56,$BE502501135753FB
    Data.q $0823327229EB17FF,$1CEBB25C8181BFE4,$C7024E4001BE3474,$4DABDBE43165545B,$C1695600A1EC37B4
    Data.q $DBC83D916745604A,$299FD0134D60252B,$001008AB401ABE14,$5014232B0B314C34,$8A01EA08045C2AB7
    Data.q $01C0113AE2FA2134,$D44D8ED4B8C3A4E7,$1C0134B9C3103120,$30D2F033D3B001A0,$00269A3C41A4601B
    Data.q $0151544A2561D21C,$025C395D581A5090,$22D320E31D557B82,$BE2EE76F05FC5D9A,$68427C2B7B6C319B
    Data.q $10041EE2BF2D8316,$2F0716153D5C71BC,$44CB36B6D331218A,$9C8198B84E2E1A03,$CBB6A2B087EA0804
    Data.q $79746831442BC6C4,$3043C8FB880231CE,$2A3F8442C6E1ABA3,$2902352B8AEEBB96,$51E1060C9E017004
    Data.q $95730AD5388C1A5C,$00103C9872C047CC,$C83BA044CADC5CFF,$C4EBCE5B9A682717,$0AFAABEBA9C37C78
    Data.q $263D5CBC9CD30D28,$4BA41329398FAE00,$4008008BF2008806,$39A8825E3DC8DDC5,$81D035049CCDAF30
    Data.q $3BB6B904C93BEA87,$E1C281C9239B7155,$C754A926B00505EC,$D27FAD68944EE4C9,$261DFCEFCBB84E1C
    Data.q $603B3548B71E0F80,$01ED2E131BB0AC89,$3C1C6A5B3F0CFD97,$2D3A53CF74B5CF52,$B5C9C90D0B9B8405
    Data.q $86CA5333397C931F,$C8E0011C98C6B715,$1D011574A804BD17,$54A7D3144CEB5A28,$487048D2551E2512
    Data.q $8905BCBCD22A3153,$9D00D0399D0C12CA,$A6836B1B1A08D17C,$929A3704ADB35CC1,$6F421D328F11F046
    Data.q $52B4ACB711AB0ADA,$C0121571CE25EB70,$5A9DE1E6A1ED32CF,$A0AA02B17CB66012,$6FD25D3F9391ECFF
    Data.q $4B3C87B154251384,$ED4DCEE1F3217B17,$C1B573A416A0D3D4,$824437A5447BC25C,$30E21C0850D73C40
    Data.q $84D032F9BDCBA085,$D80C8039C2E3CEBB,$F34022C0FBC91046,$1F404A0CB5E2F8B5,$204026455D8ED247
    Data.q $AA67D52C621921FB,$C60049891F539827,$17130AC18049D9B7,$8B7BA68C999D220C,$F4DAAD5934B23FAA
    Data.q $DB3B8D4054A9D4F0,$90371C833F3973B3,$370F9CE3046DB8C2,$D4425648108D71E1,$809084C20E23144D
    Data.q $8613F00D19FDC5B2,$93728132D9BCAE12,$0A07DD536308D8EE,$AA2FF18E11A16801,$DE2BFC798C3D2314
    Data.q $11B01B7A5B01705E,$9037ECDEA9DDB07F,$11DDD7C2BDEED3E0,$030D1EE261209369,$2BDFB91719230032
    Data.q $2EE18FD2814FC5FC,$AC7F21F12A3DBCA2,$00D8CAE08D5A0081,$F1F7369A2014E167,$16BFDCB90392E41C
    Data.q $22B243C6001446EE,$82451A618E01A84C,$0F45605FE23DA903,$2E516F15918B1680,$9E30E22003915E1B
    Data.q $8C19197301000CA5,$00D50308F175E431,$7026035326E3D07F,$F524FD0018F168B6,$E3EE4AD7F74701B1
    Data.q $31CE2ECDA6183015,$21E57E5600CA8B07,$0731B60E174D0874,$707F02F023034038,$0D00C0A705EE62D6
    Data.q $E6E0A009F8AD6FF0
    Data.b $9B,$1B,$04,$00,$3B
  alien00007_gif_end:
EndDataSection

[Bisonte]

Aber wenn du in dem tempo weiter machst, kann das ding in 2 Monaten noch kaffee kochen und cd's brennen

[ts-soft]

Aber wenn du in dem tempo weiter machst, kann das ding in 2 Monaten noch kaffee kochen und cd's brennen

Meist plane ich meine Projekte ja, da gibt es auch nicht so viele Änderungen in so kurzer Zeit.
Hier hab ich einfach planlos angefangen, der Rest hat sich dann ergeben. Ich denke jetzt
sollte es fertig sein, es sei denn, es werden noch Bugs gefunden, bzw. Wünsche geäußert.

Gruß
Thomas

[rolaf]

Nun hab ichs auch mal getestet und für außerirdisch gut befunden.

[ts-soft]

Jetzt noch ein Beispiel für rolaf

Code: Alles auswählen

EnableExplicit

XIncludeFile "AnimGIFGadget.pbi"

Procedure.i ReceiveHTTPMemory(URL.s, BufferSize = 4096, Timeout = 5000)
  Protected Connection, Time, Time2, Event, Size = 1, Size2, SizeAll, pos
  Protected.s Server
  Protected *Mem, *Buffer, *Mem2
  
  If LCase(Left(URL, 7)) <> "http://" : URL = "http://" + URL : EndIf
  Server = GetURLPart(URL, #PB_URL_Site)
  If Not Server : ProcedureReturn #False : EndIf
  Connection = OpenNetworkConnection(Server, 80, #PB_Network_TCP)
  If Not Connection : ProcedureReturn #False : EndIf
  If BufferSize <= 0 : BufferSize = 4096 : EndIf
  *Buffer = AllocateMemory(BufferSize)
  If Not *Buffer : ProcedureReturn #False : EndIf

  SendNetworkString(Connection, "GET " + URL + " HTTP/1.0" + #LFCR$ + #LFCR$)
  Time = ElapsedMilliseconds()
  Repeat
    Event = NetworkClientEvent(Connection)
    If Event = #PB_NetworkEvent_Data
      Repeat
        Size = ReceiveNetworkData(Connection, *Buffer, BufferSize)
        If Size > 0
          Time = ElapsedMilliseconds()
          SizeAll + Size
          *Mem = ReAllocateMemory(*Mem, SizeAll)
          If *Mem
            CopyMemory(*Buffer, *Mem + (SizeAll - Size), Size)
          Else
            CloseNetworkConnection(Connection)
            FreeMemory(*Buffer)
            ProcedureReturn #False
          EndIf
        EndIf
      Until Size <= 0
    EndIf
    Time2 = ElapsedMilliseconds() - Time
  Until Time2 > Timeout Or Size <= 0
  CloseNetworkConnection(Connection)
  FreeMemory(*Buffer)
  If Time2 > Timeout
    If *Mem : FreeMemory(*Mem) : EndIf
    ProcedureReturn #False
  EndIf
  pos = FindString(PeekS(*mem, -1, #PB_UTF8), #CRLF$ + #CRLF$, 1) - 1
  pos = Len(#CRLF$ + #CRLF$) + pos
  Size2 = MemorySize(*Mem) - pos
  *Mem2 = AllocateMemory(Size2)
  If *Mem2
    CopyMemory(*Mem + pos, *Mem2, Size2)
    FreeMemory(*Mem)
    ProcedureReturn *Mem2
  EndIf
  FreeMemory(*Mem)
  ProcedureReturn #False
EndProcedure

InitNetwork()

Define *mem = ReceiveHTTPMemory("http://i.imgur.com/Van5g.gif")

If *mem
  If gdiplus_Init()
    OpenWindow(0, #PB_Ignore, #PB_Ignore, 614, 206, "Mario")
    AnimGIFGadgetMem(1, 0, 0, *mem, MemorySize(*mem))
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          HideWindow(0, #True)
          FreeAnimGIFGadget(1)
          Break
      EndSelect
    ForEver
    gdiplus_End()
  EndIf
  FreeMemory(*mem)
EndIf

Gruß
Thomas

[SoS]

Besteht die Möglichkeit sich ein ganz bestimmtes Frame aus der Animation anzeigen zu lassen ?
Dann könnte man das auf folgende Gif's anwenden.


Anwendungsbeispiel wäre eine Statusanzeige.

[ts-soft]

Dafür wäre dann "GdipImageSelectActiveFrame" zuständig. Anschließend Malen.

Bekommste das alleine hin? Sonst bastel ich Dir nachher mal was.

Gruß
Thomas

[SoS]

Dafür wäre dann "GdipImageSelectActiveFrame" zuständig. Anschließend Malen.

Ja das hab ich schon an Hand Deines Codes herausgefunden und bekomme das auch hin.
Es ist auch kein extra Thread mehr nötig da die Grafik dann mittels Event aktualisiert werden könnte.

[ts-soft]

Ich werde nachher, bzw. im Laufe der nächsten Woche mal eine GIF Klasse schreiben (Interface usw.).
Da kann man dann alle Attribute erfragen und sich das Image zurückgeben lassen. Das könnte dann
auch für andere nützlich sein.

Musst Du jetzt entscheiden, ob Du wartest, oder es Dir selber machst (sollten alle Infos dem Source zu entnehmen sein).

Gruß
Thomas