Bilder aus Speicherbereichen laden

[Jac de Lad]

Hallo Roland,

vielleicht schaffst du es ja noch kurz vor der Fertigstellung von XProfan 12 ein Feature einzubauen: Ich wünsche mir das Laden von Grafiken aus Speicherbereichen. Bisher geht das nur aus Dateien oder Resourcen.

Danke,
Jac

[Frabbing]

Schade, ich dachte, das sollte noch rein in die 12er Version? Ist eine Sachen, die ich schon oft selber hätte brauchen können... muß man immer die ProSpeed einbauen. Du hast den ProSpeed-Code doch noch von mir, Roland? Vielleicht quetscht du es schnell noch mit rein. Dann würden die Datengeneratoren auch noch mehr Sinn machen, wenn man auch andere Sachen als nur BMP im Speicher integrieren könnte.

[Andreas Miethe]

Zitat von Frabbing

muß man immer die ProSpeed einbauen.

Nö, muss man nicht

Hier ein JPG als Datenresource, geht auch mit PNG,GIF usw.

Declare mem#
Dim mem#,12320
Clear mem#

Long mem#,0=-520103681,1179258880,16795209,1610612993,24576,1124129791,117901824,168167176
Long mem#,32=185075720,235604490,219025432,354225677,588779798,572794143,639705631,640628523
Long mem#,64=556348457,826355746,1044068660,774192702,1011042628,1044199240,14417723,185205059
Long mem#,96=235736587,470814748,673327163,993737531,993737531,993737531,993737531,993737531
Long mem#,128=993737531,993737531,993737531,993737531,993737531,993737531,993737531,-1057014981
Long mem#,160=528640,60162243,33563137,285409553,12910337,33554460,16843011,1
Long mem#,196=100990976,117703424,-16252670,273023172,50397696,100860419,459524,2822,67305985
Long mem#,232=301994245,321979937,336023873,1902195234,-1853807851,866206230,-2106432942
Long mem#,260=605540785,-253640364,1666532389,-1567255949,-2895182,18481348,16974336,1
Long mem#,300=50462976,-16382716,288227524,16908800,67436548,328449
Long mem#,328=285344000,554828803,1091765553,841126225,347177298,1109651617,-2002335,51118298
Long mem#,360=285343745,1056968963,-659274496,-1444472914,-736962678,625365844,2003646312
Long mem#,388=-812261300,1679563015,1909659767,-2100020746,-307599306,588037861,-202129336
Long mem#,416=-1266614169,-375450630,-379424858,-1960102356,53431349,1347946197,785926374
Long mem#,444=-822956008,502972629,-70646453,541737291,-595871581,-1079320172,-472298987
Long mem#,472=280211810,-212760955,-1481897279,447812648,-734227499,-955234918,1770237206
Long mem#,500=-1211332099,-736684764,1866535018,-1347642354,-2128346902,1547620327,-1319113878
Long mem#,528=1692570200,1158504122,408303130,267573347,1028536049,-1915691250,-889883594
Long mem#,556=1397970927,373932589,576299574,105625159,-1538649402,1484567452,619137546
Long mem#,584=604489325,1377301834,-1288960689,-1390101167,-1773521074,840079850,2082885609
Long mem#,612=-1988147152,1698246810,1879265066,-43237675,-71811893,-1891816704,1559614677
Long mem#,640=339495883,1952790134,1172628832,-1241381440,1324271737,-1271017671,-136790218
Long mem#,668=1529726289,1143324112,-727071448,-1366145842,1353194616,110292952,1900146036
Long mem#,696=-1901591318,-270660599,-947411720,1642400122,-1152234237,921497112,-792296635
Long mem#,724=-1820225045,399829938,1975344010,-1136710379,398854725,734640065,-968402492
Long mem#,752=-128503720,453385096,481450764,-174397768,1930872595,246570955,1487841953
Long mem#,780=353177582,-1657173975,-2009373347,-914160903,-1938587129,181471502,-1298832817
Long mem#,808=-1096055088,1549160261,849365230,406328134,-806906843,-965444102,1012399471
Long mem#,836=1914393873,747681223,424691529,-1936938979,1761350860,1220242724,1614694094
Long mem#,864=-681857522,-262859435,1104478241,367954191,1216397593,-2106329015,389753316
Long mem#,892=-1837735912,1195273992,1343491050,-594772570,1112915492,-1324023401,1262318867
Long mem#,920=-985083264,-2136780168,424660481,1402412786,1806177659,2019134788,210942292
Long mem#,948=-1491727765,-1865572783,-1938168808,-68562845,1974841254,-1309775423,-1981502840
Long mem#,976=741182566,-1857190224,-52137805,2001871021,370836350,164908029,-638743255
Long mem#,1004=-781639376,824472941,-1943366827,-1564945650,-473723424,2045065415,2125212377
Long mem#,1032=881163612,-278977034,702538283,110639309,1661862185,1208100039,-936272371
Long mem#,1060=-705545785,-765304905,-162379321,-833311813,893144413,-406707448,-421274398
Long mem#,1088=-1551831752,-1268000114,509767260,-1835880543,-1297460111,-202094911,-1676564190
Long mem#,1116=-227029472,203901883,1759789126,-733930148,588779604,-1617385308,902403197
Long mem#,1144=933994670,-472821621,1182171292,470817794,1475926386,-1007775075,-2068803637
Long mem#,1172=-986002530,-1016098071,913917600,933862936,1892468640,665948017,798401257
Long mem#,1200=-617957532,2138434484,1923522677,511845022,32999329,-425785063,1943572771
Long mem#,1228=-684863087,-1577591605,-1975299255,-868207759,1854907944,1877358545,2020325219
Long mem#,1256=2131136593,594609077,1407055249,1974432980,1278373360,-1865878892,852277014
Long mem#,1284=-512928766,-1582965687,117927560,-2129146171,-633029207,1179724961,-609143029
Long mem#,1312=1107637605,-1239520419,601450674,-1809304170,708292324,-547233049,-408907993
Long mem#,1340=-1988269503,1269928284,1989256573,-1721165468,821197833,969392137,2048844789
Long mem#,1368=2113247848,1651872859,-148808439,1536692895,742473386,63326016,-1878474186
Long mem#,1396=-1911613178,1868531982,-1407460809,743559376,-1404122124,-1876566617,127241464
Long mem#,1424=25341330,843460746,617103740,1143868266,534340600,-320780703,604319064,-1247618186
Long mem#,1456=-730090662,-1870315275,-1411776496,-281429859,-2047590961,-1563498380,-1252219469
Long mem#,1484=-1705592426,-1542287476,744842000,-224644588,1021997838,1034923761,284076243
Long mem#,1512=1652211848,-1973919190,-1945638309,1242887838,1560631385,-1070455144,149994641
Long mem#,1540=793451715,-893455280,-1696499526,-1906964822,1436128682,-1617392461,-2147477241
Long mem#,1568=865901182,1190280654,-842030504,1926994522,-1167341129,-1830331563,-1801050871
Long mem#,1596=1694756294,-308339191,1951214991,801909399,1110918023,-1779131787,-1309367181
Long mem#,1624=1850938805,640980649,-1912006802,-482787216,-696923105,-1809927097,-1160271828
Long mem#,1652=-614631851,-835183029,-100547063,-555289749,-1648907917,-1538616493,-902589204
Long mem#,1680=-154038486,-575624210,-309683567,-665440181,-580308097,1975910888,1700085039
Long mem#,1708=356507881,-660762961,1729716837,-1651706769,-714576258,1021774470,97597710
Long mem#,1736=1521392295,1691994842,1333239078,-825451221,2083656014,-947192119,574445003
Long mem#,1764=-545067182,-915055126,-310234374,-1969130685,648383158,1157392514,-208309920
Long mem#,1792=-609141448,-1415642211,-422690246,1830475744,1862535671,1556612140,-607545913
Long mem#,1820=1737228700,1238970972,347057264,-359291818,-1133993110,-462495944,-1828428088
Long mem#,1848=1955787202,2046191317,1909167132,-255306308,-2104614449,629267862,-1394861705
Long mem#,1876=21130720,1065099321,895688721,790694987,616797865,-1591497306,-190284453,1755499197
Long mem#,1908=1720996941,-1390531547,2004888642,-160206118,-1305084448,996005845,1426832504
Long mem#,1936=-1583976443,-334433885,32157482,1917681470,1340649918,929860577,899922182
Long mem#,1964=-1564129723,-1046431525,379333668,1162448395,-1069756689,-1440077480,444761850
Long mem#,1992=-1278467533,1390648228,758711626,419925644,628471527,-1836379518,1735987580
Long mem#,2020=2125735961,-946143594,1766177140,1488097952,36081892,590177188,1363412403
Long mem#,2048=264293610,-1446610642,-724216650,1755498044,-1539953128,-416551599,-31657581
Long mem#,2076=-304326717,-140282679,-2042062233,543068660,-2019351753,1677990214,600343346
Long mem#,2104=-2071548695,-1506142484,-1467455464,-760483673,2095582559,1870576721,101849222
Long mem#,2132=-317186239,-688668267,1591459573,-1409979770,-807347057,170998665,-147036228
Long mem#,2160=474025988,-410206192,-377274536,-1092206468,-1785950275,-980765692,-494186330
Long mem#,2188=-979545070,-1039716784,-536856575,591246479,-1402388155,1146987958,-104933711
Long mem#,2216=-817457052,2116971195,18952524,-467369691,869288338,1716354380,144118424,-1640300496
Long mem#,2248=-2055036851,-1660934152,537367200,1135855223,-1378371883,-498496855,1520984408
Long mem#,2276=-563832476,866816036,1350934640,1311524197,1897667639,905245084,-1423151340
Long mem#,2304=-231425676,-560361020,-1270771132,1122383456,-110182071,482349343,-1679243678
Long mem#,2332=1101354099,1177791145,-1934588987,-1631309341,301385577,-2095280996,1706446
Long mem#,2360=-605938391,1679640401,1307563093,-886789597,-993253336,620042501,-710406260
Long mem#,2388=-1768504289,-740839208,1147204168,1178361986,256919141,-245859218,-671779330
Long mem#,2416=-1838237032,-1217571541,-345462585,-2132419584,596494456,67323909,-461122552
Long mem#,2444=1026048127,889351711,77097606,-1936131982,304418478,-1029054302,59058851,537339932
Long mem#,2476=1528119395,1473764090,1178934601,153227770,77369095,-1948539856,-1366474240
Long mem#,2504=-2107366393,346190086,-1129417705,-784313771,-801897397,-616123444,852046723
Long mem#,2532=-1025248208,272279839,-1940218243,1448418063,-1800997870,2131877576,3260943
Long mem#,2560=-1523528178,-215718981,-1256846180,-1251088294,1654547157,1239814901,676043089
Long mem#,2588=1989191289,-1837833472,-1588617471,1971454756,799873950,696638759,1624029175
Long mem#,2616=-1953552409,16735741,-166179491,-712612199,-955009579,-1061842342,1803799035
Long mem#,2644=1916570479,118063729,-404101348,700362409,-421240121,-1588769436,-722181821
Long mem#,2672=2117434842,1639884295,-1263648899,1197012761,1171105958,-1182287920,1304726434
Long mem#,2700=-1996946980,-2048552028,105004902,697874604,-1981911302,610132782,205231029
Long mem#,2728=1152595481,88088231,1959673698,88330606,1011229746,1419822587,-53884597,123985352
Long mem#,2760=2126809045,-1170545249,-1466997553,1338886842,-724268970,1735051478,-354768756
Long mem#,2788=822517640,-931850356,1238812916,-320526643,-1436777367,-196731101,-1599839452
Long mem#,2816=-1427069574,-719548562,-723615237,123265763,1875001847,-189767650,1230496193
Long mem#,2844=1966454888,-2055518490,1128632940,-871149747,562515691,136187985,64547920
Long mem#,2872=1429733676,-136101677,863352018,196586841,2049360629,-2025338406,184965196
Long mem#,2900=-2091675491,-2115748914,-1075869281,-575261281,1888854195,1732470670,1407153598
Long mem#,2928=308271060,1818401190,-935009457,-2127553503,80185365,1921973118,1716517684
Long mem#,2956=-1089119818,1321580301,628630488,-1763210088,1402939193,708215725,-1394890150
Long mem#,2984=1699556843,38769216,172597794,1226074404,1350851474,-1662720967,-1413873049
Long mem#,3012=450089883,-702678086,1951893902,799281845,742895329,-2133997391,13060402,1470016371
Long mem#,3044=-447384503,2029413875,-1343966702,1404210724,480299149,-1022444641,1794828265
Long mem#,3072=-444161634,-1473625348,1515564065,699042068,-1425385055,-1358391731,6403056
Long mem#,3100=1998287076,1375191352,35627531,420499577,-292939430,1016407011,-1263132788
Long mem#,3128=565107923,826086306,-121892468,-1501053619,2034131831,-978740482,1167743734
Long mem#,3156=-1430835683,-341300615,-467036895,-1504139630,224339346,2006731917,950328377
Long mem#,3184=473700579,1037399144,-572066190,708460803,323432489,-972730478,639513202,1089338936
Long mem#,3216=-1440655380,1229715386,1864122659,884953171,518021969,1205963077,1493693685
Long mem#,3244=968605665,1110102323,1401853491,-234815709,972351365,-365663494,779401671
Long mem#,3272=-1350613162,687338516,1551919082,-1786609191,1479387732,-1434723243,1186370696
Long mem#,3300=-1877211381,494225422,-815873747,-1633180817,-377939366,1209326941,290572228
Long mem#,3328=14993912,-297210742,67227249,-467080544,1439732184,296753433,-82366730,532737732
Long mem#,3360=-1343644849,-594444981,2015871903,-938843701,1441444251,-1183005048,158181183
Long mem#,3388=-75113424,2057910140,1598942514,-1246904246,1486988832,1247885366,-442711365
Long mem#,3416=1059747457,770432203,-1448526118,1236707745,-1378618860,-1994067700,2141881858
Long mem#,3444=-464867323,2072781204,462602352,856618784,-1852559905,1817519425,-615470284
Long mem#,3472=568127843,264641894,1600902808,1974425686,1859867027,240209713,-1540209033
Long mem#,3500=-2124629533,-1975091784,-1172933515,-1433688555,-390489496,1448777120,-1341347665
Long mem#,3528=930727622,-900324788,223740391,595999929,734398096,2009822508,1248779448,-1072558814
Long mem#,3560=694731692,-699513579,249133119,892582526,590490989,689197519,-1840878301,2089787712
Long mem#,3592=985720579,1747970884,2075301462,-401426019,-1943783273,1656048570,837957202
Long mem#,3620=-1057561444,-1654879021,1162422564,-96858021,-1394924061,57632427,377895012
Long mem#,3648=-387301242,-426701511,-730400141,1352725202,1354475014,1202051206,1228372262
Long mem#,3676=2091573426,-1987926347,1578790694,-366616471,24518164,-509050980,1368249415
Long mem#,3704=-1230837375,-913210216,-514707965,2048070993,593901956,1967528170,1653239849
Long mem#,3732=-834860807,364178776,-1168484690,-664077287,-1973036415,1094698336,16717083
Long mem#,3760=-1766989554,-495281751,-994495031,-425255456,16558363,1913529380,-1627145930
Long mem#,3788=1272403849,727406037,-511332634,-408806758,-1662189977,-1897569812,-1361643983
Long mem#,3816=-1457606503,-2051799062,1458610261,1550092634,1596212922,1241078657,-1218241343
Long mem#,3844=1933121688,890989767,-1980981536,-1089793507,2107471185,1138208864,-934104215
Long mem#,3872=1306741282,-2143499294,-262808675,-1060506058,978316481,886069029,-129022985
Long mem#,3900=1928196813,980655758,-2002244411,-234416033,1986025681,-102490943,71381917
Long mem#,3928=270848084,-1471044574,-1595128508,1295974412,-1831983789,-160005061,1223572893
Long mem#,3956=310662618,1910726747,849248739,1915592561,1203607758,-1361693487,1388029352
Long mem#,3984=1202795727,1439023124,1465043507,1535703515,-572381401,596348819,-873147111
Long mem#,4012=-1253347751,-1587719297,83459707,-1856967600,-2034844223,1832089592,-533071934
Long mem#,4040=642489952,-735224654,1426335799,1180004596,-777227641,-1931476857,607712908
Long mem#,4068=94432103,1129458827,984233683,223162756,-2050354940,1787057520,-615432440
Long mem#,4096=909578587,-473689380,501955438,-1440208458,1228139947,-762723796,1650747722
Long mem#,4124=-286067508,1225919272,1680001834,1834845427,-40266151,-1848885022,-920599536
Long mem#,4152=-218045341,2050355236,-1415205772,-1802144411,1329705164,437228882,1835241143
Long mem#,4180=-2038337029,320873251,-1990925323,-1677376222,-1093733591,-1853750203,-1012699103
Long mem#,4208=1856524429,437781271,-1616161081,-84573819,240287080,-1445678501,-5070846
Long mem#,4236=-806902784,594666052,-383580158,1749823136,-1271056114,-331423934,-2138992383
Long mem#,4264=1312854542,778758566,-1536646238,1653361221,-1264549878,-102767251,536057935
Long mem#,4292=-889556627,-1034577126,-1817028262,1122912962,-1927256768,-1061519414,-269624578
Long mem#,4320=-297253829,-969346376,1790599045,1176611459,-1365599591,1142283837,997341002
Long mem#,4348=1016592183,897773539,240588451,-1323743969,951801583,-1807954949,-222506320
Long mem#,4376=1748045884,1344628386,756016286,1912267095,-138581766,2130340775,867291813
Long mem#,4404=-1906079209,654918049,83278962,1933368193,509125097,1808263322,664605527,-1840780748
Long mem#,4436=1802140064,-1499068458,-541912675,80046300,-908996572,1516513547,17400538
Long mem#,4464=942542977,665057523,356938818,52499742,-22235459,16752575,1955964907,-904395504
Long mem#,4496=-1169781007,1624944999,-497943790,1634229762,1413521115,-1304687060,-1179238556
Long mem#,4524=119263673,184614739,929507933,2050656778,-1976038776,-1872376676,-2011832016
Long mem#,4552=531178049,1191207955,-1379059193,1777766231,1073070033,-1146525369,1750616395
Long mem#,4580=-707348832,466471496,1074715524,941690119,-1893886692,1577519007,-1568512262
Long mem#,4608=399892110,1970181384,-1168711059,955183294,93474587,251226627,-1775814151
Long mem#,4636=1542077819,1224430007,-590032256,2031793669,-1440046566,818453735,134702656
Long mem#,4664=89974286,-1190199211,1556852541,-1399591034,2012087189,1251894747,1899359816
Long mem#,4692=-1100728877,1076239884,953087095,-1170891013,1948123714,1191753230,-1977237418
Long mem#,4720=-1213308119,1417811147,-1424280820,1155855146,-1554145393,307405801,-188990386
Long mem#,4748=173916718,-1367676210,-645835292,1032603719,1823065115,-324547458,1491859904
Long mem#,4776=2109669968,580853927,-514856837,1782730557,-2105092438,-1259131675,816603877
Long mem#,4804=-1976894277,103947946,-1222884140,-365156552,-1696170501,-2022334786,1922714309
Long mem#,4832=-902544123,604592146,489145088,-1880658801,1427352401,-850496187,-969797003
Long mem#,4860=-125930942,-1347270192,16770249,-276031139,-1917284092,207203333,-1968783391
Long mem#,4888=2091214179,134351704,475094303,1105281234,-353731615,596952109,-1385783861
Long mem#,4916=1355302742,1159110059,1814947120,30811763,2099214232,-1676589719,-1529735001
Long mem#,4944=1236143125,-628224729,-846157976,-1212120497,-468501991,2057641581,-885988999
Long mem#,4972=-1069256164,1098914691,-87981305,1020786535,-1500430613,704533175,672934766
Long mem#,5000=-1635555647,1606496567,-178039626,-1845701643,949129264,-777398283,1322787690
Long mem#,5028=17407543,131016576,-784664957,-1551983860,-1367651266,1047476475,-1258841446
Long mem#,5056=86185123,-1848064136,1991945897,-586719374,333298366,-1855231188,2024334799
Long mem#,5084=1183246943,-702218787,435296323,55570902,-1695079589,-231995249,-669310111
Long mem#,5112=-792243065,2107805052,-1973328892,-1803901302,-1776909660,1489230753,1332722135
Long mem#,5140=-772407812,1875339962,-1532262750,696949434,1469099684,697764179,-1857723850
Long mem#,5168=-394498973,-1677466540,975381296,1249551551,-346043511,-466341152,1276464969
Long mem#,5196=-2059123606,-244063123,121491054,-977574924,1125341517,276106323,1125989351
Long mem#,5224=1044441217,-874291585,1927996698,1950461433,-1515744321,-810683962,1715687862
Long mem#,5252=-1501331735,2017094290,-933908051,598682793,-573645392,435012812,-1861458882
Long mem#,5280=-1760189461,-1648462437,-1444205910,1279690144,833244306,1461820922,-263271086
Long mem#,5308=448206027,-238466822,610063085,21247017,733545861,-2033919295,-699916572,990526186
Long mem#,5340=-756832564,634619398,-1319923196,-1684721388,-1782577028,1734612224,-535768061
Long mem#,5368=-1055258238,-1646466988,-1384121726,-1593988973,1495522775,769372451,844301549
Long mem#,5396=-776193252,-1623467021,569836142,-1160898233,-1926861716,-449942689,587729927
Long mem#,5424=1752812579,-716357851,-1759751863,556460138,446584194,1263745642,863736080
Long mem#,5452=-1940067187,-361692660,-1290926578,-993105876,835430442,-377880520,510213394
Long mem#,5480=-170702605,-950710212,-1435235043,1169951871,-1724399329,-248276570,-1634989028
Long mem#,5508=-1854528192,1491565735,1859663407,994782644,958296626,1166468691,-175397856
Long mem#,5536=-1323368110,-1743766813,-139958849,1477605786,-1154476788,956388165,-960640975
Long mem#,5564=1707655548,1976199742,633825323,1560346427,1169067620,1408076458,1286111752
Long mem#,5592=-1933530186,111348833,-1649768679,-475787296,-712497601,1985171022,1147927040
Long mem#,5620=1370919706,363025041,139616794,-1044785934,1314802105,180541240,2070997661
Long mem#,5648=1454354079,607146037,-1496911388,87982562,656778690,-437976164,-525699421
Long mem#,5676=-1906195689,451093624,-1135387990,753646594,398790832,-168026877,-1323465901
Long mem#,5704=-1512695406,24588506,1804377330,-1028206140,883836722,1143724330,1066344385
Long mem#,5732=-1669672519,861035000,-395271701,-424892781,1517116701,2021312827,1713410992
Long mem#,5760=1848149002,2106487260,2050900285,-1901497958,56376118,-1659790189,-1434030515
Long mem#,5788=424053329,908682217,-1078239885,-738889348,1364936863,-761477586,457467181
Long mem#,5816=1701292580,1081232601,-1008977584,-309276815,-567630101,-1743080576,-1708742422
Long mem#,5844=1209573766,2070216194,-1616399684,-378892840,137795598,-983900502,1100577451
Long mem#,5872=-929779234,1317149699,448735097,-1670285991,-980402902,724737188,-146918936
Long mem#,5900=413764836,-445518642,-1793370208,-1282925507,-1825857928,-1916382240,-1092382164
Long mem#,5928=1662197716,-687668273,1349410647,-1963465766,405881750,46440322,170362698
Long mem#,5956=617200008,-174244208,2071635903,2099631088,-624559253,1320961961,-1828420493
Long mem#,5984=1983006433,2103328416,-1369692215,-1486667913,1343893685,1198788085,136622786
Long mem#,6012=1549627760,-60343375,2107419697,-705545784,-1635095818,-294083684,427985782
Long mem#,6040=715815335,-1951906400,-234635151,1087749848,-2054974805,-123943223,1394567419
Long mem#,6068=-1255844275,1766900176,-128600031,-1006037739,-1072055416,-1968837546,-1954558204
Long mem#,6096=665416078,-1381976508,1966959909,1255363642,-903855213,1451629387,-91316194
Long mem#,6124=689103797,-2120941241,137538572,-1219184066,-1366890664,-1398691995,1902557362
Long mem#,6152=-184634028,-63424107,1648980693,-1903398096,1689648321,1464019798,1362577737
Long mem#,6180=267266653,-1724423018,1226739747,1121531938,1891737217,-436128707,-749906469
Long mem#,6208=1707138935,-690912081,-1628899683,-2129675188,-884011334,1475253209,701592265
Long mem#,6236=836188417,-693364502,-1479649989,1429203679,-532458572,1244354134,175100781
Long mem#,6264=405379081,-1557649148,958121593,-1257776360,-1312395925,-1906153176,1936042670
Long mem#,6292=-1516646134,-1096431011,5660976,596032227,1641493662,1343010862,719147857
Long mem#,6320=-1383421190,1435882572,-1826470607,-992811792,-101513202,-740035975,-208327615
Long mem#,6348=890530908,1009981331,-1193384383,220146275,330496969,708701094,295885138,-1621545643
Long mem#,6380=-2141975243,1271413505,619845783,-524142096,-1422300807,-575627168,842325614
Long mem#,6408=-707407150,-505440070,-1546858884,1171930403,-1501608366,1252950956,-622814236
Long mem#,6436=1071889583,1563782136,-510215474,1799573325,-1215452245,1932065801,-669756272
Long mem#,6464=1942914500,-480839972,2117753551,-1264452086,1519308341,311759875,971394631
Long mem#,6492=1831099925,-207818341,-281495884,1536077455,-1565086103,1288917376,-302509014
Long mem#,6520=-1341007844,633347385,-822716304,1972253040,492278055,1170105227,-1875382599
Long mem#,6548=666743952,1206018678,27859555,925897300,1053482006,-521928618,1456559719,1297602130
Long mem#,6580=-1437227448,1634293159,-2138765410,1887821932,1880039177,-404436943,-1578170531
Long mem#,6608=-1905966755,1954891249,-855592318,324293705,-2015258620,594990291,-1926453117
Long mem#,6636=1087600658,56166419,1023146510,6920165,1518708239,122622190,-1779475521,1428261463
Long mem#,6668=1472932885,-1832311994,-1653075903,-1694416555,266083620,-917536221,1639421295
Long mem#,6696=-256578183,-1292343691,1379932699,-293069001,-1821840645,-1305723173,1028496864
Long mem#,6724=2115533800,-1506047228,451131516,1806531531,-1841159083,-1431134684,-2052872363
Long mem#,6752=1533613443,1221637788,-1885535915,-149840478,-1805334952,1520312035,-707835380
Long mem#,6780=627410580,-1449549022,-1529144009,16732262,-1895213978,502934353,-1205260698
Long mem#,6808=1410657524,-343977429,-1469380297,1705814757,-1789881771,245109521,1205944337
Long mem#,6836=1320054531,1559592090,-2120405901,1411642136,-719561917,-1407466734,537466758
Long mem#,6864=-2004022974,1858569741,-982238712,1378332779,-438932514,-290232511,446640949
Long mem#,6892=1686495653,1074137234,92543072,-1895469672,-170201060,1538567033,-270945875
Long mem#,6920=-168632811,1546994250,37432169,-536689360,199461601,-1214628154,-1433263195
Long mem#,6948=-1498751080,-2039195347,-2127523290,1985453398,1421738786,-544013389,-1294332356
Long mem#,6976=-742950671,342862217,-972313198,-1667308007,806304701,481768396,863879292
Long mem#,7004=1037895076,1521788267,-1633441822,884770906,-1265423298,-1915018850,243279043
Long mem#,7032=1927332353,1709386356,-2102823703,-1767726450,-727931126,1431622481,760612528
Long mem#,7060=-968512271,1085299022,1501417455,222548689,1581927082,-1716838103,361816872
Long mem#,7088=723797140,417466247,2038594195,-1644983102,-1465225346,1337961385,1973875261
Long mem#,7116=-1473170516,736528273,1478417283,-34465757,1158233652,-1484884882,-2106664570
Long mem#,7144=-766838569,2118396098,-441271521,-404709814,1332900542,-331159684,1037251933
Long mem#,7172=1479759167,-168504083,-1785380818,1743043275,-1907727847,1543701447,653119954
Long mem#,7200=1360014583,-1235551734,900940396,1335031601,1670765579,606699420,-1647963271
Long mem#,7228=-345343318,-361193105,1877417514,702313371,-1448946264,195715754,546550579
Long mem#,7256=-954931776,466141376,663981066,1296830103,1929083433,-1897404306,2024248894
Long mem#,7284=-719016688,-1941386381,-1261237627,2045825518,-318192954,1796283073,-329825357
Long mem#,7312=-2078598518,-1766471436,-862769949,1277040123,-87773496,-735633101,-1394432664
Long mem#,7340=-1553962916,-982533706,-1020058288,-1803447056,-1599106440,-242230440,885923092
Long mem#,7368=914009407,-669615903,491498861,879046685,-1891321390,5507301,827491699,-1657037083
Long mem#,7400=-1194186933,1690686251,-1116449847,1426456002,1839438703,877288369,-927973296
Long mem#,7428=-1829914959,1220607144,1316366104,473499463,-1475894767,1004178920,1395985268
Long mem#,7456=-1499166317,1933185615,-2020497268,-174633014,726877894,-741135814,-885306549
Long mem#,7484=1479111020,1323799270,-1607709741,1108649618,1822188297,-927076323,-125372956
Long mem#,7512=-1869304535,1576367318,53559725,1616519437,-1557512078,-229077533,1021553207
Long mem#,7540=-1179739910,-313939684,1119716982,1920765297,973293909,-430064805,1458412969
Long mem#,7568=-1210746983,1816411585,-526266358,-69525829,-136032531,462502627,1925689898
Long mem#,7596=-1924459286,-2046384442,1772204698,-1857903006,-999766082,944345773,50873868
Long mem#,7624=214038304,1791443986,739209258,-1599367601,1842976394,563252870,1799109909
Long mem#,7652=-1791014884,-1143619520,238198117,-1707957197,117785240,-1451126013,-653382487
Long mem#,7680=-180750036,-1190670124,163306662,1130613987,-394130817,615423654,-1793024106
Long mem#,7708=1144916078,1191043102,-517877496,-482924977,-370734806,273003948,1056549256
Long mem#,7736=3860409,-1652840357,-1169339518,-1207458549,1383567258,-1829765388,-548038379
Long mem#,7764=-1272108685,1874438396,-1085873332,1508534662,-1051643990,811772784,46208766
Long mem#,7792=-263656052,469958775,-817270126,-883097316,1532754672,-1710821467,1638858415
Long mem#,7820=-1288476828,71648630,20723889,1540765854,1122362957,-1439874638,198817470
Long mem#,7848=1685169586,-1105468551,1987678039,-214757670,-457608548,-1143315781,757815869
Long mem#,7876=1364012029,1445224257,-228801032,306770884,424219161,-1223482416,2013612065
Long mem#,7904=-932085216,-1110829785,1690792878,-1255298933,-1638303852,1651071134,378186070
Long mem#,7932=-1300093881,-584152047,-821999909,322522663,-322784704,-1674406891,-1310211823
Long mem#,7960=1300581328,-1968274750,1780061866,1194517353,771949657,-1849137885,1376862039
Long mem#,7988=566870168,1378288078,-578267477,1037395258,-1903006417,1112687640,1339018452
Long mem#,8016=-1640484036,-1329307098,629750675,414333833,-1349005577,1094330173,-1299811237
Long mem#,8044=1367624594,1028960572,-825321306,1928219306,617026468,-1273114840,1297696239
Long mem#,8072=-1366645647,161109398,-1119339948,-1837425256,-1550981880,-1043262063,-2046798250
Long mem#,8100=-752633849,-1548869863,999663722,-741141839,-59616915,1525196875,297640638
Long mem#,8128=-967665501,-1141858127,239708746,971928227,655890270,2102607180,-1500639925
Long mem#,8156=363144568,-801896021,-121045940,958944504,1039196268,-1193806021,-902400596
Long mem#,8184=-575363259,1461223972,1179988068,-231371225,1085174352,268186348,1531427238
Long mem#,8212=-1433438783,754425445,629949506,-928083916,-1053713186,738759196,122225219
Long mem#,8240=57230366,-800436422,-647386917,-647321120,2103837781,307238273,182919746,-857498460
Long mem#,8272=1577077919,1850341310,-1293353488,1363463348,-1842597980,1082430307,-242425000
Long mem#,8300=-326000953,-625918755,171398445,896921416,-1213948634,1170715725,637781004
Long mem#,8328=1600522690,-968462538,996570118,1989095213,-1039284342,306310538,1279086531
Long mem#,8356=726086899,-1717227330,-2104244844,250114464,1140526132,-73751175,-1835881360
Long mem#,8384=850698934,-296795709,44872334,1547396644,426317825,455796422,1178278240,1703245235
Long mem#,8416=-1439861411,444050745,1192394569,-1529727833,497257093,934416782,-1027083986
Long mem#,8444=447742984,-1899834563,2072419662,-716065718,-1459166649,598007045,-885414907
Long mem#,8472=1999062966,451141688,1921644104,-399976003,1772671915,-724321628,-1507583258
Long mem#,8500=419807320,-1654281097,-459939688,3704721,766263523,-17353519,2051716506,-1025164402
Long mem#,8532=-1305195354,475253044,-1971309782,-820825564,111041592,1105057080,-1436869859
Long mem#,8560=-507008390,-1447595707,2014341534,1716560230,1931159368,1879278493,-239817252
Long mem#,8588=-1465666397,730181216,-740968859,-1876148560,524939462,-296609785,-1847127272
Long mem#,8616=401881230,2074452351,-866651980,-1470180687,966396310,541356612,666442993
Long mem#,8644=1274745018,-1658618759,-612352292,-1763840451,1917894661,-1892700,1523660800
Long mem#,8672=-2069127079,2099586840,-1121855743,-785109415,-1747139915,-1606235302,-1218620573
Long mem#,8700=379331782,-1477693432,474078507,-192012809,861001269,-2031957037,-1832353143
Long mem#,8728=1908983878,-167755362,1164396579,415313562,1379235325,-476468018,5074239,1985645155
Long mem#,8760=1286114983,-1163195217,256073271,-1850348964,1455809341,-1938596152,-1353022357
Long mem#,8788=-1222947913,177059297,-893203655,1430206234,1071152700,-35965091,1258310314
Long mem#,8816=1178179221,-1717246138,16760995,-47749333,-1574479037,-218884151,262311526
Long mem#,8844=1756083121,-225169429,319570763,1427973460,-2078031070,-570386120,-1156810612
Long mem#,8872=-1416854735,-2050219081,917350583,-1239585413,-642086226,1269575716,-931990452
Long mem#,8900=184770583,-114578654,-403236750,-1168089187,-845792550,549713647,1220184577
Long mem#,8928=-197750272,-20510368,503589690,-2032564766,1476606416,1253272538,-367488025
Long mem#,8956=835914058,-115051709,2141760181,1930132156,-1743042113,1387578537,-1705551208
Long mem#,8984=1432642170,945164764,-834129265,250347754,1333828659,-906769836,-334962800
Long mem#,9012=744271878,1411997297,-2145060022,1335732207,411179973,-1184761826,716212753
Long mem#,9040=4697674,1543823337,-1223985581,-1385210941,-1297910220,724182755,1764158313
Long mem#,9068=736154769,972809036,-1016894565,1627699212,-1994567040,-802587193,1473111741
Long mem#,9096=-22004643,-1581114059,440889701,68405715,1226229336,-1987005898,1027731662
Long mem#,9124=1027067528,212728405,1540510096,-1433985886,1059508116,-1131392520,-309856006
Long mem#,9152=-1868078688,-1620828155,-348112217,-1447413558,-1936413591,1414780083,847014553
Long mem#,9180=-1927163112,-225350697,56387222,1514062281,1418947900,1965555103,2131537067
Long mem#,9208=-625111631,2133654293,-1146941677,1520768781,1395289403,80073553,214299211
Long mem#,9236=-1065478815,39793776,-1900814938,-591836933,142272802,-1782401051,1710769427
Long mem#,9264=778679246,-1475471586,2136326152,1612253165,-71391673,-1255412962,1774802015
Long mem#,9292=-1410671431,1722263905,-758492024,406426004,-1156735955,-1569981512,1957424350
Long mem#,9320=-1524467318,-1009472378,1305564641,1370182689,-908095286,721485602,-260970269
Long mem#,9348=1860787348,-1787514726,464145090,1465209151,-705259342,394799699,-618561252
Long mem#,9376=-524933359,505198535,-696966319,349300142,884779831,1037784240,-1721152780
Long mem#,9404=1242151818,1115859940,-1447006980,-1863877810,1005205511,-1320667715,-2106667179
Long mem#,9432=223970966,1152030284,1250170889,855668304,1858178488,964700984,-340496437
Long mem#,9460=-1925255515,948599418,-1714072188,2052802706,-1317893952,-1980186447,1924283220
Long mem#,9488=432013687,-895947958,1242979573,1812976976,1151379362,-1305277559,1913933486
Long mem#,9516=158673993,2059755839,786083251,594041398,1845225900,-1884981006,-1041214348
Long mem#,9544=-955637422,-875953601,1325465352,1859328727,-1749715660,147514763,-1047796759
Long mem#,9572=-1721087870,1073271644,311998875,1839985579,165298258,989891387,-1771164762
Long mem#,9600=-608854706,1404546155,-1543354031,-888660853,-1076899903,1326345327,2098035230
Long mem#,9628=1029488289,-1596303725,-1011243135,1298132316,443739930,1912682339,2128814345
Long mem#,9656=1285545993,859952746,-86581636,1290253930,135753257,-1685251502,1440292869
Long mem#,9684=1326244283,659493324,1518812849,-1164302743,-1431672597,-711316838,1471523496
Long mem#,9712=304946251,2141620924,-1845155893,77826358,-1887895297,-1499464578,1860016893
Long mem#,9740=-73267627,1278973468,-1433769416,-1885802300,-453492699,2111879655,888013134
Long mem#,9768=1885033391,1702383356,-1015016314,2000047943,1211589252,-1239813408,1088749998
Long mem#,9796=294184249,141825828,-1451021917,1599401900,-1599478399,-151728369,1688918650
Long mem#,9824=1966771881,-1916124534,-1777308611,-293539040,-1634228465,-519897940,-4207229
Long mem#,9852=2144512512,1657877757,1730106039,-1951564401,-1777385506,1655104104,-2000929982
Long mem#,9880=1081240577,-1595444956,930452596,-1549404838,860965248,-1144606318,-392988332
Long mem#,9908=-710918230,-854356006,348464779,-125325362,-2057987298,1272616164,879094199
Long mem#,9936=-1092752490,2098541923,814490685,886377306,-1982560411,189690950,1045650335
Long mem#,9964=1944776696,694031297,-1635951579,-503899578,626381136,2066422813,-328325201
Long mem#,9992=-371349711,1327115802,487002795,1767754676,-1217990262,353744339,-1489216203
Long mem#,10020=-742988066,1828248744,1714953793,-309459519,-136031064,1691828165,2132113353
Long mem#,10048=2025040103,-1895588010,-676385321,-22086779,-1757805976,-236731730,-1714984581
Long mem#,10076=-9979990,-1471755520,-1997083910,-1268228695,-741637811,966945119,1868880629
Long mem#,10104=-1401366793,-692233450,396774699,1359946957,-124563363,385889197,-2069918526
Long mem#,10132=-1604290062,-1905104518,1945218714,1279908234,-1259385711,1179953728,1068622912
Long mem#,10160=607716119,1446378899,-73767859,-2083133417,469316802,730698428,-377115781
Long mem#,10188=1755266538,-1851801006,-193551261,1140916114,-1885208928,-80516101,818593096
Long mem#,10216=523250614,1873191262,-710843914,865973268,1248168026,-1954053819,755577943
Long mem#,10244=-2005316771,-1819775902,1740639416,1318604734,-724975710,1253607255,589824137
Long mem#,10272=-2056048498,-869801212,-1431983373,-1299531304,1510375258,-1639145572,-1891664177
Long mem#,10300=-1171646211,-1885033749,-2113069723,2097217428,821277870,1062233851,-1490652048
Long mem#,10328=-625067345,1537904226,1579978612,-1910289886,-1749431459,-134836935,-2042912685
Long mem#,10356=1338424301,203897488,-160099020,1099635626,-1969851108,-1649859704,-1506497142
Long mem#,10384=1737659002,-15159005,1756648960,-164877323,-1616745540,-394727401,-930075472
Long mem#,10412=2140106459,567647732,685112212,-1568949757,-402866463,-381410314,48016509
Long mem#,10440=1767487597,1338457962,-397982669,-167935525,-1551379875,-2145763498,-1298224815
Long mem#,10468=1232170011,1380238418,-129101193,1639216736,-98966663,-1352315413,-593600092
Long mem#,10496=-1838332429,331135045,-1873391675,1324912812,-1204582315,430510623,540551013
Long mem#,10524=1256790631,-960092840,-1457744519,-644996623,1789217773,-1512689502,-2039412403
Long mem#,10552=1165789274,-246614175,1387644663,-616458251,1900228065,-1215519327,-118442812
Long mem#,10580=1119567463,2060088706,456788654,767115173,-1832730612,-519942197,-1558396075
Long mem#,10608=-1841195283,2002319616,-1227721475,-1516862290,-1983884204,1490365731,227569866
Long mem#,10636=454087552,-955170842,382424359,2089980964,-584824938,-1112783961,-971844765
Long mem#,10664=-1912724046,848645138,947304393,-2101417997,-1600144676,1162718492,-1923920053
Long mem#,10692=71914377,2072038353,-485177308,-827237570,16722071,1991027335,1328131801,1892912673
Long mem#,10724=1446122664,-236627792,-1918750301,-2138284807,-1205991162,1611658453,-1500646215
Long mem#,10752=-1901930982,517779940,1986630282,-1625208877,-2114431120,320077852,-2115015028
Long mem#,10780=-977732438,-835872270,1970447288,953305567,-170191191,1218619972,-1612407388
Long mem#,10808=-1102546590,-212035532,-822871352,-1309234773,-1968002236,592665037,1152570142
Long mem#,10836=1174470401,-2019131406,1271977428,81227872,-1534046633,-1304799607,-1686596455
Long mem#,10864=-1184782192,-819380352,-195256869,1367292886,-1774137392,774404698,-1433213388
Long mem#,10892=-231433413,383943111,2004914524,1667019108,-1466308836,327939554,-1726366094
Long mem#,10920=1272818429,949630485,1552081088,1730037686,256765438,-843967253,1851739463
Long mem#,10948=-1700113334,376092086,-1850105698,-669922236,-1819203818,1627012255,-2041533175
Long mem#,10976=1725442857,1529328276,-734831230,-1935780300,-1180890294,-1519687509,-133651043
Long mem#,11004=-1214818960,1187946863,-480587512,345762153,-363424748,-785388871,-1440277239
Long mem#,11032=-242104303,-333395064,-469753015,-1515940877,-1329728512,-1419901422,2140469695
Long mem#,11060=-720656419,1840024397,2022389236,1625077414,892093316,-273634748,1928100224
Long mem#,11088=-203417279,-1216803154,1960143770,-1640608389,-1688153327,-708988227,1844276085
Long mem#,11116=-2094154464,-1764462884,1014864746,-1715088272,-139876380,-108799128,1710293352
Long mem#,11144=-2001112260,-1256376121,1421048389,1395579861,-731096621,-1566337680,-1408685771
Long mem#,11172=68231139,944227006,-2082696721,342751652,-291845839,-1153720155,1127549876
Long mem#,11200=1070661151,-1015632013,1776087506,-1709532447,40139146,279243385,305303458
Long mem#,11228=-956934094,1039595851,-375828555,2049964885,-1518621164,-233357522,16726711
Long mem#,11256=1983635599,-1796288634,-1181053385,526047827,-479684919,-242211430,-1532686910
Long mem#,11284=159385401,341680109,-1285038917,778644057,-279619235,1216637141,1661475944
Long mem#,11312=408156217,1621741313,-70213561,1833393055,586983596,255899106,1627949578,-942484719
Long mem#,11344=1726220672,-219297722,1863056014,-1191326741,-1226648304,1481110307,2038251580
Long mem#,11372=1051639777,-1899269478,413334575,1186806452,1568201780,-1115787683,1303583412
Long mem#,11400=-608520495,-740830598,1435742026,386620733,-968392147,1050106104,-136536448
Long mem#,11428=1626833466,863171462,437932756,-2037974883,-188326946,314591762,-128614834
Long mem#,11456=-1002639752,1542028491,-374642815,-2020236137,-253076686,172548414,-1839043265
Long mem#,11484=-2020829858,1421714343,362150929,-173586863,2035296085,-290463368,-1172349336
Long mem#,11512=758747735,-2817793,1544452864,1070174842,577297230,-493508440,982132236,-908203752
Long mem#,11544=85710872,-521986973,1038305292,1760186313,-678255323,-768389867,2025044031
Long mem#,11572=17139282,-2038326103,-115494425,-403120838,-1804743550,-1932732748,2039918712
Long mem#,11600=-1176311311,1856470820,-684664696,1980394475,-1453038690,1495517232,-360904294
Long mem#,11628=-1310635156,1892403227,-92385742,-1127439657,970095851,2023960574,659908980
Long mem#,11656=-680569041,1367634129,-1876860126,2089655418,-443606515,1971780956,725069523
Long mem#,11684=-1947429315,-1114197417,427971756,1657025229,546143379,70899304,-961953716
Long mem#,11712=1684916166,-1634800991,-2083484341,1560625989,-1503478182,214924947,384184875
Long mem#,11740=1619114766,317827980,-876884365,1638868565,-1090248988,-1848216612,-2142613999
Long mem#,11768=1771925766,-1385538632,-1097955755,44738973,434071686,1008630746,1805314491
Long mem#,11796=1392155077,-132511174,-1519857368,1536074382,1144360271,472841444,656614268
Long mem#,11824=954107425,-2017851918,1930931370,1659535731,17635730,324048038,-816884186
Long mem#,11852=1114813036,291816193,-750203200,1618995187,-573106026,1195606984,985058861
Long mem#,11880=-428009430,1900303014,-2057797049,-358449364,25901989,-952008052,-377864536
Long mem#,11908=1281881521,1421177543,-565611955,170124678,-688174975,-1943879272,-838367763
Long mem#,11936=1901125975,-1773244182,1159419758,896193526,1464987957,-120204718,-2135358003
Long mem#,11964=1619559569,11143823,740269099,231852403,396849731,-492113856,264276572,1906895681
Long mem#,11996=-1385689896,697898309,-210011417,1148200013,-227719439,371951919,1833901583
Long mem#,12024=2027694496,-1578256325,-1245813916,1182231234,-222214791,54083648,1296919839
Long mem#,12052=-645379507,-892531786,-1499061110,1362662060,-465791335,2565929,-1900163338
Long mem#,12080=2058861733,1072173049,1548964835,1311654617,-1748511791,1330283042,1272837348
Long mem#,12108=-1097441415,66625089,-1458096642,-711118993,532160498,-1582716431,-1342650526
Long mem#,12136=1333165698,1067384009,-950489207,268159423,671012088,166559677,16736575,-1751475686
Long mem#,12168=-708931947,1333141232,2140601545,-32514543,-1342111812,2106392831,2143036414
Long mem#,12196=-2013420325,1768581884,1106669817,-1610849049,-1833245239,1845559281,-249563501
Long mem#,12224=-711625300,1454584407,415880142,-891319080,-720397124,-724240485,421758162
Long mem#,12252=-916027280,-1780128967,211553029,1396652398,-1664296971,-1709562013,-1725699942
Long mem#,12280=-73543890,-171344995,114480340,989186424,1302194167,1681012301,981245434,-1726440806
Long mem#,12312=1397969907,-637581492


$H windows.ph
DEF CreateStreamOnHGlobal(3) ! "OLE32","CreateStreamOnHGlobal"

Declare pStream&,Imageobject&,GraphicObject&,m_hBuffer&,pBuffer&,Command&
cls
ImportDll("GDIPlus.dll","")

Var gdiplusToken& = InitGDIPlus()'GDIPlus starten

m_hBuffer& = ~GlobalAlloc(~GMEM_MOVEABLE,SizeOf(mem#))
pBuffer& = ~GlobalLock(m_hBuffer&)
~RtlMoveMemory(pBuffer&,Mem#,sizeof(mem#))
~GlobalUnlock(m_hBuffer&)
CreateStreamOnHGlobal(m_hBuffer&,1,Addr(pStream&))
GdipCreateBitmapFromStream(pStream&,Addr(ImageObject&))
Dispose mem#

GdipCreateFromHDC(%hdc,ADDR(GraphicObject&))'alle Graphics-Operationen auf %hdc - zum Drucken einfach &PDC verwenden
GdipDrawImageI(GraphicObject&,ImageObject&,0,0)

call(Long(Long(pStream&,0),8),pStream&)'IStream.Release
~GlobalUnlock(m_hBuffer&)
~GlobalFree(m_hBuffer&)

waitinput
'Aufräumen
GdipDisposeImage(ImageObject&)
GdipDeleteGraphics(GraphicObject&)
ExitGDIPlus(gdiplusToken&) 'GDIPlus beenden
end


Proc InitGDIPlus
'  GDIPlus& = UseDLL("GDIPLUS.DLL")
  Struct Gdiplus = GdiplusVersion&,DebugEventCallback&,SuppressBackgroundThread&,SuppressExternalCodecs&
  Declare gdiplusToken&
  Var gdpsi# = New(Gdiplus)
  gdpsi#.GdiplusVersion& = 1
  gdpsi#.DebugEventCallback& = 0
  gdpsi#.SuppressBackgroundThread& = 0
  gdpsi#.SuppressExternalCodecs& = 0
  GdiplusStartup(ADDR(gdiplusToken&),gdpsi#,0)
  Dispose gdpsi#
  Return gdiplusToken&
EndProc

Proc ExitGDIPlus
  Parameters gdiplusToken&
  GdiplusShutdown(gdiplusToken&)
'  FreeDLL GDIPlus&
Endproc

[Frabbing]

Läuft dann ab XP, die ProSpeed-Lösung ist weiter abwärts-kompatibel. Ab XP wäre heutzutage aber ok, denke ich. Baust du's noch schnell mit ein, Roland?

[ts-soft]

Hier noch die einfache Version, aber nur für BMP:

Proc CatchBmp
  Parameters MemPointer&
  Declare hDC&, BITMAPFILEHEADER#, BMPInfo&, init&, hImage&
  hDC& = External("user32.dll", "GetDC", External("user32.dll", "GetDesktopWindow"))
  Dim BITMAPFILEHEADER#, 14
  BITMAPFILEHEADER# = MemPointer&
  BMPInfo& = MemPointer& + 14
  init& = MemPointer& + Long(BITMAPFILEHEADER#, 10)
  hImage& = External("gdi32.dll", "CreateDIBitmap", hDC&, BMPInfo&, 4, init&, BMPInfo&, 0)
  External("user32.dll", "ReleaseDC", External("user32.dll", "GetDesktopWindow"), hDC&)
  Dispose BITMAPFILEHEADER#
  Return hImage&
EndProc

Gruß
Thomas

[RGH]

Halo,

Da XProfan 12 (oder X2) "feature complete" ist, kam dieser Vorschlag für diese Version zu spät. Aber danach geht es ja weiter. Und möglicherweise kann diese Sache dann schon in einer Version 12.x Verwendung finden, so dass man nicht auf XProfan 13 (oder X3) warten muss.

Gruß
Roland

[Andreas Miethe]

Zitat von RGH

Halo,

Da XProfan 12 (oder X2) "feature complete" ist, kam dieser Vorschlag für diese Version zu spät. Aber danach geht es ja weiter. Und möglicherweise kann diese Sache dann schon in einer Version 12.x Verwendung finden, so dass man nicht auf XProfan 13 (oder X3) warten muss.

Gruß
Roland

Schade, für Bild-BLOBS in Firebird-Datenbanken wäre das ideal

[Jac de Lad]

Genau. Außerdem hatte ich das schon vor Monaten mal angesprochen. Mehrmals sogar.

[Frabbing]

Wäre für allerhand Sachen sinnvoll und da der Referenz-Code ja vorliegt, wäre es doch sicher schnell eingebaut.

Howdy.
Ja los Roland. Gib dir nen Ruck.
Sieh es doch mal so: Hast du schonmal eine Sache weg und kannst für Version 13 neue tolle Sachen einbauen )

Gruß