| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246102471024810249102501025110252102531025410255102561025710258102591026010261102621026310264102651026610267102681026910270102711027210273102741027510276102771027810279102801028110282102831028410285102861028710288102891029010291102921029310294102951029610297102981029910300103011030210303103041030510306103071030810309103101031110312103131031410315103161031710318103191032010321103221032310324103251032610327103281032910330103311033210333103341033510336103371033810339103401034110342103431034410345103461034710348103491035010351103521035310354103551035610357103581035910360103611036210363103641036510366103671036810369103701037110372103731037410375103761037710378103791038010381103821038310384103851038610387103881038910390103911039210393103941039510396103971039810399104001040110402104031040410405104061040710408104091041010411104121041310414104151041610417104181041910420104211042210423104241042510426104271042810429104301043110432104331043410435104361043710438104391044010441104421044310444104451044610447104481044910450104511045210453104541045510456104571045810459104601046110462104631046410465104661046710468104691047010471104721047310474104751047610477104781047910480104811048210483104841048510486104871048810489104901049110492104931049410495104961049710498104991050010501105021050310504105051050610507105081050910510105111051210513105141051510516105171051810519105201052110522105231052410525105261052710528105291053010531105321053310534105351053610537105381053910540105411054210543105441054510546105471054810549105501055110552105531055410555105561055710558105591056010561105621056310564105651056610567105681056910570105711057210573105741057510576105771057810579105801058110582105831058410585105861058710588105891059010591105921059310594105951059610597105981059910600106011060210603106041060510606106071060810609106101061110612106131061410615106161061710618106191062010621106221062310624106251062610627106281062910630106311063210633106341063510636106371063810639106401064110642106431064410645106461064710648106491065010651106521065310654106551065610657106581065910660106611066210663106641066510666106671066810669106701067110672106731067410675106761067710678106791068010681106821068310684106851068610687106881068910690106911069210693106941069510696106971069810699107001070110702107031070410705107061070710708107091071010711107121071310714107151071610717107181071910720107211072210723107241072510726107271072810729107301073110732107331073410735107361073710738107391074010741107421074310744107451074610747107481074910750107511075210753107541075510756107571075810759107601076110762107631076410765107661076710768107691077010771107721077310774107751077610777107781077910780107811078210783107841078510786107871078810789107901079110792107931079410795107961079710798107991080010801108021080310804108051080610807108081080910810108111081210813108141081510816108171081810819108201082110822108231082410825108261082710828108291083010831108321083310834108351083610837108381083910840108411084210843108441084510846108471084810849108501085110852108531085410855108561085710858108591086010861108621086310864108651086610867108681086910870108711087210873108741087510876108771087810879108801088110882108831088410885108861088710888108891089010891108921089310894108951089610897108981089910900109011090210903109041090510906109071090810909109101091110912109131091410915109161091710918109191092010921109221092310924109251092610927109281092910930109311093210933109341093510936109371093810939109401094110942109431094410945109461094710948109491095010951109521095310954109551095610957109581095910960109611096210963109641096510966109671096810969109701097110972109731097410975109761097710978109791098010981109821098310984109851098610987109881098910990109911099210993109941099510996109971099810999110001100111002110031100411005110061100711008110091101011011110121101311014110151101611017110181101911020110211102211023110241102511026110271102811029110301103111032110331103411035110361103711038110391104011041110421104311044110451104611047110481104911050110511105211053110541105511056110571105811059110601106111062110631106411065110661106711068110691107011071110721107311074110751107611077110781107911080110811108211083110841108511086110871108811089110901109111092110931109411095110961109711098110991110011101111021110311104111051110611107111081110911110111111111211113111141111511116111171111811119111201112111122111231112411125111261112711128111291113011131111321113311134111351113611137111381113911140111411114211143111441114511146111471114811149111501115111152111531115411155111561115711158111591116011161111621116311164111651116611167111681116911170111711117211173111741117511176111771117811179111801118111182111831118411185111861118711188111891119011191111921119311194111951119611197111981119911200112011120211203112041120511206112071120811209112101121111212112131121411215112161121711218112191122011221112221122311224112251122611227112281122911230112311123211233112341123511236112371123811239112401124111242112431124411245112461124711248112491125011251112521125311254112551125611257112581125911260112611126211263112641126511266112671126811269112701127111272112731127411275112761127711278112791128011281112821128311284112851128611287112881128911290112911129211293112941129511296112971129811299113001130111302113031130411305113061130711308113091131011311113121131311314113151131611317113181131911320113211132211323113241132511326113271132811329113301133111332113331133411335113361133711338113391134011341113421134311344113451134611347113481134911350113511135211353113541135511356113571135811359113601136111362113631136411365113661136711368113691137011371113721137311374113751137611377113781137911380113811138211383113841138511386113871138811389113901139111392113931139411395113961139711398113991140011401114021140311404114051140611407114081140911410114111141211413114141141511416114171141811419114201142111422114231142411425114261142711428114291143011431114321143311434114351143611437114381143911440114411144211443114441144511446114471144811449114501145111452114531145411455114561145711458114591146011461114621146311464114651146611467114681146911470114711147211473114741147511476114771147811479114801148111482114831148411485114861148711488114891149011491114921149311494114951149611497114981149911500115011150211503115041150511506115071150811509115101151111512115131151411515115161151711518115191152011521115221152311524115251152611527115281152911530115311153211533115341153511536115371153811539115401154111542115431154411545115461154711548115491155011551115521155311554115551155611557115581155911560115611156211563115641156511566115671156811569115701157111572115731157411575115761157711578115791158011581115821158311584115851158611587115881158911590115911159211593115941159511596115971159811599116001160111602116031160411605116061160711608116091161011611116121161311614116151161611617116181161911620116211162211623116241162511626116271162811629116301163111632116331163411635116361163711638116391164011641116421164311644116451164611647116481164911650116511165211653116541165511656116571165811659116601166111662116631166411665116661166711668116691167011671116721167311674116751167611677116781167911680116811168211683116841168511686116871168811689116901169111692116931169411695116961169711698116991170011701117021170311704117051170611707117081170911710117111171211713117141171511716117171171811719117201172111722117231172411725117261172711728117291173011731117321173311734117351173611737117381173911740117411174211743117441174511746117471174811749117501175111752117531175411755117561175711758117591176011761117621176311764117651176611767117681176911770117711177211773117741177511776117771177811779117801178111782117831178411785117861178711788117891179011791117921179311794117951179611797117981179911800118011180211803118041180511806118071180811809118101181111812118131181411815118161181711818118191182011821118221182311824118251182611827118281182911830118311183211833118341183511836118371183811839118401184111842118431184411845118461184711848118491185011851118521185311854118551185611857118581185911860118611186211863118641186511866118671186811869118701187111872118731187411875118761187711878118791188011881118821188311884118851188611887118881188911890118911189211893118941189511896118971189811899119001190111902119031190411905119061190711908119091191011911119121191311914119151191611917119181191911920119211192211923119241192511926119271192811929119301193111932119331193411935119361193711938119391194011941119421194311944119451194611947119481194911950119511195211953119541195511956119571195811959119601196111962119631196411965119661196711968119691197011971119721197311974119751197611977119781197911980119811198211983119841198511986119871198811989119901199111992119931199411995119961199711998119991200012001120021200312004120051200612007120081200912010120111201212013120141201512016120171201812019120201202112022120231202412025120261202712028120291203012031120321203312034120351203612037120381203912040120411204212043120441204512046120471204812049120501205112052120531205412055120561205712058120591206012061120621206312064120651206612067120681206912070120711207212073120741207512076120771207812079120801208112082120831208412085120861208712088120891209012091120921209312094120951209612097120981209912100121011210212103121041210512106121071210812109121101211112112121131211412115121161211712118121191212012121121221212312124121251212612127121281212912130121311213212133121341213512136121371213812139121401214112142121431214412145121461214712148121491215012151121521215312154121551215612157121581215912160121611216212163121641216512166121671216812169121701217112172121731217412175121761217712178121791218012181121821218312184121851218612187121881218912190121911219212193121941219512196121971219812199122001220112202122031220412205122061220712208122091221012211122121221312214122151221612217122181221912220122211222212223122241222512226122271222812229122301223112232122331223412235122361223712238122391224012241122421224312244122451224612247122481224912250122511225212253122541225512256122571225812259122601226112262122631226412265122661226712268122691227012271122721227312274122751227612277122781227912280122811228212283122841228512286122871228812289122901229112292122931229412295122961229712298122991230012301123021230312304123051230612307123081230912310123111231212313123141231512316123171231812319123201232112322123231232412325123261232712328123291233012331123321233312334123351233612337123381233912340123411234212343123441234512346123471234812349123501235112352123531235412355123561235712358123591236012361123621236312364123651236612367123681236912370123711237212373123741237512376123771237812379123801238112382123831238412385123861238712388123891239012391123921239312394123951239612397123981239912400124011240212403124041240512406124071240812409124101241112412124131241412415124161241712418124191242012421124221242312424124251242612427124281242912430124311243212433124341243512436124371243812439124401244112442124431244412445124461244712448124491245012451124521245312454124551245612457124581245912460124611246212463124641246512466124671246812469124701247112472124731247412475124761247712478124791248012481124821248312484124851248612487124881248912490124911249212493124941249512496124971249812499125001250112502125031250412505125061250712508125091251012511125121251312514125151251612517125181251912520125211252212523125241252512526125271252812529125301253112532125331253412535125361253712538125391254012541125421254312544125451254612547125481254912550125511255212553125541255512556125571255812559125601256112562125631256412565125661256712568125691257012571125721257312574125751257612577125781257912580125811258212583125841258512586125871258812589125901259112592125931259412595125961259712598125991260012601126021260312604126051260612607126081260912610126111261212613126141261512616126171261812619126201262112622126231262412625126261262712628126291263012631126321263312634126351263612637126381263912640126411264212643126441264512646126471264812649126501265112652126531265412655126561265712658126591266012661126621266312664126651266612667126681266912670126711267212673126741267512676126771267812679126801268112682126831268412685126861268712688126891269012691126921269312694126951269612697126981269912700127011270212703127041270512706127071270812709127101271112712127131271412715127161271712718127191272012721127221272312724127251272612727127281272912730127311273212733127341273512736127371273812739127401274112742127431274412745127461274712748127491275012751127521275312754127551275612757127581275912760127611276212763127641276512766127671276812769127701277112772127731277412775127761277712778127791278012781127821278312784127851278612787127881278912790127911279212793127941279512796127971279812799128001280112802128031280412805128061280712808128091281012811128121281312814128151281612817128181281912820128211282212823128241282512826128271282812829128301283112832128331283412835128361283712838128391284012841128421284312844128451284612847128481284912850128511285212853128541285512856128571285812859128601286112862128631286412865128661286712868128691287012871128721287312874128751287612877128781287912880128811288212883128841288512886128871288812889128901289112892128931289412895128961289712898128991290012901129021290312904129051290612907129081290912910129111291212913129141291512916129171291812919129201292112922129231292412925129261292712928129291293012931129321293312934129351293612937129381293912940129411294212943129441294512946129471294812949129501295112952129531295412955129561295712958129591296012961129621296312964129651296612967129681296912970129711297212973129741297512976129771297812979129801298112982129831298412985129861298712988129891299012991129921299312994129951299612997129981299913000130011300213003130041300513006130071300813009130101301113012130131301413015130161301713018130191302013021130221302313024130251302613027130281302913030130311303213033130341303513036130371303813039130401304113042130431304413045130461304713048130491305013051130521305313054130551305613057130581305913060130611306213063130641306513066130671306813069130701307113072130731307413075130761307713078130791308013081130821308313084130851308613087130881308913090130911309213093130941309513096130971309813099131001310113102131031310413105131061310713108131091311013111131121311313114131151311613117131181311913120131211312213123131241312513126131271312813129131301313113132131331313413135131361313713138131391314013141131421314313144131451314613147131481314913150131511315213153131541315513156131571315813159131601316113162131631316413165131661316713168131691317013171131721317313174131751317613177131781317913180131811318213183131841318513186131871318813189131901319113192131931319413195131961319713198131991320013201132021320313204132051320613207132081320913210132111321213213132141321513216132171321813219132201322113222132231322413225132261322713228132291323013231132321323313234132351323613237132381323913240132411324213243132441324513246132471324813249132501325113252132531325413255132561325713258132591326013261132621326313264132651326613267132681326913270132711327213273132741327513276132771327813279132801328113282132831328413285132861328713288132891329013291132921329313294132951329613297132981329913300133011330213303133041330513306133071330813309133101331113312133131331413315133161331713318133191332013321133221332313324133251332613327133281332913330133311333213333133341333513336133371333813339133401334113342133431334413345133461334713348133491335013351133521335313354133551335613357133581335913360133611336213363133641336513366133671336813369133701337113372133731337413375133761337713378133791338013381133821338313384133851338613387133881338913390133911339213393133941339513396133971339813399134001340113402134031340413405134061340713408134091341013411134121341313414134151341613417134181341913420134211342213423134241342513426134271342813429134301343113432134331343413435134361343713438134391344013441134421344313444134451344613447134481344913450134511345213453134541345513456134571345813459134601346113462134631346413465134661346713468134691347013471134721347313474134751347613477134781347913480134811348213483134841348513486134871348813489134901349113492134931349413495134961349713498134991350013501135021350313504135051350613507135081350913510135111351213513135141351513516135171351813519135201352113522135231352413525135261352713528135291353013531135321353313534135351353613537135381353913540135411354213543135441354513546135471354813549135501355113552135531355413555135561355713558135591356013561135621356313564135651356613567135681356913570135711357213573135741357513576135771357813579135801358113582135831358413585135861358713588135891359013591135921359313594135951359613597135981359913600136011360213603136041360513606136071360813609136101361113612136131361413615136161361713618136191362013621136221362313624136251362613627136281362913630136311363213633136341363513636136371363813639136401364113642136431364413645136461364713648136491365013651136521365313654136551365613657136581365913660136611366213663136641366513666136671366813669136701367113672136731367413675136761367713678136791368013681136821368313684136851368613687136881368913690136911369213693136941369513696136971369813699137001370113702137031370413705137061370713708137091371013711137121371313714137151371613717137181371913720137211372213723137241372513726137271372813729137301373113732137331373413735137361373713738137391374013741137421374313744137451374613747137481374913750137511375213753137541375513756137571375813759137601376113762137631376413765137661376713768137691377013771137721377313774137751377613777137781377913780137811378213783137841378513786137871378813789137901379113792137931379413795137961379713798137991380013801138021380313804138051380613807138081380913810138111381213813138141381513816138171381813819138201382113822138231382413825138261382713828138291383013831138321383313834138351383613837138381383913840138411384213843138441384513846138471384813849138501385113852138531385413855138561385713858138591386013861138621386313864138651386613867138681386913870138711387213873138741387513876138771387813879138801388113882138831388413885138861388713888138891389013891138921389313894138951389613897138981389913900139011390213903139041390513906139071390813909139101391113912139131391413915139161391713918139191392013921139221392313924139251392613927139281392913930139311393213933139341393513936139371393813939139401394113942139431394413945139461394713948139491395013951139521395313954139551395613957139581395913960139611396213963139641396513966139671396813969139701397113972139731397413975139761397713978139791398013981139821398313984139851398613987139881398913990139911399213993139941399513996139971399813999140001400114002140031400414005140061400714008140091401014011140121401314014140151401614017140181401914020140211402214023140241402514026140271402814029140301403114032140331403414035140361403714038140391404014041140421404314044140451404614047140481404914050140511405214053140541405514056140571405814059140601406114062140631406414065140661406714068140691407014071140721407314074140751407614077140781407914080140811408214083140841408514086140871408814089140901409114092140931409414095140961409714098140991410014101141021410314104141051410614107141081410914110141111411214113141141411514116141171411814119141201412114122141231412414125141261412714128141291413014131141321413314134141351413614137141381413914140141411414214143141441414514146141471414814149141501415114152141531415414155141561415714158141591416014161141621416314164141651416614167141681416914170141711417214173141741417514176141771417814179141801418114182141831418414185141861418714188141891419014191141921419314194141951419614197141981419914200142011420214203142041420514206142071420814209142101421114212142131421414215142161421714218142191422014221142221422314224142251422614227142281422914230142311423214233142341423514236142371423814239142401424114242142431424414245142461424714248142491425014251142521425314254142551425614257142581425914260142611426214263142641426514266142671426814269142701427114272142731427414275142761427714278142791428014281142821428314284142851428614287142881428914290142911429214293142941429514296142971429814299143001430114302143031430414305143061430714308143091431014311143121431314314143151431614317143181431914320143211432214323143241432514326143271432814329143301433114332143331433414335143361433714338143391434014341143421434314344143451434614347143481434914350143511435214353143541435514356143571435814359143601436114362143631436414365143661436714368143691437014371143721437314374143751437614377143781437914380143811438214383143841438514386143871438814389143901439114392143931439414395143961439714398143991440014401144021440314404144051440614407144081440914410144111441214413144141441514416144171441814419144201442114422144231442414425144261442714428144291443014431144321443314434144351443614437144381443914440144411444214443144441444514446144471444814449144501445114452144531445414455144561445714458144591446014461144621446314464144651446614467144681446914470144711447214473144741447514476144771447814479144801448114482144831448414485144861448714488144891449014491144921449314494144951449614497144981449914500145011450214503145041450514506145071450814509145101451114512145131451414515145161451714518145191452014521145221452314524145251452614527145281452914530145311453214533145341453514536145371453814539145401454114542145431454414545145461454714548145491455014551145521455314554145551455614557145581455914560145611456214563145641456514566145671456814569145701457114572145731457414575145761457714578145791458014581145821458314584145851458614587145881458914590145911459214593145941459514596145971459814599146001460114602146031460414605146061460714608146091461014611146121461314614146151461614617146181461914620146211462214623146241462514626146271462814629146301463114632146331463414635146361463714638146391464014641146421464314644146451464614647146481464914650146511465214653146541465514656146571465814659146601466114662146631466414665146661466714668146691467014671146721467314674146751467614677146781467914680146811468214683146841468514686146871468814689146901469114692146931469414695146961469714698146991470014701147021470314704147051470614707147081470914710147111471214713147141471514716147171471814719147201472114722147231472414725147261472714728147291473014731147321473314734147351473614737147381473914740147411474214743147441474514746147471474814749147501475114752147531475414755147561475714758147591476014761147621476314764147651476614767147681476914770147711477214773147741477514776147771477814779147801478114782147831478414785147861478714788147891479014791147921479314794147951479614797147981479914800148011480214803148041480514806148071480814809148101481114812148131481414815148161481714818148191482014821148221482314824148251482614827148281482914830148311483214833148341483514836148371483814839148401484114842148431484414845148461484714848148491485014851148521485314854148551485614857148581485914860148611486214863148641486514866148671486814869148701487114872148731487414875148761487714878148791488014881148821488314884148851488614887148881488914890148911489214893148941489514896148971489814899149001490114902149031490414905149061490714908149091491014911149121491314914149151491614917149181491914920149211492214923149241492514926149271492814929149301493114932149331493414935149361493714938149391494014941149421494314944149451494614947149481494914950149511495214953149541495514956149571495814959149601496114962149631496414965149661496714968149691497014971149721497314974149751497614977149781497914980149811498214983149841498514986149871498814989149901499114992149931499414995149961499714998149991500015001150021500315004150051500615007150081500915010150111501215013150141501515016150171501815019150201502115022150231502415025150261502715028150291503015031150321503315034150351503615037150381503915040150411504215043150441504515046150471504815049150501505115052150531505415055150561505715058150591506015061150621506315064150651506615067150681506915070150711507215073150741507515076150771507815079150801508115082150831508415085150861508715088150891509015091150921509315094150951509615097150981509915100151011510215103151041510515106151071510815109151101511115112151131511415115151161511715118151191512015121151221512315124151251512615127151281512915130151311513215133151341513515136151371513815139151401514115142151431514415145151461514715148151491515015151151521515315154151551515615157151581515915160151611516215163151641516515166151671516815169151701517115172151731517415175151761517715178151791518015181151821518315184151851518615187151881518915190151911519215193151941519515196151971519815199152001520115202152031520415205152061520715208152091521015211152121521315214152151521615217152181521915220152211522215223152241522515226152271522815229152301523115232152331523415235152361523715238152391524015241152421524315244152451524615247152481524915250152511525215253152541525515256152571525815259152601526115262152631526415265152661526715268152691527015271152721527315274152751527615277152781527915280152811528215283152841528515286152871528815289152901529115292152931529415295152961529715298152991530015301153021530315304153051530615307153081530915310153111531215313153141531515316153171531815319153201532115322153231532415325153261532715328153291533015331153321533315334153351533615337153381533915340153411534215343153441534515346153471534815349153501535115352153531535415355153561535715358153591536015361153621536315364153651536615367153681536915370153711537215373153741537515376153771537815379153801538115382153831538415385153861538715388153891539015391153921539315394153951539615397153981539915400154011540215403154041540515406154071540815409154101541115412154131541415415154161541715418154191542015421154221542315424154251542615427154281542915430154311543215433154341543515436154371543815439154401544115442154431544415445154461544715448154491545015451154521545315454154551545615457154581545915460154611546215463154641546515466154671546815469154701547115472154731547415475154761547715478154791548015481154821548315484154851548615487154881548915490154911549215493154941549515496154971549815499155001550115502155031550415505155061550715508155091551015511155121551315514155151551615517155181551915520155211552215523155241552515526155271552815529155301553115532155331553415535155361553715538155391554015541155421554315544155451554615547155481554915550155511555215553155541555515556155571555815559155601556115562155631556415565155661556715568155691557015571155721557315574155751557615577155781557915580155811558215583155841558515586155871558815589155901559115592155931559415595155961559715598155991560015601156021560315604156051560615607156081560915610156111561215613156141561515616156171561815619156201562115622156231562415625156261562715628156291563015631156321563315634156351563615637156381563915640156411564215643156441564515646156471564815649156501565115652156531565415655156561565715658156591566015661156621566315664156651566615667156681566915670156711567215673156741567515676156771567815679156801568115682156831568415685156861568715688156891569015691156921569315694156951569615697156981569915700157011570215703157041570515706157071570815709157101571115712157131571415715157161571715718157191572015721157221572315724157251572615727157281572915730157311573215733157341573515736157371573815739157401574115742157431574415745157461574715748157491575015751157521575315754157551575615757157581575915760157611576215763157641576515766157671576815769157701577115772157731577415775157761577715778157791578015781157821578315784157851578615787157881578915790157911579215793157941579515796157971579815799158001580115802158031580415805158061580715808158091581015811158121581315814158151581615817158181581915820158211582215823158241582515826158271582815829158301583115832158331583415835158361583715838158391584015841158421584315844158451584615847158481584915850158511585215853158541585515856158571585815859158601586115862158631586415865158661586715868158691587015871158721587315874158751587615877158781587915880158811588215883158841588515886158871588815889158901589115892158931589415895158961589715898158991590015901159021590315904159051590615907159081590915910159111591215913159141591515916159171591815919159201592115922159231592415925159261592715928159291593015931159321593315934159351593615937159381593915940159411594215943159441594515946159471594815949159501595115952159531595415955159561595715958159591596015961159621596315964159651596615967159681596915970159711597215973159741597515976159771597815979159801598115982159831598415985159861598715988159891599015991159921599315994159951599615997159981599916000160011600216003160041600516006160071600816009160101601116012160131601416015160161601716018160191602016021160221602316024160251602616027160281602916030160311603216033160341603516036160371603816039160401604116042160431604416045160461604716048160491605016051160521605316054160551605616057160581605916060160611606216063160641606516066160671606816069160701607116072160731607416075160761607716078160791608016081160821608316084160851608616087160881608916090160911609216093160941609516096160971609816099161001610116102161031610416105161061610716108161091611016111161121611316114161151611616117161181611916120161211612216123161241612516126161271612816129161301613116132161331613416135161361613716138161391614016141161421614316144161451614616147161481614916150161511615216153161541615516156161571615816159161601616116162161631616416165161661616716168161691617016171161721617316174161751617616177161781617916180161811618216183161841618516186161871618816189161901619116192161931619416195161961619716198161991620016201162021620316204162051620616207162081620916210162111621216213162141621516216162171621816219162201622116222162231622416225162261622716228162291623016231162321623316234162351623616237162381623916240162411624216243162441624516246162471624816249162501625116252162531625416255162561625716258162591626016261162621626316264162651626616267162681626916270162711627216273162741627516276162771627816279162801628116282162831628416285162861628716288162891629016291162921629316294162951629616297162981629916300163011630216303163041630516306163071630816309163101631116312163131631416315163161631716318163191632016321163221632316324163251632616327163281632916330163311633216333163341633516336163371633816339163401634116342163431634416345163461634716348163491635016351163521635316354163551635616357163581635916360163611636216363163641636516366163671636816369163701637116372163731637416375163761637716378163791638016381163821638316384163851638616387163881638916390163911639216393163941639516396163971639816399164001640116402164031640416405164061640716408164091641016411164121641316414164151641616417164181641916420164211642216423164241642516426164271642816429164301643116432164331643416435164361643716438164391644016441164421644316444164451644616447164481644916450164511645216453164541645516456164571645816459164601646116462164631646416465164661646716468164691647016471164721647316474164751647616477164781647916480164811648216483164841648516486164871648816489164901649116492164931649416495164961649716498164991650016501165021650316504165051650616507165081650916510165111651216513165141651516516165171651816519165201652116522165231652416525165261652716528165291653016531165321653316534165351653616537165381653916540165411654216543165441654516546165471654816549165501655116552165531655416555165561655716558165591656016561165621656316564165651656616567165681656916570165711657216573165741657516576165771657816579165801658116582165831658416585165861658716588165891659016591165921659316594165951659616597165981659916600166011660216603166041660516606166071660816609166101661116612166131661416615166161661716618166191662016621166221662316624166251662616627166281662916630166311663216633166341663516636166371663816639166401664116642166431664416645166461664716648166491665016651166521665316654166551665616657166581665916660166611666216663166641666516666166671666816669166701667116672166731667416675166761667716678166791668016681166821668316684166851668616687166881668916690166911669216693166941669516696166971669816699167001670116702167031670416705167061670716708167091671016711167121671316714167151671616717167181671916720167211672216723167241672516726167271672816729167301673116732167331673416735167361673716738167391674016741167421674316744167451674616747167481674916750167511675216753167541675516756167571675816759167601676116762167631676416765167661676716768167691677016771167721677316774167751677616777167781677916780167811678216783167841678516786167871678816789167901679116792167931679416795167961679716798167991680016801168021680316804168051680616807168081680916810168111681216813168141681516816168171681816819168201682116822168231682416825168261682716828168291683016831168321683316834168351683616837168381683916840168411684216843168441684516846168471684816849168501685116852168531685416855168561685716858168591686016861168621686316864168651686616867168681686916870168711687216873168741687516876168771687816879168801688116882168831688416885168861688716888168891689016891168921689316894168951689616897168981689916900169011690216903169041690516906169071690816909169101691116912169131691416915169161691716918169191692016921169221692316924169251692616927169281692916930169311693216933169341693516936169371693816939169401694116942169431694416945169461694716948169491695016951169521695316954169551695616957169581695916960169611696216963169641696516966169671696816969169701697116972169731697416975169761697716978169791698016981169821698316984169851698616987169881698916990169911699216993169941699516996169971699816999170001700117002170031700417005170061700717008170091701017011170121701317014170151701617017170181701917020170211702217023170241702517026170271702817029170301703117032170331703417035170361703717038170391704017041170421704317044170451704617047170481704917050170511705217053170541705517056170571705817059170601706117062170631706417065170661706717068170691707017071170721707317074170751707617077170781707917080170811708217083170841708517086170871708817089170901709117092170931709417095170961709717098170991710017101171021710317104171051710617107171081710917110171111711217113171141711517116171171711817119171201712117122171231712417125171261712717128171291713017131171321713317134171351713617137171381713917140171411714217143171441714517146171471714817149171501715117152171531715417155171561715717158171591716017161171621716317164171651716617167171681716917170171711717217173171741717517176171771717817179171801718117182171831718417185171861718717188171891719017191171921719317194171951719617197171981719917200172011720217203172041720517206172071720817209172101721117212172131721417215172161721717218172191722017221172221722317224172251722617227172281722917230172311723217233172341723517236172371723817239172401724117242172431724417245172461724717248172491725017251172521725317254172551725617257172581725917260172611726217263172641726517266172671726817269172701727117272172731727417275172761727717278172791728017281172821728317284172851728617287172881728917290172911729217293172941729517296172971729817299173001730117302173031730417305173061730717308173091731017311173121731317314173151731617317173181731917320173211732217323173241732517326173271732817329173301733117332173331733417335173361733717338173391734017341173421734317344173451734617347173481734917350173511735217353173541735517356173571735817359173601736117362173631736417365173661736717368173691737017371173721737317374173751737617377173781737917380173811738217383173841738517386173871738817389173901739117392173931739417395173961739717398173991740017401174021740317404174051740617407174081740917410174111741217413174141741517416174171741817419174201742117422174231742417425174261742717428174291743017431174321743317434174351743617437174381743917440174411744217443174441744517446174471744817449174501745117452174531745417455174561745717458174591746017461174621746317464174651746617467174681746917470174711747217473174741747517476174771747817479174801748117482174831748417485174861748717488174891749017491174921749317494174951749617497174981749917500175011750217503175041750517506175071750817509175101751117512175131751417515175161751717518175191752017521175221752317524175251752617527175281752917530175311753217533175341753517536175371753817539175401754117542175431754417545175461754717548175491755017551175521755317554175551755617557175581755917560175611756217563175641756517566175671756817569175701757117572175731757417575175761757717578175791758017581175821758317584175851758617587175881758917590175911759217593175941759517596175971759817599176001760117602176031760417605176061760717608176091761017611176121761317614176151761617617176181761917620176211762217623176241762517626176271762817629176301763117632176331763417635176361763717638176391764017641176421764317644176451764617647176481764917650176511765217653176541765517656176571765817659176601766117662176631766417665176661766717668176691767017671176721767317674176751767617677176781767917680176811768217683176841768517686176871768817689176901769117692176931769417695176961769717698176991770017701177021770317704177051770617707177081770917710177111771217713177141771517716177171771817719177201772117722177231772417725177261772717728177291773017731177321773317734177351773617737177381773917740177411774217743177441774517746177471774817749177501775117752177531775417755177561775717758177591776017761177621776317764177651776617767177681776917770177711777217773177741777517776177771777817779177801778117782177831778417785177861778717788177891779017791177921779317794177951779617797177981779917800178011780217803178041780517806178071780817809178101781117812178131781417815178161781717818178191782017821178221782317824178251782617827178281782917830178311783217833178341783517836178371783817839178401784117842178431784417845178461784717848178491785017851178521785317854178551785617857178581785917860178611786217863178641786517866178671786817869178701787117872178731787417875178761787717878178791788017881178821788317884178851788617887178881788917890178911789217893178941789517896178971789817899179001790117902179031790417905179061790717908179091791017911179121791317914179151791617917179181791917920179211792217923179241792517926179271792817929179301793117932179331793417935179361793717938179391794017941179421794317944179451794617947179481794917950179511795217953179541795517956179571795817959179601796117962179631796417965179661796717968179691797017971179721797317974179751797617977179781797917980179811798217983179841798517986179871798817989179901799117992179931799417995179961799717998179991800018001180021800318004180051800618007180081800918010180111801218013180141801518016180171801818019180201802118022180231802418025180261802718028180291803018031180321803318034180351803618037180381803918040180411804218043180441804518046180471804818049180501805118052180531805418055180561805718058180591806018061180621806318064180651806618067180681806918070180711807218073180741807518076180771807818079180801808118082180831808418085180861808718088180891809018091180921809318094180951809618097180981809918100181011810218103181041810518106181071810818109181101811118112181131811418115181161811718118181191812018121181221812318124181251812618127181281812918130181311813218133181341813518136181371813818139181401814118142181431814418145181461814718148181491815018151181521815318154181551815618157181581815918160181611816218163181641816518166181671816818169181701817118172181731817418175181761817718178181791818018181181821818318184181851818618187181881818918190181911819218193181941819518196181971819818199182001820118202182031820418205182061820718208182091821018211182121821318214182151821618217182181821918220182211822218223182241822518226182271822818229182301823118232182331823418235182361823718238182391824018241182421824318244182451824618247182481824918250182511825218253182541825518256182571825818259182601826118262182631826418265182661826718268182691827018271182721827318274182751827618277182781827918280182811828218283182841828518286182871828818289182901829118292182931829418295182961829718298182991830018301183021830318304183051830618307183081830918310183111831218313183141831518316183171831818319183201832118322183231832418325183261832718328183291833018331183321833318334183351833618337183381833918340183411834218343183441834518346183471834818349183501835118352183531835418355183561835718358183591836018361183621836318364183651836618367183681836918370183711837218373183741837518376183771837818379183801838118382183831838418385183861838718388183891839018391183921839318394183951839618397183981839918400184011840218403184041840518406184071840818409184101841118412184131841418415184161841718418184191842018421184221842318424184251842618427184281842918430184311843218433184341843518436184371843818439184401844118442184431844418445184461844718448184491845018451184521845318454184551845618457184581845918460184611846218463184641846518466184671846818469184701847118472184731847418475184761847718478184791848018481184821848318484184851848618487184881848918490184911849218493184941849518496184971849818499185001850118502185031850418505185061850718508185091851018511185121851318514185151851618517185181851918520185211852218523185241852518526185271852818529185301853118532185331853418535185361853718538185391854018541185421854318544185451854618547185481854918550185511855218553185541855518556185571855818559185601856118562185631856418565185661856718568185691857018571185721857318574185751857618577185781857918580185811858218583185841858518586185871858818589185901859118592185931859418595185961859718598185991860018601186021860318604186051860618607186081860918610186111861218613186141861518616186171861818619186201862118622186231862418625186261862718628186291863018631186321863318634186351863618637186381863918640186411864218643186441864518646186471864818649186501865118652186531865418655186561865718658186591866018661186621866318664186651866618667186681866918670186711867218673186741867518676186771867818679186801868118682186831868418685186861868718688186891869018691186921869318694186951869618697186981869918700187011870218703187041870518706187071870818709187101871118712187131871418715187161871718718187191872018721187221872318724187251872618727187281872918730187311873218733187341873518736187371873818739187401874118742187431874418745187461874718748187491875018751187521875318754187551875618757187581875918760187611876218763187641876518766187671876818769187701877118772187731877418775187761877718778187791878018781187821878318784187851878618787187881878918790187911879218793187941879518796187971879818799188001880118802188031880418805188061880718808188091881018811188121881318814188151881618817188181881918820188211882218823188241882518826188271882818829188301883118832188331883418835188361883718838188391884018841188421884318844188451884618847188481884918850188511885218853188541885518856188571885818859188601886118862188631886418865188661886718868188691887018871188721887318874188751887618877188781887918880188811888218883188841888518886188871888818889188901889118892188931889418895188961889718898188991890018901189021890318904189051890618907189081890918910189111891218913189141891518916189171891818919189201892118922189231892418925189261892718928189291893018931189321893318934189351893618937189381893918940189411894218943189441894518946189471894818949189501895118952189531895418955189561895718958189591896018961189621896318964189651896618967189681896918970189711897218973189741897518976189771897818979189801898118982189831898418985189861898718988189891899018991189921899318994189951899618997189981899919000190011900219003190041900519006190071900819009190101901119012190131901419015190161901719018190191902019021190221902319024190251902619027190281902919030190311903219033190341903519036190371903819039190401904119042190431904419045190461904719048190491905019051190521905319054190551905619057190581905919060190611906219063190641906519066190671906819069190701907119072190731907419075190761907719078190791908019081190821908319084190851908619087190881908919090190911909219093190941909519096190971909819099191001910119102191031910419105191061910719108191091911019111191121911319114191151911619117191181911919120191211912219123191241912519126191271912819129191301913119132191331913419135191361913719138191391914019141191421914319144191451914619147191481914919150191511915219153191541915519156191571915819159191601916119162191631916419165191661916719168191691917019171191721917319174191751917619177191781917919180191811918219183191841918519186191871918819189191901919119192191931919419195191961919719198191991920019201192021920319204192051920619207192081920919210192111921219213192141921519216192171921819219192201922119222192231922419225192261922719228192291923019231192321923319234192351923619237192381923919240192411924219243192441924519246192471924819249192501925119252192531925419255192561925719258192591926019261192621926319264192651926619267192681926919270192711927219273192741927519276192771927819279192801928119282192831928419285192861928719288192891929019291192921929319294192951929619297192981929919300193011930219303193041930519306193071930819309193101931119312193131931419315193161931719318193191932019321193221932319324193251932619327193281932919330193311933219333193341933519336193371933819339193401934119342193431934419345193461934719348193491935019351193521935319354193551935619357193581935919360193611936219363193641936519366193671936819369193701937119372193731937419375193761937719378193791938019381193821938319384193851938619387193881938919390193911939219393193941939519396193971939819399194001940119402194031940419405194061940719408194091941019411194121941319414194151941619417194181941919420194211942219423194241942519426194271942819429194301943119432194331943419435194361943719438194391944019441194421944319444194451944619447194481944919450194511945219453194541945519456194571945819459194601946119462194631946419465194661946719468194691947019471194721947319474194751947619477194781947919480194811948219483194841948519486194871948819489194901949119492194931949419495194961949719498194991950019501195021950319504195051950619507195081950919510195111951219513195141951519516195171951819519195201952119522195231952419525195261952719528195291953019531195321953319534195351953619537195381953919540195411954219543195441954519546195471954819549195501955119552195531955419555195561955719558195591956019561195621956319564195651956619567195681956919570195711957219573195741957519576195771957819579195801958119582195831958419585195861958719588195891959019591195921959319594195951959619597195981959919600196011960219603196041960519606196071960819609196101961119612196131961419615196161961719618196191962019621196221962319624196251962619627196281962919630196311963219633196341963519636196371963819639196401964119642196431964419645196461964719648196491965019651196521965319654196551965619657196581965919660196611966219663196641966519666196671966819669196701967119672196731967419675196761967719678196791968019681196821968319684196851968619687196881968919690196911969219693196941969519696196971969819699197001970119702197031970419705197061970719708197091971019711197121971319714197151971619717197181971919720197211972219723197241972519726197271972819729197301973119732197331973419735197361973719738197391974019741197421974319744197451974619747197481974919750197511975219753197541975519756197571975819759197601976119762197631976419765197661976719768197691977019771197721977319774197751977619777197781977919780197811978219783197841978519786197871978819789197901979119792197931979419795197961979719798197991980019801198021980319804198051980619807198081980919810198111981219813198141981519816198171981819819198201982119822198231982419825198261982719828198291983019831198321983319834198351983619837198381983919840198411984219843198441984519846198471984819849198501985119852198531985419855198561985719858198591986019861198621986319864198651986619867198681986919870198711987219873198741987519876198771987819879198801988119882198831988419885198861988719888198891989019891198921989319894198951989619897198981989919900199011990219903199041990519906199071990819909199101991119912199131991419915199161991719918199191992019921199221992319924199251992619927199281992919930199311993219933199341993519936199371993819939199401994119942199431994419945199461994719948199491995019951199521995319954199551995619957199581995919960199611996219963199641996519966199671996819969199701997119972199731997419975199761997719978199791998019981199821998319984199851998619987199881998919990199911999219993199941999519996199971999819999200002000120002200032000420005200062000720008200092001020011200122001320014200152001620017200182001920020200212002220023200242002520026200272002820029200302003120032200332003420035200362003720038200392004020041200422004320044200452004620047200482004920050200512005220053200542005520056200572005820059200602006120062200632006420065200662006720068200692007020071200722007320074200752007620077200782007920080200812008220083200842008520086200872008820089200902009120092200932009420095200962009720098200992010020101201022010320104201052010620107201082010920110201112011220113201142011520116201172011820119201202012120122201232012420125201262012720128201292013020131201322013320134201352013620137201382013920140201412014220143201442014520146201472014820149201502015120152201532015420155201562015720158201592016020161201622016320164201652016620167201682016920170201712017220173201742017520176201772017820179201802018120182201832018420185201862018720188201892019020191201922019320194201952019620197201982019920200202012020220203202042020520206202072020820209202102021120212202132021420215202162021720218202192022020221202222022320224202252022620227202282022920230202312023220233202342023520236202372023820239202402024120242202432024420245202462024720248202492025020251202522025320254202552025620257202582025920260202612026220263202642026520266202672026820269202702027120272202732027420275202762027720278202792028020281202822028320284202852028620287202882028920290202912029220293202942029520296202972029820299203002030120302203032030420305203062030720308203092031020311203122031320314203152031620317203182031920320203212032220323203242032520326203272032820329203302033120332203332033420335203362033720338203392034020341203422034320344203452034620347203482034920350203512035220353203542035520356203572035820359203602036120362203632036420365203662036720368203692037020371203722037320374203752037620377203782037920380203812038220383203842038520386203872038820389203902039120392203932039420395203962039720398203992040020401204022040320404204052040620407204082040920410204112041220413204142041520416204172041820419204202042120422204232042420425204262042720428204292043020431204322043320434204352043620437204382043920440204412044220443204442044520446204472044820449204502045120452204532045420455204562045720458204592046020461204622046320464204652046620467204682046920470204712047220473204742047520476204772047820479204802048120482204832048420485204862048720488204892049020491204922049320494204952049620497204982049920500205012050220503205042050520506205072050820509205102051120512205132051420515205162051720518205192052020521205222052320524205252052620527205282052920530205312053220533205342053520536205372053820539205402054120542205432054420545205462054720548205492055020551205522055320554205552055620557205582055920560205612056220563205642056520566205672056820569205702057120572205732057420575205762057720578205792058020581205822058320584205852058620587205882058920590205912059220593205942059520596205972059820599206002060120602206032060420605206062060720608206092061020611206122061320614206152061620617206182061920620206212062220623206242062520626206272062820629206302063120632206332063420635206362063720638206392064020641206422064320644206452064620647206482064920650206512065220653206542065520656206572065820659206602066120662206632066420665206662066720668206692067020671206722067320674206752067620677206782067920680206812068220683206842068520686206872068820689206902069120692206932069420695206962069720698206992070020701207022070320704207052070620707207082070920710207112071220713207142071520716207172071820719207202072120722207232072420725207262072720728207292073020731207322073320734207352073620737207382073920740207412074220743207442074520746207472074820749207502075120752207532075420755207562075720758207592076020761207622076320764207652076620767207682076920770207712077220773207742077520776207772077820779207802078120782207832078420785207862078720788207892079020791207922079320794207952079620797207982079920800208012080220803208042080520806208072080820809208102081120812208132081420815208162081720818208192082020821208222082320824208252082620827208282082920830208312083220833208342083520836208372083820839208402084120842208432084420845208462084720848208492085020851208522085320854208552085620857208582085920860208612086220863208642086520866208672086820869208702087120872208732087420875208762087720878208792088020881208822088320884208852088620887208882088920890208912089220893208942089520896208972089820899209002090120902209032090420905209062090720908209092091020911209122091320914209152091620917209182091920920209212092220923209242092520926209272092820929209302093120932209332093420935209362093720938209392094020941209422094320944209452094620947209482094920950209512095220953209542095520956209572095820959209602096120962209632096420965209662096720968209692097020971209722097320974209752097620977209782097920980209812098220983209842098520986209872098820989209902099120992209932099420995209962099720998209992100021001210022100321004210052100621007210082100921010210112101221013210142101521016210172101821019210202102121022210232102421025210262102721028210292103021031210322103321034210352103621037210382103921040210412104221043210442104521046210472104821049210502105121052210532105421055210562105721058210592106021061210622106321064210652106621067210682106921070210712107221073210742107521076210772107821079210802108121082210832108421085210862108721088210892109021091210922109321094210952109621097210982109921100211012110221103211042110521106211072110821109211102111121112211132111421115211162111721118211192112021121211222112321124211252112621127211282112921130211312113221133211342113521136211372113821139211402114121142211432114421145211462114721148211492115021151211522115321154211552115621157211582115921160211612116221163211642116521166211672116821169211702117121172211732117421175211762117721178211792118021181211822118321184211852118621187211882118921190211912119221193211942119521196211972119821199212002120121202212032120421205212062120721208212092121021211212122121321214212152121621217212182121921220212212122221223212242122521226212272122821229212302123121232212332123421235212362123721238212392124021241212422124321244212452124621247212482124921250212512125221253212542125521256212572125821259212602126121262212632126421265212662126721268212692127021271212722127321274212752127621277212782127921280212812128221283212842128521286212872128821289212902129121292212932129421295212962129721298212992130021301213022130321304213052130621307213082130921310213112131221313213142131521316213172131821319213202132121322213232132421325213262132721328213292133021331213322133321334213352133621337213382133921340213412134221343213442134521346213472134821349213502135121352213532135421355213562135721358213592136021361213622136321364213652136621367213682136921370213712137221373213742137521376213772137821379213802138121382213832138421385213862138721388213892139021391213922139321394213952139621397213982139921400214012140221403214042140521406214072140821409214102141121412214132141421415214162141721418214192142021421214222142321424214252142621427214282142921430214312143221433214342143521436214372143821439214402144121442214432144421445214462144721448214492145021451214522145321454214552145621457214582145921460214612146221463214642146521466214672146821469214702147121472214732147421475214762147721478214792148021481214822148321484214852148621487214882148921490214912149221493214942149521496214972149821499215002150121502215032150421505215062150721508215092151021511215122151321514215152151621517215182151921520215212152221523215242152521526215272152821529215302153121532215332153421535215362153721538215392154021541215422154321544215452154621547215482154921550215512155221553215542155521556215572155821559215602156121562215632156421565215662156721568215692157021571215722157321574215752157621577215782157921580215812158221583215842158521586215872158821589215902159121592215932159421595215962159721598215992160021601216022160321604216052160621607216082160921610216112161221613216142161521616216172161821619216202162121622216232162421625216262162721628216292163021631216322163321634216352163621637216382163921640216412164221643216442164521646216472164821649216502165121652216532165421655216562165721658216592166021661216622166321664216652166621667216682166921670216712167221673216742167521676216772167821679216802168121682216832168421685216862168721688216892169021691216922169321694216952169621697216982169921700217012170221703217042170521706217072170821709217102171121712217132171421715217162171721718217192172021721217222172321724217252172621727217282172921730217312173221733217342173521736217372173821739217402174121742217432174421745217462174721748217492175021751217522175321754217552175621757217582175921760217612176221763217642176521766217672176821769217702177121772217732177421775217762177721778217792178021781217822178321784217852178621787217882178921790217912179221793217942179521796217972179821799218002180121802218032180421805218062180721808218092181021811218122181321814218152181621817218182181921820218212182221823218242182521826218272182821829218302183121832218332183421835218362183721838218392184021841218422184321844218452184621847218482184921850218512185221853218542185521856218572185821859218602186121862218632186421865218662186721868218692187021871218722187321874218752187621877218782187921880218812188221883218842188521886218872188821889218902189121892218932189421895218962189721898218992190021901219022190321904219052190621907219082190921910219112191221913219142191521916219172191821919219202192121922219232192421925219262192721928219292193021931219322193321934219352193621937219382193921940219412194221943219442194521946219472194821949219502195121952219532195421955219562195721958219592196021961219622196321964219652196621967219682196921970219712197221973219742197521976219772197821979219802198121982219832198421985219862198721988219892199021991219922199321994219952199621997219982199922000220012200222003220042200522006220072200822009220102201122012220132201422015220162201722018220192202022021220222202322024220252202622027220282202922030220312203222033220342203522036220372203822039220402204122042220432204422045220462204722048220492205022051220522205322054220552205622057220582205922060220612206222063220642206522066220672206822069220702207122072220732207422075220762207722078220792208022081220822208322084220852208622087220882208922090220912209222093220942209522096220972209822099221002210122102221032210422105221062210722108221092211022111221122211322114221152211622117221182211922120221212212222123221242212522126221272212822129221302213122132221332213422135221362213722138221392214022141221422214322144221452214622147221482214922150221512215222153221542215522156221572215822159221602216122162221632216422165221662216722168221692217022171221722217322174221752217622177221782217922180221812218222183221842218522186221872218822189221902219122192221932219422195221962219722198221992220022201222022220322204222052220622207222082220922210222112221222213222142221522216222172221822219222202222122222222232222422225222262222722228222292223022231222322223322234222352223622237222382223922240222412224222243222442224522246222472224822249222502225122252222532225422255222562225722258222592226022261222622226322264222652226622267222682226922270222712227222273222742227522276222772227822279222802228122282222832228422285222862228722288222892229022291222922229322294222952229622297222982229922300223012230222303223042230522306223072230822309223102231122312223132231422315223162231722318223192232022321223222232322324223252232622327223282232922330223312233222333223342233522336223372233822339223402234122342223432234422345223462234722348223492235022351223522235322354223552235622357223582235922360223612236222363223642236522366223672236822369223702237122372223732237422375223762237722378223792238022381223822238322384223852238622387223882238922390223912239222393223942239522396223972239822399224002240122402224032240422405224062240722408224092241022411224122241322414224152241622417224182241922420224212242222423224242242522426224272242822429224302243122432224332243422435224362243722438224392244022441224422244322444224452244622447224482244922450224512245222453224542245522456224572245822459224602246122462224632246422465224662246722468224692247022471224722247322474224752247622477224782247922480224812248222483224842248522486224872248822489224902249122492224932249422495224962249722498224992250022501225022250322504225052250622507225082250922510225112251222513225142251522516225172251822519225202252122522225232252422525225262252722528225292253022531225322253322534225352253622537225382253922540225412254222543225442254522546225472254822549225502255122552225532255422555225562255722558225592256022561225622256322564225652256622567225682256922570225712257222573225742257522576225772257822579225802258122582225832258422585225862258722588225892259022591225922259322594225952259622597225982259922600226012260222603226042260522606226072260822609226102261122612226132261422615226162261722618226192262022621226222262322624226252262622627226282262922630226312263222633226342263522636226372263822639226402264122642226432264422645226462264722648226492265022651226522265322654226552265622657226582265922660226612266222663226642266522666226672266822669226702267122672226732267422675226762267722678226792268022681226822268322684226852268622687226882268922690226912269222693226942269522696226972269822699227002270122702227032270422705227062270722708227092271022711227122271322714227152271622717227182271922720227212272222723227242272522726227272272822729227302273122732227332273422735227362273722738227392274022741227422274322744227452274622747227482274922750227512275222753227542275522756227572275822759227602276122762227632276422765227662276722768227692277022771227722277322774227752277622777227782277922780227812278222783227842278522786227872278822789227902279122792227932279422795227962279722798227992280022801228022280322804228052280622807228082280922810228112281222813228142281522816228172281822819228202282122822228232282422825228262282722828228292283022831228322283322834228352283622837228382283922840228412284222843228442284522846228472284822849228502285122852228532285422855228562285722858228592286022861228622286322864228652286622867228682286922870228712287222873228742287522876228772287822879228802288122882228832288422885228862288722888228892289022891228922289322894228952289622897228982289922900229012290222903229042290522906229072290822909229102291122912229132291422915229162291722918229192292022921229222292322924229252292622927229282292922930229312293222933229342293522936229372293822939229402294122942229432294422945229462294722948229492295022951229522295322954229552295622957229582295922960229612296222963229642296522966229672296822969229702297122972229732297422975229762297722978229792298022981229822298322984229852298622987229882298922990229912299222993229942299522996229972299822999230002300123002230032300423005230062300723008230092301023011230122301323014230152301623017230182301923020230212302223023230242302523026230272302823029230302303123032230332303423035230362303723038230392304023041230422304323044230452304623047230482304923050230512305223053230542305523056230572305823059230602306123062230632306423065230662306723068230692307023071230722307323074230752307623077230782307923080230812308223083230842308523086230872308823089230902309123092230932309423095230962309723098230992310023101231022310323104231052310623107231082310923110231112311223113231142311523116231172311823119231202312123122231232312423125231262312723128231292313023131231322313323134231352313623137231382313923140231412314223143231442314523146231472314823149231502315123152231532315423155231562315723158231592316023161231622316323164231652316623167231682316923170231712317223173231742317523176231772317823179231802318123182231832318423185231862318723188231892319023191231922319323194231952319623197231982319923200232012320223203232042320523206232072320823209232102321123212232132321423215232162321723218232192322023221232222322323224232252322623227232282322923230232312323223233232342323523236232372323823239232402324123242232432324423245232462324723248232492325023251232522325323254232552325623257232582325923260232612326223263232642326523266232672326823269232702327123272232732327423275232762327723278232792328023281232822328323284232852328623287232882328923290232912329223293232942329523296232972329823299233002330123302233032330423305233062330723308233092331023311233122331323314233152331623317233182331923320233212332223323233242332523326233272332823329233302333123332233332333423335233362333723338233392334023341233422334323344233452334623347233482334923350233512335223353233542335523356233572335823359233602336123362233632336423365233662336723368233692337023371233722337323374233752337623377233782337923380233812338223383233842338523386233872338823389233902339123392233932339423395233962339723398233992340023401234022340323404234052340623407234082340923410234112341223413234142341523416234172341823419234202342123422234232342423425234262342723428234292343023431234322343323434234352343623437234382343923440234412344223443234442344523446234472344823449234502345123452234532345423455234562345723458234592346023461234622346323464234652346623467234682346923470234712347223473234742347523476234772347823479234802348123482234832348423485234862348723488234892349023491234922349323494234952349623497234982349923500235012350223503235042350523506235072350823509235102351123512235132351423515235162351723518235192352023521235222352323524235252352623527235282352923530235312353223533235342353523536235372353823539235402354123542235432354423545235462354723548235492355023551235522355323554235552355623557235582355923560235612356223563235642356523566235672356823569235702357123572235732357423575235762357723578235792358023581235822358323584235852358623587235882358923590235912359223593235942359523596235972359823599236002360123602236032360423605236062360723608236092361023611236122361323614236152361623617236182361923620236212362223623236242362523626236272362823629236302363123632236332363423635236362363723638236392364023641236422364323644236452364623647236482364923650236512365223653236542365523656236572365823659236602366123662236632366423665236662366723668236692367023671236722367323674236752367623677236782367923680236812368223683236842368523686236872368823689236902369123692236932369423695236962369723698236992370023701237022370323704237052370623707237082370923710237112371223713237142371523716237172371823719237202372123722237232372423725237262372723728237292373023731237322373323734237352373623737237382373923740237412374223743237442374523746237472374823749237502375123752237532375423755237562375723758237592376023761237622376323764237652376623767237682376923770237712377223773237742377523776237772377823779237802378123782237832378423785237862378723788237892379023791237922379323794237952379623797237982379923800238012380223803238042380523806238072380823809238102381123812238132381423815238162381723818238192382023821238222382323824238252382623827238282382923830238312383223833238342383523836238372383823839238402384123842238432384423845238462384723848238492385023851238522385323854238552385623857238582385923860238612386223863238642386523866238672386823869238702387123872238732387423875238762387723878238792388023881238822388323884238852388623887238882388923890238912389223893238942389523896238972389823899239002390123902239032390423905239062390723908239092391023911239122391323914239152391623917239182391923920239212392223923239242392523926239272392823929239302393123932239332393423935239362393723938239392394023941239422394323944239452394623947239482394923950239512395223953239542395523956239572395823959239602396123962239632396423965239662396723968239692397023971239722397323974239752397623977239782397923980239812398223983239842398523986239872398823989239902399123992239932399423995239962399723998239992400024001240022400324004240052400624007240082400924010240112401224013240142401524016240172401824019240202402124022240232402424025240262402724028240292403024031240322403324034240352403624037240382403924040240412404224043240442404524046240472404824049240502405124052240532405424055240562405724058240592406024061240622406324064240652406624067240682406924070240712407224073240742407524076240772407824079240802408124082240832408424085240862408724088240892409024091240922409324094240952409624097240982409924100241012410224103241042410524106241072410824109241102411124112241132411424115241162411724118241192412024121241222412324124241252412624127241282412924130241312413224133241342413524136241372413824139241402414124142241432414424145241462414724148241492415024151241522415324154241552415624157241582415924160241612416224163241642416524166241672416824169241702417124172241732417424175241762417724178241792418024181241822418324184241852418624187241882418924190241912419224193241942419524196241972419824199242002420124202242032420424205242062420724208242092421024211242122421324214242152421624217242182421924220242212422224223242242422524226242272422824229242302423124232242332423424235242362423724238242392424024241242422424324244242452424624247242482424924250242512425224253242542425524256242572425824259242602426124262242632426424265242662426724268242692427024271242722427324274242752427624277242782427924280242812428224283242842428524286242872428824289242902429124292242932429424295242962429724298242992430024301243022430324304243052430624307243082430924310243112431224313243142431524316243172431824319243202432124322243232432424325243262432724328243292433024331243322433324334243352433624337243382433924340243412434224343243442434524346243472434824349243502435124352243532435424355243562435724358243592436024361243622436324364243652436624367243682436924370243712437224373243742437524376243772437824379243802438124382243832438424385243862438724388243892439024391243922439324394243952439624397243982439924400244012440224403244042440524406244072440824409244102441124412244132441424415244162441724418244192442024421244222442324424244252442624427244282442924430244312443224433244342443524436244372443824439244402444124442244432444424445244462444724448244492445024451244522445324454244552445624457244582445924460244612446224463244642446524466244672446824469244702447124472244732447424475244762447724478244792448024481244822448324484244852448624487244882448924490244912449224493244942449524496244972449824499245002450124502245032450424505245062450724508245092451024511245122451324514245152451624517245182451924520245212452224523245242452524526245272452824529245302453124532245332453424535245362453724538245392454024541245422454324544245452454624547245482454924550245512455224553245542455524556245572455824559245602456124562245632456424565245662456724568245692457024571245722457324574245752457624577245782457924580245812458224583245842458524586245872458824589245902459124592245932459424595245962459724598245992460024601246022460324604246052460624607246082460924610246112461224613246142461524616246172461824619246202462124622246232462424625246262462724628246292463024631246322463324634246352463624637246382463924640246412464224643246442464524646246472464824649246502465124652246532465424655246562465724658246592466024661246622466324664246652466624667246682466924670246712467224673246742467524676246772467824679246802468124682246832468424685246862468724688246892469024691246922469324694246952469624697246982469924700247012470224703247042470524706247072470824709247102471124712247132471424715247162471724718247192472024721247222472324724247252472624727247282472924730247312473224733247342473524736247372473824739247402474124742247432474424745247462474724748247492475024751247522475324754247552475624757247582475924760247612476224763247642476524766247672476824769247702477124772247732477424775247762477724778247792478024781247822478324784247852478624787247882478924790247912479224793247942479524796247972479824799248002480124802248032480424805248062480724808248092481024811248122481324814248152481624817248182481924820248212482224823248242482524826248272482824829248302483124832248332483424835248362483724838248392484024841248422484324844248452484624847248482484924850248512485224853248542485524856248572485824859248602486124862248632486424865248662486724868248692487024871248722487324874248752487624877248782487924880248812488224883248842488524886248872488824889248902489124892248932489424895248962489724898248992490024901249022490324904249052490624907249082490924910249112491224913249142491524916249172491824919249202492124922249232492424925249262492724928249292493024931249322493324934249352493624937249382493924940249412494224943249442494524946249472494824949249502495124952249532495424955249562495724958249592496024961249622496324964249652496624967249682496924970249712497224973249742497524976249772497824979249802498124982249832498424985249862498724988249892499024991249922499324994249952499624997249982499925000250012500225003250042500525006250072500825009250102501125012250132501425015250162501725018250192502025021250222502325024250252502625027250282502925030250312503225033250342503525036250372503825039250402504125042250432504425045250462504725048250492505025051250522505325054250552505625057250582505925060250612506225063250642506525066250672506825069250702507125072250732507425075250762507725078250792508025081250822508325084250852508625087250882508925090250912509225093250942509525096250972509825099251002510125102251032510425105251062510725108251092511025111251122511325114251152511625117251182511925120251212512225123251242512525126251272512825129251302513125132251332513425135251362513725138251392514025141251422514325144251452514625147251482514925150251512515225153251542515525156251572515825159251602516125162251632516425165251662516725168251692517025171251722517325174251752517625177251782517925180251812518225183251842518525186251872518825189251902519125192251932519425195251962519725198251992520025201252022520325204252052520625207252082520925210252112521225213252142521525216252172521825219252202522125222252232522425225252262522725228252292523025231252322523325234252352523625237252382523925240252412524225243252442524525246252472524825249252502525125252252532525425255252562525725258252592526025261252622526325264252652526625267252682526925270252712527225273252742527525276252772527825279252802528125282252832528425285252862528725288252892529025291252922529325294252952529625297252982529925300253012530225303253042530525306253072530825309253102531125312253132531425315253162531725318253192532025321253222532325324253252532625327253282532925330253312533225333253342533525336253372533825339253402534125342253432534425345253462534725348253492535025351253522535325354253552535625357253582535925360253612536225363253642536525366253672536825369253702537125372253732537425375253762537725378253792538025381253822538325384253852538625387253882538925390253912539225393253942539525396253972539825399254002540125402254032540425405254062540725408254092541025411254122541325414254152541625417254182541925420254212542225423254242542525426254272542825429254302543125432254332543425435254362543725438254392544025441254422544325444254452544625447254482544925450254512545225453254542545525456254572545825459254602546125462254632546425465254662546725468254692547025471254722547325474254752547625477254782547925480254812548225483254842548525486254872548825489254902549125492254932549425495254962549725498254992550025501255022550325504255052550625507255082550925510255112551225513255142551525516255172551825519255202552125522255232552425525255262552725528255292553025531255322553325534255352553625537255382553925540255412554225543255442554525546255472554825549255502555125552255532555425555255562555725558255592556025561255622556325564255652556625567255682556925570255712557225573255742557525576255772557825579255802558125582255832558425585255862558725588255892559025591255922559325594255952559625597255982559925600256012560225603256042560525606256072560825609256102561125612256132561425615256162561725618256192562025621256222562325624256252562625627256282562925630256312563225633256342563525636256372563825639256402564125642256432564425645256462564725648256492565025651256522565325654256552565625657256582565925660256612566225663256642566525666256672566825669256702567125672256732567425675256762567725678256792568025681256822568325684256852568625687256882568925690256912569225693256942569525696256972569825699257002570125702257032570425705257062570725708257092571025711257122571325714257152571625717257182571925720257212572225723257242572525726257272572825729257302573125732257332573425735257362573725738257392574025741257422574325744257452574625747257482574925750257512575225753257542575525756257572575825759257602576125762257632576425765257662576725768257692577025771257722577325774257752577625777257782577925780257812578225783257842578525786257872578825789257902579125792257932579425795257962579725798257992580025801258022580325804258052580625807258082580925810258112581225813258142581525816258172581825819258202582125822258232582425825258262582725828258292583025831258322583325834258352583625837258382583925840258412584225843258442584525846258472584825849258502585125852258532585425855258562585725858258592586025861258622586325864258652586625867258682586925870258712587225873258742587525876258772587825879258802588125882258832588425885258862588725888258892589025891258922589325894258952589625897258982589925900259012590225903259042590525906259072590825909259102591125912259132591425915259162591725918259192592025921259222592325924259252592625927259282592925930259312593225933259342593525936259372593825939259402594125942259432594425945259462594725948259492595025951259522595325954259552595625957259582595925960259612596225963259642596525966259672596825969259702597125972259732597425975259762597725978259792598025981259822598325984259852598625987259882598925990259912599225993259942599525996259972599825999260002600126002260032600426005260062600726008260092601026011260122601326014260152601626017260182601926020260212602226023260242602526026260272602826029260302603126032260332603426035260362603726038260392604026041260422604326044260452604626047260482604926050260512605226053260542605526056260572605826059260602606126062260632606426065260662606726068260692607026071260722607326074260752607626077260782607926080260812608226083260842608526086260872608826089260902609126092260932609426095260962609726098260992610026101261022610326104261052610626107261082610926110261112611226113261142611526116261172611826119261202612126122261232612426125261262612726128261292613026131261322613326134261352613626137261382613926140261412614226143261442614526146261472614826149261502615126152261532615426155261562615726158261592616026161261622616326164261652616626167261682616926170261712617226173261742617526176261772617826179261802618126182261832618426185261862618726188261892619026191261922619326194261952619626197261982619926200262012620226203262042620526206262072620826209262102621126212262132621426215262162621726218262192622026221262222622326224262252622626227262282622926230262312623226233262342623526236262372623826239262402624126242262432624426245262462624726248262492625026251262522625326254262552625626257262582625926260262612626226263262642626526266262672626826269262702627126272262732627426275262762627726278262792628026281262822628326284262852628626287262882628926290262912629226293262942629526296262972629826299263002630126302263032630426305263062630726308263092631026311263122631326314263152631626317263182631926320263212632226323263242632526326263272632826329263302633126332263332633426335263362633726338263392634026341263422634326344263452634626347263482634926350263512635226353263542635526356263572635826359263602636126362263632636426365263662636726368263692637026371263722637326374263752637626377263782637926380263812638226383263842638526386263872638826389263902639126392263932639426395263962639726398263992640026401264022640326404264052640626407264082640926410264112641226413264142641526416264172641826419264202642126422264232642426425264262642726428264292643026431264322643326434264352643626437264382643926440264412644226443264442644526446264472644826449264502645126452264532645426455264562645726458264592646026461264622646326464264652646626467264682646926470264712647226473264742647526476264772647826479264802648126482264832648426485264862648726488264892649026491264922649326494264952649626497264982649926500265012650226503265042650526506265072650826509265102651126512265132651426515265162651726518265192652026521265222652326524265252652626527265282652926530265312653226533265342653526536265372653826539265402654126542265432654426545265462654726548265492655026551265522655326554265552655626557265582655926560265612656226563265642656526566265672656826569265702657126572265732657426575265762657726578265792658026581265822658326584265852658626587265882658926590265912659226593265942659526596265972659826599266002660126602266032660426605266062660726608266092661026611266122661326614266152661626617266182661926620266212662226623266242662526626266272662826629266302663126632266332663426635266362663726638266392664026641266422664326644266452664626647266482664926650266512665226653266542665526656266572665826659266602666126662266632666426665266662666726668266692667026671266722667326674266752667626677266782667926680266812668226683266842668526686266872668826689266902669126692266932669426695266962669726698266992670026701267022670326704267052670626707267082670926710267112671226713267142671526716267172671826719267202672126722267232672426725267262672726728267292673026731267322673326734267352673626737267382673926740267412674226743267442674526746267472674826749267502675126752267532675426755267562675726758267592676026761267622676326764267652676626767267682676926770267712677226773267742677526776267772677826779267802678126782267832678426785267862678726788267892679026791267922679326794267952679626797267982679926800268012680226803268042680526806268072680826809268102681126812268132681426815268162681726818268192682026821268222682326824268252682626827268282682926830268312683226833268342683526836268372683826839268402684126842268432684426845268462684726848268492685026851268522685326854268552685626857268582685926860268612686226863268642686526866268672686826869268702687126872268732687426875268762687726878268792688026881268822688326884268852688626887268882688926890268912689226893268942689526896268972689826899269002690126902269032690426905269062690726908269092691026911269122691326914269152691626917269182691926920269212692226923269242692526926269272692826929269302693126932269332693426935269362693726938269392694026941269422694326944269452694626947269482694926950269512695226953269542695526956269572695826959269602696126962269632696426965269662696726968269692697026971269722697326974269752697626977269782697926980269812698226983269842698526986269872698826989269902699126992269932699426995269962699726998269992700027001270022700327004270052700627007270082700927010270112701227013270142701527016270172701827019270202702127022270232702427025270262702727028270292703027031270322703327034270352703627037270382703927040270412704227043270442704527046270472704827049270502705127052270532705427055270562705727058270592706027061270622706327064270652706627067270682706927070270712707227073270742707527076270772707827079270802708127082270832708427085270862708727088270892709027091270922709327094270952709627097270982709927100271012710227103271042710527106271072710827109271102711127112271132711427115271162711727118271192712027121271222712327124271252712627127271282712927130271312713227133271342713527136271372713827139271402714127142271432714427145271462714727148271492715027151271522715327154271552715627157271582715927160271612716227163271642716527166271672716827169271702717127172271732717427175271762717727178271792718027181271822718327184271852718627187271882718927190271912719227193271942719527196271972719827199272002720127202272032720427205272062720727208272092721027211272122721327214272152721627217272182721927220272212722227223272242722527226272272722827229272302723127232272332723427235272362723727238272392724027241272422724327244272452724627247272482724927250272512725227253272542725527256272572725827259272602726127262272632726427265272662726727268272692727027271272722727327274272752727627277272782727927280272812728227283272842728527286272872728827289272902729127292272932729427295272962729727298272992730027301273022730327304273052730627307273082730927310273112731227313273142731527316273172731827319273202732127322273232732427325273262732727328273292733027331273322733327334273352733627337273382733927340273412734227343273442734527346273472734827349273502735127352273532735427355273562735727358273592736027361273622736327364273652736627367273682736927370273712737227373273742737527376273772737827379273802738127382273832738427385273862738727388273892739027391273922739327394273952739627397273982739927400274012740227403274042740527406274072740827409274102741127412274132741427415274162741727418274192742027421274222742327424274252742627427274282742927430274312743227433274342743527436274372743827439274402744127442274432744427445274462744727448274492745027451274522745327454274552745627457274582745927460274612746227463274642746527466274672746827469274702747127472274732747427475274762747727478274792748027481274822748327484274852748627487274882748927490274912749227493274942749527496274972749827499275002750127502275032750427505275062750727508275092751027511275122751327514275152751627517275182751927520275212752227523275242752527526275272752827529275302753127532275332753427535275362753727538275392754027541275422754327544275452754627547275482754927550275512755227553275542755527556275572755827559275602756127562275632756427565275662756727568275692757027571275722757327574275752757627577275782757927580275812758227583275842758527586275872758827589275902759127592275932759427595275962759727598275992760027601276022760327604276052760627607276082760927610276112761227613276142761527616276172761827619276202762127622276232762427625276262762727628276292763027631276322763327634276352763627637276382763927640276412764227643276442764527646276472764827649276502765127652276532765427655276562765727658276592766027661276622766327664276652766627667276682766927670276712767227673276742767527676276772767827679276802768127682276832768427685276862768727688276892769027691276922769327694276952769627697276982769927700277012770227703277042770527706277072770827709277102771127712277132771427715277162771727718277192772027721277222772327724277252772627727277282772927730277312773227733277342773527736277372773827739277402774127742277432774427745277462774727748277492775027751277522775327754277552775627757277582775927760277612776227763277642776527766277672776827769277702777127772277732777427775277762777727778277792778027781277822778327784277852778627787277882778927790277912779227793277942779527796277972779827799278002780127802278032780427805278062780727808278092781027811278122781327814278152781627817278182781927820278212782227823278242782527826278272782827829278302783127832278332783427835278362783727838278392784027841278422784327844278452784627847278482784927850278512785227853278542785527856278572785827859278602786127862278632786427865278662786727868278692787027871278722787327874278752787627877278782787927880278812788227883278842788527886278872788827889278902789127892278932789427895278962789727898278992790027901279022790327904279052790627907279082790927910279112791227913279142791527916279172791827919279202792127922279232792427925279262792727928279292793027931279322793327934279352793627937279382793927940279412794227943279442794527946279472794827949279502795127952279532795427955279562795727958279592796027961279622796327964279652796627967279682796927970279712797227973279742797527976279772797827979279802798127982279832798427985279862798727988279892799027991279922799327994279952799627997279982799928000280012800228003280042800528006280072800828009280102801128012280132801428015280162801728018280192802028021280222802328024280252802628027280282802928030280312803228033280342803528036280372803828039280402804128042280432804428045280462804728048280492805028051280522805328054280552805628057280582805928060280612806228063280642806528066280672806828069280702807128072280732807428075280762807728078280792808028081280822808328084280852808628087280882808928090280912809228093280942809528096280972809828099281002810128102281032810428105281062810728108281092811028111281122811328114281152811628117281182811928120281212812228123281242812528126281272812828129281302813128132281332813428135281362813728138281392814028141281422814328144281452814628147281482814928150281512815228153281542815528156281572815828159281602816128162281632816428165281662816728168281692817028171281722817328174281752817628177281782817928180281812818228183281842818528186281872818828189281902819128192281932819428195281962819728198281992820028201282022820328204282052820628207282082820928210282112821228213282142821528216282172821828219282202822128222282232822428225282262822728228282292823028231282322823328234282352823628237282382823928240282412824228243282442824528246282472824828249282502825128252282532825428255282562825728258282592826028261282622826328264282652826628267282682826928270282712827228273282742827528276282772827828279282802828128282282832828428285282862828728288282892829028291282922829328294282952829628297282982829928300283012830228303283042830528306283072830828309283102831128312283132831428315283162831728318283192832028321283222832328324283252832628327283282832928330283312833228333283342833528336283372833828339283402834128342283432834428345283462834728348283492835028351283522835328354283552835628357283582835928360283612836228363283642836528366283672836828369283702837128372283732837428375283762837728378283792838028381283822838328384283852838628387283882838928390283912839228393283942839528396283972839828399284002840128402284032840428405284062840728408284092841028411284122841328414284152841628417284182841928420284212842228423284242842528426284272842828429284302843128432284332843428435284362843728438284392844028441284422844328444284452844628447284482844928450284512845228453284542845528456284572845828459284602846128462284632846428465284662846728468284692847028471284722847328474284752847628477284782847928480284812848228483284842848528486284872848828489284902849128492284932849428495284962849728498284992850028501285022850328504285052850628507285082850928510285112851228513285142851528516285172851828519285202852128522285232852428525285262852728528285292853028531285322853328534285352853628537285382853928540285412854228543285442854528546285472854828549285502855128552285532855428555285562855728558285592856028561285622856328564285652856628567285682856928570285712857228573285742857528576285772857828579285802858128582285832858428585285862858728588285892859028591285922859328594285952859628597285982859928600286012860228603286042860528606286072860828609286102861128612286132861428615286162861728618286192862028621286222862328624286252862628627286282862928630286312863228633286342863528636286372863828639286402864128642286432864428645286462864728648286492865028651286522865328654286552865628657286582865928660286612866228663286642866528666286672866828669286702867128672286732867428675286762867728678286792868028681286822868328684286852868628687286882868928690286912869228693286942869528696286972869828699287002870128702287032870428705287062870728708287092871028711287122871328714287152871628717287182871928720287212872228723287242872528726287272872828729287302873128732287332873428735287362873728738287392874028741287422874328744287452874628747287482874928750287512875228753287542875528756287572875828759287602876128762287632876428765287662876728768287692877028771287722877328774287752877628777287782877928780287812878228783287842878528786287872878828789287902879128792287932879428795287962879728798287992880028801288022880328804288052880628807288082880928810288112881228813288142881528816288172881828819288202882128822288232882428825288262882728828288292883028831288322883328834288352883628837288382883928840288412884228843288442884528846288472884828849288502885128852288532885428855288562885728858288592886028861288622886328864288652886628867288682886928870288712887228873288742887528876288772887828879288802888128882288832888428885288862888728888288892889028891288922889328894288952889628897288982889928900289012890228903289042890528906289072890828909289102891128912289132891428915289162891728918289192892028921289222892328924289252892628927289282892928930289312893228933289342893528936289372893828939289402894128942289432894428945289462894728948289492895028951289522895328954289552895628957289582895928960289612896228963289642896528966289672896828969289702897128972289732897428975289762897728978289792898028981289822898328984289852898628987289882898928990289912899228993289942899528996289972899828999290002900129002290032900429005290062900729008290092901029011290122901329014290152901629017290182901929020290212902229023290242902529026290272902829029290302903129032290332903429035290362903729038290392904029041290422904329044290452904629047290482904929050290512905229053290542905529056290572905829059290602906129062290632906429065290662906729068290692907029071290722907329074290752907629077290782907929080290812908229083290842908529086290872908829089290902909129092290932909429095290962909729098290992910029101291022910329104291052910629107291082910929110291112911229113291142911529116291172911829119291202912129122291232912429125291262912729128291292913029131291322913329134291352913629137291382913929140291412914229143291442914529146291472914829149291502915129152291532915429155291562915729158291592916029161291622916329164291652916629167291682916929170291712917229173291742917529176291772917829179291802918129182291832918429185291862918729188291892919029191291922919329194291952919629197291982919929200292012920229203292042920529206292072920829209292102921129212292132921429215292162921729218292192922029221292222922329224292252922629227292282922929230292312923229233292342923529236292372923829239292402924129242292432924429245292462924729248292492925029251292522925329254292552925629257292582925929260292612926229263292642926529266292672926829269292702927129272292732927429275292762927729278292792928029281292822928329284292852928629287292882928929290292912929229293292942929529296292972929829299293002930129302293032930429305293062930729308293092931029311293122931329314293152931629317293182931929320293212932229323293242932529326293272932829329293302933129332293332933429335293362933729338293392934029341293422934329344293452934629347293482934929350293512935229353293542935529356293572935829359293602936129362293632936429365293662936729368293692937029371293722937329374293752937629377293782937929380293812938229383293842938529386293872938829389293902939129392293932939429395293962939729398293992940029401294022940329404294052940629407294082940929410294112941229413294142941529416294172941829419294202942129422294232942429425294262942729428294292943029431294322943329434294352943629437294382943929440294412944229443294442944529446294472944829449294502945129452294532945429455294562945729458294592946029461294622946329464294652946629467294682946929470294712947229473294742947529476294772947829479294802948129482294832948429485294862948729488294892949029491294922949329494294952949629497294982949929500295012950229503295042950529506295072950829509295102951129512295132951429515295162951729518295192952029521295222952329524295252952629527295282952929530295312953229533295342953529536295372953829539295402954129542295432954429545295462954729548295492955029551295522955329554295552955629557295582955929560295612956229563295642956529566295672956829569295702957129572295732957429575295762957729578295792958029581295822958329584295852958629587295882958929590295912959229593295942959529596295972959829599296002960129602296032960429605296062960729608296092961029611296122961329614296152961629617296182961929620296212962229623296242962529626296272962829629296302963129632296332963429635296362963729638296392964029641296422964329644296452964629647296482964929650296512965229653296542965529656296572965829659296602966129662296632966429665296662966729668296692967029671296722967329674296752967629677296782967929680296812968229683296842968529686296872968829689296902969129692296932969429695296962969729698296992970029701297022970329704297052970629707297082970929710297112971229713297142971529716297172971829719297202972129722297232972429725297262972729728297292973029731297322973329734297352973629737297382973929740297412974229743297442974529746297472974829749297502975129752297532975429755297562975729758297592976029761297622976329764297652976629767297682976929770297712977229773297742977529776297772977829779297802978129782297832978429785297862978729788297892979029791297922979329794297952979629797297982979929800298012980229803298042980529806298072980829809298102981129812298132981429815298162981729818298192982029821298222982329824298252982629827298282982929830298312983229833298342983529836298372983829839298402984129842298432984429845298462984729848298492985029851298522985329854298552985629857298582985929860298612986229863298642986529866298672986829869298702987129872298732987429875298762987729878298792988029881298822988329884298852988629887298882988929890298912989229893298942989529896298972989829899299002990129902299032990429905299062990729908299092991029911299122991329914299152991629917299182991929920299212992229923299242992529926299272992829929299302993129932299332993429935299362993729938299392994029941299422994329944299452994629947299482994929950299512995229953299542995529956299572995829959299602996129962299632996429965299662996729968299692997029971299722997329974299752997629977299782997929980299812998229983299842998529986299872998829989299902999129992299932999429995299962999729998299993000030001300023000330004300053000630007300083000930010300113001230013300143001530016300173001830019300203002130022300233002430025300263002730028300293003030031300323003330034300353003630037300383003930040300413004230043300443004530046300473004830049300503005130052300533005430055300563005730058300593006030061300623006330064300653006630067300683006930070300713007230073300743007530076300773007830079300803008130082300833008430085300863008730088300893009030091300923009330094300953009630097300983009930100301013010230103301043010530106301073010830109301103011130112301133011430115301163011730118301193012030121301223012330124301253012630127301283012930130301313013230133301343013530136301373013830139301403014130142301433014430145301463014730148301493015030151301523015330154301553015630157301583015930160301613016230163301643016530166301673016830169301703017130172301733017430175301763017730178301793018030181301823018330184301853018630187301883018930190301913019230193301943019530196301973019830199302003020130202302033020430205302063020730208302093021030211302123021330214302153021630217302183021930220302213022230223302243022530226302273022830229302303023130232302333023430235302363023730238302393024030241302423024330244302453024630247302483024930250302513025230253302543025530256302573025830259302603026130262302633026430265302663026730268302693027030271302723027330274302753027630277302783027930280302813028230283302843028530286302873028830289302903029130292302933029430295302963029730298302993030030301303023030330304303053030630307303083030930310303113031230313303143031530316303173031830319303203032130322303233032430325303263032730328303293033030331303323033330334303353033630337303383033930340303413034230343303443034530346303473034830349303503035130352303533035430355303563035730358303593036030361303623036330364303653036630367303683036930370303713037230373303743037530376303773037830379303803038130382303833038430385303863038730388303893039030391303923039330394303953039630397303983039930400304013040230403304043040530406304073040830409304103041130412304133041430415304163041730418304193042030421304223042330424304253042630427304283042930430304313043230433304343043530436304373043830439304403044130442304433044430445304463044730448304493045030451304523045330454304553045630457304583045930460304613046230463304643046530466304673046830469304703047130472304733047430475304763047730478304793048030481304823048330484304853048630487304883048930490304913049230493304943049530496304973049830499305003050130502305033050430505305063050730508305093051030511305123051330514305153051630517305183051930520305213052230523305243052530526305273052830529305303053130532305333053430535305363053730538305393054030541305423054330544305453054630547305483054930550305513055230553305543055530556305573055830559305603056130562305633056430565305663056730568305693057030571305723057330574305753057630577305783057930580305813058230583305843058530586305873058830589305903059130592305933059430595305963059730598305993060030601306023060330604306053060630607306083060930610306113061230613306143061530616306173061830619306203062130622306233062430625306263062730628306293063030631306323063330634306353063630637306383063930640306413064230643306443064530646306473064830649306503065130652306533065430655306563065730658306593066030661306623066330664306653066630667306683066930670306713067230673306743067530676306773067830679306803068130682306833068430685306863068730688306893069030691306923069330694306953069630697306983069930700307013070230703307043070530706307073070830709307103071130712307133071430715307163071730718307193072030721307223072330724307253072630727307283072930730307313073230733307343073530736307373073830739307403074130742307433074430745307463074730748307493075030751307523075330754307553075630757307583075930760307613076230763307643076530766307673076830769307703077130772307733077430775307763077730778307793078030781307823078330784307853078630787307883078930790307913079230793307943079530796307973079830799308003080130802308033080430805308063080730808308093081030811308123081330814308153081630817308183081930820308213082230823308243082530826308273082830829308303083130832308333083430835308363083730838308393084030841308423084330844308453084630847308483084930850308513085230853308543085530856308573085830859308603086130862308633086430865308663086730868308693087030871308723087330874308753087630877308783087930880308813088230883308843088530886308873088830889308903089130892308933089430895308963089730898308993090030901309023090330904309053090630907309083090930910309113091230913309143091530916309173091830919309203092130922309233092430925309263092730928309293093030931309323093330934309353093630937309383093930940309413094230943309443094530946309473094830949309503095130952309533095430955309563095730958309593096030961309623096330964309653096630967309683096930970309713097230973309743097530976309773097830979309803098130982309833098430985309863098730988309893099030991309923099330994309953099630997309983099931000310013100231003310043100531006310073100831009310103101131012310133101431015310163101731018310193102031021310223102331024310253102631027310283102931030310313103231033310343103531036310373103831039310403104131042310433104431045310463104731048310493105031051310523105331054310553105631057310583105931060310613106231063310643106531066310673106831069310703107131072310733107431075310763107731078310793108031081310823108331084310853108631087310883108931090310913109231093310943109531096310973109831099311003110131102311033110431105311063110731108311093111031111311123111331114311153111631117311183111931120311213112231123311243112531126311273112831129311303113131132311333113431135311363113731138311393114031141311423114331144311453114631147311483114931150311513115231153311543115531156311573115831159311603116131162311633116431165311663116731168311693117031171311723117331174311753117631177311783117931180311813118231183311843118531186311873118831189311903119131192311933119431195311963119731198311993120031201312023120331204312053120631207312083120931210312113121231213312143121531216312173121831219312203122131222312233122431225312263122731228312293123031231312323123331234312353123631237312383123931240312413124231243312443124531246312473124831249312503125131252312533125431255312563125731258312593126031261312623126331264312653126631267312683126931270312713127231273312743127531276312773127831279312803128131282312833128431285312863128731288312893129031291312923129331294312953129631297312983129931300313013130231303313043130531306313073130831309313103131131312313133131431315313163131731318313193132031321313223132331324313253132631327313283132931330313313133231333313343133531336313373133831339313403134131342313433134431345313463134731348313493135031351313523135331354313553135631357313583135931360313613136231363313643136531366313673136831369313703137131372313733137431375313763137731378313793138031381313823138331384313853138631387313883138931390313913139231393313943139531396313973139831399314003140131402314033140431405314063140731408314093141031411314123141331414314153141631417314183141931420314213142231423314243142531426314273142831429314303143131432314333143431435314363143731438314393144031441314423144331444314453144631447314483144931450314513145231453314543145531456314573145831459314603146131462314633146431465314663146731468314693147031471314723147331474314753147631477314783147931480314813148231483314843148531486314873148831489314903149131492314933149431495314963149731498314993150031501315023150331504315053150631507315083150931510315113151231513315143151531516315173151831519315203152131522315233152431525315263152731528315293153031531315323153331534315353153631537315383153931540315413154231543315443154531546315473154831549315503155131552315533155431555315563155731558315593156031561315623156331564315653156631567315683156931570315713157231573315743157531576315773157831579315803158131582315833158431585315863158731588315893159031591315923159331594315953159631597315983159931600316013160231603316043160531606316073160831609316103161131612316133161431615316163161731618316193162031621316223162331624316253162631627316283162931630316313163231633316343163531636316373163831639316403164131642316433164431645316463164731648316493165031651316523165331654316553165631657316583165931660316613166231663316643166531666316673166831669316703167131672316733167431675316763167731678316793168031681316823168331684316853168631687316883168931690316913169231693316943169531696316973169831699317003170131702317033170431705317063170731708317093171031711317123171331714317153171631717317183171931720317213172231723317243172531726317273172831729317303173131732317333173431735317363173731738317393174031741317423174331744317453174631747317483174931750317513175231753317543175531756317573175831759317603176131762317633176431765317663176731768317693177031771317723177331774317753177631777317783177931780317813178231783317843178531786317873178831789317903179131792317933179431795317963179731798317993180031801318023180331804318053180631807318083180931810318113181231813318143181531816318173181831819318203182131822318233182431825318263182731828318293183031831318323183331834318353183631837318383183931840318413184231843318443184531846318473184831849318503185131852318533185431855318563185731858318593186031861318623186331864318653186631867318683186931870318713187231873318743187531876318773187831879318803188131882318833188431885318863188731888 |
- {###### #### ##############################################################
- ## ### ### ## ,###### ## ## ###### ### ### ## ##
- ## ### #### ## ## ## ## ## ## # ## ## ##
- ## ## ### ###### ####### ## ## \## ### ##/ ##########
- ## ## ##### ##### ####### ## ## ######### ##
- ## ## ## ### ,## ## ## ## ## ### ### ###
- ###### ### #### ####### ## ## ###### ## ## ###########
- | |
- | Borland Delphi 4,5,6,7 API for Direct Show |
- | DirectX 9.0 Win 98, Me, 2000, XP |
- | |
- | Portions created by Microsoft are |
- | Copyright (C) 1995-2002 Microsoft Corporation. |
- | All Rights Reserved. |
- | |
- | The original files are: |
- | comlite.h, errors.h, dv.h, strmif.h, mmstream.h, amstream.h, |
- | ddstream.h, austream.h, mpconfig.h, control.h, qnetwork.h, |
- | playlist.h, il21dec.h, amvideo.h, amaudio.h, vptype.h, |
- | vpconfig.h, vpnotify.h, mpegtype.h, dvdevcod.h, dvdmedia.h, |
- | bdatypes.h, activecf.h, vfwmsgs.h,(edevdefs.h, XPrtDefs.h), |
- | aviriff.h, evcode.h, uuids.h, ksuuids.h, DXVA.h,AMVA.h, |
- | videoacc.h, regbag.h, tuner.h, DXTrans.h, QEdit.h, mpeguids.h, |
- | dshowasf.h, amparse.h, audevcod.h, atsmedia.h, MediaErr, |
- | MedParam.h, mediaobj.h, dmodshow.h, dmoreg.h, DMORt.h, |
- | dmoimpl.h, ks.h, ksproxy.h, ksmedia.h, dmksctrl.h, bdamedia.h, |
- | BDATIF.idl, AMVPE.idl, Mixerocx.idl, Mpeg2Data.idl, |
- | Mpeg2Structs.idl, Mpeg2Bits.h, Mpeg2Error.h, EDevCtrl.h, |
- | sbe.idl, vmr9.idl, iwstdec.h |
- | |
- | The original Pascal code is: DirectShow9.pas, |
- | released 01 Nov 2003. |
- | |
- | The initial developer of the Pascal code is Henri GOURVEST |
- | Email : hgourvest@progdigy.com |
- | WebSite : http://www.progdigy.com |
- | |
- | Portions created by Henri GOURVEST are |
- | Copyright (C) 2002 Henri GOURVEST. |
- | |
- | Contributors: Ivo Steinmann |
- | Peter NEUMANN |
- | Alexey Barkovoy |
- | Wayne Sherman |
- | Peter J. Haas <DSPack@pjh2.de> |
- | Andriy Nevhasymyy <a.n@email.com> |
- | Milenko Mitrovic <dcoder@dsp-worx.de> |
- | Michael Andersen <michael@mechdata.dk> |
- | Martin Offenwanger <coder@dsplayer.de |
- | |
- | Joint Endeavour of Delphi Innovators (Project JEDI) |
- | |
- | You may retrieve the latest version of this file here: |
- | http://www.progdigy.com |
- | |
- | The contents of this file are used with permission, subject to |
- | the Mozilla Public License Version 1.1 (the "License"); you may |
- | not use this file except in compliance with the License. You may |
- | obtain a copy of the License at |
- | http://www.mozilla.org/MPL/MPL-1.1.html |
- | |
- | Software distributed under the License is distributed on an |
- | "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or |
- | implied. See the License for the specific language governing |
- | rights and limitations under the License. |
- | |
- |******************************************************************}
- {$I DirectX.inc}
- // To Avoid mistakes with old VMR, comment
- {$DEFINE ENABLEVMR7}
- {$IFDEF DYNAMIC_LINK_ALL}
- {$DEFINE DIRECTSHOW9_DYNAMIC_LINK}
- {$ENDIF}
- unit DirectShow9;
- {$HPPEMIT '#define __KS__'}
- {$HPPEMIT '#define __STREAMS__'}
- {$HPPEMIT '#include "comlite.h"'}
- {$HPPEMIT '#include "errors.h"'}
- {$HPPEMIT '#include "dv.h"'}
- {$HPPEMIT '#include "strmif.h"'}
- {$HPPEMIT '#include "mmstream.h"'}
- {$HPPEMIT '#include "amstream.h"'}
- {$HPPEMIT '#include "ddstream.h"'}
- {$HPPEMIT '#include "austream.h"'}
- {$HPPEMIT '#include "mpconfig.h"'}
- {$HPPEMIT '#include "control.h"'}
- {$HPPEMIT '#include "qnetwork.h"'}
- {$HPPEMIT '#include "playlist.h"'}
- {$HPPEMIT '#include "il21dec.h"'}
- {$HPPEMIT '#include "amvideo.h"'}
- {$HPPEMIT '#include "amaudio.h"'}
- {$HPPEMIT '#include "vptype.h"'}
- {$HPPEMIT '#include "vpconfig.h"'}
- {$HPPEMIT '#include "vpnotify.h"'}
- {$HPPEMIT '#include "mmreg.h"'}
- {$HPPEMIT '#include "mpegtype.h"'}
- {$HPPEMIT '#include "dvdevcod.h"'}
- {$HPPEMIT '#include "dvdmedia.h"'}
- {$HPPEMIT '#include "bdatypes.h"'}
- {$HPPEMIT '#include "activecf.h"'}
- {$HPPEMIT '#include "vfwmsgs.h"'}
- {$HPPEMIT '#include "edevdefs.h"'}
- {$HPPEMIT '#include "XPrtDefs.h"'}
- {$HPPEMIT '#include "aviriff.h"'}
- {$HPPEMIT '#include "evcode.h"'}
- {$HPPEMIT '#include "DXVA.h"'}
- {$HPPEMIT '#include "AMVA.h"'}
- {$HPPEMIT '#include "videoacc.h"'}
- {$HPPEMIT '#include "regbag.h"'}
- {$HPPEMIT '#include "tuner.h"'}
- {$HPPEMIT '#include "DXTrans.h"'}
- {$HPPEMIT '#include "QEdit.h"'}
- {$HPPEMIT '#include "dshowasf.h"'}
- {$HPPEMIT '#include "amparse.h"'}
- {$HPPEMIT '#include "audevcod.h"'}
- {$HPPEMIT '#include "MediaErr.h"'}
- {$HPPEMIT '#include "MedParam.h"'}
- {$HPPEMIT '#include "mediaobj.h"'}
- {$HPPEMIT '#include "dmodshow.h"'}
- {$HPPEMIT '#include "dmoreg.h"'}
- {$HPPEMIT '#include "DMORt.h"'}
- {$HPPEMIT '#include "dmoimpl.h"'}
- {$HPPEMIT '#include "uuids.h"'}
- {$HPPEMIT '#include "ks.h"'}
- {$HPPEMIT '#include "ksproxy.h"'}
- {$HPPEMIT '#include "ksmedia.h"'}
- {$HPPEMIT '#include "bdamedia.h"'}
- {$HPPEMIT '#include "Bdatif.h"'}
- {$HPPEMIT '#include "atsmedia.h"'}
- {$HPPEMIT '#include "dmksctrl.h"'}
- {$HPPEMIT '#include "Mixerocx.h"'}
- {$HPPEMIT '#include "Mpeg2Data.h"'}
- {$HPPEMIT '#include "Mpeg2Bits.h"'}
- {$HPPEMIT '#include "Mpeg2Error.h"'}
- {$HPPEMIT '#include "sbe.h"'}
- {$HPPEMIT '#include "vmr9.h"'}
- {$HPPEMIT '#include "iwstdec.h"'}
- interface
- uses
- Windows,
- ActiveX,
- DirectDraw,
- DirectSound,
- Direct3D9,
- MMSystem,
- SyncObjs,
- ComObj;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: comlite.h
- *
- ***************************************************************************)
- function QzInitialize(pvReserved: Pointer): HResult; stdcall;
- {$EXTERNALSYM QzInitialize}
- procedure QzUninitialize; stdcall;
- {$EXTERNALSYM QzUninitialize}
- procedure QzFreeUnusedLibraries; stdcall;
- {$EXTERNALSYM QzFreeUnusedLibraries}
- function QzGetMalloc(dwMemContext: Longint; out malloc: IMalloc): HResult; stdcall;
- {$EXTERNALSYM QzGetMalloc}
- function QzTaskMemAlloc(cb: Longint): Pointer; stdcall;
- {$EXTERNALSYM QzTaskMemAlloc}
- function QzTaskMemRealloc(pv: Pointer; cb: Longint): Pointer; stdcall;
- {$EXTERNALSYM QzTaskMemRealloc}
- procedure QzTaskMemFree(pv: Pointer); stdcall;
- {$EXTERNALSYM QzTaskMemFree}
- function QzCreateFilterObject(const clsid: TCLSID; unkOuter: IUnknown;
- {$EXTERNALSYM QzCreateFilterObject}
- dwClsContext: Longint; const iid: TIID; out pv): HResult; stdcall;
- function QzCLSIDFromString(psz: POleStr; out clsid: TCLSID): HResult; stdcall;
- {$EXTERNALSYM QzCLSIDFromString}
- function QzStringFromGUID2(const guid: TGUID; psz: POleStr; cbMax: Integer): Integer; stdcall;
- {$EXTERNALSYM QzStringFromGUID2}
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: errors.h
- *
- ***************************************************************************)
- const
- VFW_FIRST_CODE = $200;
- {$EXTERNALSYM VFW_FIRST_CODE}
- MAX_ERROR_TEXT_LEN = 160;
- {$EXTERNALSYM MAX_ERROR_TEXT_LEN}
- function AMGetErrorTextA(hr: HResult; pbuffer: PChar; MaxLen: DWORD): DWORD; stdcall;
- {$EXTERNALSYM AMGetErrorTextA}
- function AMGetErrorTextW(hr: HResult; pbuffer: PWideChar; MaxLen: DWORD): DWORD; stdcall;
- {$EXTERNALSYM AMGetErrorTextW}
- // [pjh, 2003-07-14] ANSI and UNICODE declaration exchange
- {$IFDEF UNICODE}
- function AMGetErrorText(hr: HResult; pbuffer: PWideChar; MaxLen: DWORD): DWORD; stdcall;
- {$ELSE}
- function AMGetErrorText(hr: HResult; pbuffer: PChar; MaxLen: DWORD): DWORD; stdcall;
- {$ENDIF}
- {$EXTERNALSYM AMGetErrorText}
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: dv.h
- *
- ***************************************************************************)
- const
- DV_DVSD_NTSC_FRAMESIZE = 120000;
- {$EXTERNALSYM DV_DVSD_NTSC_FRAMESIZE}
- DV_DVSD_PAL_FRAMESIZE = 144000;
- {$EXTERNALSYM DV_DVSD_PAL_FRAMESIZE}
- DV_SMCHN = $0000e000;
- {$EXTERNALSYM DV_SMCHN}
- DV_AUDIOMODE = $00000f00;
- {$EXTERNALSYM DV_AUDIOMODE}
- DV_AUDIOSMP = $38000000;
- {$EXTERNALSYM DV_AUDIOSMP}
- DV_AUDIOQU = $07000000;
- {$EXTERNALSYM DV_AUDIOQU}
- DV_NTSCPAL = $00200000;
- {$EXTERNALSYM DV_NTSCPAL}
- DV_STYPE = $001f0000;
- {$EXTERNALSYM DV_STYPE}
- //There are NTSC or PAL DV camcorders
- DV_NTSC = 0;
- {$EXTERNALSYM DV_NTSC}
- DV_PAL = 1;
- {$EXTERNALSYM DV_PAL}
- //DV camcorder can output sd/hd/sl
- DV_SD = $00;
- {$EXTERNALSYM DV_SD}
- DV_HD = $01;
- {$EXTERNALSYM DV_HD}
- DV_SL = $02;
- {$EXTERNALSYM DV_SL}
- //user can choice 12 bits or 16 bits audio from DV camcorder
- DV_CAP_AUD16Bits = $00;
- {$EXTERNALSYM DV_CAP_AUD16Bits}
- DV_CAP_AUD12Bits = $01;
- {$EXTERNALSYM DV_CAP_AUD12Bits}
- SIZE_DVINFO = $20;
- {$EXTERNALSYM SIZE_DVINFO}
- type
- Tag_DVAudInfo = record
- bAudStyle: array[0..1] of Byte;
- //LSB 6 bits for starting DIF sequence number
- //MSB 2 bits: 0 for mon. 1: stereo in one 5/6 DIF sequences, 2: stereo audio in both 5/6 DIF sequences
- //example: 0x00: mon, audio in first 5/6 DIF sequence
- // 0x05: mon, audio in 2nd 5 DIF sequence
- // 0x15: stereo, audio only in 2nd 5 DIF sequence
- // 0x10: stereo, audio only in 1st 5/6 DIF sequence
- // 0x20: stereo, left ch in 1st 5/6 DIF sequence, right ch in 2nd 5/6 DIF sequence
- // 0x26: stereo, rightch in 1st 6 DIF sequence, left ch in 2nd 6 DIF sequence
- bAudQu: array[0..1] of Byte; //qbits, only support 12, 16,
- bNumAudPin: Byte; //how many pin
- wAvgSamplesPerPinPerFrm: array[0..1] of WORD; //samples size for one audio pin in one frame(which has 10 or 12 DIF sequence)
- wBlkMode : WORD; //45 for NTSC, 54 for PAL
- wDIFMode : WORD; //5 for NTSC, 6 for PAL
- wBlkDiv : WORD; //15 for NTSC, 18 for PAL
- end;
- {$EXTERNALSYM Tag_DVAudInfo}
- DVAudInfo = Tag_DVAudInfo;
- {$EXTERNALSYM DVAudInfo}
- TDVAudInfo = Tag_DVAudInfo;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: strmif.h
- *
- ***************************************************************************)
- const
- IID_IPin : TGUID = '{56A86891-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IPin}
- IID_IEnumPins : TGUID = '{56A86892-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IEnumPins}
- IID_IEnumMediaTypes : TGUID = '{89C31040-846B-11CE-97D3-00AA0055595A}';
- {$EXTERNALSYM IID_IEnumMediaTypes}
- IID_IFilterGraph : TGUID = '{56A8689F-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IFilterGraph}
- IID_IEnumFilters : TGUID = '{56A86893-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IEnumFilters}
- IID_IMediaFilter : TGUID = '{56A86899-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IMediaFilter}
- IID_IBaseFilter : TGUID = '{56A86895-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IBaseFilter}
- IID_IReferenceClock : TGUID = '{56A86897-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IReferenceClock}
- IID_IReferenceClock2 : TGUID = '{36B73885-C2C8-11CF-8B46-00805F6CEF60}';
- {$EXTERNALSYM IID_IReferenceClock2}
- IID_IMediaSample : TGUID = '{56A8689A-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IMediaSample}
- IID_IMediaSample2 : TGUID = '{36B73884-C2C8-11CF-8B46-00805F6CEF60}';
- {$EXTERNALSYM IID_IMediaSample2}
- IID_IMemAllocator : TGUID = '{56A8689C-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IMemAllocator}
- IID_IMemInputPin : TGUID = '{56A8689D-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IMemInputPin}
- IID_IAMovieSetup : TGUID = '{A3D8CEC0-7E5A-11CF-BBC5-00805F6CEF20}'; // deprecated;
- {$EXTERNALSYM IID_IAMovieSetup}
- IID_IMediaSeeking : TGUID = '{36B73880-C2C8-11CF-8B46-00805F6CEF60}';
- {$EXTERNALSYM IID_IMediaSeeking}
- IID_IEnumRegFilters : TGUID = '{56A868A4-0AD4-11CE-B03A-0020AF0BA770}'; // deprecated;
- {$EXTERNALSYM IID_IEnumRegFilters}
- IID_IFilterMapper : TGUID = '{56A868A3-0AD4-11CE-B03A-0020AF0BA770}'; // deprecated;
- {$EXTERNALSYM IID_IFilterMapper}
- IID_IFilterMapper2 : TGUID = '{B79BB0B0-33C1-11D1-ABE1-00A0C905F375}';
- {$EXTERNALSYM IID_IFilterMapper2}
- IID_IQualityControl : TGUID = '{56A868A5-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IQualityControl}
- IID_IOverlayNotify : TGUID = '{56A868A0-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IOverlayNotify}
- IID_IOverlay : TGUID = '{56A868A1-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IOverlay}
- IID_IMediaEventSink : TGUID = '{56A868A2-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IMediaEventSink}
- IID_IFileSourceFilter : TGUID = '{56A868A6-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IFileSourceFilter}
- IID_IFileSinkFilter : TGUID = '{A2104830-7C70-11CF-8BCE-00AA00A3F1A6}';
- {$EXTERNALSYM IID_IFileSinkFilter}
- IID_IFileSinkFilter2 : TGUID = '{00855B90-CE1B-11D0-BD4F-00A0C911CE86}';
- {$EXTERNALSYM IID_IFileSinkFilter2}
- IID_IFileAsyncIO : TGUID = '{56A868A7-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IFileAsyncIO}
- IID_IGraphBuilder : TGUID = '{56A868A9-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IGraphBuilder}
- IID_ICaptureGraphBuilder : TGUID = '{BF87B6E0-8C27-11D0-B3F0-00AA003761C5}'; // deprecated;
- {$EXTERNALSYM IID_ICaptureGraphBuilder}
- IID_IAMCopyCaptureFileProgress : TGUID = '{670D1D20-A068-11D0-B3F0-00AA003761C5}';
- {$EXTERNALSYM IID_IAMCopyCaptureFileProgress}
- IID_IFilterGraph2 : TGUID = '{36B73882-C2C8-11CF-8B46-00805F6CEF60}';
- {$EXTERNALSYM IID_IFilterGraph2}
- IID_IStreamBuilder : TGUID = '{56A868BF-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IStreamBuilder}
- IID_IAsyncReader : TGUID = '{56A868AA-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IAsyncReader}
- IID_IGraphVersion : TGUID = '{56A868AB-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IGraphVersion}
- IID_IResourceConsumer : TGUID = '{56A868AD-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IResourceConsumer}
- IID_IResourceManager : TGUID = '{56A868AC-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IResourceManager}
- IID_IDistributorNotify : TGUID = '{56A868AF-0AD4-11CE-B03A-0020AF0BA770}';
- {$EXTERNALSYM IID_IDistributorNotify}
- IID_IAMStreamControl : TGUID = '{36b73881-c2c8-11cf-8b46-00805f6cef60}';
- {$EXTERNALSYM IID_IAMStreamControl}
- IID_ISeekingPassThru : TGUID = '{36B73883-C2C8-11CF-8B46-00805F6CEF60}';
- {$EXTERNALSYM IID_ISeekingPassThru}
- IID_IAMStreamConfig : TGUID = '{C6E13340-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMStreamConfig}
- IID_IConfigInterleaving : TGUID = '{BEE3D220-157B-11d0-BD23-00A0C911CE86}';
- {$EXTERNALSYM IID_IConfigInterleaving}
- IID_IConfigAviMux : TGUID = '{5ACD6AA0-F482-11ce-8B67-00AA00A3F1A6}';
- {$EXTERNALSYM IID_IConfigAviMux}
- IID_IAMVideoCompression : TGUID = '{C6E13343-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMVideoCompression}
- IID_IAMVfwCaptureDialogs : TGUID = '{D8D715A0-6E5E-11D0-B3F0-00AA003761C5}';
- {$EXTERNALSYM IID_IAMVfwCaptureDialogs}
- IID_IAMVfwCompressDialogs : TGUID = '{D8D715A3-6E5E-11D0-B3F0-00AA003761C5}';
- {$EXTERNALSYM IID_IAMVfwCompressDialogs}
- IID_IAMDroppedFrames : TGUID = '{C6E13344-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMDroppedFrames}
- IID_IAMAudioInputMixer : TGUID = '{54C39221-8380-11d0-B3F0-00AA003761C5}';
- {$EXTERNALSYM IID_IAMAudioInputMixer}
- IID_IAMAnalogVideoDecoder : TGUID = '{C6E13350-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMAnalogVideoDecoder}
- IID_IAMVideoProcAmp : TGUID = '{C6E13360-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMVideoProcAmp}
- IID_IAMCameraControl : TGUID = '{C6E13370-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMCameraControl}
- IID_IAMCrossbar : TGUID = '{C6E13380-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM IID_IAMCrossbar}
- IID_IAMTuner : TGUID = '{211A8761-03AC-11d1-8D13-00AA00BD8339}';
- {$EXTERNALSYM IID_IAMTuner}
- IID_IAMTunerNotification : TGUID = '{211A8760-03AC-11d1-8D13-00AA00BD8339}';
- {$EXTERNALSYM IID_IAMTunerNotification}
- IID_IAMTVTuner : TGUID = '{211A8766-03AC-11d1-8D13-00AA00BD8339}';
- {$EXTERNALSYM IID_IAMTVTuner}
- IID_IBPCSatelliteTuner : TGUID = '{211A8765-03AC-11d1-8D13-00AA00BD8339}';
- {$EXTERNALSYM IID_IBPCSatelliteTuner}
- IID_IAMTVAudio : TGUID = '{83EC1C30-23D1-11d1-99E6-00A0C9560266}';
- {$EXTERNALSYM IID_IAMTVAudio}
- IID_IAMTVAudioNotification : TGUID = '{83EC1C33-23D1-11D1-99E6-00A0C9560266}';
- {$EXTERNALSYM IID_IAMTVAudioNotification}
- IID_IAMAnalogVideoEncoder : TGUID = '{C6E133B0-30AC-11d0-A18C-00A0C9118956}'; // deprecated;
- {$EXTERNALSYM IID_IAMAnalogVideoEncoder}
- IID_IMediaPropertyBag : TGUID = '{6025A880-C0D5-11D0-BD4E-00A0C911CE86}';
- {$EXTERNALSYM IID_IMediaPropertyBag}
- IID_IPersistMediaPropertyBag : TGUID = '{5738E040-B67F-11d0-BD4D-00A0C911CE86}';
- {$EXTERNALSYM IID_IPersistMediaPropertyBag}
- IID_IAMPhysicalPinInfo : TGUID = '{F938C991-3029-11CF-8C44-00AA006B6814}'; // deprecated;
- {$EXTERNALSYM IID_IAMPhysicalPinInfo}
- IID_IAMExtDevice : TGUID = '{B5730A90-1A2C-11CF-8C23-00AA006B6814}';
- {$EXTERNALSYM IID_IAMExtDevice}
- IID_IAMExtTransport : TGUID = '{A03CD5F0-3045-11CF-8C44-00AA006B6814}';
- {$EXTERNALSYM IID_IAMExtTransport}
- IID_IAMTimecodeReader : TGUID = '{9B496CE1-811B-11CF-8C77-00AA006B6814}';
- {$EXTERNALSYM IID_IAMTimecodeReader}
- IID_IAMTimecodeGenerator : TGUID = '{9B496CE0-811B-11CF-8C77-00AA006B6814}';
- {$EXTERNALSYM IID_IAMTimecodeGenerator}
- IID_IAMTimecodeDisplay : TGUID = '{9B496CE2-811B-11CF-8C77-00AA006B6814}';
- {$EXTERNALSYM IID_IAMTimecodeDisplay}
- IID_IAMDevMemoryAllocator : TGUID = '{C6545BF0-E76B-11D0-BD52-00A0C911CE86}'; // deprecated;
- {$EXTERNALSYM IID_IAMDevMemoryAllocator}
- IID_IAMDevMemoryControl : TGUID = '{C6545BF1-E76B-11D0-BD52-00A0C911CE86}'; // deprecated;
- {$EXTERNALSYM IID_IAMDevMemoryControl}
- IID_IAMStreamSelect : TGUID = '{C1960960-17F5-11D1-ABE1-00A0C905F375}';
- {$EXTERNALSYM IID_IAMStreamSelect}
- IID_IAMovie : TGUID = '{359ACE10-7688-11CF-8B23-00805F6CEF60}';
- {$EXTERNALSYM IID_IAMovie}
- IID_ICreateDevEnum : TGUID = '{29840822-5B84-11D0-BD3B-00A0C911CE86}';
- {$EXTERNALSYM IID_ICreateDevEnum}
- IID_IDvdControl : TGUID = '{A70EFE61-E2A3-11D0-A9BE-00AA0061BE93}'; // deprecated;
- {$EXTERNALSYM IID_IDvdControl}
- IID_IDvdControl2 : TGUID = '{33BC7430-EEC0-11D2-8201-00A0C9D74842}';
- {$EXTERNALSYM IID_IDvdControl2}
- IID_IDvdInfo : TGUID = '{A70EFE60-E2A3-11D0-A9BE-00AA0061BE93}'; // deprecated;
- {$EXTERNALSYM IID_IDvdInfo}
- IID_IDvdInfo2 : TGUID = '{34151510-EEC0-11D2-8201-00A0C9D74842}';
- {$EXTERNALSYM IID_IDvdInfo2}
- IID_IDvdGraphBuilder : TGUID = '{FCC152B6-F372-11d0-8E00-00C04FD7C08B}';
- {$EXTERNALSYM IID_IDvdGraphBuilder}
- IID_IDvdState : TGUID = '{86303d6d-1c4a-4087-ab42-f711167048ef}';
- {$EXTERNALSYM IID_IDvdState}
- IID_IDvdCmd : TGUID = '{5a4a97e4-94ee-4a55-9751-74b5643aa27d}';
- {$EXTERNALSYM IID_IDvdCmd}
- IID_IVideoFrameStep : TGUID = '{e46a9787-2b71-444d-a4b5-1fab7b708d6a}';
- {$EXTERNALSYM IID_IVideoFrameStep}
- IID_IFilterMapper3 : TGUID = '{b79bb0b1-33c1-11d1-abe1-00a0c905f375}';
- {$EXTERNALSYM IID_IFilterMapper3}
- IID_IOverlayNotify2 : TGUID = '{680EFA10-D535-11D1-87C8-00A0C9223196}';
- {$EXTERNALSYM IID_IOverlayNotify2}
- IID_ICaptureGraphBuilder2 : TGUID = '{93E5A4E0-2D50-11d2-ABFA-00A0C9C6E38D}';
- {$EXTERNALSYM IID_ICaptureGraphBuilder2}
- IID_IMemAllocatorCallbackTemp : TGUID = '{379a0cf0-c1de-11d2-abf5-00a0c905f375}';
- {$EXTERNALSYM IID_IMemAllocatorCallbackTemp}
- IID_IMemAllocatorNotifyCallbackTemp : TGUID = '{92980b30-c1de-11d2-abf5-00a0c905f375}';
- {$EXTERNALSYM IID_IMemAllocatorNotifyCallbackTemp}
- IID_IAMVideoControl : TGUID = '{6a2e0670-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM IID_IAMVideoControl}
- IID_IKsPropertySet : TGUID = '{31EFAC30-515C-11d0-A9AA-00AA0061BE93}';
- {$EXTERNALSYM IID_IKsPropertySet}
- STATIC_IID_IKsPropertySet : TGUID = '{31EFAC30-515C-11d0-A9AA-00AA0061BE93}';
- {$EXTERNALSYM STATIC_IID_IKsPropertySet}
- IID_IAMResourceControl : TGUID = '{8389d2d0-77d7-11d1-abe6-00a0c905f375}';
- {$EXTERNALSYM IID_IAMResourceControl}
- IID_IAMClockAdjust : TGUID = '{4d5466b0-a49c-11d1-abe8-00a0c905f375}';
- {$EXTERNALSYM IID_IAMClockAdjust}
- IID_IAMFilterMiscFlags : TGUID = '{2dd74950-a890-11d1-abe8-00a0c905f375}';
- {$EXTERNALSYM IID_IAMFilterMiscFlags}
- IID_IDrawVideoImage : TGUID = '{48efb120-ab49-11d2-aed2-00a0c995e8d5}';
- {$EXTERNALSYM IID_IDrawVideoImage}
- IID_IDecimateVideoImage : TGUID = '{2e5ea3e0-e924-11d2-b6da-00a0c995e8df}';
- {$EXTERNALSYM IID_IDecimateVideoImage}
- IID_IAMVideoDecimationProperties : TGUID = '{60d32930-13da-11d3-9ec6-c4fcaef5c7be}';
- {$EXTERNALSYM IID_IAMVideoDecimationProperties}
- IID_IAMLatency : TGUID = '{62EA93BA-EC62-11d2-B770-00C04FB6BD3D}';
- {$EXTERNALSYM IID_IAMLatency}
- IID_IAMPushSource : TGUID = '{F185FE76-E64E-11d2-B76E-00C04FB6BD3D}';
- {$EXTERNALSYM IID_IAMPushSource}
- IID_IAMDeviceRemoval : TGUID = '{f90a6130-b658-11d2-ae49-0000f8754b99}';
- {$EXTERNALSYM IID_IAMDeviceRemoval}
- IID_IDVEnc : TGUID = '{d18e17a0-aacb-11d0-afb0-00aa00b67a42}';
- {$EXTERNALSYM IID_IDVEnc}
- IID_IIPDVDec : TGUID = '{b8e8bd60-0bfe-11d0-af91-00aa00b67a42}';
- {$EXTERNALSYM IID_IIPDVDec}
- IID_IDVRGB219 : TGUID = '{58473A19-2BC8-4663-8012-25F81BABDDD1}'; // XP
- {$EXTERNALSYM IID_IDVRGB219}
- IID_IDVSplitter : TGUID = '{92a3a302-da7c-4a1f-ba7e-1802bb5d2d02}';
- {$EXTERNALSYM IID_IDVSplitter}
- IID_IAMAudioRendererStats : TGUID = '{22320CB2-D41A-11d2-BF7C-D7CB9DF0BF93}';
- {$EXTERNALSYM IID_IAMAudioRendererStats}
- IID_IAMGraphStreams : TGUID = '{632105FA-072E-11d3-8AF9-00C04FB6BD3D}';
- {$EXTERNALSYM IID_IAMGraphStreams}
- IID_IAMOverlayFX : TGUID = '{62fae250-7e65-4460-bfc9-6398b322073c}';
- {$EXTERNALSYM IID_IAMOverlayFX}
- IID_IAMOpenProgress : TGUID = '{8E1C39A1-DE53-11cf-AA63-0080C744528D}';
- {$EXTERNALSYM IID_IAMOpenProgress}
- IID_IMpeg2Demultiplexer : TGUID = '{436eee9c-264f-4242-90e1-4e330c107512}';
- {$EXTERNALSYM IID_IMpeg2Demultiplexer}
- IID_IEnumStreamIdMap : TGUID = '{945C1566-6202-46fc-96C7-D87F289C6534}';
- {$EXTERNALSYM IID_IEnumStreamIdMap}
- IID_IMPEG2StreamIdMap : TGUID = '{D0E04C47-25B8-4369-925A-362A01D95444}';
- {$EXTERNALSYM IID_IMPEG2StreamIdMap}
- IID_IRegisterServiceProvider : TGUID = '{7B3A2F01-0751-48DD-B556-004785171C54}'; // XP
- {$EXTERNALSYM IID_IRegisterServiceProvider}
- IID_IAMDecoderCaps : TGUID = '{c0dff467-d499-4986-972b-e1d9090fa941}'; // XP
- {$EXTERNALSYM IID_IAMDecoderCaps}
- IID_IAMCertifiedOutputProtection : TGUID = '{6FEDED3E-0FF1-4901-A2F1-43F7012C8515}';
- {.$EXTERNALSYM IID_IAMCertifiedOutputProtection}
- IID_IAMClockSlave : TGUID = '{9FD52741-176D-4b36-8F51-CA8F933223BE}'; // XP
- {$EXTERNALSYM IID_IAMClockSlave}
- IID_IAMGraphBuilderCallback : TGUID = '{4995f511-9ddb-4f12-bd3b-f04611807b79}'; // DX9
- {$EXTERNALSYM IID_IAMGraphBuilderCallback}
- IID_IAMFilterGraphCallback : TGUID = '{56a868fd-0ad4-11ce-b0a3-0020af0ba770}'; // DX9
- {$EXTERNALSYM IID_IAMFilterGraphCallback}
- IID_ICodecAPI : TGUID = '{901db4c7-31ce-41a2-85dc-8fa0bf41b8da}'; // DX9
- {$EXTERNALSYM IID_ICodecAPI}
- IID_IEncoderAPI : TGUID = '{70423839-6ACC-4b23-B079-21DBF08156A5}'; // DX9
- {$EXTERNALSYM IID_IEncoderAPI}
- IID_IVideoEncoder : TGUID = '{02997C3B-8E1B-460e-9270-545E0DE9563E}'; // DX9
- {$EXTERNALSYM IID_IVideoEncoder}
- IID_IGetCapabilitiesKey : TGUID = '{a8809222-07bb-48ea-951c-33158100625b}'; // DX9
- {$EXTERNALSYM IID_IGetCapabilitiesKey}
- IID_IDDrawExclModeVideo : TGUID = '{153ACC21-D83B-11d1-82BF-00A0C9696C8F}';
- {$EXTERNALSYM IID_IDDrawExclModeVideo}
- IID_IDDrawExclModeVideoCallback : TGUID = '{913c24a0-20ab-11d2-9038-00a0c9697298}';
- {$EXTERNALSYM IID_IDDrawExclModeVideoCallback}
- IID_IPinConnection : TGUID = '{4a9a62d3-27d4-403d-91e9-89f540e55534}';
- {$EXTERNALSYM IID_IPinConnection}
- IID_IPinFlowControl : TGUID = '{c56e9858-dbf3-4f6b-8119-384af2060deb}';
- {$EXTERNALSYM IID_IPinFlowControl}
- IID_IGraphConfig : TGUID = '{03A1EB8E-32BF-4245-8502-114D08A9CB88}';
- {$EXTERNALSYM IID_IGraphConfig}
- IID_IGraphConfigCallback : TGUID = '{ade0fd60-d19d-11d2-abf6-00a0c905f375}';
- {$EXTERNALSYM IID_IGraphConfigCallback}
- IID_IFilterChain : TGUID = '{DCFBDCF6-0DC2-45f5-9AB2-7C330EA09C29}';
- {$EXTERNALSYM IID_IFilterChain}
- IID_IVMRImagePresenter : TGUID = '{CE704FE7-E71E-41fb-BAA2-C4403E1182F5}'; // XP
- {$EXTERNALSYM IID_IVMRImagePresenter}
- IID_IVMRSurfaceAllocator : TGUID = '{31ce832e-4484-458b-8cca-f4d7e3db0b52}'; // XP
- {$EXTERNALSYM IID_IVMRSurfaceAllocator}
- IID_IVMRSurfaceAllocatorNotify : TGUID = '{aada05a8-5a4e-4729-af0b-cea27aed51e2}'; // XP
- {$EXTERNALSYM IID_IVMRSurfaceAllocatorNotify}
- IID_IVMRWindowlessControl : TGUID = '{0eb1088c-4dcd-46f0-878f-39dae86a51b7}'; // XP
- {$EXTERNALSYM IID_IVMRWindowlessControl}
- IID_IVMRMixerControl : TGUID = '{1c1a17b0-bed0-415d-974b-dc6696131599}'; // XP
- {$EXTERNALSYM IID_IVMRMixerControl}
- IID_IVMRMonitorConfig : TGUID = '{9cf0b1b6-fbaa-4b7f-88cf-cf1f130a0dce}'; // XP
- {$EXTERNALSYM IID_IVMRMonitorConfig}
- IID_IVMRFilterConfig : TGUID = '{9e5530c5-7034-48b4-bb46-0b8a6efc8e36}'; // XP
- {$EXTERNALSYM IID_IVMRFilterConfig}
- IID_IVMRMixerBitmap : TGUID = '{1E673275-0257-40aa-AF20-7C608D4A0428}'; // XP
- {$EXTERNALSYM IID_IVMRMixerBitmap}
- IID_IVMRImageCompositor : TGUID = '{7a4fb5af-479f-4074-bb40-ce6722e43c82}'; // XP
- {$EXTERNALSYM IID_IVMRImageCompositor}
- IID_IVMRVideoStreamControl : TGUID = '{058d1f11-2a54-4bef-bd54-df706626b727}'; // XP
- {$EXTERNALSYM IID_IVMRVideoStreamControl}
- IID_IVMRSurface : TGUID = '{a9849bbe-9ec8-4263-b764-62730f0d15d0}'; // XP
- {$EXTERNALSYM IID_IVMRSurface}
- IID_IVPManager : TGUID = '{aac18c18-e186-46d2-825d-a1f8dc8e395a}'; // XP
- {$EXTERNALSYM IID_IVPManager}
- IID_IVMRImagePresenterConfig : TGUID = '{9f3a1c85-8555-49ba-935f-be5b5b29d178}'; // XP
- {$EXTERNALSYM IID_IVMRImagePresenterConfig}
- IID_IVMRImagePresenterExclModeConfig: TGUID = '{e6f7ce40-4673-44f1-8f77-5499d68cb4ea}'; // XP
- {$EXTERNALSYM IID_IVMRImagePresenterExclModeConfig}
- IID_IAMBufferNegotiation : TGUID = '{56ED71A0-AF5F-11D0-B3F0-00AA003761C5}';
- {$EXTERNALSYM IID_IAMBufferNegotiation}
- const
- CHARS_IN_GUID = 39;
- {$EXTERNALSYM CHARS_IN_GUID}
- MAX_PIN_NAME = 128;
- {$EXTERNALSYM MAX_PIN_NAME}
- MAX_FILTER_NAME = 128;
- {$EXTERNALSYM MAX_FILTER_NAME}
- type
- PAMMediaType = ^TAMMediaType;
- _AMMediaType = record
- majortype : TGUID;
- subtype : TGUID;
- bFixedSizeSamples : BOOL;
- bTemporalCompression : BOOL;
- lSampleSize : ULONG;
- formattype : TGUID;
- pUnk : IUnknown;
- cbFormat : ULONG;
- pbFormat : Pointer;
- end;
- {$EXTERNALSYM _AMMediaType}
- AM_MEDIA_TYPE = _AMMediaType;
- {$EXTERNALSYM AM_MEDIA_TYPE}
- TAMMediaType = _AMMediaType;
- _PinDirection = (
- PINDIR_INPUT,
- PINDIR_OUTPUT
- );
- {$EXTERNALSYM _PinDirection}
- PIN_DIRECTION = _PinDirection;
- {$EXTERNALSYM PIN_DIRECTION}
- TPinDirection = PIN_DIRECTION;
- REFERENCE_TIME = DirectSound.REFERENCE_TIME;
- {$EXTERNALSYM REFERENCE_TIME}
- TReferenceTime = DirectSound.TReferenceTime;
- PReferenceTime = DirectSound.PReferenceTime;
- REFTIME = double;
- {$EXTERNALSYM REFTIME}
- TRefTime = REFTIME;
- HSEMAPHORE = Longint;
- {$EXTERNALSYM HSEMAPHORE}
- PAllocatorProperties = ^TAllocatorProperties;
- _AllocatorProperties = record
- cBuffers: Longint;
- cbBuffer: Longint;
- cbAlign : Longint;
- cbPrefix: Longint;
- end;
- {$EXTERNALSYM _AllocatorProperties}
- ALLOCATOR_PROPERTIES = _AllocatorProperties;
- {$EXTERNALSYM ALLOCATOR_PROPERTIES}
- TAllocatorProperties = _AllocatorProperties;
- IBaseFilter = interface;
- _PinInfo = record
- pFilter: IBaseFilter;
- dir : PIN_DIRECTION;
- achName: array[0..127] of WCHAR;
- end;
- {$EXTERNALSYM _PinInfo}
- PIN_INFO = _PinInfo;
- {$EXTERNALSYM PIN_INFO}
- TPinInfo = _PinInfo;
- IEnumMediaTypes = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IPin> _di_IPin;'}
- {$EXTERNALSYM IPin}
- IPin = interface(IUnknown)
- ['{56A86891-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IPin methods ***)
- function Connect(pReceivePin: IPin; const pmt: PAMMediaType): HResult; stdcall;
- function ReceiveConnection(pConnector: IPin; const pmt: TAMMediaType): HResult; stdcall;
- function Disconnect: HResult; stdcall;
- function ConnectedTo(out pPin: IPin): HResult; stdcall;
- function ConnectionMediaType(out pmt: TAMMediaType): HResult; stdcall;
- function QueryPinInfo(out pInfo: TPinInfo): HResult; stdcall;
- function QueryDirection(out pPinDir: TPinDirection): HResult; stdcall;
- function QueryId(out Id: LPWSTR): HResult; stdcall;
- function QueryAccept(const pmt: TAMMediaType): HResult; stdcall;
- function EnumMediaTypes(out ppEnum: IEnumMediaTypes): HResult; stdcall;
- function QueryInternalConnections(out apPin: IPin; var nPin: ULONG): HResult; stdcall;
- function EndOfStream: HResult; stdcall;
- function BeginFlush: HResult; stdcall;
- function EndFlush: HResult; stdcall;
- function NewSegment(tStart, tStop: TReferenceTime; dRate: double): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumPins> _di_IEnumPins;'}
- {$EXTERNALSYM IEnumPins}
- IEnumPins = interface(IUnknown)
- ['{56A86892-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IEnumPins methods ***)
- function Next(cPins: ULONG; out ppPins: IPin; pcFetched: PULONG): HResult; stdcall;
- function Skip(cPins: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumPins): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumMediaTypes> _di_IEnumMediaTypes;'}
- {$EXTERNALSYM IEnumMediaTypes}
- IEnumMediaTypes = interface(IUnknown)
- ['{89C31040-846B-11CE-97D3-00AA0055595A}']
- (*** IEnumMediaTypes methods ***)
- function Next(cMediaTypes: ULONG; out ppMediaTypes: PAMMediaType;
- pcFetched: PULONG): HResult; stdcall;
- function Skip(cMediaTypes: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumMediaTypes): HResult; stdcall;
- end;
- IEnumFilters = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterGraph> _di_IFilterGraph;'}
- {$EXTERNALSYM IFilterGraph}
- IFilterGraph = interface(IUnknown)
- ['{56A8689F-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IFilterGraph methods ***)
- function AddFilter(pFilter: IBaseFilter; pName: PWideChar): HResult; stdcall;
- function RemoveFilter(pFilter: IBaseFilter): HResult; stdcall;
- function EnumFilters(out ppEnum: IEnumFilters): HResult; stdcall;
- function FindFilterByName(pName: PWideChar; out ppFilter: IBaseFilter): HResult; stdcall;
- function ConnectDirect(ppinOut, ppinIn: IPin; pmt: PAMMediaType): HResult; stdcall;
- function Reconnect(ppin: IPin): HResult; stdcall;
- function Disconnect(ppin: IPin): HResult; stdcall;
- function SetDefaultSyncSource: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumFilters> _di_IEnumFilters;'}
- {$EXTERNALSYM IEnumFilters}
- IEnumFilters = interface(IUnknown)
- ['{56A86893-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IEnumFilters methods ***)
- function Next(cFilters: ULONG; out ppFilter: IBaseFilter;
- pcFetched: PULONG): HResult; stdcall;
- function Skip(cFilters: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumFilters): HResult; stdcall;
- end;
- _FilterState = (
- State_Stopped,
- State_Paused,
- State_Running
- );
- {$EXTERNALSYM _FilterState}
- FILTER_STATE = _FilterState;
- {$EXTERNALSYM FILTER_STATE}
- TFilterState = FILTER_STATE;
- {$NODEFINE IReferenceClock}
- IReferenceClock = DirectSound.IReferenceClock;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaFilter> _di_IMediaFilter;'}
- {$EXTERNALSYM IMediaFilter}
- IMediaFilter = interface(IPersist)
- ['{56A86899-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaFilter methods ***)
- function Stop: HResult; stdcall;
- function Pause: HResult; stdcall;
- function Run(tStart: TReferenceTime): HResult; stdcall;
- function GetState(dwMilliSecsTimeout: DWORD; out State: TFilterState): HResult; stdcall;
- function SetSyncSource(pClock: IReferenceClock): HResult; stdcall;
- function GetSyncSource(out pClock: IReferenceClock): HResult; stdcall;
- end;
- _FilterInfo = record
- achName : array[0..127] of WCHAR;
- pGraph : IFilterGraph;
- end;
- {$EXTERNALSYM _FilterInfo}
- FILTER_INFO = _FilterInfo;
- {$EXTERNALSYM FILTER_INFO}
- TFilterInfo = _FilterInfo;
- {$HPPEMIT 'typedef System::DelphiInterface<IBaseFilter> _di_IBaseFilter;'}
- {$EXTERNALSYM IBaseFilter}
- IBaseFilter = interface(IMediaFilter)
- ['{56A86895-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IBaseFilter methods ***)
- function EnumPins(out ppEnum: IEnumPins): HResult; stdcall;
- function FindPin(Id: PWideChar; out ppPin: IPin): HResult; stdcall;
- function QueryFilterInfo(out pInfo: TFilterInfo): HResult; stdcall;
- function JoinFilterGraph(pGraph: IFilterGraph; pName: PWideChar): HResult; stdcall;
- function QueryVendorInfo(out pVendorInfo: PWideChar): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IReferenceClock2> _di_IReferenceClock2;'}
- {$EXTERNALSYM IReferenceClock2}
- IReferenceClock2 = interface(IReferenceClock)
- ['{36B73885-C2C8-11CF-8B46-00805F6CEF60}']
- (*** IReferenceClock2 methods ***)
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaSample> _di_IMediaSample;'}
- {$EXTERNALSYM IMediaSample}
- IMediaSample = interface(IUnknown)
- ['{56A8689A-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaSample methods ***)
- function GetPointer(out ppBuffer: PBYTE): HResult; stdcall;
- function GetSize: Longint; stdcall;
- function GetTime(out pTimeStart, pTimeEnd: TReferenceTime): HResult; stdcall;
- function SetTime(pTimeStart, pTimeEnd: PReferenceTime): HResult; stdcall;
- function IsSyncPoint: HResult; stdcall;
- function SetSyncPoint(bIsSyncPoint: BOOL): HResult; stdcall;
- function IsPreroll: HResult; stdcall;
- function SetPreroll(bIsPreroll: BOOL): HResult; stdcall;
- function GetActualDataLength: Longint; stdcall;
- function SetActualDataLength(lLen: Longint): HResult; stdcall;
- function GetMediaType(out ppMediaType: PAMMediaType): HResult; stdcall;
- function SetMediaType(var pMediaType: TAMMediaType): HResult; stdcall;
- function IsDiscontinuity: HResult; stdcall;
- function SetDiscontinuity(bDiscontinuity: BOOL): HResult; stdcall;
- function GetMediaTime(out pTimeStart, pTimeEnd: int64): HResult; stdcall;
- function SetMediaTime(pTimeStart, pTimeEnd: Pint64): HResult; stdcall;
- end;
- const
- AM_SAMPLE_SPLICEPOINT = $1;
- {$EXTERNALSYM AM_SAMPLE_SPLICEPOINT}
- AM_SAMPLE_PREROLL = $2;
- {$EXTERNALSYM AM_SAMPLE_PREROLL}
- AM_SAMPLE_DATADISCONTINUITY = $4;
- {$EXTERNALSYM AM_SAMPLE_DATADISCONTINUITY}
- AM_SAMPLE_TYPECHANGED = $8;
- {$EXTERNALSYM AM_SAMPLE_TYPECHANGED}
- AM_SAMPLE_TIMEVALID = $10;
- {$EXTERNALSYM AM_SAMPLE_TIMEVALID}
- AM_SAMPLE_TIMEDISCONTINUITY = $40;
- {$EXTERNALSYM AM_SAMPLE_TIMEDISCONTINUITY}
- AM_SAMPLE_FLUSH_ON_PAUSE = $80;
- {$EXTERNALSYM AM_SAMPLE_FLUSH_ON_PAUSE}
- AM_SAMPLE_STOPVALID = $100;
- {$EXTERNALSYM AM_SAMPLE_STOPVALID}
- AM_SAMPLE_ENDOFSTREAM = $200;
- {$EXTERNALSYM AM_SAMPLE_ENDOFSTREAM}
- AM_STREAM_MEDIA = 0;
- {$EXTERNALSYM AM_STREAM_MEDIA}
- AM_STREAM_CONTROL = 1;
- {$EXTERNALSYM AM_STREAM_CONTROL}
- type
- PAMSample2Properties = ^TAMSample2Properties;
- tagAM_SAMPLE2_PROPERTIES = record
- cbData: DWORD;
- dwTypeSpecificFlags : DWORD;
- dwSampleFlags : DWORD;
- lActual : Longint;
- tStart : Reference_Time;
- tStop : Reference_Time;
- dwStreamId : DWORD;
- pMediaType : PAMMediaType;
- pbBuffer : Pointer;
- cbBuffer : Longint;
- end;
- {$EXTERNALSYM tagAM_SAMPLE2_PROPERTIES}
- AM_SAMPLE2_PROPERTIES = tagAM_SAMPLE2_PROPERTIES;
- {$EXTERNALSYM AM_SAMPLE2_PROPERTIES}
- TAMSample2Properties = tagAM_SAMPLE2_PROPERTIES;
-
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaSample2> _di_IMediaSample2;'}
- {$EXTERNALSYM IMediaSample2}
- IMediaSample2 = interface(IMediaSample)
- ['{36B73884-C2C8-11CF-8B46-00805F6CEF60}']
- (*** IMediaSample2 methods ***)
- function GetProperties(cbProperties: DWORD; out pbProperties): HResult; stdcall;
- function SetProperties(cbProperties: DWORD; const pbProperties): HResult; stdcall;
- end;
- const
- AM_GBF_PREVFRAMESKIPPED = 1;
- {$EXTERNALSYM AM_GBF_PREVFRAMESKIPPED}
- AM_GBF_NOTASYNCPOINT = 2;
- {$EXTERNALSYM AM_GBF_NOTASYNCPOINT}
- AM_GBF_NOWAIT = 4;
- {$EXTERNALSYM AM_GBF_NOWAIT}
- AM_GBF_NODDSURFACELOCK = 8;
- {$EXTERNALSYM AM_GBF_NODDSURFACELOCK}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMemAllocator> _di_IMemAllocator;'}
- {$EXTERNALSYM IMemAllocator}
- IMemAllocator = interface(IUnknown)
- ['{56A8689C-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMemAllocator methods ***)
- function SetProperties(var pRequest: TAllocatorProperties;
- out pActual: TAllocatorProperties): HResult; stdcall;
- function GetProperties(out pProps: TAllocatorProperties): HResult; stdcall;
- function Commit: HResult; stdcall;
- function Decommit: HResult; stdcall;
- function GetBuffer(out ppBuffer: IMediaSample;
- pStartTime, pEndTime: PReferenceTime; dwFlags: DWORD): HResult; stdcall;
- function ReleaseBuffer(pBuffer: IMediaSample): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMemAllocatorNotifyCallbackTemp> _di_IMemAllocatorNotifyCallbackTemp;'}
- {$EXTERNALSYM IMemAllocatorNotifyCallbackTemp}
- IMemAllocatorNotifyCallbackTemp = interface(IUnknown)
- ['{92980b30-c1de-11d2-abf5-00a0c905f375}']
- (*** IMemAllocatorNotifyCallbackTemp methods ***)
- function NotifyRelease: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMemAllocatorCallbackTemp> _di_IMemAllocatorCallbackTemp;'}
- {$EXTERNALSYM IMemAllocatorCallbackTemp}
- IMemAllocatorCallbackTemp = interface(IMemAllocator)
- ['{379a0cf0-c1de-11d2-abf5-00a0c905f375}']
- (*** IMemAllocatorCallbackTemp methods ***)
- function SetNotify(pNotify: IMemAllocatorNotifyCallbackTemp): HResult; stdcall;
- function GetFreeCount(out plBuffersFree: LongInt): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMemInputPin> _di_IMemInputPin;'}
- {$EXTERNALSYM IMemInputPin}
- IMemInputPin = interface(IUnknown)
- ['{56A8689D-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMemInputPin methods ***)
- function GetAllocator(out ppAllocator: IMemAllocator): HResult; stdcall;
- function NotifyAllocator(pAllocator: IMemAllocator; bReadOnly: BOOL): HResult; stdcall;
- function GetAllocatorRequirements(out pProps: TAllocatorProperties): HResult; stdcall;
- function Receive(pSample: IMediaSample): HResult; stdcall;
- function ReceiveMultiple(var pSamples: IMediaSample; nSamples: Longint;
- out nSamplesProcessed: Longint): HResult; stdcall;
- function ReceiveCanBlock: HResult; stdcall;
- end;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IAMovieSetup> _di_IAMovieSetup;'}
- {$EXTERNALSYM IAMovieSetup}
- IAMovieSetup = interface(IUnknown)
- ['{A3D8CEC0-7E5A-11CF-BBC5-00805F6CEF20}']
- (*** IAMovieSetup methods ***)
- function Register: HResult; stdcall;
- function Unregister: HResult; stdcall;
- end;
- const
- AM_SEEKING_NoPositioning = 0;
- {$EXTERNALSYM AM_SEEKING_NoPositioning}
- AM_SEEKING_AbsolutePositioning = $1;
- {$EXTERNALSYM AM_SEEKING_AbsolutePositioning}
- AM_SEEKING_RelativePositioning = $2;
- {$EXTERNALSYM AM_SEEKING_RelativePositioning}
- AM_SEEKING_IncrementalPositioning = $3;
- {$EXTERNALSYM AM_SEEKING_IncrementalPositioning}
- AM_SEEKING_PositioningBitsMask = $3;
- {$EXTERNALSYM AM_SEEKING_PositioningBitsMask}
- AM_SEEKING_SeekToKeyFrame = $4;
- {$EXTERNALSYM AM_SEEKING_SeekToKeyFrame}
- AM_SEEKING_ReturnTime = $8;
- {$EXTERNALSYM AM_SEEKING_ReturnTime}
- AM_SEEKING_Segment = $10;
- {$EXTERNALSYM AM_SEEKING_Segment}
- AM_SEEKING_NoFlush = $20;
- {$EXTERNALSYM AM_SEEKING_NoFlush}
- AM_SEEKING_CanSeekAbsolute = $1;
- {$EXTERNALSYM AM_SEEKING_CanSeekAbsolute}
- AM_SEEKING_CanSeekForwards = $2;
- {$EXTERNALSYM AM_SEEKING_CanSeekForwards}
- AM_SEEKING_CanSeekBackwards = $4;
- {$EXTERNALSYM AM_SEEKING_CanSeekBackwards}
- AM_SEEKING_CanGetCurrentPos = $8;
- {$EXTERNALSYM AM_SEEKING_CanGetCurrentPos}
- AM_SEEKING_CanGetStopPos = $10;
- {$EXTERNALSYM AM_SEEKING_CanGetStopPos}
- AM_SEEKING_CanGetDuration = $20;
- {$EXTERNALSYM AM_SEEKING_CanGetDuration}
- AM_SEEKING_CanPlayBackwards = $40;
- {$EXTERNALSYM AM_SEEKING_CanPlayBackwards}
- AM_SEEKING_CanDoSegments = $80;
- {$EXTERNALSYM AM_SEEKING_CanDoSegments}
- AM_SEEKING_Source = $100;
- {$EXTERNALSYM AM_SEEKING_Source}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaSeeking> _di_IMediaSeeking;'}
- {$EXTERNALSYM IMediaSeeking}
- IMediaSeeking = interface(IUnknown)
- ['{36B73880-C2C8-11CF-8B46-00805F6CEF60}']
- (*** IMediaSeeking methods ***)
- function GetCapabilities(out pCapabilities: DWORD): HResult; stdcall;
- function CheckCapabilities(var pCapabilities: DWORD): HResult; stdcall;
- function IsFormatSupported(const pFormat: TGUID): HResult; stdcall;
- function QueryPreferredFormat(out pFormat: TGUID): HResult; stdcall;
- function GetTimeFormat(out pFormat: TGUID): HResult; stdcall;
- function IsUsingTimeFormat(const pFormat: TGUID): HResult; stdcall;
- function SetTimeFormat(const pFormat: TGUID): HResult; stdcall;
- function GetDuration(out pDuration: int64): HResult; stdcall;
- function GetStopPosition(out pStop: int64): HResult; stdcall;
- function GetCurrentPosition(out pCurrent: int64): HResult; stdcall;
- function ConvertTimeFormat(out pTarget: int64; pTargetFormat: PGUID;
- Source: int64; pSourceFormat: PGUID): HResult; stdcall;
- function SetPositions(var pCurrent: int64; dwCurrentFlags: DWORD;
- var pStop: int64; dwStopFlags: DWORD): HResult; stdcall;
- function GetPositions(out pCurrent, pStop: int64): HResult; stdcall;
- function GetAvailable(out pEarliest, pLatest: int64): HResult; stdcall;
- function SetRate(dRate: double): HResult; stdcall;
- function GetRate(out pdRate: double): HResult; stdcall;
- function GetPreroll(out pllPreroll: int64): HResult; stdcall;
- end;
- const
- AM_MEDIAEVENT_NONOTIFY = $01;
- {$EXTERNALSYM AM_MEDIAEVENT_NONOTIFY}
- type
- PRegFilter = ^TRegFilter;
- REGFILTER = record
- Clsid: TGUID;
- Name : LPWSTR;
- end;
- {$EXTERNALSYM REGFILTER}
- TRegFilter = REGFILTER;
-
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumRegFilters> _di_IEnumRegFilters;'}
- {$EXTERNALSYM IEnumRegFilters}
- IEnumRegFilters = interface(IUnknown)
- ['{56A868A4-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IEnumRegFilters methods ***)
- function Next(cFilters: ULONG; out apRegFilter: TRegFilter;
- out pcFetched: ULONG): HResult; stdcall;
- function Skip(cFilters: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumRegFilters): HResult; stdcall;
- end;
- const
- MERIT_PREFERRED = $800000;
- {$EXTERNALSYM MERIT_PREFERRED}
- MERIT_NORMAL = $600000;
- {$EXTERNALSYM MERIT_NORMAL}
- MERIT_UNLIKELY = $400000;
- {$EXTERNALSYM MERIT_UNLIKELY}
- MERIT_DO_NOT_USE = $200000;
- {$EXTERNALSYM MERIT_DO_NOT_USE}
- MERIT_SW_COMPRESSOR = $100000;
- {$EXTERNALSYM MERIT_SW_COMPRESSOR}
- MERIT_HW_COMPRESSOR = $100050;
- {$EXTERNALSYM MERIT_HW_COMPRESSOR}
- type
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterMapper> _di_IFilterMapper;'}
- {$EXTERNALSYM IFilterMapper}
- IFilterMapper = interface(IUnknown)
- ['{56A868A3-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IFilterMapper methods ***)
- function RegisterFilter(clsid: TGUID; Name: LPCWSTR; dwMerit: DWORD):HResult; stdcall;
- function RegisterFilterInstance(clsid: TGUID; Name: LPCWSTR; out MRId: TGUID): HResult; stdcall;
- function RegisterPin(Filter: TGUID; Name: LPCWSTR;
- bRendered, bOutput, bZero, bMany: BOOL; ConnectsToFilter: TGUID;
- ConnectsToPin: PWideChar): HResult; stdcall;
- function RegisterPinType(clsFilter: TGUID; strName: LPCWSTR;
- clsMajorType, clsSubType: TGUID): HResult; stdcall;
- function UnregisterFilter(Filter: TGUID): HResult; stdcall;
- function UnregisterFilterInstance(MRId: TGUID): HResult; stdcall;
- function UnregisterPin(Filter: TGUID; Name: LPCWSTR): HResult; stdcall;
- function EnumMatchingFilters(out ppEnum: IEnumRegFilters; dwMerit: DWORD;
- bInputNeeded: BOOL; const clsInMaj, clsInSub: TGUID;
- bRender, bOututNeeded: BOOL; const clsOutMaj, clsOutSub: TGUID): HResult; stdcall;
- end;
- PRegPinTypes = ^TRegPinTypes;
- REGPINTYPES = record
- clsMajorType: PGUID;
- clsMinorType: PGUID;
- end;
- {$EXTERNALSYM REGPINTYPES}
- TRegPinTypes = REGPINTYPES;
- PRegFilterPins = ^TRegFilterPins;
- REGFILTERPINS = record
- strName : PWideChar;
- bRendered : BOOL;
- bOutput : BOOL;
- bZero : BOOL;
- bMany : BOOL;
- oFilter : PGUID;
- strConnectsToPin : PWideChar;
- nMediaTypes : LongWord;
- lpMediaType : PRegPinTypes;
- end;
- {$EXTERNALSYM REGFILTERPINS}
- TRegFilterPins = REGFILTERPINS;
- PRegPinMedium = ^TRegPinMedium;
- REGPINMEDIUM = record
- clsMedium: TGUID;
- dw1: DWORD;
- dw2: DWORD;
- end;
- {$EXTERNALSYM REGPINMEDIUM}
- TRegPinMedium = REGPINMEDIUM;
- const
- REG_PINFLAG_B_ZERO = $1;
- {$EXTERNALSYM REG_PINFLAG_B_ZERO}
- REG_PINFLAG_B_RENDERER = $2;
- {$EXTERNALSYM REG_PINFLAG_B_RENDERER}
- REG_PINFLAG_B_MANY = $4;
- {$EXTERNALSYM REG_PINFLAG_B_MANY}
- REG_PINFLAG_B_OUTPUT = $8;
- {$EXTERNALSYM REG_PINFLAG_B_OUTPUT}
- type
- PRegFilterPins2 = ^TRegFilterPins2;
- REGFILTERPINS2 = record
- dwFlags : DWORD;
- cInstances : UINT;
- nMediaTypes : UINT;
- lpMediaType : PRegPinTypes;
- nMediums : UINT;
- lpMedium : PRegPinMedium;
- clsPinCategory : PGUID;
- end;
- {$EXTERNALSYM REGFILTERPINS2}
- TRegFilterPins2 = REGFILTERPINS2;
- PRegFilter2 = ^TRegFilter2;
- REGFILTER2 = record
- dwVersion: DWORD;
- dwMerit: DWORD;
- case Integer of
- 0: (
- cPins: ULONG;
- rgPins: PRegFilterPins;
- );
- 1: (
- cPins2: ULONG;
- rgPins2: PRegFilterPins2;
- );
- end;
- {$EXTERNALSYM REGFILTER2}
- TRegFilter2 = REGFILTER2;
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterMapper2> _di_IFilterMapper2;'}
- {$EXTERNALSYM IFilterMapper2}
- IFilterMapper2 = interface(IUnknown)
- ['{B79BB0B0-33C1-11D1-ABE1-00A0C905F375}']
- (*** IFilterMapper2 methods ***)
- function CreateCategory(const clsidCategory: TGUID; dwCategoryMerit: DWORD;
- Description: PWideChar): HResult; stdcall;
- function UnregisterFilter(const pclsidCategory: TGUID;
- szInstance: PWideChar; const Filter: TGUID): HResult; stdcall;
- function RegisterFilter(const clsidFilter: TGUID; Name: PWideChar;
- ppMoniker: IMoniker; pclsidCategory: PGUID;
- szInstance: PWideChar; const prf2: TRegFilter2): HResult; stdcall;
- function EnumMatchingFilters(out ppEnum: IEnumMoniker; dwFlags: DWORD; bExactMatch: BOOL;
- dwMerit: DWORD; bInputNeeded: BOOL; cInputTypes: DWORD; pInputTypes: PGUID;
- pMedIn: PREGPINMEDIUM; pPinCategoryIn: PGUID; bRender, bOutputNeeded: BOOL;
- cOutputTypes: DWORD; pOutputTypes: PGUID; pMedOut: PRegPinMedium;
- pPinCategoryOut: PGUID): HResult; stdcall;
- end;
- tagQualityMessageType = (
- Famine,
- Flood
- );
- {$EXTERNALSYM tagQualityMessageType}
- QualityMessageType = tagQualityMessageType;
- {$EXTERNALSYM QualityMessageType}
- TQualityMessageType = QualityMessageType;
- PQuality = ^TQuality;
- tagQuality = record
- Typ : QualityMessageType;
- Proportion : Longint;
- Late : Reference_Time;
- TimeStamp : Reference_Time;
- end;
- {$EXTERNALSYM tagQuality}
- Quality = tagQuality;
- {$EXTERNALSYM Quality}
- TQuality = tagQuality;
- {$HPPEMIT 'typedef System::DelphiInterface<IQualityControl> _di_IQualityControl;'}
- {$EXTERNALSYM IQualityControl}
- IQualityControl = interface(IUnknown)
- ['{56A868A5-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IQualityControl methods ***)
- function Notify(pSelf: IBaseFilter; q: TQuality): HResult; stdcall;
- function SetSink(piqc: IQualityControl): HResult; stdcall;
- end;
- const
- CK_NOCOLORKEY = $0;
- {$EXTERNALSYM CK_NOCOLORKEY}
- CK_INDEX = $1;
- {$EXTERNALSYM CK_INDEX}
- CK_RGB = $2;
- {$EXTERNALSYM CK_RGB}
- type
- PColorKey = ^TColorKey;
- tagCOLORKEY = record
- KeyType : DWORD;
- PaletteIndex : DWORD;
- LowColorValue : COLORREF;
- HighColorValue : COLORREF;
- end;
- {$EXTERNALSYM tagCOLORKEY}
- COLORKEY = tagCOLORKEY;
- {$EXTERNALSYM COLORKEY}
- TColorKey = tagCOLORKEY;
- const
- ADVISE_NONE = 0;
- {$EXTERNALSYM ADVISE_NONE}
- ADVISE_CLIPPING = $1;
- {$EXTERNALSYM ADVISE_CLIPPING}
- ADVISE_PALETTE = $2;
- {$EXTERNALSYM ADVISE_PALETTE}
- ADVISE_COLORKEY = $4;
- {$EXTERNALSYM ADVISE_COLORKEY}
- ADVISE_POSITION = $8;
- {$EXTERNALSYM ADVISE_POSITION}
- ADVISE_ALL = ADVISE_CLIPPING or ADVISE_PALETTE or ADVISE_COLORKEY or ADVISE_POSITION;
- {$EXTERNALSYM ADVISE_ALL}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IOverlayNotify> _di_IOverlayNotify;'}
- {$EXTERNALSYM IOverlayNotify}
- IOverlayNotify = interface(IUnknown)
- ['{56A868A0-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IOverlayNotify methods ***)
- function OnPaletteChange(dwColors: DWORD; const pPalette: PPALETTEENTRY): HResult; stdcall;
- function OnClipChange(const pSourceRect, pDestinationRect: TRect;
- const pRgnData: TRgnData): HResult; stdcall;
- function OnColorKeyChange(const pColorKey: TColorKey): HResult; stdcall;
- function OnPositionChange(const pSourceRect, pDestinationRect: TRect): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IOverlayNotify2> _di_IOverlayNotify2;'}
- {$EXTERNALSYM IOverlayNotify2}
- IOverlayNotify2 = interface(IOverlayNotify)
- ['{680EFA10-D535-11D1-87C8-00A0C9223196}']
- (*** IOverlayNotify2 methods ***)
- function OnDisplayChange(var hMonitor: HMONITOR ): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IOverlay> _di_IOverlay;'}
- {$EXTERNALSYM IOverlay}
- IOverlay = interface(IUnknown)
- ['{56A868A1-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IOverlay methods ***)
- function GetPalette(out pdwColors: DWORD; out ppPalette: PPALETTEENTRY): HResult; stdcall;
- function SetPalette(dwColors: DWORD; var pPalette: PaletteEntry): HResult; stdcall;
- function GetDefaultColorKey(out pColorKey: TColorKey): HResult; stdcall;
- function GetColorKey(out pColorKey: TColorKey): HResult; stdcall;
- function SetColorKey(var pColorKey: TColorKey): HResult; stdcall;
- function GetWindowHandle(out pHwnd: HWND): HResult; stdcall;
- function GetClipList(out pSourceRect, pDestinationRect: TRect;
- out ppRgnData: PRgnData): HResult; stdcall;
- function GetVideoPosition(out pSourceRect, pDestinationRect: TRect): HResult; stdcall;
- function Advise(pOverlayNotify: IOverlayNotify; dwInterests: DWORD): HResult; stdcall;
- function Unadvise: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaEventSink> _di_IMediaEventSink;'}
- {$EXTERNALSYM IMediaEventSink}
- IMediaEventSink = interface(IUnknown)
- ['{56A868A2-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaEventSink methods ***)
- function Notify(EventCode, EventParam1, EventParam2: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFileSourceFilter> _di_IFileSourceFilter;'}
- {$EXTERNALSYM IFileSourceFilter}
- IFileSourceFilter = interface(IUnknown)
- ['{56A868A6-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IFileSourceFilter methods ***)
- function Load(pszFileName: PWCHAR; const pmt: PAMMediaType): HResult; stdcall;
- function GetCurFile(out ppszFileName: PWideChar; pmt: PAMMediaType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFileSinkFilter> _di_IFileSinkFilter;'}
- {$EXTERNALSYM IFileSinkFilter}
- IFileSinkFilter = interface(IUnknown)
- ['{A2104830-7C70-11CF-8BCE-00AA00A3F1A6}']
- (*** IFileSinkFilter methods ***)
- function SetFileName(pszFileName: PWideChar; pmt: PAMMediaType): HResult; stdcall;
- function GetCurFile(out ppszFileName: PWideChar; pmt: PAMMediaType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFileSinkFilter2> _di_IFileSinkFilter2;'}
- {$EXTERNALSYM IFileSinkFilter2}
- IFileSinkFilter2 = interface(IFileSinkFilter)
- ['{00855B90-CE1B-11D0-BD4F-00A0C911CE86}']
- (*** IFileSinkFilter2 methods ***)
- function SetMode(dwFlags: DWORD): HResult; stdcall;
- function GetMode(out pdwFlags: DWORD): HResult; stdcall;
- end;
- AM_FILESINK_FLAGS = (
- {$IFNDEF COMPILER6_UP}
- AM_FILE_INVALID_0 {= 0},
- AM_FILE_OVERWRITE {= 1}
- {$ELSE}
- AM_FILE_OVERWRITE = 1
- {$ENDIF}
- );
- {$EXTERNALSYM AM_FILESINK_FLAGS}
- TAMFileSinkFlags = AM_FILESINK_FLAGS;
- // Very old !!!!!
- // PAsyncIOReq = ^TAsyncIOReq;
- // TAsyncIOReq = record
- // engine: array[0..3] of DWORD;
- // lpv: Pointer;
- // cb: DWORD;
- // dwError: DWORD;
- // cbDone: DWORD;
- // liPos: TLargeInteger;
- // hEvent: DWORD;
- // dwUser: DWORD;
- // end;
- // IFileAsyncIO = interface(IUnknown)
- // ['{56A868A7-0AD4-11CE-B03A-0020AF0BA770}']
- // function QueryAlignment(out pdwAlign: DWORD): HResult; stdcall;
- // function Read(const pReq: TAsyncIOReq): HResult; stdcall;
- // function Write(const pReq: TAsyncIOReq): HResult; stdcall;
- // function WaitForNext(out ppReq: PAsyncIOReq;
- // dwTimeout: DWORD): HResult; stdcall;
- // function WaitForSpecific(out pReq: TAsyncIOReq;
- // dwTimeout: DWORD): HResult; stdcall;
- // function DiscardPending: HResult; stdcall;
- // function Flush: HResult; stdcall;
- // end;
- {$HPPEMIT 'typedef System::DelphiInterface<IGraphBuilder> _di_IGraphBuilder;'}
- {$EXTERNALSYM IGraphBuilder}
- IGraphBuilder = interface(IFilterGraph)
- ['{56A868A9-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IGraphBuilder methods ***)
- function Connect(ppinOut, ppinIn: IPin): HResult; stdcall;
- function Render(ppinOut: IPin): HResult; stdcall;
- function RenderFile(lpcwstrFile, lpcwstrPlayList: PWideChar): HResult; stdcall;
- function AddSourceFilter(lpcwstrFileName, lpcwstrFilterName: LPCWSTR;
- out ppFilter: IBaseFilter): HResult; stdcall;
- function SetLogFile(hFile: THandle): HResult; stdcall;
- function Abort: HResult; stdcall;
- function ShouldOperationContinue: HResult; stdcall;
- end;
- IAMCopyCaptureFileProgress = interface;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<ICaptureGraphBuilder> _di_ICaptureGraphBuilder;'}
- {$EXTERNALSYM ICaptureGraphBuilder}
- ICaptureGraphBuilder = interface(IUnknown)
- ['{BF87B6E0-8C27-11D0-B3F0-00AA003761C5}']
- (*** ICaptureGraphBuilder methods ***)
- function SetFiltergraph(pfg: IGraphBuilder): HResult; stdcall;
- function GetFiltergraph(out ppfg: IGraphBuilder): HResult; stdcall;
- function SetOutputFileName(const pType: TGUID; lpstrFile: PWCHAR;
- out ppf: IBaseFilter; out ppSink: IFileSinkFilter): HResult; stdcall;
- function FindInterface(pCategory: PGUID; pf: IBaseFilter;
- const riid: TGUID; out ppint): HResult; stdcall;
- function RenderStream(pCategory: PGUID; pSource: IUnknown;
- pfCompressor, pfRenderer: IBaseFilter): HResult; stdcall;
- function ControlStream(pCategory: PGUID; pFilter: IBaseFilter;
- pstart, pstop: PReferenceTime; wStartCookie, wStopCookie: WORD): HResult; stdcall;
- function AllocCapFile(lpstr: PWCHAR; dwlSize: int64): HResult; stdcall;
- function CopyCaptureFile(lpwstrOld, lpwstrNew: PWCHAR; fAllowEscAbort: Integer;
- pCallback: IAMCopyCaptureFileProgress): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ICaptureGraphBuilder2> _di_ICaptureGraphBuilder2;'}
- {$EXTERNALSYM ICaptureGraphBuilder2}
- ICaptureGraphBuilder2 = interface(IUnknown)
- ['{93E5A4E0-2D50-11d2-ABFA-00A0C9C6E38D}']
- (*** ICaptureGraphBuilder2 methods ***)
- function SetFiltergraph(pfg: IGraphBuilder): HResult; stdcall;
- function GetFiltergraph(out ppfg: IGraphBuilder): HResult; stdcall;
- function SetOutputFileName(const pType: TGUID; lpstrFile: PWCHAR; out ppf: IBaseFilter; out ppSink: IFileSinkFilter): HResult; stdcall;
- function FindInterface(pCategory, pType: PGUID; pf: IBaseFilter; const riid: TGUID; out ppint): HResult; stdcall;
- function RenderStream(pCategory, pType: PGUID; pSource: IUnknown; pfCompressor, pfRenderer: IBaseFilter): HResult; stdcall;
- function ControlStream(pCategory, pType: PGUID; pFilter: IBaseFilter; pstart, pstop: PReferenceTime; wStartCookie, wStopCookie: WORD ): HResult; stdcall;
- function AllocCapFile(lpstr: PWCHAR; dwlSize: int64): HResult; stdcall;
- function CopyCaptureFile(lpwstrOld, lpwstrNew: PWCHAR; fAllowEscAbort: Integer; pCallback: IAMCopyCaptureFileProgress): HResult; stdcall;
- function FindPin(pSource: IUnknown; pindir: TPINDIRECTION; const pCategory, pType: PGUID; fUnconnected: BOOL; num: integer; out ppPin: IPin): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMCopyCaptureFileProgress> _di_IAMCopyCaptureFileProgress;'}
- {$EXTERNALSYM IAMCopyCaptureFileProgress}
- IAMCopyCaptureFileProgress = interface(IUnknown)
- ['{670D1D20-A068-11D0-B3F0-00AA003761C5}']
- (*** IAMCopyCaptureFileProgress methods ***)
- function Progress(iProgress: Integer): HResult; stdcall;
- end;
- const
- AM_RENDEREX_RENDERTOEXISTINGRENDERERS = $01;
- {$EXTERNALSYM AM_RENDEREX_RENDERTOEXISTINGRENDERERS}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterGraph2> _di_IFilterGraph2;'}
- {$EXTERNALSYM IFilterGraph2}
- IFilterGraph2 = interface(IGraphBuilder)
- ['{36B73882-C2C8-11CF-8B46-00805F6CEF60}']
- (*** IFilterGraph2 methods ***)
- function AddSourceFilterForMoniker(pMoniker: IMoniker; pCtx: IBindCtx;
- lpcwstrFilterName: LPCWSTR; out ppFilter: IBaseFilter): HResult; stdcall;
- function ReconnectEx(ppin: IPin; pmt: PAMMediaType): HResult; stdcall;
- // Render a pin without adding any new renderers (pvContext = nil)
- // not in the documentation ??
- function RenderEx(pPinOut: IPin; dwFlags: DWORD; pvContext: PDWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBuilder> _di_IStreamBuilder;'}
- {$EXTERNALSYM IStreamBuilder}
- IStreamBuilder = interface(IUnknown)
- ['{56A868BF-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IStreamBuilder methods ***)
- function Render(ppinOut: IPin; pGraph: IGraphBuilder): HResult; stdcall;
- function Backout(ppinOut: IPin; pGraph: IGraphBuilder): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAsyncReader> _di_IAsyncReader;'}
- {$EXTERNALSYM IAsyncReader}
- IAsyncReader = interface(IUnknown)
- ['{56A868AA-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IAsyncReader methods ***)
- {nev: start}
- function RequestAllocator(pPreferred: IMemAllocator;
- pProps: PAllocatorProperties; out ppActual: IMemAllocator): HResult; stdcall;
- {nev: end}
- function Request(pSample: IMediaSample; dwUser: DWORD): HResult; stdcall;
- function WaitForNext(dwTimeout: DWORD; out ppSample: IMediaSample;
- out pdwUser: DWORD): HResult; stdcall;
- function SyncReadAligned(pSample: IMediaSample): HResult; stdcall;
- function SyncRead(llPosition: int64; lLength: Longint; pBuffer: Pbyte): HResult; stdcall;
- function Length(out pTotal, pAvailable: int64): HResult; stdcall;
- function BeginFlush: HResult; stdcall;
- function EndFlush: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IGraphVersion> _di_IGraphVersion;'}
- {$EXTERNALSYM IGraphVersion}
- IGraphVersion = interface(IUnknown)
- ['{56A868AB-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IGraphVersion methods ***)
- function QueryVersion(var pVersion: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IResourceConsumer> _di_IResourceConsumer;'}
- {$EXTERNALSYM IResourceConsumer}
- IResourceConsumer = interface(IUnknown)
- ['{56A868AD-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IResourceConsumer methods ***)
- function AcquireResource(idResource: Longint): HResult; stdcall;
- function ReleaseResource(idResource: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IResourceManager> _di_IResourceManager;'}
- {$EXTERNALSYM IResourceManager}
- IResourceManager = interface(IUnknown)
- ['{56A868AC-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IResourceManager methods ***)
- function Register(pName: LPCWSTR; cResource: Longint;
- out plToken: Longint): HResult; stdcall;
- function RegisterGroup(pName: LPCWSTR; cResource: Longint;
- palTokens: PLongint; out plToken: Longint): HResult; stdcall;
- function RequestResource(idResource: Longint; pFocusObject: IUnknown;
- pConsumer: IResourceConsumer): HResult; stdcall;
- function NotifyAcquire(idResource: Longint; pConsumer: IResourceConsumer;
- hr: HResult): HResult; stdcall;
- function NotifyRelease(idResource: Longint; pConsumer: IResourceConsumer;
- bStillWant: BOOL): HResult; stdcall;
- function CancelRequest(idResource: Longint; pConsumer: IResourceConsumer): HResult; stdcall;
- function SetFocus(pFocusObject: IUnknown): HResult; stdcall;
- function ReleaseFocus(pFocusObject: IUnknown): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDistributorNotify> _di_IDistributorNotify;'}
- {$EXTERNALSYM IDistributorNotify}
- IDistributorNotify = interface(IUnknown)
- ['{56A868AF-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IDistributorNotify methods ***)
- function Stop: HResult; stdcall;
- function Pause: HResult; stdcall;
- function Run(tStart: TReferenceTime): HResult; stdcall;
- function SetSyncSource(pClock: IReferenceClock): HResult; stdcall;
- function NotifyGraphChange: HResult; stdcall;
- end;
- AM_STREAM_INFO_FLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF}DWord;
- {$EXTERNALSYM AM_STREAM_INFO_FLAGS}
- const
- AM_STREAM_INFO_START_DEFINED = $1;
- {$EXTERNALSYM AM_STREAM_INFO_START_DEFINED}
- AM_STREAM_INFO_STOP_DEFINED = $2;
- {$EXTERNALSYM AM_STREAM_INFO_STOP_DEFINED}
- AM_STREAM_INFO_DISCARDING = $4;
- {$EXTERNALSYM AM_STREAM_INFO_DISCARDING}
- AM_STREAM_INFO_STOP_SEND_EXTRA = $10;
- {$EXTERNALSYM AM_STREAM_INFO_STOP_SEND_EXTRA}
- type
- PAMStreamInfo = ^TAMStreamInfo;
- AM_STREAM_INFO = record
- tStart : Reference_Time;
- tStop : Reference_Time;
- dwStartCookie : DWORD;
- dwStopCookie : DWORD;
- dwFlags : DWORD;
- end;
- {$EXTERNALSYM AM_STREAM_INFO}
- TAMStreamInfo = AM_STREAM_INFO;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMStreamControl> _di_IAMStreamControl;'}
- {$EXTERNALSYM IAMStreamControl}
- IAMStreamControl = interface(IUnknown)
- ['{36b73881-c2c8-11cf-8b46-00805f6cef60}']
- (*** IAMStreamControl methods ***)
- function StartAt(ptStart: PReferenceTime; dwCookie: DWORD): HResult; stdcall;
- function StopAt(ptStop: PReferenceTime; bSendExtra: BOOL;
- dwCookie: DWORD): HResult; stdcall;
- function GetInfo(out pInfo: TAMStreamInfo): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ISeekingPassThru> _di_ISeekingPassThru;'}
- {$EXTERNALSYM ISeekingPassThru}
- ISeekingPassThru = interface(IUnknown)
- ['{36B73883-C2C8-11CF-8B46-00805F6CEF60}']
- (*** ISeekingPassThru methods ***)
- function Init(bSupportRendering: BOOL; pPin: IPin): HResult; stdcall;
- end;
- PVideoStreamConfigCaps = ^TVideoStreamConfigCaps;
- _VIDEO_STREAM_CONFIG_CAPS = record
- guid: TGUID;
- VideoStandard : ULONG;
- InputSize : TSize;
- MinCroppingSize : TSize;
- MaxCroppingSize : TSize;
- CropGranularityX : Integer;
- CropGranularityY : Integer;
- CropAlignX : Integer;
- CropAlignY : Integer;
- MinOutputSize : TSize;
- MaxOutputSize : TSize;
- OutputGranularityX : Integer;
- OutputGranularityY : Integer;
- StretchTapsX : Integer;
- StretchTapsY : Integer;
- ShrinkTapsX : Integer;
- ShrinkTapsY : Integer;
- MinFrameInterval : Int64;
- MaxFrameInterval : Int64;
- MinBitsPerSecond : Longint;
- MaxBitsPerSecond : Longint;
- end;
- {$EXTERNALSYM _VIDEO_STREAM_CONFIG_CAPS}
- VIDEO_STREAM_CONFIG_CAPS = _VIDEO_STREAM_CONFIG_CAPS;
- {$EXTERNALSYM VIDEO_STREAM_CONFIG_CAPS}
- TVideoStreamConfigCaps = _VIDEO_STREAM_CONFIG_CAPS;
- PAudioStreamConfigCaps = ^TAudioStreamConfigCaps;
- _AUDIO_STREAM_CONFIG_CAPS = record
- guid: TGUID;
- MinimumChannels : ULONG;
- MaximumChannels : ULONG;
- ChannelsGranularity : ULONG;
- MinimumBitsPerSample : ULONG;
- MaximumBitsPerSample : ULONG;
- BitsPerSampleGranularity : ULONG;
- MinimumSampleFrequency : ULONG;
- MaximumSampleFrequency : ULONG;
- SampleFrequencyGranularity : ULONG;
- end;
- {$EXTERNALSYM _AUDIO_STREAM_CONFIG_CAPS}
- AUDIO_STREAM_CONFIG_CAPS = _AUDIO_STREAM_CONFIG_CAPS;
- {$EXTERNALSYM AUDIO_STREAM_CONFIG_CAPS}
- TAudioStreamConfigCaps = _AUDIO_STREAM_CONFIG_CAPS;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMStreamConfig> _di_IAMStreamConfig;'}
- {$EXTERNALSYM IAMStreamConfig}
- IAMStreamConfig = interface(IUnknown)
- ['{C6E13340-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMStreamConfig methods ***)
- function SetFormat(const pmt: TAMMediaType): HResult; stdcall;
- function GetFormat(out ppmt: PAMMediaType): HResult; stdcall;
- function GetNumberOfCapabilities(out piCount, piSize: Integer): HResult; stdcall;
- function GetStreamCaps(iIndex: Integer; out ppmt: PAMMediaType;
- out pSCC): HResult; stdcall;
- end;
- InterleavingMode = (
- INTERLEAVE_NONE,
- INTERLEAVE_CAPTURE,
- INTERLEAVE_FULL,
- INTERLEAVE_NONE_BUFFERED
- );
- {$EXTERNALSYM InterleavingMode}
- TInterleavingMode = InterleavingMode;
- {$HPPEMIT 'typedef System::DelphiInterface<IConfigInterleaving> _di_IConfigInterleaving;'}
- {$EXTERNALSYM IConfigInterleaving}
- IConfigInterleaving = interface(IUnknown)
- ['{BEE3D220-157B-11d0-BD23-00A0C911CE86}']
- (*** IConfigInterleaving methods ***)
- function put_Mode(mode: TInterleavingMode): HResult; stdcall;
- function get_Mode(out pMode: TInterleavingMode): HResult; stdcall;
- function put_Interleaving(prtInterleave, prtPreroll: PReferenceTime): HResult; stdcall;
- function get_Interleaving(out prtInterleave, prtPreroll: TReferenceTime): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IConfigAviMux> _di_IConfigAviMux;'}
- {$EXTERNALSYM IConfigAviMux}
- IConfigAviMux = interface(IUnknown)
- ['{5ACD6AA0-F482-11ce-8B67-00AA00A3F1A6}']
- (*** IConfigAviMux methods ***)
- function SetMasterStream(iStream: Longint): HResult; stdcall;
- function GetMasterStream(out pStream: Longint): HResult; stdcall;
- function SetOutputCompatibilityIndex(fOldIndex: BOOL): HResult; stdcall;
- function GetOutputCompatibilityIndex(out pfOldIndex: BOOL): HResult; stdcall;
- end;
- const
- CompressionCaps_CanQuality = $1;
- {$EXTERNALSYM CompressionCaps_CanQuality}
- CompressionCaps_CanCrunch = $2;
- {$EXTERNALSYM CompressionCaps_CanCrunch}
- CompressionCaps_CanKeyFrame = $4;
- {$EXTERNALSYM CompressionCaps_CanKeyFrame}
- CompressionCaps_CanBFrame = $8;
- {$EXTERNALSYM CompressionCaps_CanBFrame}
- CompressionCaps_CanWindow = $10;
- {$EXTERNALSYM CompressionCaps_CanWindow}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVideoCompression> _di_IAMVideoCompression;'}
- {$EXTERNALSYM IAMVideoCompression}
- IAMVideoCompression = interface(IUnknown)
- ['{C6E13343-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMVideoCompression methods ***)
- function put_KeyFrameRate(KeyFrameRate: Longint): HResult; stdcall;
- function get_KeyFrameRate(out pKeyFrameRate: Longint): HResult; stdcall;
- function put_PFramesPerKeyFrame(PFramesPerKeyFrame: Longint): HResult; stdcall;
- function get_PFramesPerKeyFrame(out pPFramesPerKeyFrame: Longint): HResult; stdcall;
- function put_Quality(Quality: double): HResult; stdcall;
- function get_Quality(out pQuality: double): HResult; stdcall;
- function put_WindowSize(WindowSize: int64): HResult; stdcall;
- function get_WindowSize(out pWindowSize: int64): HResult; stdcall;
- function GetInfo(pszVersion: PWideChar; var pcbVersion: Integer;
- pszDescription: PWideChar; var pcbDescription: Integer;
- out pDefaultKeyFrameRate, pDefaultPFramesPerKey: Longint;
- out pDefaultQuality: double; out pCapabilities: Longint): HResult; stdcall;
- function OverrideKeyFrame(FrameNumber: Longint): HResult; stdcall;
- function OverrideFrameSize(FrameNumber, Size: Longint): HResult; stdcall;
- end;
- const
- VfwCaptureDialog_Source = $1;
- {$EXTERNALSYM VfwCaptureDialog_Source}
- VfwCaptureDialog_Format = $2;
- {$EXTERNALSYM VfwCaptureDialog_Format}
- VfwCaptureDialog_Display = $4;
- {$EXTERNALSYM VfwCaptureDialog_Display}
- VfwCompressDialog_Config = $1;
- {$EXTERNALSYM VfwCompressDialog_Config}
- VfwCompressDialog_About = $2;
- {$EXTERNALSYM VfwCompressDialog_About}
- VfwCompressDialog_QueryConfig = $4;
- {$EXTERNALSYM VfwCompressDialog_QueryConfig}
- VfwCompressDialog_QueryAbout = $8;
- {$EXTERNALSYM VfwCompressDialog_QueryAbout}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVfwCaptureDialogs> _di_IAMVfwCaptureDialogs;'}
- {$EXTERNALSYM IAMVfwCaptureDialogs}
- IAMVfwCaptureDialogs = interface(IUnknown)
- ['{D8D715A0-6E5E-11D0-B3F0-00AA003761C5}']
- (*** IAMVfwCaptureDialogs methods ***)
- function HasDialog(iDialog: Integer): HResult; stdcall;
- function ShowDialog(iDialog: Integer; hwnd: HWND): HResult; stdcall;
- function SendDriverMessage(iDialog: Integer; uMsg: Integer;
- dw1, dw2: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVfwCompressDialogs> _di_IAMVfwCompressDialogs;'}
- {$EXTERNALSYM IAMVfwCompressDialogs}
- IAMVfwCompressDialogs = interface(IUnknown)
- ['{D8D715A3-6E5E-11D0-B3F0-00AA003761C5}']
- (*** IAMVfwCompressDialogs methods ***)
- function ShowDialog(iDialog: Integer; hwnd: HWND): HResult; stdcall;
- function GetState(out pState; var pcbState: Integer): HResult; stdcall;
- function SetState(var pState; cbState: Integer): HResult; stdcall;
- function SendDriverMessage(uMsg: Integer; dw1, dw2: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMDroppedFrames> _di_IAMDroppedFrames;'}
- {$EXTERNALSYM IAMDroppedFrames}
- IAMDroppedFrames = interface(IUnknown)
- ['{C6E13344-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMDroppedFrames methods ***)
- function GetNumDropped(out plDropped: Longint): HResult; stdcall;
- function GetNumNotDropped(out plNotDropped: Longint): HResult; stdcall;
- function GetDroppedInfo(lSize: Longint; out plArray: Longint;
- out plNumCopied: Longint): HResult; stdcall;
- function GetAverageFrameSize(out plAverageSize: Longint): HResult; stdcall;
- end;
- const
- AMF_AUTOMATICGAIN = -1;
- {$EXTERNALSYM AMF_AUTOMATICGAIN}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMAudioInputMixer> _di_IAMAudioInputMixer;'}
- {$EXTERNALSYM IAMAudioInputMixer}
- IAMAudioInputMixer = interface(IUnknown)
- ['{54C39221-8380-11d0-B3F0-00AA003761C5}']
- (*** IAMAudioInputMixer methods ***)
- function put_Enable(fEnable: BOOL): HResult; stdcall;
- function get_Enable(out pfEnable: BOOL): HResult; stdcall;
- function put_Mono(fMono: BOOL): HResult; stdcall;
- function get_Mono(out pfMono: BOOL): HResult; stdcall;
- function put_MixLevel(Level: double): HResult; stdcall;
- function get_MixLevel(out pLevel: double): HResult; stdcall;
- function put_Pan(Pan: double): HResult; stdcall;
- function get_Pan(out pPan: double): HResult; stdcall;
- function put_Loudness(fLoudness: BOOL): HResult; stdcall;
- function get_Loudness(out pfLoudness: BOOL): HResult; stdcall;
- function put_Treble(Treble: double): HResult; stdcall;
- function get_Treble(out pTreble: double): HResult; stdcall;
- function get_TrebleRange(out pRange: double): HResult; stdcall;
- function put_Bass(Bass: double): HResult; stdcall;
- function get_Bass(out pBass: double): HResult; stdcall;
- function get_BassRange(out pRange: double): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMBufferNegotiation> _di_IAMBufferNegotiation;'}
- {$EXTERNALSYM IAMBufferNegotiation}
- IAMBufferNegotiation = interface(IUnknown)
- ['{56ED71A0-AF5F-11D0-B3F0-00AA003761C5}']
- (*** IAMBufferNegotiation methods ***)
- function SuggestAllocatorProperties(const pprop: TAllocatorProperties): HResult; stdcall;
- function GetAllocatorProperties(var pprop: TAllocatorProperties): HResult; stdcall;
- end;
- const
- AnalogVideo_None = 0;
- {$EXTERNALSYM AnalogVideo_None}
- AnalogVideo_NTSC_M = $1;
- {$EXTERNALSYM AnalogVideo_NTSC_M}
- AnalogVideo_NTSC_M_J = $2;
- {$EXTERNALSYM AnalogVideo_NTSC_M_J}
- AnalogVideo_NTSC_433 = $4;
- {$EXTERNALSYM AnalogVideo_NTSC_433}
- AnalogVideo_PAL_B = $10;
- {$EXTERNALSYM AnalogVideo_PAL_B}
- AnalogVideo_PAL_D = $20;
- {$EXTERNALSYM AnalogVideo_PAL_D}
- AnalogVideo_PAL_G = $40;
- {$EXTERNALSYM AnalogVideo_PAL_G}
- AnalogVideo_PAL_H = $80;
- {$EXTERNALSYM AnalogVideo_PAL_H}
- AnalogVideo_PAL_I = $100;
- {$EXTERNALSYM AnalogVideo_PAL_I}
- AnalogVideo_PAL_M = $200;
- {$EXTERNALSYM AnalogVideo_PAL_M}
- AnalogVideo_PAL_N = $400;
- {$EXTERNALSYM AnalogVideo_PAL_N}
- AnalogVideo_PAL_60 = $800;
- {$EXTERNALSYM AnalogVideo_PAL_60}
- AnalogVideo_SECAM_B = $1000;
- {$EXTERNALSYM AnalogVideo_SECAM_B}
- AnalogVideo_SECAM_D = $2000;
- {$EXTERNALSYM AnalogVideo_SECAM_D}
- AnalogVideo_SECAM_G = $4000;
- {$EXTERNALSYM AnalogVideo_SECAM_G}
- AnalogVideo_SECAM_H = $8000;
- {$EXTERNALSYM AnalogVideo_SECAM_H}
- AnalogVideo_SECAM_K = $10000;
- {$EXTERNALSYM AnalogVideo_SECAM_K}
- AnalogVideo_SECAM_K1 = $20000;
- {$EXTERNALSYM AnalogVideo_SECAM_K1}
- AnalogVideo_SECAM_L = $40000;
- {$EXTERNALSYM AnalogVideo_SECAM_L}
- AnalogVideo_SECAM_L1 = $80000;
- {$EXTERNALSYM AnalogVideo_SECAM_L1}
- AnalogVideo_NTSC_Mask = $00000007;
- {$EXTERNALSYM AnalogVideo_NTSC_Mask}
- AnalogVideo_PAL_Mask = $00000FF0;
- {$EXTERNALSYM AnalogVideo_PAL_Mask}
- AnalogVideo_SECAM_Mask = $000FF000;
- {$EXTERNALSYM AnalogVideo_SECAM_Mask}
- type
- tagTunerInputType =(
- TunerInputCable,
- TunerInputAntenna
- );
- {$EXTERNALSYM tagTunerInputType}
- TunerInputType = tagTunerInputType;
- {$EXTERNALSYM TunerInputType}
- TTunerInputType = TunerInputType;
- VideoCopyProtectionType = (
- VideoCopyProtectionMacrovisionBasic,
- VideoCopyProtectionMacrovisionCBI
- );
- {$EXTERNALSYM VideoCopyProtectionType}
- TVideoCopyProtectionType = VideoCopyProtectionType;
- TPhysicalConnectorType = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- const
- PhysConn_Video_Tuner = 1;
- {$EXTERNALSYM PhysConn_Video_Tuner}
- PhysConn_Video_Composite = PhysConn_Video_Tuner + 1;
- {$EXTERNALSYM PhysConn_Video_Composite}
- PhysConn_Video_SVideo = PhysConn_Video_Composite + 1;
- {$EXTERNALSYM PhysConn_Video_SVideo}
- PhysConn_Video_RGB = PhysConn_Video_SVideo + 1;
- {$EXTERNALSYM PhysConn_Video_RGB}
- PhysConn_Video_YRYBY = PhysConn_Video_RGB + 1;
- {$EXTERNALSYM PhysConn_Video_YRYBY}
- PhysConn_Video_SerialDigital = PhysConn_Video_YRYBY + 1;
- {$EXTERNALSYM PhysConn_Video_SerialDigital}
- PhysConn_Video_ParallelDigital = PhysConn_Video_SerialDigital + 1;
- {$EXTERNALSYM PhysConn_Video_ParallelDigital}
- PhysConn_Video_SCSI = PhysConn_Video_ParallelDigital + 1;
- {$EXTERNALSYM PhysConn_Video_SCSI}
- PhysConn_Video_AUX = PhysConn_Video_SCSI + 1;
- {$EXTERNALSYM PhysConn_Video_AUX}
- PhysConn_Video_1394 = PhysConn_Video_AUX + 1;
- {$EXTERNALSYM PhysConn_Video_1394}
- PhysConn_Video_USB = PhysConn_Video_1394 + 1;
- {$EXTERNALSYM PhysConn_Video_USB}
- PhysConn_Video_VideoDecoder = PhysConn_Video_USB + 1;
- {$EXTERNALSYM PhysConn_Video_VideoDecoder}
- PhysConn_Video_VideoEncoder = PhysConn_Video_VideoDecoder + 1;
- {$EXTERNALSYM PhysConn_Video_VideoEncoder}
- PhysConn_Video_SCART = PhysConn_Video_VideoEncoder + 1;
- {$EXTERNALSYM PhysConn_Video_SCART}
- PhysConn_Video_Black = PhysConn_Video_SCART + 1;
- {$EXTERNALSYM PhysConn_Video_Black}
- PhysConn_Audio_Tuner = $1000;
- {$EXTERNALSYM PhysConn_Audio_Tuner}
- PhysConn_Audio_Line = PhysConn_Audio_Tuner + 1;
- {$EXTERNALSYM PhysConn_Audio_Line}
- PhysConn_Audio_Mic = PhysConn_Audio_Line + 1;
- {$EXTERNALSYM PhysConn_Audio_Mic}
- PhysConn_Audio_AESDigital = PhysConn_Audio_Mic + 1;
- {$EXTERNALSYM PhysConn_Audio_AESDigital}
- PhysConn_Audio_SPDIFDigital = PhysConn_Audio_AESDigital + 1;
- {$EXTERNALSYM PhysConn_Audio_SPDIFDigital}
- PhysConn_Audio_SCSI = PhysConn_Audio_SPDIFDigital + 1;
- {$EXTERNALSYM PhysConn_Audio_SCSI}
- PhysConn_Audio_AUX = PhysConn_Audio_SCSI + 1;
- {$EXTERNALSYM PhysConn_Audio_AUX}
- PhysConn_Audio_1394 = PhysConn_Audio_AUX + 1;
- {$EXTERNALSYM PhysConn_Audio_1394}
- PhysConn_Audio_USB = PhysConn_Audio_1394 + 1;
- {$EXTERNALSYM PhysConn_Audio_USB}
- PhysConn_Audio_AudioDecoder = PhysConn_Audio_USB + 1;
- {$EXTERNALSYM PhysConn_Audio_AudioDecoder}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMAnalogVideoDecoder> _di_IAMAnalogVideoDecoder;'}
- {$EXTERNALSYM IAMAnalogVideoDecoder}
- IAMAnalogVideoDecoder = interface(IUnknown)
- ['{C6E13350-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMAnalogVideoDecoder methods ***)
- function get_AvailableTVFormats(out lAnalogVideoStandard: Longint): HResult; stdcall;
- function put_TVFormat(lAnalogVideoStandard: Longint): HResult; stdcall;
- function get_TVFormat(out plAnalogVideoStandard: Longint): HResult; stdcall;
- function get_HorizontalLocked(out plLocked: Longint): HResult; stdcall;
- function put_VCRHorizontalLocking(lVCRHorizontalLocking: Longint): HResult; stdcall;
- function get_VCRHorizontalLocking(out plVCRHorizontalLocking: Longint): HResult; stdcall;
- function get_NumberOfLines(out plNumberOfLines: Longint): HResult; stdcall;
- function put_OutputEnable(lOutputEnable: LongBool): HResult; stdcall;
- function get_OutputEnable(out plOutputEnable: LongBool): HResult; stdcall;
- end;
- tagVideoProcAmpProperty = (
- VideoProcAmp_Brightness,
- VideoProcAmp_Contrast,
- VideoProcAmp_Hue,
- VideoProcAmp_Saturation,
- VideoProcAmp_Sharpness,
- VideoProcAmp_Gamma,
- VideoProcAmp_ColorEnable,
- VideoProcAmp_WhiteBalance,
- VideoProcAmp_BacklightCompensation,
- VideoProcAmp_Gain
- );
- {$EXTERNALSYM tagVideoProcAmpProperty}
- VideoProcAmpProperty = tagVideoProcAmpProperty;
- {$EXTERNALSYM VideoProcAmpProperty}
- TVideoProcAmpProperty = VideoProcAmpProperty;
- tagVideoProcAmpFlags = (
- {$IFNDEF COMPILER6_UP}
- VideoProcAmp_Flags_INVALID_0,
- VideoProcAmp_Flags_Manual,
- VideoProcAmp_Flags_Auto
- {$ELSE}
- VideoProcAmp_Flags_Manual = 1,
- VideoProcAmp_Flags_Auto
- {$ENDIF}
- );
- {$EXTERNALSYM tagVideoProcAmpFlags}
- VideoProcAmpFlags = tagVideoProcAmpFlags;
- {$EXTERNALSYM VideoProcAmpFlags}
- TVideoProcAmpFlags = VideoProcAmpFlags;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVideoProcAmp> _di_IAMVideoProcAmp;'}
- {$EXTERNALSYM IAMVideoProcAmp}
- IAMVideoProcAmp = interface(IUnknown)
- ['{C6E13360-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMVideoProcAmp methods ***)
- function GetRange(Property_:TVideoProcAmpProperty; out pMin, pMax, pSteppingDelta,
- pDefault: Longint; out pCapsFlags: TVideoProcAmpFlags): HResult; stdcall;
- function Set_(Property_: TVideoProcAmpProperty; lValue: Longint;
- Flags: TVideoProcAmpFlags): HResult; stdcall;
- function Get(Property_: TVideoProcAmpProperty; out lValue: Longint;
- out Flags: TVideoProcAmpFlags): HResult; stdcall;
- end;
- tagCameraControlProperty = (
- CameraControl_Pan,
- CameraControl_Tilt,
- CameraControl_Roll,
- CameraControl_Zoom,
- CameraControl_Exposure,
- CameraControl_Iris,
- CameraControl_Focus
- );
- {$EXTERNALSYM tagCameraControlProperty}
- CameraControlProperty = tagCameraControlProperty;
- {$EXTERNALSYM CameraControlProperty}
- TCameraControlProperty = CameraControlProperty;
- tagCameraControlFlags = (
- {$IFNDEF COMPILER6_UP}
- CameraControl_Flags_INVALID_0,
- CameraControl_Flags_Manual,
- CameraControl_Flags_Auto
- {$ELSE}
- CameraControl_Flags_Manual = 1,
- CameraControl_Flags_Auto
- {$ENDIF}
- );
- {$EXTERNALSYM tagCameraControlFlags}
- CameraControlFlags = tagCameraControlFlags;
- {$EXTERNALSYM CameraControlFlags}
- TCameraControlFlags = CameraControlFlags;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMCameraControl> _di_IAMCameraControl;'}
- {$EXTERNALSYM IAMCameraControl}
- IAMCameraControl = interface(IUnknown)
- ['{C6E13370-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMCameraControl methods ***)
- function GetRange(Property_: TCameraControlProperty;
- out pMin, pMax, pSteppingDelta, pDefault, pCapsFlags: Longint): HResult; stdcall;
- function Set_(Property_: TCameraControlProperty; lValue: Longint;
- Flags: TCameraControlFlags): HResult; stdcall;
- function Get(Property_: TCameraControlProperty; out lValue: Longint;
- out Flags: TCameraControlFlags): HResult; stdcall;
- end;
- const
- VideoControlFlag_FlipHorizontal = $1;
- {$EXTERNALSYM VideoControlFlag_FlipHorizontal}
- VideoControlFlag_FlipVertical = $2;
- {$EXTERNALSYM VideoControlFlag_FlipVertical}
- VideoControlFlag_ExternalTriggerEnable = $4;
- {$EXTERNALSYM VideoControlFlag_ExternalTriggerEnable}
- VideoControlFlag_Trigger = $8;
- {$EXTERNALSYM VideoControlFlag_Trigger}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVideoControl> _di_IAMVideoControl;'}
- {$EXTERNALSYM IAMVideoControl}
- IAMVideoControl = interface(IUnknown)
- ['{6a2e0670-28e4-11d0-a18c-00a0c9118956}']
- (*** IAMVideoControl methods ***)
- function GetCaps(pPin: IPin; out pCapsFlags: Longint): HResult; stdcall;
- function SetMode(pPin: IPin; Mode: Longint): HResult; stdcall;
- function GetMode(pPin: IPin; out Mode: Longint): HResult; stdcall;
- function GetCurrentActualFrameRate(pPin: IPin; out ActualFrameRate: Int64): HResult; stdcall;
- function GetMaxAvailableFrameRate(pPin: IPin; iIndex: Longint; Dimensions: TSize; out MaxAvailableFrameRate: Int64): HResult; stdcall;
- function GetFrameRateList(pPin: IPin; iIndex: Longint; Dimensions: TSize; out ListSize: Longint; out FrameRates: PInt64): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMCrossbar> _di_IAMCrossbar;'}
- {$EXTERNALSYM IAMCrossbar}
- IAMCrossbar = interface(IUnknown)
- ['{C6E13380-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMCrossbar methods ***)
- function get_PinCounts(out OutputPinCount, InputPinCount: Longint): HResult; stdcall;
- function CanRoute(OutputPinIndex, InputPinIndex: Longint): HResult; stdcall;
- function Route(OutputPinIndex, InputPinIndex: Longint): HResult; stdcall;
- function get_IsRoutedTo(OutputPinIndex: Longint;
- out InputPinIndex: Longint): HResult; stdcall;
- function get_CrossbarPinInfo(IsInputPin: BOOL; PinIndex: Longint;
- out PinIndexRelated : longint; out PhysicalType: TPhysicalConnectorType): HResult; stdcall;
- end;
- type
- {$IFNDEF COMPILER6_UP}
- tagAMTunerSubChannel = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- const
- AMTUNER_SUBCHAN_NO_TUNE = -2;
- {$EXTERNALSYM AMTUNER_SUBCHAN_NO_TUNE}
- AMTUNER_SUBCHAN_DEFAULT = -1;
- {$EXTERNALSYM AMTUNER_SUBCHAN_DEFAULT}
- {$ELSE}
- tagAMTunerSubChannel = (
- AMTUNER_SUBCHAN_NO_TUNE = -2,
- AMTUNER_SUBCHAN_DEFAULT = -1
- );
- {$ENDIF}
- type
- {$EXTERNALSYM tagAMTunerSubChannel}
- AMTunerSubChannel = tagAMTunerSubChannel;
- {$EXTERNALSYM AMTunerSubChannel}
- TAMTunerSubChannel = AMTunerSubChannel;
- type
- {$IFNDEF COMPILER6_UP}
- tagAMTunerSignalStrength = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- const
- AMTUNER_HASNOSIGNALSTRENGTH = -1;
- {$EXTERNALSYM AMTUNER_HASNOSIGNALSTRENGTH}
- AMTUNER_NOSIGNAL = 0;
- {$EXTERNALSYM AMTUNER_NOSIGNAL}
- AMTUNER_SIGNALPRESENT = 1;
- {$EXTERNALSYM AMTUNER_SIGNALPRESENT}
- {$ELSE}
- tagAMTunerSignalStrength = (
- AMTUNER_HASNOSIGNALSTRENGTH = -1,
- AMTUNER_NOSIGNAL = 0,
- AMTUNER_SIGNALPRESENT = 1
- );
- {$ENDIF}
- type
- {$EXTERNALSYM tagAMTunerSignalStrength}
- AMTunerSignalStrength = tagAMTunerSignalStrength;
- {$EXTERNALSYM AMTunerSignalStrength}
- TAMTunerSignalStrength = AMTunerSignalStrength;
- type
- {$IFNDEF COMPILER6_UP}
- tagAMTunerModeType = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- const
- AMTUNER_MODE_DEFAULT = 0;
- {$EXTERNALSYM AMTUNER_MODE_DEFAULT}
- AMTUNER_MODE_TV = 1;
- {$EXTERNALSYM AMTUNER_MODE_TV}
- AMTUNER_MODE_FM_RADIO = 2;
- {$EXTERNALSYM AMTUNER_MODE_FM_RADIO}
- AMTUNER_MODE_AM_RADIO = 4;
- {$EXTERNALSYM AMTUNER_MODE_AM_RADIO}
- AMTUNER_MODE_DSS = 8;
- {$EXTERNALSYM AMTUNER_MODE_DSS}
- {$ELSE}
- tagAMTunerModeType = (
- AMTUNER_MODE_DEFAULT = 0,
- AMTUNER_MODE_TV = 1,
- AMTUNER_MODE_FM_RADIO = 2,
- AMTUNER_MODE_AM_RADIO = 4,
- AMTUNER_MODE_DSS = 8
- );
- {$ENDIF}
- type
- {$EXTERNALSYM tagAMTunerModeType}
- AMTunerModeType = tagAMTunerModeType;
- {$EXTERNALSYM AMTunerModeType}
- TAMTunerModeType = AMTunerModeType;
- type
- tagAMTunerEventType = (
- {$IFNDEF COMPILER6_UP}
- AMTUNER_EVENT_INVALID_0,
- AMTUNER_EVENT_CHANGED
- {$ELSE}
- AMTUNER_EVENT_CHANGED = 1
- {$ENDIF}
- );
- {$EXTERNALSYM tagAMTunerEventType}
- AMTunerEventType = tagAMTunerEventType;
- {$EXTERNALSYM AMTunerEventType}
- TAMTunerEventType = AMTunerEventType;
- IAMTunerNotification = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTuner> _di_IAMTuner;'}
- {$EXTERNALSYM IAMTuner}
- IAMTuner = interface(IUnknown)
- ['{211A8761-03AC-11d1-8D13-00AA00BD8339}']
- (*** IAMTuner methods ***)
- function put_Channel(lChannel, lVideoSubChannel, lAudioSubChannel: Longint): HResult; stdcall;
- function get_Channel(out lChannel, lVideoSubChannel, lAudioSubChannel: Longint): HResult; stdcall;
- function ChannelMinMax(out lChannelMin, lChannelMax: Longint): HResult; stdcall;
- function put_CountryCode(lCountryCode: Longint): HResult; stdcall;
- function get_CountryCode(out lCountryCode: Longint): HResult; stdcall;
- function put_TuningSpace(lTuningSpace: Longint): HResult; stdcall;
- function get_TuningSpace(out lTuningSpace: Longint): HResult; stdcall;
- function Logon(hCurrentUser: THandle): HResult; stdcall;
- function Logout: HResult; stdcall;
- function SignalPresent(out plSignalStrength: Longint): HResult; stdcall;
- function put_Mode(lMode: TAMTunerModeType): HResult; stdcall;
- function get_Mode(out plMode: TAMTunerModeType): HResult; stdcall;
- function GetAvailableModes(out plModes: Longint): HResult; stdcall;
- function RegisterNotificationCallBack(pNotify: IAMTunerNotification;
- lEvents: Longint): HResult; stdcall;
- function UnRegisterNotificationCallBack(pNotify: IAMTunerNotification): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTunerNotification> _di_IAMTunerNotification;'}
- {$EXTERNALSYM IAMTunerNotification}
- IAMTunerNotification = interface(IUnknown)
- ['{211A8760-03AC-11d1-8D13-00AA00BD8339}']
- (*** IAMTunerNotification methods ***)
- function OnEvent(Event: TAMTunerEventType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTVTuner> _di_IAMTVTuner;'}
- {$EXTERNALSYM IAMTVTuner}
- IAMTVTuner = interface(IAMTuner)
- ['{211A8766-03AC-11d1-8D13-00AA00BD8339}']
- (*** IAMTVTuner methods ***)
- function get_AvailableTVFormats(out lAnalogVideoStandard: Longint): HResult; stdcall;
- function get_TVFormat(out plAnalogVideoStandard: Longint): HResult; stdcall;
- function AutoTune(lChannel: Longint; out plFoundSignal: Longint): HResult; stdcall;
- function StoreAutoTune: HResult; stdcall;
- function get_NumInputConnections(out plNumInputConnections: Longint): HResult; stdcall;
- function put_InputType(lIndex: Longint; InputType: TTunerInputType): HResult; stdcall;
- function get_InputType(lIndex: Longint; out InputType: TTunerInputType): HResult; stdcall;
- function put_ConnectInput(lIndex: Longint): HResult; stdcall;
- function get_ConnectInput(out plIndex: Longint): HResult; stdcall;
- function get_VideoFrequency(out lFreq: Longint): HResult; stdcall;
- function get_AudioFrequency(out lFreq: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBPCSatelliteTuner> _di_IBPCSatelliteTuner;'}
- {$EXTERNALSYM IBPCSatelliteTuner}
- IBPCSatelliteTuner = interface(IAMTuner)
- ['{211A8765-03AC-11d1-8D13-00AA00BD8339}']
- (*** IBPCSatelliteTuner methods ***)
- function get_DefaultSubChannelTypes(out plDefaultVideoType, plDefaultAudioType: Longint): HResult; stdcall;
- function put_DefaultSubChannelTypes(lDefaultVideoType, lDefaultAudioType: Longint): HResult; stdcall;
- function IsTapingPermitted: HResult; stdcall;
- end;
- {$IFNDEF COMPILER6_UP}
- tagTVAudioMode = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- const
- AMTVAUDIO_MODE_MONO = $1;
- {$EXTERNALSYM AMTVAUDIO_MODE_MONO}
- AMTVAUDIO_MODE_STEREO = $2;
- {$EXTERNALSYM AMTVAUDIO_MODE_STEREO}
- AMTVAUDIO_MODE_LANG_A = $10;
- {$EXTERNALSYM AMTVAUDIO_MODE_LANG_A}
- AMTVAUDIO_MODE_LANG_B = $20;
- {$EXTERNALSYM AMTVAUDIO_MODE_LANG_B}
- AMTVAUDIO_MODE_LANG_C = $40;
- {$EXTERNALSYM AMTVAUDIO_MODE_LANG_C}
- {$ELSE}
- tagTVAudioMode = (
- AMTVAUDIO_MODE_MONO = $1,
- AMTVAUDIO_MODE_STEREO = $2,
- AMTVAUDIO_MODE_LANG_A = $10,
- AMTVAUDIO_MODE_LANG_B = $20,
- AMTVAUDIO_MODE_LANG_C = $40
- );
- {$ENDIF}
- type
- {$EXTERNALSYM tagTVAudioMode}
- TVAudioMode = tagTVAudioMode;
- {$EXTERNALSYM TVAudioMode}
- TTVAudioMode = TVAudioMode;
- type
- tagAMTVAudioEventType = (
- {$IFNDEF COMPILER6_UP}
- AMTVAUDIO_EVENT_INVALID_0,
- AMTVAUDIO_EVENT_CHANGED
- {$ELSE}
- AMTVAUDIO_EVENT_CHANGED = 1
- {$ENDIF}
- );
- {$EXTERNALSYM tagAMTVAudioEventType}
- AMTVAudioEventType = tagAMTVAudioEventType;
- {$EXTERNALSYM AMTVAudioEventType}
- TAMTVAudioEventType = AMTVAudioEventType;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTVAudio> _di_IAMTVAudio;'}
- {$EXTERNALSYM IAMTVAudio}
- IAMTVAudio = interface(IUnknown)
- ['{83EC1C30-23D1-11d1-99E6-00A0C9560266}']
- (*** IAMTVAudio methods ***)
- function GetHardwareSupportedTVAudioModes(out plModes: Longint): HResult; stdcall;
- function GetAvailableTVAudioModes(out plModes: Longint): HResult; stdcall;
- function get_TVAudioMode(out plMode: Longint): HResult; stdcall;
- function put_TVAudioMode(lMode: Longint): HResult; stdcall;
- function RegisterNotificationCallBack(pNotify: IAMTunerNotification;
- lEvents: Longint): HResult; stdcall;
- function UnRegisterNotificationCallBack(pNotify: IAMTunerNotification): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTVAudioNotification> _di_IAMTVAudioNotification;'}
- {$EXTERNALSYM IAMTVAudioNotification}
- IAMTVAudioNotification = interface(IUnknown)
- ['{83EC1C33-23D1-11D1-99E6-00A0C9560266}']
- (*** IAMTVAudioNotification methods ***)
- function OnEvent(Event: TAMTVAudioEventType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMAnalogVideoEncoder> _di_IAMAnalogVideoEncoder;'}
- {$EXTERNALSYM IAMAnalogVideoEncoder}
- IAMAnalogVideoEncoder = interface(IUnknown)
- ['{C6E133B0-30AC-11d0-A18C-00A0C9118956}']
- (*** IAMAnalogVideoEncoder methods ***)
- function get_AvailableTVFormats(out lAnalogVideoStandard: Longint): HResult; stdcall;
- function put_TVFormat(lAnalogVideoStandard: Longint): HResult; stdcall;
- function get_TVFormat(out plAnalogVideoStandard: Longint): HResult; stdcall;
- function put_CopyProtection(lVideoCopyProtection: Longint): HResult; stdcall;
- function get_CopyProtection(out lVideoCopyProtection: Longint): HResult; stdcall;
- function put_CCEnable(lCCEnable: LongBool): HResult; stdcall;
- function get_CCEnable(out lCCEnable: LongBool): HResult; stdcall;
- end ;
- AMPROPERTY_PIN = (
- AMPROPERTY_PIN_CATEGORY,
- AMPROPERTY_PIN_MEDIUM
- );
- {$EXTERNALSYM AMPROPERTY_PIN}
- TAMPropertyPin = AMPROPERTY_PIN;
- const
- KSPROPERTY_SUPPORT_GET = 1;
- {$EXTERNALSYM KSPROPERTY_SUPPORT_GET}
- KSPROPERTY_SUPPORT_SET = 2;
- {$EXTERNALSYM KSPROPERTY_SUPPORT_SET}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IKsPropertySet> _di_IKsPropertySet;'}
- {$EXTERNALSYM IKsPropertySet}
- IKsPropertySet = interface(IUnknown)
- ['{31EFAC30-515C-11d0-A9AA-00AA0061BE93}']
- (*** IKsPropertySet methods ***)
- function Set_(const guidPropSet: TGUID; dwPropID: TAMPropertyPin;
- pInstanceData: pointer; cbInstanceData: DWORD; pPropData: pointer; cbPropData: DWORD): HResult; stdcall;
- function Get(const guidPropSet: TGUID; dwPropID: TAMPropertyPin;
- pInstanceData: pointer; cbInstanceData: DWORD; out pPropData ; cbPropData: DWORD;
- out pcbReturned: DWORD): HResult; stdcall;
- function QuerySupported(const guidPropSet: TGUID; dwPropID: TAMPropertyPin;
- out pTypeSupport: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaPropertyBag> _di_IMediaPropertyBag;'}
- {$EXTERNALSYM IMediaPropertyBag}
- IMediaPropertyBag = interface(IPropertyBag)
- ['{6025A880-C0D5-11D0-BD4E-00A0C911CE86}']
- (*** IMediaPropertyBag methods ***)
- function EnumProperty(iProperty: ULONG; var pvarPropertyName,
- pvarPropertyValue: OleVariant): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IPersistMediaPropertyBag> _di_IPersistMediaPropertyBag;'}
- {$EXTERNALSYM IPersistMediaPropertyBag}
- IPersistMediaPropertyBag = interface(IPersist)
- ['{5738E040-B67F-11d0-BD4D-00A0C911CE86}']
- (*** IPersistMediaPropertyBag methods ***)
- function InitNew: HResult; stdcall;
- function Load(pPropBag: IMediaPropertyBag; pErrorLog: IErrorLog): HResult; stdcall;
- function Save(pPropBag: IMediaPropertyBag; fClearDirty, fSaveAllProperties: BOOL): HResult; stdcall;
- end;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IAMPhysicalPinInfo> _di_IAMPhysicalPinInfo;'}
- {$EXTERNALSYM IAMPhysicalPinInfo}
- IAMPhysicalPinInfo = interface(IUnknown)
- ['{F938C991-3029-11CF-8C44-00AA006B6814}']
- (*** IAMPhysicalPinInfo methods ***)
- function GetPhysicalType(out pType: Longint; out ppszType: PWideChar): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMExtDevice> _di_IAMExtDevice;'}
- {$EXTERNALSYM IAMExtDevice}
- IAMExtDevice = interface(IUnknown)
- ['{B5730A90-1A2C-11CF-8C23-00AA006B6814}']
- (*** IAMExtDevice methods ***)
- function GetCapability(Capability: Longint; out pValue: Longint; out pdblValue: double): HResult; stdcall;
- function get_ExternalDeviceID(out ppszData: PWideChar): HResult; stdcall;
- function get_ExternalDeviceVersion(out ppszData: PWideChar): HResult; stdcall;
- function put_DevicePower(PowerMode: Longint): HResult; stdcall;
- function get_DevicePower(out pPowerMode: Longint): HResult; stdcall;
- function Calibrate(hEvent: THandle; Mode: Longint; out pStatus: Longint): HResult; stdcall;
- function put_DevicePort(DevicePort: Longint): HResult; stdcall;
- function get_DevicePort(out pDevicePort: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMExtTransport> _di_IAMExtTransport;'}
- {$EXTERNALSYM IAMExtTransport}
- IAMExtTransport = interface(IUnknown)
- ['{A03CD5F0-3045-11CF-8C44-00AA006B6814}']
- (*** IAMExtTransport methods ***)
- function GetCapability(Capability: Longint; out pValue: Longint; out pdblValue: double): HResult; stdcall;
- function put_MediaState(State: Longint): HResult; stdcall;
- function get_MediaState(out pState: Longint): HResult; stdcall;
- function put_LocalControl(State: Longint): HResult; stdcall;
- function get_LocalControl(out pState: Longint): HResult; stdcall;
- function GetStatus(StatusItem: Longint; out pValue: Longint): HResult; stdcall;
- function GetTransportBasicParameters(Param: Longint; var pValue: Longint; ppszData: pointer): HResult; stdcall;
- function SetTransportBasicParameters(Param: Longint; Value: Longint; pszData: PWideChar): HResult; stdcall;
- function GetTransportVideoParameters(Param: Longint; out pValue: Longint): HResult; stdcall;
- function SetTransportVideoParameters(Param: Longint; Value: Longint): HResult; stdcall;
- function GetTransportAudioParameters(Param: Longint; out pValue: Longint): HResult; stdcall;
- function SetTransportAudioParameters(Param: Longint; Value: Longint): HResult; stdcall;
- function put_Mode(Mode: Longint): HResult; stdcall;
- function get_Mode(out pMode: Longint): HResult; stdcall;
- function put_Rate(dblRate: double): HResult; stdcall;
- function get_Rate(out pdblRate: double): HResult; stdcall;
- function GetChase(out pEnabled, pOffset: Longint; var phEvent: THandle): HResult; stdcall;
- function SetChase(Enable, Offset: Longint; hEvent: THandle): HResult; stdcall;
- function GetBump(out pSpeed, pDuration: Longint): HResult; stdcall;
- function SetBump(Speed, Duration: Longint): HResult; stdcall;
- function get_AntiClogControl(out pEnabled: Longint): HResult; stdcall;
- function put_AntiClogControl(Enable: Longint): HResult; stdcall;
- function GetEditPropertySet(EditID: Longint; out pState: Longint): HResult; stdcall;
- function SetEditPropertySet(var pEditID: Longint; State: Longint): HResult; stdcall;
- function GetEditProperty(EditID, Param: Longint; out pValue: Longint): HResult; stdcall;
- function SetEditProperty(EditID, Param, Value: Longint): HResult; stdcall;
- function get_EditStart(out pValue: Longint): HResult; stdcall;
- function put_EditStart(Value: Longint): HResult; stdcall;
- end;
- PTimeCode = ^TTimeCode;
- _timecode = record
- wFrameRate : Word;
- wFrameFract : Word;
- dwFrames : DWORD;
- end;
- {$EXTERNALSYM _timecode}
- TIMECODE = _timecode;
- {$EXTERNALSYM TIMECODE}
- TTimeCode = _timecode;
- PTimeCodeSample = ^TTimeCodeSample;
- tagTIMECODE_SAMPLE = record
- qwTick : Int64;
- timecode : TIMECODE;
- dwUser : DWORD;
- dwFlags : DWORD;
- end;
- {$EXTERNALSYM tagTIMECODE_SAMPLE}
- TIMECODE_SAMPLE = tagTIMECODE_SAMPLE;
- {$EXTERNALSYM TIMECODE_SAMPLE}
- TTimeCodeSample = tagTIMECODE_SAMPLE;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimecodeReader> _di_IAMTimecodeReader;'}
- {$EXTERNALSYM IAMTimecodeReader}
- IAMTimecodeReader = interface(IUnknown)
- ['{9B496CE1-811B-11CF-8C77-00AA006B6814}']
- (*** IAMTimecodeReader methods ***)
- function GetTCRMode(Param: Longint; out pValue: Longint): HResult; stdcall;
- function SetTCRMode(Param: Longint; Value: Longint): HResult; stdcall;
- function put_VITCLine(Line: Longint): HResult; stdcall;
- function get_VITCLine(out pLine: Longint): HResult; stdcall;
- function GetTimecode(out pTimecodeSample: TTimeCodeSample): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimecodeGenerator> _di_IAMTimecodeGenerator;'}
- {$EXTERNALSYM IAMTimecodeGenerator}
- IAMTimecodeGenerator = interface(IUnknown)
- ['{9B496CE0-811B-11CF-8C77-00AA006B6814}']
- (*** IAMTimecodeGenerator methods ***)
- function GetTCGMode(Param: Longint; out pValue: Longint): HResult; stdcall;
- function SetTCGMode(Param: Longint; Value: Longint): HResult; stdcall;
- function put_VITCLine(Line: Longint): HResult; stdcall;
- function get_VITCLine(out Line: Longint): HResult; stdcall;
- function SetTimecode(var pTimecodeSample: TTimeCodeSample): HResult; stdcall;
- function GetTimecode(out pTimecodeSample: TTimeCodeSample): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimecodeDisplay> _di_IAMTimecodeDisplay;'}
- {$EXTERNALSYM IAMTimecodeDisplay}
- IAMTimecodeDisplay = interface(IUnknown)
- ['{9B496CE2-811B-11CF-8C77-00AA006B6814}']
- (*** IAMTimecodeDisplay methods ***)
- function GetTCDisplayEnable(out pState: Longint): HResult; stdcall;
- function SetTCDisplayEnable(State: Longint): HResult; stdcall;
- function GetTCDisplay(Param: Longint; out pValue: Longint): HResult; stdcall;
- function SetTCDisplay(Param, Value: Longint): HResult; stdcall;
- end;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IAMDevMemoryAllocator> _di_IAMDevMemoryAllocator;'}
- {$EXTERNALSYM IAMDevMemoryAllocator}
- IAMDevMemoryAllocator = interface(IUnknown)
- ['{C6545BF0-E76B-11D0-BD52-00A0C911CE86}']
- (*** IAMDevMemoryAllocator methods ***)
- function GetInfo(out pdwcbTotalFree, pdwcbLargestFree, pdwcbTotalMemory, pdwcbMinimumChunk: DWORD): HResult; stdcall;
- function CheckMemory(pBuffer: Pointer): HResult; stdcall;
- function Alloc(out ppBuffer: Pointer; var pdwcbBuffer: DWORD): HResult; stdcall;
- function Free(pBuffer: Pointer): HResult; stdcall;
- function GetDevMemoryObject(out ppUnkInnner: IUnknown; pUnkOuter: IUnknown): HResult; stdcall;
- end;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IAMDevMemoryControl> _di_IAMDevMemoryControl;'}
- {$EXTERNALSYM IAMDevMemoryControl}
- IAMDevMemoryControl = interface(IUnknown)
- ['{C6545BF1-E76B-11D0-BD52-00A0C911CE86}']
- (*** IAMDevMemoryControl methods ***)
- function QueryWriteSync: HResult; stdcall;
- function WriteSync: HResult; stdcall;
- function GetDevId(out pdwDevId: DWORD): HResult; stdcall;
- end;
- const
- AMSTREAMSELECTINFO_ENABLED = $1;
- {$EXTERNALSYM AMSTREAMSELECTINFO_ENABLED}
- AMSTREAMSELECTINFO_EXCLUSIVE = $2;
- {$EXTERNALSYM AMSTREAMSELECTINFO_EXCLUSIVE}
- AMSTREAMSELECTENABLE_ENABLE = $1;
- {$EXTERNALSYM AMSTREAMSELECTENABLE_ENABLE}
- AMSTREAMSELECTENABLE_ENABLEALL = $2;
- {$EXTERNALSYM AMSTREAMSELECTENABLE_ENABLEALL}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMStreamSelect> _di_IAMStreamSelect;'}
- {$EXTERNALSYM IAMStreamSelect}
- IAMStreamSelect = interface(IUnknown)
- ['{C1960960-17F5-11D1-ABE1-00A0C905F375}']
- (*** IAMStreamSelect methods ***)
- function Count(out pcStreams: DWORD): HResult; stdcall;
- function Info(lIndex: Longint; out ppmt: PAMMediaType;
- out pdwFlags: DWORD; out plcid: LCID; out pdwGroup: DWORD;
- out ppszName: PWCHAR; out ppObject: IUnknown; out ppUnk : IUnknown): HResult; stdcall;
- function Enable(lIndex: Longint; dwFlags: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMResourceControl> _di_IAMResourceControl;'}
- {$EXTERNALSYM IAMResourceControl}
- IAMResourceControl = interface(IUnknown)
- ['{8389d2d0-77d7-11d1-abe6-00a0c905f375}']
- (*** IAMResourceControl methods ***)
- function Reserve(dwFlags: DWORD; var pvReserved: pointer): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMClockAdjust> _di_IAMClockAdjust;'}
- {$EXTERNALSYM IAMClockAdjust}
- IAMClockAdjust = interface(IUnknown)
- ['{4d5466b0-a49c-11d1-abe8-00a0c905f375}']
- (*** IAMClockAdjust methods ***)
- function SetClockDelta(rtDelta: TReferenceTime): HResult; stdcall;
- end;
- const
- AM_FILTER_MISC_FLAGS_IS_RENDERER = $1;
- {$EXTERNALSYM AM_FILTER_MISC_FLAGS_IS_RENDERER}
- AM_FILTER_MISC_FLAGS_IS_SOURCE = $2;
- {$EXTERNALSYM AM_FILTER_MISC_FLAGS_IS_SOURCE}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMFilterMiscFlags> _di_IAMFilterMiscFlags;'}
- {$EXTERNALSYM IAMFilterMiscFlags}
- IAMFilterMiscFlags = interface(IUnknown)
- ['{2dd74950-a890-11d1-abe8-00a0c905f375}']
- (*** IAMFilterMiscFlags methods ***)
- function GetMiscFlags: ULONG; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDrawVideoImage> _di_IDrawVideoImage;'}
- {$EXTERNALSYM IDrawVideoImage}
- IDrawVideoImage = interface(IUnknown)
- ['{48efb120-ab49-11d2-aed2-00a0c995e8d5}']
- (*** IDrawVideoImage methods ***)
- function DrawVideoImageBegin: HResult; stdcall;
- function DrawVideoImageEnd: HResult; stdcall;
- function DrawVideoImageDraw(hdc: HDC; lprcSrc, lprcDst: PRECT): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDecimateVideoImage> _di_IDecimateVideoImage;'}
- {$EXTERNALSYM IDecimateVideoImage}
- IDecimateVideoImage = interface(IUnknown)
- ['{2e5ea3e0-e924-11d2-b6da-00a0c995e8df}']
- (*** IDecimateVideoImage methods ***)
- function SetDecimationImageSize(lWidth, lHeight: Longint):HResult; stdcall;
- function ResetDecimationImageSize: HResult; stdcall;
- end;
- _DECIMATION_USAGE = (
- DECIMATION_LEGACY,
- DECIMATION_USE_DECODER_ONLY,
- DECIMATION_USE_VIDEOPORT_ONLY,
- DECIMATION_USE_OVERLAY_ONLY,
- DECIMATION_DEFAULT
- );
- {$EXTERNALSYM _DECIMATION_USAGE}
- DECIMATION_USAGE = _DECIMATION_USAGE;
- {$EXTERNALSYM DECIMATION_USAGE}
- TDecimationUsage = DECIMATION_USAGE;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVideoDecimationProperties> _di_IAMVideoDecimationProperties;'}
- {$EXTERNALSYM IAMVideoDecimationProperties}
- IAMVideoDecimationProperties = interface(IUnknown)
- ['{60d32930-13da-11d3-9ec6-c4fcaef5c7be}']
- (*** IAMVideoDecimationProperties methods ***)
- function QueryDecimationUsage(out lpUsage: TDecimationUsage):HResult; stdcall;
- function SetDecimationUsage(Usage: TDecimationUsage):HResult; stdcall;
- end;
- const
- AM_PUSHSOURCECAPS_INTERNAL_RM = $1;
- {$EXTERNALSYM AM_PUSHSOURCECAPS_INTERNAL_RM}
- AM_PUSHSOURCECAPS_NOT_LIVE = $2;
- {$EXTERNALSYM AM_PUSHSOURCECAPS_NOT_LIVE}
- AM_PUSHSOURCECAPS_PRIVATE_CLOCK = $4;
- {$EXTERNALSYM AM_PUSHSOURCECAPS_PRIVATE_CLOCK}
- AM_PUSHSOURCEREQS_USE_STREAM_CLOCK = $10000;
- {$EXTERNALSYM AM_PUSHSOURCEREQS_USE_STREAM_CLOCK}
- AM_PUSHSOURCEREQS_USE_CLOCK_CHAIN = $20000;
- {$EXTERNALSYM AM_PUSHSOURCEREQS_USE_CLOCK_CHAIN}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMLatency> _di_IAMLatency;'}
- {$EXTERNALSYM IAMLatency}
- IAMLatency = interface(IUnknown)
- ['{62EA93BA-EC62-11d2-B770-00C04FB6BD3D}']
- (*** IAMLatency methods ***)
- function GetLatency(var prtLatency: TReferenceTime): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMPushSource> _di_IAMPushSource;'}
- {$EXTERNALSYM IAMPushSource}
- IAMPushSource = interface(IAMLatency)
- ['{F185FE76-E64E-11d2-B76E-00C04FB6BD3D}']
- (*** IAMPushSource methods ***)
- function GetPushSourceFlags(out pFlags: ULONG): HResult; stdcall;
- function SetPushSourceFlags(Flags: ULONG): HResult; stdcall;
- function SetStreamOffset(rtOffset: TReferenceTime): HResult; stdcall;
- function GetStreamOffset(out prtOffset: TReferenceTime): HResult; stdcall;
- function GetMaxStreamOffset(out prtMaxOffset: TReferenceTime): HResult; stdcall;
- function SetMaxStreamOffset(rtMaxOffset: TReferenceTime): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMDeviceRemoval> _di_IAMDeviceRemoval;'}
- {$EXTERNALSYM IAMDeviceRemoval}
- IAMDeviceRemoval = interface(IUnknown)
- ['{f90a6130-b658-11d2-ae49-0000f8754b99}']
- (*** IAMDeviceRemoval methods ***)
- function DeviceInfo(out pclsidInterfaceClass: TGUID;
- out pwszSymbolicLink: PWideChar): HResult; stdcall;
- function Reassociate: HResult; stdcall;
- function Disassociate: HResult; stdcall;
- end;
- type
- PTDVInfo = ^TDVInfo;
- DVINFO = record
- //for 1st 5/6 DIF seq.
- dwDVAAuxSrc : DWORD;
- dwDVAAuxCtl : DWORD;
- //for 2nd 5/6 DIF seq.
- dwDVAAuxSrc1 : DWORD;
- dwDVAAuxCtl1 : DWORD;
- //for video information
- dwDVVAuxSrc : DWORD;
- dwDVVAuxCtl : DWORD;
- dwDVReserved: array[0..1] of DWORD;
- end;
- {$EXTERNALSYM DVINFO}
- TDVInfo = DVINFO;
- const
- //DVENCODERRESOLUTION
- DVENCODERRESOLUTION_720x480 = 2012;
- {$EXTERNALSYM DVENCODERRESOLUTION_720x480}
- DVENCODERRESOLUTION_360x240 = 2013;
- {$EXTERNALSYM DVENCODERRESOLUTION_360x240}
- DVENCODERRESOLUTION_180x120 = 2014;
- {$EXTERNALSYM DVENCODERRESOLUTION_180x120}
- DVENCODERRESOLUTION_88x60 = 2015;
- {$EXTERNALSYM DVENCODERRESOLUTION_88x60}
- //DVENCODERVIDEOFORMAT
- DVENCODERVIDEOFORMAT_NTSC = 2000;
- {$EXTERNALSYM DVENCODERVIDEOFORMAT_NTSC}
- DVENCODERVIDEOFORMAT_PAL = 2001;
- {$EXTERNALSYM DVENCODERVIDEOFORMAT_PAL}
- //DVENCODERFORMAT
- DVENCODERFORMAT_DVSD = 2007;
- {$EXTERNALSYM DVENCODERFORMAT_DVSD}
- DVENCODERFORMAT_DVHD = 2008;
- {$EXTERNALSYM DVENCODERFORMAT_DVHD}
- DVENCODERFORMAT_DVSL = 2009;
- {$EXTERNALSYM DVENCODERFORMAT_DVSL}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDVEnc> _di_IDVEnc;'}
- {$EXTERNALSYM IDVEnc}
- IDVEnc = interface(IUnknown)
- ['{d18e17a0-aacb-11d0-afb0-00aa00b67a42}']
- (*** IDVEnc methods ***)
- function get_IFormatResolution(out VideoFormat, DVFormat, Resolution: integer;
- fDVInfo: ByteBool; out sDVInfo: TDVINFO): HResult; stdcall;
- function put_IFormatResolution(VideoFormat, DVFormat, Resolution: integer;
- fDVInfo: ByteBool; var sDVInfo: TDVINFO): HResult; stdcall;
- end;
- const
- //DVDECODERRESOLUTION
- DVDECODERRESOLUTION_720x480 = 1000;
- {$EXTERNALSYM DVDECODERRESOLUTION_720x480}
- DVDECODERRESOLUTION_360x240 = 1001;
- {$EXTERNALSYM DVDECODERRESOLUTION_360x240}
- DVDECODERRESOLUTION_180x120 = 1002;
- {$EXTERNALSYM DVDECODERRESOLUTION_180x120}
- DVDECODERRESOLUTION_88x60 = 1003;
- {$EXTERNALSYM DVDECODERRESOLUTION_88x60}
- //DVRESOLUTION
- DVRESOLUTION_FULL = 1000;
- {$EXTERNALSYM DVRESOLUTION_FULL}
- DVRESOLUTION_HALF = 1001;
- {$EXTERNALSYM DVRESOLUTION_HALF}
- DVRESOLUTION_QUARTER = 1002;
- {$EXTERNALSYM DVRESOLUTION_QUARTER}
- DVRESOLUTION_DC = 1003;
- {$EXTERNALSYM DVRESOLUTION_DC}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IIPDVDec> _di_IIPDVDec;'}
- {$EXTERNALSYM IIPDVDec}
- IIPDVDec = interface(IUnknown)
- ['{b8e8bd60-0bfe-11d0-af91-00aa00b67a42}']
- (*** IIPDVDec methods ***)
- function get_IPDisplay(out displayPix : integer): HResult; stdcall;
- function put_IPDisplay(displayPix: integer): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVRGB219> _di_IDVRGB219;'}
- {$EXTERNALSYM IDVRGB219}
- IDVRGB219 = interface(IUnknown)
- ['{58473A19-2BC8-4663-8012-25F81BABDDD1}']
- (*** IDVRGB219 methods ***)
- function SetRGB219(bState: BOOL): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVSplitter> _di_IDVSplitter;'}
- {$EXTERNALSYM IDVSplitter}
- IDVSplitter = interface(IUnknown)
- ['{92a3a302-da7c-4a1f-ba7e-1802bb5d2d02}']
- (*** IDVSplitter methods ***)
- function DiscardAlternateVideoFrames(nDiscard: integer): HResult; stdcall;
- end;
- //_AM_AUDIO_RENDERER_STAT_PARAM
- const
- AM_AUDREND_STAT_PARAM_BREAK_COUNT = 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_BREAK_COUNT}
- AM_AUDREND_STAT_PARAM_SLAVE_MODE = AM_AUDREND_STAT_PARAM_BREAK_COUNT + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SLAVE_MODE}
- AM_AUDREND_STAT_PARAM_SILENCE_DUR = AM_AUDREND_STAT_PARAM_SLAVE_MODE + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SILENCE_DUR}
- AM_AUDREND_STAT_PARAM_LAST_BUFFER_DUR = AM_AUDREND_STAT_PARAM_SILENCE_DUR + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_LAST_BUFFER_DUR}
- AM_AUDREND_STAT_PARAM_DISCONTINUITIES = AM_AUDREND_STAT_PARAM_LAST_BUFFER_DUR + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_DISCONTINUITIES}
- AM_AUDREND_STAT_PARAM_SLAVE_RATE = AM_AUDREND_STAT_PARAM_DISCONTINUITIES + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SLAVE_RATE}
- AM_AUDREND_STAT_PARAM_SLAVE_DROPWRITE_DUR = AM_AUDREND_STAT_PARAM_SLAVE_RATE + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SLAVE_DROPWRITE_DUR}
- AM_AUDREND_STAT_PARAM_SLAVE_HIGHLOWERROR = AM_AUDREND_STAT_PARAM_SLAVE_DROPWRITE_DUR + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SLAVE_HIGHLOWERROR}
- AM_AUDREND_STAT_PARAM_SLAVE_LASTHIGHLOWERROR = AM_AUDREND_STAT_PARAM_SLAVE_HIGHLOWERROR + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SLAVE_LASTHIGHLOWERROR}
- AM_AUDREND_STAT_PARAM_SLAVE_ACCUMERROR = AM_AUDREND_STAT_PARAM_SLAVE_LASTHIGHLOWERROR + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_SLAVE_ACCUMERROR}
- AM_AUDREND_STAT_PARAM_BUFFERFULLNESS = AM_AUDREND_STAT_PARAM_SLAVE_ACCUMERROR + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_BUFFERFULLNESS}
- AM_AUDREND_STAT_PARAM_JITTER = AM_AUDREND_STAT_PARAM_BUFFERFULLNESS + 1;
- {$EXTERNALSYM AM_AUDREND_STAT_PARAM_JITTER}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMAudioRendererStats> _di_IAMAudioRendererStats;'}
- {$EXTERNALSYM IAMAudioRendererStats}
- IAMAudioRendererStats = interface(IUnknown)
- ['{22320CB2-D41A-11d2-BF7C-D7CB9DF0BF93}']
- (*** IAMAudioRendererStats methods ***)
- function GetStatParam(dwParam: DWORD; out pdwParam1, pdwParam2: DWORD): HResult; stdcall;
- end;
- //AM_INTF_SEARCH_FLAGS
- const
- AM_INTF_SEARCH_INPUT_PIN = $1;
- {$EXTERNALSYM AM_INTF_SEARCH_INPUT_PIN}
- AM_INTF_SEARCH_OUTPUT_PIN = $2;
- {$EXTERNALSYM AM_INTF_SEARCH_OUTPUT_PIN}
- AM_INTF_SEARCH_FILTER = $4;
- {$EXTERNALSYM AM_INTF_SEARCH_FILTER}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMGraphStreams> _di_IAMGraphStreams;'}
- {$EXTERNALSYM IAMGraphStreams}
- IAMGraphStreams = interface(IUnknown)
- ['{632105FA-072E-11d3-8AF9-00C04FB6BD3D}']
- (*** IAMGraphStreams methods ***)
- function FindUpstreamInterface(pPin: IPin; const riid: TGUID; out ppvInterface;
- dwFlags: DWORD): HResult; stdcall;
- function SyncUsingStreamOffset(bUseStreamOffset: BOOL): HResult; stdcall;
- function SetMaxGraphLatency(rtMaxGraphLatency: TReferenceTime): HResult; stdcall;
- end;
- //AMOVERLAYFX
- const
- AMOVERFX_NOFX = 0;
- {$EXTERNALSYM AMOVERFX_NOFX}
- AMOVERFX_MIRRORLEFTRIGHT = $2;
- {$EXTERNALSYM AMOVERFX_MIRRORLEFTRIGHT}
- AMOVERFX_MIRRORUPDOWN = $4;
- {$EXTERNALSYM AMOVERFX_MIRRORUPDOWN}
- AMOVERFX_DEINTERLACE = $8;
- {$EXTERNALSYM AMOVERFX_DEINTERLACE}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMOverlayFX> _di_IAMOverlayFX;'}
- {$EXTERNALSYM IAMOverlayFX}
- IAMOverlayFX = interface(IUnknown)
- ['{62fae250-7e65-4460-bfc9-6398b322073c}']
- (*** IAMOverlayFX methods ***)
- function QueryOverlayFXCaps(out lpdwOverlayFXCaps: DWORD): HResult; stdcall;
- function SetOverlayFX(dwOverlayFX: DWORD): HResult; stdcall;
- function GetOverlayFX(out lpdwOverlayFX: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMOpenProgress> _di_IAMOpenProgress;'}
- {$EXTERNALSYM IAMOpenProgress}
- IAMOpenProgress = interface(IUnknown)
- ['{8E1C39A1-DE53-11cf-AA63-0080C744528D}']
- (*** IAMOpenProgress methods ***)
- function QueryProgress(out pllTotal, pllCurrent: int64): HResult; stdcall;
- function AbortOperation: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMpeg2Demultiplexer> _di_IMpeg2Demultiplexer;'}
- {$EXTERNALSYM IMpeg2Demultiplexer}
- IMpeg2Demultiplexer = interface(IUnknown)
- ['{436eee9c-264f-4242-90e1-4e330c107512}']
- (*** IMpeg2Demultiplexer methods ***)
- function CreateOutputPin(var pMediaType: TAMMediaType; pszPinName: PWideChar;
- out ppIPin: IPin): HResult; stdcall;
- function SetOutputPinMediaType(pszPinName: PWideChar; var pMediaType: TAMMediaType): HResult; stdcall;
- function DeleteOutputPin(pszPinName: PWideChar): HResult; stdcall;
- end;
- const
- MPEG2_PROGRAM_STREAM_MAP = $00000000;
- {$EXTERNALSYM MPEG2_PROGRAM_STREAM_MAP}
- MPEG2_PROGRAM_ELEMENTARY_STREAM = $00000001;
- {$EXTERNALSYM MPEG2_PROGRAM_ELEMENTARY_STREAM}
- MPEG2_PROGRAM_DIRECTORY_PES_PACKET = $00000002;
- {$EXTERNALSYM MPEG2_PROGRAM_DIRECTORY_PES_PACKET}
- MPEG2_PROGRAM_PACK_HEADER = $00000003;
- {$EXTERNALSYM MPEG2_PROGRAM_PACK_HEADER}
- MPEG2_PROGRAM_PES_STREAM = $00000004;
- {$EXTERNALSYM MPEG2_PROGRAM_PES_STREAM}
- MPEG2_PROGRAM_SYSTEM_HEADER = $00000005;
- {$EXTERNALSYM MPEG2_PROGRAM_SYSTEM_HEADER}
- SUBSTREAM_FILTER_VAL_NONE = $10000000;
- {$EXTERNALSYM SUBSTREAM_FILTER_VAL_NONE}
- type
- PStreamIDMap = ^TStreamIDMap;
- STREAM_ID_MAP = record
- stream_id : ULONG;
- dwMediaSampleContent : DWORD;
- ulSubstreamFilterValue: ULONG;
- iDataOffset : integer;
- end;
- {$EXTERNALSYM STREAM_ID_MAP}
- TStreamIDMap = STREAM_ID_MAP;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumStreamIdMap> _di_IEnumStreamIdMap;'}
- {$EXTERNALSYM IEnumStreamIdMap}
- IEnumStreamIdMap = interface(IUnknown)
- ['{945C1566-6202-46fc-96C7-D87F289C6534}']
- (*** IEnumStreamIdMap methods ***)
- function Next(cRequest: ULONG; pStreamIdMap: PStreamIDMap;
- out pcReceived: ULONG): HResult; stdcall;
- function Skip(cRecords: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppIEnumStreamIdMap: IEnumStreamIdMap): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2StreamIdMap> _di_IMPEG2StreamIdMap;'}
- {$EXTERNALSYM IMPEG2StreamIdMap}
- IMPEG2StreamIdMap = interface(IUnknown)
- ['{D0E04C47-25B8-4369-925A-362A01D95444}']
- (*** IMPEG2StreamIdMap methods ***)
- function MapStreamId(ulStreamId: ULONG; MediaSampleContent: DWORD;
- ulSubstreamFilterValue: ULONG; iDataOffset: integer): HResult; stdcall;
- function UnmapStreamId(culStreamId: ULONG; var pulStreamId: ULONG): HResult; stdcall;
- function EnumStreamIdMap(out ppIEnumStreamIdMap: IEnumStreamIdMap): HResult; stdcall;
- end;
- {$NODEFINE IAMovie} // deprecated
- IAMovie = interface(IFilterGraph)
- ['{359ACE10-7688-11CF-8B23-00805F6CEF60}']
- (*** IAMovie methods ***)
- function Connect(ppinOut, ppinIn: IPin): HResult; stdcall;
- function Render(ppinOut: IPin): HResult; stdcall;
- function Run: HResult; stdcall;
- function Pause: HResult; stdcall;
- function Stop: HResult; stdcall;
- function GetState(msTimeout: DWORD; out pfs: TFilterState): HResult; stdcall;
- function RenderFile(strFilename: PWideChar): HResult; stdcall;
- function AddSourceFilter(strFilename: PWideChar; out ppUnk: IBaseFilter): HResult; stdcall;
- function GetEventHandle(out hEvent: THandle): HResult; stdcall;
- function GetEvent(out lEventCode, lParam1, lParam2: Longint; msTimeout: DWORD): HResult; stdcall;
- function WaitForCompletion(msTimeout: DWORD; out pEvCode: Longint): HResult; stdcall;
- function CancelDefaultHandling(lEvCode: Longint): HResult; stdcall;
- function RestoreDefaultHandling(lEvCode: Longint): HResult; stdcall;
- function get_Duration(out plength: TRefTime): HResult; stdcall;
- function put_CurrentPosition(llTime: TRefTime): HResult; stdcall;
- function get_CurrentPosition(out pllTime: TRefTime): HResult; stdcall;
- function get_StopTime(out pllTime: TRefTime): HResult; stdcall;
- function put_StopTime(llTime: TRefTime): HResult; stdcall;
- function get_PrerollTime(out pllTime: TRefTime): HResult; stdcall;
- function put_PrerollTime(llTime: TRefTime): HResult; stdcall;
- function put_Rate(dRate: double): HResult; stdcall;
- function get_Rate(out pdRate: double): HResult; stdcall;
- function RemoveAllFilters: HResult; stdcall;
- function Play: HResult; stdcall;
- function PlayFile(strFilename: PWideChar): HResult; stdcall;
- function EnumFiltersByInterface(const riid: TGUID;
- out ppEnum: IEnumFilters): HResult; stdcall;
- function EnumPins(out ppEnum: IEnumPins): HResult; stdcall;
- function EnumPinsIn(out ppEnum: IEnumPins): HResult; stdcall;
- function EnumPinsOut(out ppEnum: IEnumPins): HResult; stdcall;
- function RenderAll: HResult; stdcall;
- function RenderNewFile(strFilename: PWideChar): HResult; stdcall;
- function FreeEventParams(lEvCode, lParam1, lParam2: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IRegisterServiceProvider> _di_IRegisterServiceProvider;'}
- {$EXTERNALSYM IRegisterServiceProvider}
- IRegisterServiceProvider = interface(IUnknown)
- ['{7B3A2F01-0751-48DD-B556-004785171C54}']
- (*** IRegisterServiceProvider methods ***)
- function RegisterService(const guidService: TGUID; pUnkObject: IUnknown): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMClockSlave> _di_IAMClockSlave;'}
- {$EXTERNALSYM IAMClockSlave}
- IAMClockSlave = interface(IUnknown)
- ['{9FD52741-176D-4b36-8F51-CA8F933223BE}']
- (*** IAMClockSlave methods ***)
- function SetErrorTolerance(dwTolerance: DWORD): HResult; stdcall;
- function GetErrorTolerance(out dwTolerance: DWORD): HResult; stdcall;
- end;
- //---------------------------------------------------------------------
- //
- // IAMGraphBuilderCallback interface
- //
- // Interface which gives the app a chance to configure filters
- // before a connection is attempted.
- //
- // If this interface is supported by the site passed in to the graph
- // via IObjectWithSite::SetSite, the graph will call back with each
- // filter it creates as part of the Render or Connect process. Does
- // not call back for source filters. Filter may be discarded and not
- // used in graph or may be connected and disconnected more than once
- //
- // The callback occurs with the graph lock held, so do not call into
- // the graph again and do not wait on other threads calling into the
- // graph.
- //
- //---------------------------------------------------------------------
- {$HPPEMIT 'typedef System::DelphiInterface<IAMGraphBuilderCallback> _di_IAMGraphBuilderCallback;'}
- {$EXTERNALSYM IAMGraphBuilderCallback}
- IAMGraphBuilderCallback = interface(IUnknown)
- ['{4995f511-9ddb-4f12-bd3b-f04611807b79}']
- (*** IAMGraphBuilderCallback methods ***)
- // graph builder selected a filter to create and attempt to
- // connect. failure indicates filter should be rejected.
- function SelectedFilter(pMon: IMoniker): HResult; stdcall;
- // app configures filter during this call. failure indicates
- // filter should be rejected.
- function CreatedFilter(pFil: IBaseFilter): HResult; stdcall;
- end;
- // Note: Because this interface was not defined as a proper interface it is")
- // supported under C++ only. Methods aren't stdcall.")
- {$HPPEMIT 'typedef System::DelphiInterface<IAMFilterGraphCallback> _di_IAMFilterGraphCallback;'}
- {$EXTERNALSYM IAMFilterGraphCallback}
- IAMFilterGraphCallback = interface(IUnknown)
- ['{56a868fd-0ad4-11ce-b0a3-0020af0ba770}']
- (*** IAMFilterGraphCallback methods ***)
- // S_OK means rendering complete, S_FALSE means retry now.")
- // DCoder: thiscall fix. DON'T use ph1 and ph2, these are just placeholders
- // to get the real address of pPin !!!
- function UnableToRender(ph1, ph2: integer; pPin: IPin): HResult; // thiscall
- end;
- //------------------------------------------------------------------------------
- // File: EncAPI.idl
- //
- // Desc: Encoder (and future decoder) interface definitions.
- //
- // Copyright (c) 1992 - 2002, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- CodecAPIEventData = record
- guid : TGUID;
- dataLength : DWORD;
- reserved : array[0..2] of DWORD;
- // data: array[0..dataLength-1] of Byte;
- end;
- {$EXTERNALSYM CodecAPIEventData}
- TCodecAPIEventData = CodecAPIEventData;
- // Applications can pass the CODECAPI_VIDEO_ENCODER to IsSupported to test for video encoders
- // Similarly, the GUIDs for audio encoders, video decoders, audio decoders and muxes can be
- // used to test for the codec classification
- //
- // See uuids.h for a more detailed list.
- {$HPPEMIT 'typedef System::DelphiInterface<ICodecAPI> _di_ICodecAPI;'}
- {$EXTERNALSYM ICodecAPI}
- ICodecAPI = interface(IUnknown)
- ['{901db4c7-31ce-41a2-85dc-8fa0bf41b8da}']
- (*** ICodecAPI methods ***)
- // Query whether a given parameter is supported.
- function IsSupported(const Api: TGUID): HResult; stdcall;
- // Query whether a given parameter can be changed given the codec selection
- // and other parameter selections.
- function IsModifiable(const Api: TGUID): HResult; stdcall;
- // Returns the valid range of values that the parameter supports should
- // the parameter support a stepped range as opposed to a list of specific
- // values. The support is [ValueMin .. ValueMax] by SteppingDelta.
- //
- // Ranged variant types must fall into one of the below types. Each
- // parameter will, by definition, return a specific type.
- //
- // If the range has no stepping delta (any delta will do), the Stepping
- // delta will be empty (VT_EMPTY).
- function GetParameterRange(const Api: TGUID; out ValueMin, ValueMax,
- SteppingDelta: OleVariant): HResult; stdcall;
- // Returns the list of values supported by the given parameter as a
- // COM allocated array. The total number of values will be placed in
- // the ValuesCount parameter and the Values array will contain the
- // individual values. This array must be freed by the caller through
- // CoTaskMemFree().
- function GetParameterValues(const Api: TGUID; out Values: POleVariant;
- out ValuesCount: ULONG): HResult; stdcall;
- // Get the default value for a parameter, if one exists. Otherwise,
- // an error will be returned.
- function GetDefaultValue(const Aoi: TGUID; out Value: OleVariant): HResult; stdcall;
- // Get the current value of a parameter.
- function GetValue(const Api: TGUID; out Value: OleVariant): HResult;
- // Set the current value of a parameter.
- function SetValue(const Api: TGUID; var Value: OleVariant): HResult; stdcall;
- // new methods beyond IEncoderAPI
- // Enable events to be reported for the given event GUID. For DShow
- // events, the event is returned as
- // (EC_CODECAPI_EVENT, lParam=userData, lParam2=CodecAPIEventData* Data)
- // where
- // - the CodecAPIEventData is COM allocated memory and must be handled and freed
- // by the application using CoTaskMemFree().
- // - the userData is the same pointer passed to RegisterForEvent
- //
- // Each data block starts with the following structure:
- // struct CodecAPIEventData
- // {
- // GUID guid;
- // DWORD dataLength;
- // DWORD reserved[3]; // pad to 16 byte alignment
- // BYTE data[dataLength];
- // }
- // The guid parameter identifies the event. The data associated with the event follows the
- // structure (represented by the variable length BYTE data[dataLength] array).
- //
- // If guid is equal to CODECAPI_CHANGELISTS, then data is an array of GUIDs that changed as
- // a result of setting the parameter, as follows:
- // GUID changedGuids[ header.dataLength / sizeof(GUID) ]
- //
- // The current array is limited, so a driver may send multiple messages if the array size is
- // exceeded.
- //
- function RegisterForEvent(const Api: TGUID; userData: Pointer): HResult; stdcall;
- // Disable event reporting for the given event GUID.
- function UnregisterForEvent(const Api: TGUID): HResult; stdcall;
- // SetAllDefaults
- function SetAllDefaults: HResult; stdcall;
- // Extended SetValue & SetAllDefaults:
- // Changes the current value of a parameter and returns back an alteration list
- // The secondary arguments return back a list of other settings
- // that changed as a result of the SetValue() call (for UI updates etc)
- // The client must free the buffer.
- function SetValueWithNotify(const Api: TGUID; var Value: Olevariant;
- out ChangedParam: PGUID; out ChangedParamCount: ULONG): HResult; stdcall;
- function SetAllDefaultsWithNotify(out ChangedParam: PGUID;
- out ChangedParamCount: ULONG): HResult; stdcall;
- // Load the current settings from a stream
- function GetAllSettings(Stream: IStream): HResult; stdcall;
- // Save the current settings to a stream
- function SetAllSettings(Stream: IStream): HResult; stdcall;
- function SetAllSettingsWithNotify(Stream: IStream; out ChangedParam: PGUID;
- out ChangedParamCount: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IGetCapabilitiesKey> _di_IGetCapabilitiesKey;'}
- {$EXTERNALSYM IGetCapabilitiesKey}
- IGetCapabilitiesKey = interface(IUnknown)
- ['{a8809222-07bb-48ea-951c-33158100625b}']
- (*** IGetCapabilitiesKey methods ***)
- function GetCapabilitiesKey(out pHKey: HKEY): HResult; stdcall;
- end;
- // -----------------------------------------------------------------------------------------
- // From this point on, this is retained for backwards compatiblity only
- // Do not use this for future encoders
- // -----------------------------------------------------------------------------------------
- {$HPPEMIT 'typedef System::DelphiInterface<IEncoderAPI> _di_IEncoderAPI;'}
- {$EXTERNALSYM IEncoderAPI}
- IEncoderAPI = interface(IUnknown)
- ['{70423839-6ACC-4b23-B079-21DBF08156A5}']
- (*** IEncoderAPI methods ***)
- function IsSupported(const Api: TGUID): HResult; stdcall;
- function IsAvailable(const Api: TGUID): HResult; stdcall;
- function GetParameterRange(const Api: TGUID; out ValueMin, ValueMax,
- SteppingDelta: OleVariant): HResult; stdcall;
- function GetParameterValues(const Api: TGUID; out Values: POleVariant;
- out ValuesCount: ULONG): HResult; stdcall;
- function GetDefaultValue (const Api: TGUID; out Value: OleVariant): HResult; stdcall;
- function GetValue(const Api: TGUID; out Value: OleVariant): HResult; stdcall;
- function SetValue(const Api: TGUID; var Value: OleVariant): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVideoEncoder> _di_IVideoEncoder;'}
- {$EXTERNALSYM IVideoEncoder}
- IVideoEncoder = interface(IEncoderAPI)
- ['{02997C3B-8E1B-460e-9270-545E0DE9563E}']
- (*** IVideoEncoder methods ***)
- end;
- //---------------------------------------------------------------------
- //
- // Old Encoder API Interfaces
- //
- //---------------------------------------------------------------------
- VIDEOENCODER_BITRATE_MODE = (
- // Bit rate used for encoding is constant
- ConstantBitRate,
- // Bit rate used for encoding is variable with the specified bitrate used
- // as a guaranteed average over a specified window. The default window
- // size is considered to be 5 minutes.
- VariableBitRateAverage,
- // Bit rate used for encoding is variable with the specified bitrate used
- // as a peak rate over a specified window. The default window size
- // is considered to be 500ms (classically one GOP).
- VariableBitRatePeak
- );
- {$EXTERNALSYM VIDEOENCODER_BITRATE_MODE}
- TVideoEncoderBitrateMode = VIDEOENCODER_BITRATE_MODE;
-
- const
- AM_GETDECODERCAP_QUERY_VMR_SUPPORT = $00000001;
- {$EXTERNALSYM AM_GETDECODERCAP_QUERY_VMR_SUPPORT}
- VMR_NOTSUPPORTED = $00000000;
- {$EXTERNALSYM VMR_NOTSUPPORTED}
- VMR_SUPPORTED = $00000001;
- {$EXTERNALSYM VMR_SUPPORTED}
- AM_QUERY_DECODER_VMR_SUPPORT = $00000001;
- {$EXTERNALSYM AM_QUERY_DECODER_VMR_SUPPORT}
- AM_QUERY_DECODER_DXVA_1_SUPPORT = $00000002;
- {$EXTERNALSYM AM_QUERY_DECODER_DXVA_1_SUPPORT}
- AM_QUERY_DECODER_DVD_SUPPORT = $00000003;
- {$EXTERNALSYM AM_QUERY_DECODER_DVD_SUPPORT}
- AM_QUERY_DECODER_ATSC_SD_SUPPORT = $00000004;
- {$EXTERNALSYM AM_QUERY_DECODER_ATSC_SD_SUPPORT}
- AM_QUERY_DECODER_ATSC_HD_SUPPORT = $00000005;
- {$EXTERNALSYM AM_QUERY_DECODER_ATSC_HD_SUPPORT}
- AM_GETDECODERCAP_QUERY_VMR9_SUPPORT = $00000006;
- {$EXTERNALSYM AM_GETDECODERCAP_QUERY_VMR9_SUPPORT}
- DECODER_CAP_NOTSUPPORTED = $00000000;
- {$EXTERNALSYM DECODER_CAP_NOTSUPPORTED}
- DECODER_CAP_SUPPORTED = $00000001;
- {$EXTERNALSYM DECODER_CAP_SUPPORTED}
- CDEF_CLASS_DEFAULT = $0001;
- {$EXTERNALSYM CDEF_CLASS_DEFAULT}
- CDEF_BYPASS_CLASS_MANAGER = $0002;
- {$EXTERNALSYM CDEF_BYPASS_CLASS_MANAGER}
- //CDEF_CLASS_LEGACY = $0004;
- CDEF_MERIT_ABOVE_DO_NOT_USE = $0008;
- {$EXTERNALSYM CDEF_MERIT_ABOVE_DO_NOT_USE}
- CDEF_DEVMON_CMGR_DEVICE = $0010;
- {$EXTERNALSYM CDEF_DEVMON_CMGR_DEVICE}
- CDEF_DEVMON_DMO = $0020;
- {$EXTERNALSYM CDEF_DEVMON_DMO}
- CDEF_DEVMON_PNP_DEVICE = $0040;
- {$EXTERNALSYM CDEF_DEVMON_PNP_DEVICE}
- CDEF_DEVMON_FILTER = $0080;
- {$EXTERNALSYM CDEF_DEVMON_FILTER}
- CDEF_DEVMON_SELECTIVE_MASK = $00f0;
- {$EXTERNALSYM CDEF_DEVMON_SELECTIVE_MASK}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMDecoderCaps> _di_IAMDecoderCaps;'}
- {$EXTERNALSYM IAMDecoderCaps}
- IAMDecoderCaps = interface(IUnknown)
- ['{c0dff467-d499-4986-972b-e1d9090fa941}']
- (*** IAMDecoderCaps methods ***)
- function GetDecoderCaps(dwCapIndex: DWORD; out lpdwCap: DWORD): HResult; stdcall;
- end;
- ///////////////////////////////////////////////////////////////////////////////
- //
- // IAMCertifiedOutputProtection
- //
- ///////////////////////////////////////////////////////////////////////////////
- PAMCOPPSignature = ^TAMCOPPSignature;
- AMCOPPSignature = packed record
- Signature: array[0..255] of byte;
- end;
- {.$EXTERNALSYM AMCOPPSignature}
- TAMCOPPSignature = AMCOPPSignature;
- AMCOPPCommand = packed record
- macKDI: TGUID; // 16 bytes
- guidCommandID: TGUID; // 16 bytes
- dwSequence: DWORD; // 4 bytes
- cbSizeData: DWORD; // 4 bytes
- CommandData: array[0..4055] of byte; // 4056 bytes (4056+4+4+16+16 = 4096)
- end;
- {.$EXTERNALSYM AMCOPPCommand}
- TAMCOPPCommand = AMCOPPCommand;
- LPAMCOPPCommand = ^AMCOPPCommand;
- {.$EXTERNALSYM LPAMCOPPCommand}
- PAMCOPPCommand = LPAMCOPPCommand;
- AMCOPPStatusInput = packed record
- rApp: TGUID; // 16 bytes
- guidStatusRequestID: TGUID;// 16 bytes
- dwSequence: DWORD; // 4 bytes
- cbSizeData: DWORD; // 4 bytes
- StatusData: array[0..4055] of byte; // 4056 bytes (4056+4+4+16+16 = 4096)
- end;
- {.$EXTERNALSYM AMCOPPStatusInput}
- TAMCOPPStatusInput = AMCOPPStatusInput;
- LPAMCOPPStatusInput = ^AMCOPPStatusInput;
- {.$EXTERNALSYM LPAMCOPPStatusInput}
- PAMCOPPStatusInput = LPAMCOPPStatusInput;
- AMCOPPStatusOutput = packed record
- macKDI: TGUID; // 16 bytes
- cbSizeData: DWORD; // 4 bytes
- COPPStatus: array[0..4075] of byte; // 4076 bytes (4076+16+4 = 4096)
- end;
- {.$EXTERNALSYM AMCOPPStatusOutput}
- TAMCOPPStatusOutput = AMCOPPStatusOutput;
- LPAMCOPPStatusOutput = ^AMCOPPStatusOutput;
- {.$EXTERNALSYM LPAMCOPPStatusOutput}
- PAMCOPPStatusOutput = LPAMCOPPStatusOutput;
- {.$HPPEMIT 'typedef System::DelphiInterface<IAMCertifiedOutputProtection> _di_IAMCertifiedOutputProtection;'}
- {.$EXTERNALSYM IAMCertifiedOutputProtection}
- IAMCertifiedOutputProtection = interface(IUnknown)
- ['{6FEDED3E-0FF1-4901-A2F1-43F7012C8515}']
- function KeyExchange(
- pRandom: PGUID; // 128-bit random number generated by Graphics Driver
- var VarLenCertGH: PByte; // Graphics Hardware certificate, memory released by CoTaskMemFree
- pdwLengthCertGH: PDWORD // Length of Graphics Hardware certificate
- ): HRESULT; stdcall;
- // Concatenation of 128-bit random data security session key,
- // 128-bit random data integrity session key, 32-bit random
- // starting status sequence number and 32-bit random starting
- // command sequence number encrypted with the public key of
- // the graphic hardware. This value is 2048 bits long.
- function SessionSequenceStart(pSig: PAMCOPPSignature): HRESULT; stdcall;
- function ProtectionCommand(cmd: PAMCOPPCommand): HRESULT; stdcall; // Encrypted command
- function ProtectionStatus(
- pStatusInput: PAMCOPPStatusInput; // Encrypted Status request
- pStatusOutput: PAMCOPPStatusOutput): HRESULT; stdcall; // Encrypted Status results
- end;
- ////////////////////////////////////////////////////////////////////////////////
- {$HPPEMIT 'typedef System::DelphiInterface<ICreateDevEnum> _di_ICreateDevEnum;'}
- {$EXTERNALSYM ICreateDevEnum}
- ICreateDevEnum = interface(IUnknown)
- ['{29840822-5B84-11D0-BD3B-00A0C911CE86}']
- (*** ICreateDevEnum methods ***)
- function CreateClassEnumerator(const clsidDeviceClass: TGUID;
- out ppEnumMoniker: IEnumMoniker; dwFlags: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterMapper3> _di_IFilterMapper3;'}
- {$EXTERNALSYM IFilterMapper3}
- IFilterMapper3 = interface(IFilterMapper2)
- ['{b79bb0b1-33c1-11d1-abe1-00a0c905f375}']
- (*** IFilterMapper3 methods ***)
- function GetICreateDevEnum(out ppEnum: ICreateDevEnum): HResult; stdcall;
- end;
- //replacement for DVD_TextStringType in GetDVDTextStringAsNative, GetDVDTextStringAsUnicode
- {$IFNDEF COMPILER6_UP}
- type
- DVD_TextStringType = {$IFDEF TYPE_IDENTITY}type {$ENDIF}LongWord;
- const
- DVD_Struct_Volume = $00000001;
- DVD_Struct_Title = $00000002;
- DVD_Struct_ParentalID = $00000003;
- DVD_Struct_PartOfTitle = $00000004;
- DVD_Struct_Cell = $00000005;
- DVD_Stream_Audio = $00000010;
- DVD_Stream_Subpicture = $00000011;
- DVD_Stream_Angle = $00000012;
- DVD_Channel_Audio = $00000020;
- DVD_General_Name = $00000030;
- DVD_General_Comments = $00000031;
- DVD_Title_Series = $00000038;
- DVD_Title_Movie = $00000039;
- DVD_Title_Video = $0000003A;
- DVD_Title_Album = $0000003B;
- DVD_Title_Song = $0000003C;
- DVD_Title_Other = $0000003F;
- DVD_Title_Sub_Series = $00000040;
- DVD_Title_Sub_Movie = $00000041;
- DVD_Title_Sub_Video = $00000042;
- DVD_Title_Sub_Album = $00000043;
- DVD_Title_Sub_Song = $00000044;
- DVD_Title_Sub_Other = $00000047;
- DVD_Title_Orig_Series = $00000048;
- DVD_Title_Orig_Movie = $00000049;
- DVD_Title_Orig_Video = $0000004A;
- DVD_Title_Orig_Album = $0000004B;
- DVD_Title_Orig_Song = $0000004C;
- DVD_Title_Orig_Other = $0000004F;
- DVD_Other_Scene = $00000050;
- DVD_Other_Cut = $00000051;
- DVD_Other_Take = $00000052;
- {$ELSE}
- type
- DVD_TextStringType = (
- DVD_Struct_Volume = $00000001,
- DVD_Struct_Title = $00000002,
- DVD_Struct_ParentalID = $00000003,
- DVD_Struct_PartOfTitle = $00000004,
- DVD_Struct_Cell = $00000005,
- DVD_Stream_Audio = $00000010,
- DVD_Stream_Subpicture = $00000011,
- DVD_Stream_Angle = $00000012,
- DVD_Channel_Audio = $00000020,
- DVD_General_Name = $00000030,
- DVD_General_Comments = $00000031,
- DVD_Title_Series = $00000038,
- DVD_Title_Movie = $00000039,
- DVD_Title_Video = $0000003A,
- DVD_Title_Album = $0000003B,
- DVD_Title_Song = $0000003C,
- DVD_Title_Other = $0000003F,
- DVD_Title_Sub_Series = $00000040,
- DVD_Title_Sub_Movie = $00000041,
- DVD_Title_Sub_Video = $00000042,
- DVD_Title_Sub_Album = $00000043,
- DVD_Title_Sub_Song = $00000044,
- DVD_Title_Sub_Other = $00000047,
- DVD_Title_Orig_Series = $00000048,
- DVD_Title_Orig_Movie = $00000049,
- DVD_Title_Orig_Video = $0000004A,
- DVD_Title_Orig_Album = $0000004B,
- DVD_Title_Orig_Song = $0000004C,
- DVD_Title_Orig_Other = $0000004F,
- DVD_Other_Scene = $00000050,
- DVD_Other_Cut = $00000051,
- DVD_Other_Take = $00000052
- );
- {$ENDIF}
- {$EXTERNALSYM DVD_TextStringType}
- type
- TDVDTextStringType = DVD_TextStringType;
- // For IDVDControl2.SetOption flags
- DVD_OPTION_FLAG = (
- {$IFNDEF COMPILER6_UP}
- DVD_Option_INVALID_0,
- DVD_ResetOnStop,
- {$ELSE}
- DVD_ResetOnStop = 1,
- {$ENDIF}
- DVD_NotifyParentalLevelChange,
- DVD_HMSF_TimeCodeEvents,
- DVD_AudioDuringFFwdRew // default FALSE (or by reg) // DirectX9 Specific
- );
- {$EXTERNALSYM DVD_OPTION_FLAG}
- TDVDOptionFlag = DVD_OPTION_FLAG;
- tagDVD_DOMAIN = (
- {$IFNDEF COMPILER6_UP}
- DVD_DOMAIN_INVALID_0,
- DVD_DOMAIN_FirstPlay,
- {$ELSE}
- DVD_DOMAIN_FirstPlay = 1,
- {$ENDIF}
- DVD_DOMAIN_VideoManagerMenu,
- DVD_DOMAIN_VideoTitleSetMenu,
- DVD_DOMAIN_Title,
- DVD_DOMAIN_Stop
- );
- {$EXTERNALSYM tagDVD_DOMAIN}
- DVD_DOMAIN = tagDVD_DOMAIN;
- {$EXTERNALSYM DVD_DOMAIN}
- TDVDDomain = DVD_DOMAIN;
- tagDVD_MENU_ID = (
- {$EXTERNALSYM tagDVD_MENU_ID}
- {$IFNDEF COMPILER6_UP}
- DVD_MENU_INVALID_0,
- DVD_MENU_INVALID_1,
- DVD_MENU_Title,
- {$ELSE}
- DVD_MENU_Title = 2,
- {$ENDIF}
- DVD_MENU_Root,
- DVD_MENU_Subpicture,
- DVD_MENU_Audio,
- DVD_MENU_Angle,
- DVD_MENU_Chapter
- );
- DVD_MENU_ID = tagDVD_MENU_ID;
- {$EXTERNALSYM DVD_MENU_ID}
- TDVDMenuID = DVD_MENU_ID;
- tagDVD_DISC_SIDE = (
- {$IFNDEF COMPILER6_UP}
- DVD_SIDE_INVALID_0,
- DVD_SIDE_A,
- DVD_SIDE_B
- {$ELSE}
- DVD_SIDE_A = 1,
- DVD_SIDE_B = 2
- {$ENDIF}
- );
- {$EXTERNALSYM tagDVD_DISC_SIDE}
- DVD_DISC_SIDE = tagDVD_DISC_SIDE;
- {$EXTERNALSYM DVD_DISC_SIDE}
- TDVDDiscSide = DVD_DISC_SIDE;
- tagDVD_PREFERRED_DISPLAY_MODE = (
- DISPLAY_CONTENT_DEFAULT,
- DISPLAY_16x9,
- DISPLAY_4x3_PANSCAN_PREFERRED,
- DISPLAY_4x3_LETTERBOX_PREFERRED
- );
- {$EXTERNALSYM tagDVD_PREFERRED_DISPLAY_MODE}
- DVD_PREFERRED_DISPLAY_MODE = tagDVD_PREFERRED_DISPLAY_MODE;
- {$EXTERNALSYM DVD_PREFERRED_DISPLAY_MODE}
- TDVDPreferredDisplayMode = DVD_PREFERRED_DISPLAY_MODE;
- tagDVD_VIDEO_COMPRESSION = (
- DVD_VideoCompression_Other,
- DVD_VideoCompression_MPEG1,
- DVD_VideoCompression_MPEG22
- );
- {$EXTERNALSYM tagDVD_VIDEO_COMPRESSION}
- DVD_VIDEO_COMPRESSION = tagDVD_VIDEO_COMPRESSION;
- {$EXTERNALSYM DVD_VIDEO_COMPRESSION}
- TDVDVideoCompression = DVD_VIDEO_COMPRESSION;
- tagDVD_AUDIO_APPMODE = (
- DVD_AudioMode_None,
- DVD_AudioMode_Karaoke,
- DVD_AudioMode_Surround,
- DVD_AudioMode_Other
- );
- {$EXTERNALSYM tagDVD_AUDIO_APPMODE}
- DVD_AUDIO_APPMODE = tagDVD_AUDIO_APPMODE;
- {$EXTERNALSYM DVD_AUDIO_APPMODE}
- TDVDAudioAPPMode = DVD_AUDIO_APPMODE;
- tagDVD_AUDIO_FORMAT = (
- DVD_AudioFormat_AC3,
- DVD_AudioFormat_MPEG1,
- DVD_AudioFormat_MPEG1_DRC,
- DVD_AudioFormat_MPEG2,
- DVD_AudioFormat_MPEG2_DRC,
- DVD_AudioFormat_LPCM,
- DVD_AudioFormat_DTS,
- DVD_AudioFormat_SDDS,
- DVD_AudioFormat_Other
- );
- {$EXTERNALSYM tagDVD_AUDIO_FORMAT}
- DVD_AUDIO_FORMAT = tagDVD_AUDIO_FORMAT;
- {$EXTERNALSYM DVD_AUDIO_FORMAT}
- TDVDAudioFormat = DVD_AUDIO_FORMAT;
- // DVD_KARAOKE_DOWNMIX
- const
- DVD_Mix_0to0 = $1 ;
- {$EXTERNALSYM DVD_Mix_0to0}
- DVD_Mix_1to0 = $2 ;
- {$EXTERNALSYM DVD_Mix_1to0}
- DVD_Mix_2to0 = $4 ;
- {$EXTERNALSYM DVD_Mix_2to0}
- DVD_Mix_3to0 = $8 ;
- {$EXTERNALSYM DVD_Mix_3to0}
- DVD_Mix_4to0 = $10 ;
- {$EXTERNALSYM DVD_Mix_4to0}
- DVD_Mix_Lto0 = $20 ;
- {$EXTERNALSYM DVD_Mix_Lto0}
- DVD_Mix_Rto0 = $40 ;
- {$EXTERNALSYM DVD_Mix_Rto0}
- DVD_Mix_0to1 = $100 ;
- {$EXTERNALSYM DVD_Mix_0to1}
- DVD_Mix_1to1 = $200 ;
- {$EXTERNALSYM DVD_Mix_1to1}
- DVD_Mix_2to1 = $400 ;
- {$EXTERNALSYM DVD_Mix_2to1}
- DVD_Mix_3to1 = $800 ;
- {$EXTERNALSYM DVD_Mix_3to1}
- DVD_Mix_4to1 = $1000;
- {$EXTERNALSYM DVD_Mix_4to1}
- DVD_Mix_Lto1 = $2000;
- {$EXTERNALSYM DVD_Mix_Lto1}
- DVD_Mix_Rto1 = $4000;
- {$EXTERNALSYM DVD_Mix_Rto1}
- type
- tagDVD_AUDIO_LANG_EXT = (
- DVD_AUD_EXT_NotSpecified,
- DVD_AUD_EXT_Captions,
- DVD_AUD_EXT_VisuallyImpaired,
- DVD_AUD_EXT_DirectorComments1,
- DVD_AUD_EXT_DirectorComments2
- );
- {$EXTERNALSYM tagDVD_AUDIO_LANG_EXT}
- DVD_AUDIO_LANG_EXT = tagDVD_AUDIO_LANG_EXT;
- {$EXTERNALSYM DVD_AUDIO_LANG_EXT}
- TDVDAudioLangExt = DVD_AUDIO_LANG_EXT;
- tagDVD_SUBPICTURE_TYPE = (
- DVD_SPType_NotSpecified,
- DVD_SPType_Language,
- DVD_SPType_Other
- );
- {$EXTERNALSYM tagDVD_SUBPICTURE_TYPE}
- DVD_SUBPICTURE_TYPE = tagDVD_SUBPICTURE_TYPE;
- {$EXTERNALSYM DVD_SUBPICTURE_TYPE}
- TDVDSubpictureType = DVD_SUBPICTURE_TYPE;
- tagDVD_SUBPICTURE_CODING = (
- DVD_SPCoding_RunLength,
- DVD_SPCoding_Extended,
- DVD_SPCoding_Other
- );
- {$EXTERNALSYM tagDVD_SUBPICTURE_CODING}
- DVD_SUBPICTURE_CODING = tagDVD_SUBPICTURE_CODING;
- {$EXTERNALSYM DVD_SUBPICTURE_CODING}
- TDVDSubpictureCoding = DVD_SUBPICTURE_CODING;
- {$IFNDEF COMPILER6_UP}
- tagDVD_SUBPICTURE_LANG_EXT = {$IFDEF TYPE_IDENTITY}type {$ENDIF}LongWord;
- const
- DVD_SP_EXT_NotSpecified = 0;
- DVD_SP_EXT_Caption_Normal = 1;
- DVD_SP_EXT_Caption_Big = 2;
- DVD_SP_EXT_Caption_Children = 3;
- DVD_SP_EXT_CC_Normal = 5;
- DVD_SP_EXT_CC_Big = 6;
- DVD_SP_EXT_CC_Children = 7;
- DVD_SP_EXT_Forced = 9;
- DVD_SP_EXT_DirectorComments_Normal = 13;
- DVD_SP_EXT_DirectorComments_Big = 14;
- DVD_SP_EXT_DirectorComments_Children = 15;
- {$ELSE}
- tagDVD_SUBPICTURE_LANG_EXT = (
- DVD_SP_EXT_NotSpecified = 0,
- DVD_SP_EXT_Caption_Normal = 1,
- DVD_SP_EXT_Caption_Big = 2,
- DVD_SP_EXT_Caption_Children = 3,
- DVD_SP_EXT_CC_Normal = 5,
- DVD_SP_EXT_CC_Big = 6,
- DVD_SP_EXT_CC_Children = 7,
- DVD_SP_EXT_Forced = 9,
- DVD_SP_EXT_DirectorComments_Normal = 13,
- DVD_SP_EXT_DirectorComments_Big = 14,
- DVD_SP_EXT_DirectorComments_Children = 15
- );
- {$ENDIF}
- type
- {$EXTERNALSYM tagDVD_SUBPICTURE_LANG_EXT}
- DVD_SUBPICTURE_LANG_EXT = tagDVD_SUBPICTURE_LANG_EXT;
- {$EXTERNALSYM DVD_SUBPICTURE_LANG_EXT}
- TDVDSubpictureLangExt = DVD_SUBPICTURE_LANG_EXT;
- type
- tagDVD_KARAOKE_ASSIGNMENT = (
- DVD_Assignment_reserved0,
- DVD_Assignment_reserved1,
- DVD_Assignment_LR,
- DVD_Assignment_LRM,
- DVD_Assignment_LR1,
- DVD_Assignment_LRM1,
- DVD_Assignment_LR12,
- DVD_Assignment_LRM12
- );
- {$EXTERNALSYM tagDVD_KARAOKE_ASSIGNMENT}
- DVD_KARAOKE_ASSIGNMENT = tagDVD_KARAOKE_ASSIGNMENT;
- {$EXTERNALSYM DVD_KARAOKE_ASSIGNMENT}
- TDVDKaraokeAssignment = DVD_KARAOKE_ASSIGNMENT;
- DVD_RELATIVE_BUTTON = (
- {$IFNDEF COMPILER6_UP}
- DVD_Relative_INVALID_0,
- DVD_Relative_Upper,
- DVD_Relative_Lower,
- DVD_Relative_Left,
- DVD_Relative_Right
- {$ELSE}
- DVD_Relative_Upper = 1,
- DVD_Relative_Lower = 2,
- DVD_Relative_Left = 3,
- DVD_Relative_Right = 4
- {$ENDIF}
- );
- {$EXTERNALSYM DVD_RELATIVE_BUTTON}
- TDVDRelativeButton = DVD_RELATIVE_BUTTON;
- DVD_REGISTER = {$IFDEF TYPE_IDENTITY}type {$ENDIF}Word;
- {$EXTERNALSYM DVD_REGISTER}
- GPRMArray = array[0..15] of DVD_REGISTER;
- {$EXTERNALSYM GPRMArray}
- SPRMArray = array[0..23] of DVD_REGISTER;
- {$EXTERNALSYM SPRMArray}
- TSPRMArray = SPRMArray;
- tagDVD_ATR = record
- ulCAT : ULONG;
- pbATRI: array[0..767] of Byte;
- end;
- {$EXTERNALSYM tagDVD_ATR}
- DVD_ATR = tagDVD_ATR;
- {$EXTERNALSYM DVD_ATR}
- TDVDAtr = tagDVD_ATR;
- DVD_VideoATR = array[0..1] of Byte;
- {$EXTERNALSYM DVD_VideoATR}
- DVD_AudioATR = array[0..7] of Byte;
- {$EXTERNALSYM DVD_AudioATR}
- DVD_SubpictureATR = array[0..5] of Byte;
- {$EXTERNALSYM DVD_SubpictureATR}
- (*** DVD_SubpictureATR methods ***)
- tagDVD_FRAMERATE = (
- {$IFNDEF COMPILER6_UP}
- DVD_FPS_INVALID_0,
- DVD_FPS_25,
- DVD_FPS_INVALID_2,
- DVD_FPS_30NonDrop
- {$ELSE}
- DVD_FPS_25 = 1,
- DVD_FPS_30NonDrop = 3
- {$ENDIF}
- );
- {$EXTERNALSYM tagDVD_FRAMERATE}
- DVD_FRAMERATE = tagDVD_FRAMERATE;
- {$EXTERNALSYM DVD_FRAMERATE}
- TDVDFramerate = DVD_FRAMERATE;
- //typedef struct tagDVD_TIMECODE
- //{
- // ULONG Hours1 :4; // Hours
- // ULONG Hours10 :4; // Tens of Hours
- //
- // ULONG Minutes1 :4; // Minutes
- // ULONG Minutes10:4; // Tens of Minutes
- //
- // ULONG Seconds1 :4; // Seconds
- // ULONG Seconds10:4; // Tens of Seconds
- //
- // ULONG Frames1 :4; // Frames
- // ULONG Frames10 :2; // Tens of Frames
- //
- // ULONG FrameRateCode: 2; // use DVD_FRAMERATE to indicate frames/sec and drop/non-drop
- //} DVD_TIMECODE;
- tagDVD_TIMECODE = record
- Hours1 : byte;
- Hours10 : byte;
- Minutes1 : byte;
- Minutes10 : byte;
- Seconds1 : byte;
- Seconds10 : byte;
- Frames1 : byte;
- Frames10 : byte;
- FrameRateCode: byte;
- end;
- {$EXTERNALSYM tagDVD_TIMECODE}
- DVD_TIMECODE = tagDVD_TIMECODE;
- {$EXTERNALSYM DVD_TIMECODE}
- TDVDTimeCode = tagDVD_TIMECODE;
- //DVD_TIMECODE_FLAGS
- const
- DVD_TC_FLAG_25fps = $1;
- {$EXTERNALSYM DVD_TC_FLAG_25fps}
- DVD_TC_FLAG_30fps = $2;
- {$EXTERNALSYM DVD_TC_FLAG_30fps}
- DVD_TC_FLAG_DropFrame = $4;
- {$EXTERNALSYM DVD_TC_FLAG_DropFrame}
- DVD_TC_FLAG_Interpolated = $8;
- {$EXTERNALSYM DVD_TC_FLAG_Interpolated}
- type
- PDVDHMSFTimeCode = ^TDVDHMSFTimeCode;
- tagDVD_HMSF_TIMECODE = record
- {$EXTERNALSYM tagDVD_HMSF_TIMECODE}
- bHours : BYTE;
- bMinutes : BYTE;
- bSeconds : BYTE;
- bFrames : BYTE;
- end;
- DVD_HMSF_TIMECODE = tagDVD_HMSF_TIMECODE;
- {$EXTERNALSYM DVD_HMSF_TIMECODE}
- TDVDHMSFTimeCode = tagDVD_HMSF_TIMECODE;
- tagDVD_PLAYBACK_LOCATION2 = record
- TitleNum : ULONG;
- ChapterNum : ULONG;
- TimeCode : DVD_HMSF_TIMECODE;
- TimeCodeFlags : ULONG;
- end;
- {$EXTERNALSYM tagDVD_PLAYBACK_LOCATION2}
- DVD_PLAYBACK_LOCATION2 = tagDVD_PLAYBACK_LOCATION2;
- {$EXTERNALSYM DVD_PLAYBACK_LOCATION2}
- TDVDPlayBackLocation2 = tagDVD_PLAYBACK_LOCATION2;
- tagDVD_PLAYBACK_LOCATION = record
- TitleNum : ULONG;
- ChapterNum : ULONG;
- TimeCode : ULONG;
- end;
- {$EXTERNALSYM tagDVD_PLAYBACK_LOCATION}
- DVD_PLAYBACK_LOCATION = tagDVD_PLAYBACK_LOCATION;
- {$EXTERNALSYM DVD_PLAYBACK_LOCATION}
- TDVDPlaybackLocation = tagDVD_PLAYBACK_LOCATION;
- VALID_UOP_SOMTHING_OR_OTHER = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWord;
- {$EXTERNALSYM VALID_UOP_SOMTHING_OR_OTHER}
- VALID_UOP_FLAG = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWord;
- {$EXTERNALSYM VALID_UOP_FLAG}
- const
- UOP_FLAG_Play_Title_Or_AtTime = $1;
- {$EXTERNALSYM UOP_FLAG_Play_Title_Or_AtTime}
- UOP_FLAG_Play_Chapter = $2;
- {$EXTERNALSYM UOP_FLAG_Play_Chapter}
- UOP_FLAG_Play_Title = $4;
- {$EXTERNALSYM UOP_FLAG_Play_Title}
- UOP_FLAG_Stop = $8;
- {$EXTERNALSYM UOP_FLAG_Stop}
- UOP_FLAG_ReturnFromSubMenu = $10;
- {$EXTERNALSYM UOP_FLAG_ReturnFromSubMenu}
- UOP_FLAG_Play_Chapter_Or_AtTime = $20;
- {$EXTERNALSYM UOP_FLAG_Play_Chapter_Or_AtTime}
- UOP_FLAG_PlayPrev_Or_Replay_Chapter = $40;
- {$EXTERNALSYM UOP_FLAG_PlayPrev_Or_Replay_Chapter}
- UOP_FLAG_PlayNext_Chapter = $80;
- {$EXTERNALSYM UOP_FLAG_PlayNext_Chapter}
- UOP_FLAG_Play_Forwards = $100;
- {$EXTERNALSYM UOP_FLAG_Play_Forwards}
- UOP_FLAG_Play_Backwards = $200;
- {$EXTERNALSYM UOP_FLAG_Play_Backwards}
- UOP_FLAG_ShowMenu_Title = $400;
- {$EXTERNALSYM UOP_FLAG_ShowMenu_Title}
- UOP_FLAG_ShowMenu_Root = $800;
- {$EXTERNALSYM UOP_FLAG_ShowMenu_Root}
- UOP_FLAG_ShowMenu_SubPic = $1000;
- {$EXTERNALSYM UOP_FLAG_ShowMenu_SubPic}
- UOP_FLAG_ShowMenu_Audio = $2000;
- {$EXTERNALSYM UOP_FLAG_ShowMenu_Audio}
- UOP_FLAG_ShowMenu_Angle = $4000;
- {$EXTERNALSYM UOP_FLAG_ShowMenu_Angle}
- UOP_FLAG_ShowMenu_Chapter = $8000;
- {$EXTERNALSYM UOP_FLAG_ShowMenu_Chapter}
- UOP_FLAG_Resume = $10000;
- {$EXTERNALSYM UOP_FLAG_Resume}
- UOP_FLAG_Select_Or_Activate_Button = $20000;
- {$EXTERNALSYM UOP_FLAG_Select_Or_Activate_Button}
- UOP_FLAG_Still_Off = $40000;
- {$EXTERNALSYM UOP_FLAG_Still_Off}
- UOP_FLAG_Pause_On = $80000;
- {$EXTERNALSYM UOP_FLAG_Pause_On}
- UOP_FLAG_Select_Audio_Stream = $100000;
- {$EXTERNALSYM UOP_FLAG_Select_Audio_Stream}
- UOP_FLAG_Select_SubPic_Stream = $200000;
- {$EXTERNALSYM UOP_FLAG_Select_SubPic_Stream}
- UOP_FLAG_Select_Angle = $400000;
- {$EXTERNALSYM UOP_FLAG_Select_Angle}
- UOP_FLAG_Select_Karaoke_Audio_Presentation_Mode = $800000;
- {$EXTERNALSYM UOP_FLAG_Select_Karaoke_Audio_Presentation_Mode}
- UOP_FLAG_Select_Video_Mode_Preference = $1000000;
- {$EXTERNALSYM UOP_FLAG_Select_Video_Mode_Preference}
- type
- DVD_TextCharSet = (
- DVD_CharSet_Unicode,
- DVD_CharSet_ISO646,
- DVD_CharSet_JIS_Roman_Kanji,
- DVD_CharSet_ISO8859_1,
- DVD_CharSet_ShiftJIS_Kanji_Roman_Katakana
- );
- {$EXTERNALSYM DVD_TextCharSet}
- TDVDTextCharSet = DVD_TextCharSet;
- const
- DVD_TITLE_MENU = $000;
- {$EXTERNALSYM DVD_TITLE_MENU}
- DVD_STREAM_DATA_CURRENT = $800;
- {$EXTERNALSYM DVD_STREAM_DATA_CURRENT}
- DVD_STREAM_DATA_VMGM = $400;
- {$EXTERNALSYM DVD_STREAM_DATA_VMGM}
- DVD_STREAM_DATA_VTSM = $401;
- {$EXTERNALSYM DVD_STREAM_DATA_VTSM}
- DVD_DEFAULT_AUDIO_STREAM = $0f ;
- {$EXTERNALSYM DVD_DEFAULT_AUDIO_STREAM}
- type
- tagDVD_DECODER_CAPS = record
- dwSize : DWORD;
- dwAudioCaps : DWORD;
- dFwdMaxRateVideo : double;
- dFwdMaxRateAudio : double;
- dFwdMaxRateSP : double;
- dBwdMaxRateVideo : double;
- dBwdMaxRateAudio : double;
- dBwdMaxRateSP : double;
- dwRes1 : DWORD;
- dwRes2 : DWORD;
- dwRes3 : DWORD;
- dwRes4 : DWORD;
- end;
- {$EXTERNALSYM tagDVD_DECODER_CAPS}
- DVD_DECODER_CAPS = tagDVD_DECODER_CAPS;
- {$EXTERNALSYM DVD_DECODER_CAPS}
- TDVDDecoderCaps = tagDVD_DECODER_CAPS;
- const
- DVD_AUDIO_CAPS_AC3 = $00000001;
- {$EXTERNALSYM DVD_AUDIO_CAPS_AC3}
- DVD_AUDIO_CAPS_MPEG2 = $00000002;
- {$EXTERNALSYM DVD_AUDIO_CAPS_MPEG2}
- DVD_AUDIO_CAPS_LPCM = $00000004;
- {$EXTERNALSYM DVD_AUDIO_CAPS_LPCM}
- DVD_AUDIO_CAPS_DTS = $00000008;
- {$EXTERNALSYM DVD_AUDIO_CAPS_DTS}
- DVD_AUDIO_CAPS_SDDS = $00000010;
- {$EXTERNALSYM DVD_AUDIO_CAPS_SDDS}
- type
- tagDVD_VideoAttributes = record
- fPanscanPermitted : BOOL;
- fLetterboxPermitted : BOOL;
- ulAspectX : ULONG;
- ulAspectY : ULONG;
- ulFrameRate : ULONG;
- ulFrameHeight : ULONG;
- Compression : DVD_VIDEO_COMPRESSION;
- fLine21Field1InGOP : BOOL;
- fLine21Field2InGOP : BOOL;
- ulSourceResolutionX : ULONG;
- ulSourceResolutionY : ULONG;
- fIsSourceLetterboxed : BOOL;
- fIsFilmMode : BOOL;
- end;
- {$EXTERNALSYM tagDVD_VideoAttributes}
- DVD_VideoAttributes = tagDVD_VideoAttributes;
- {$EXTERNALSYM DVD_VideoAttributes}
- TDVDVideoAttributes = tagDVD_VideoAttributes;
- tagDVD_SubpictureAttributes = record
- Type_ : DVD_SUBPICTURE_TYPE ;
- CodingMode : DVD_SUBPICTURE_CODING ;
- Language : LCID ;
- LanguageExtension : DVD_SUBPICTURE_LANG_EXT ;
- end;
- {$EXTERNALSYM tagDVD_SubpictureAttributes}
- DVD_SubpictureAttributes = tagDVD_SubpictureAttributes;
- {$EXTERNALSYM DVD_SubpictureAttributes}
- TDVDSubpictureAttributes = tagDVD_SubpictureAttributes;
- tagDVD_TITLE_APPMODE = (
- {$IFNDEF COMPILER6_UP}
- DVD_AppMode_Not_Specified,
- DVD_AppMode_Karaoke,
- DVD_AppMode_INVALID_2,
- DVD_AppMode_Other
- {$ELSE}
- DVD_AppMode_Not_Specified = 0,
- DVD_AppMode_Karaoke = 1,
- DVD_AppMode_Other = 3
- {$ENDIF}
- );
- {$EXTERNALSYM tagDVD_TITLE_APPMODE}
- DVD_TITLE_APPMODE = tagDVD_TITLE_APPMODE;
- {$EXTERNALSYM DVD_TITLE_APPMODE}
- TDVDTitleAPPMode = DVD_TITLE_APPMODE;
- tagDVD_MUA_MixingInfo = record
- fMixTo0 : BOOL;
- fMixTo1 : BOOL;
- fMix0InPhase : BOOL;
- fMix1InPhase : BOOL;
- dwSpeakerPosition : DWORD;
- end;
- {$EXTERNALSYM tagDVD_MUA_MixingInfo}
- DVD_MUA_MixingInfo = tagDVD_MUA_MixingInfo;
- {$EXTERNALSYM DVD_MUA_MixingInfo}
- TDVDMUAMixingInfo = tagDVD_MUA_MixingInfo;
- tagDVD_MUA_Coeff = record
- log2_alpha : Double;
- log2_beta : Double;
- end;
- {$EXTERNALSYM tagDVD_MUA_Coeff}
- DVD_MUA_Coeff = tagDVD_MUA_Coeff;
- {$EXTERNALSYM DVD_MUA_Coeff}
- TDVDMUACoeff = tagDVD_MUA_Coeff;
- tagDVD_MultichannelAudioAttributes = record
- Info : array[0..7] of DVD_MUA_MixingInfo;
- Coeff : array[0..7] of DVD_MUA_Coeff;
- end;
- {$EXTERNALSYM tagDVD_MultichannelAudioAttributes}
- DVD_MultichannelAudioAttributes = tagDVD_MultichannelAudioAttributes;
- {$EXTERNALSYM DVD_MultichannelAudioAttributes}
- TDVDMultichannelAudioAttributes = tagDVD_MultichannelAudioAttributes;
- // DVD_KARAOKE_CONTENTS
- const
- DVD_Karaoke_GuideVocal1 = $1;
- {$EXTERNALSYM DVD_Karaoke_GuideVocal1}
- DVD_Karaoke_GuideVocal2 = $2;
- {$EXTERNALSYM DVD_Karaoke_GuideVocal2}
- DVD_Karaoke_GuideMelody1 = $4;
- {$EXTERNALSYM DVD_Karaoke_GuideMelody1}
- DVD_Karaoke_GuideMelody2 = $8;
- {$EXTERNALSYM DVD_Karaoke_GuideMelody2}
- DVD_Karaoke_GuideMelodyA = $10;
- {$EXTERNALSYM DVD_Karaoke_GuideMelodyA}
- DVD_Karaoke_GuideMelodyB = $20;
- {$EXTERNALSYM DVD_Karaoke_GuideMelodyB}
- DVD_Karaoke_SoundEffectA = $40;
- {$EXTERNALSYM DVD_Karaoke_SoundEffectA}
- DVD_Karaoke_SoundEffectB = $80;
- {$EXTERNALSYM DVD_Karaoke_SoundEffectB}
- type
- tagDVD_AudioAttributes = record
- AppMode : DVD_AUDIO_APPMODE;
- AppModeData : BYTE;
- AudioFormat : DVD_AUDIO_FORMAT;
- Language : LCID;
- LanguageExtension : DVD_AUDIO_LANG_EXT;
- fHasMultichannelInfo : BOOL;
- dwFrequency : DWORD;
- bQuantization : BYTE;
- bNumberOfChannels : BYTE;
- dwReserved : array[0..1] of DWORD;
- end;
- {$EXTERNALSYM tagDVD_AudioAttributes}
- DVD_AudioAttributes = tagDVD_AudioAttributes;
- {$EXTERNALSYM DVD_AudioAttributes}
- TDVDAudioAttributes = tagDVD_AudioAttributes;
- tagDVD_TitleMainAttributes = record
- AppMode: DVD_TITLE_APPMODE ;
- VideoAttributes : DVD_VideoAttributes;
- ulNumberOfAudioStreams : ULONG ;
- AudioAttributes : array[0..7] of DVD_AudioAttributes;
- MultichannelAudioAttributes : array[0..7] of DVD_MultichannelAudioAttributes;
- ulNumberOfSubpictureStreams : ULONG ;
- SubpictureAttributes : array[0..31] of DVD_SubpictureAttributes;
- end;
- {$EXTERNALSYM tagDVD_TitleMainAttributes}
- DVD_TitleAttributes = tagDVD_TitleMainAttributes;
- {$EXTERNALSYM DVD_TitleAttributes}
- TDVDTitleAttributes = tagDVD_TitleMainAttributes;
- tagDVD_MenuAttributes = record
- fCompatibleRegion : array[0..7] of BOOL;
- VideoAttributes : DVD_VideoAttributes;
- fAudioPresent : BOOL;
- AudioAttributes : DVD_AudioAttributes;
- fSubpicturePresent : BOOL;
- SubpictureAttributes : DVD_SubpictureAttributes;
- end;
- {$EXTERNALSYM tagDVD_MenuAttributes}
- DVD_MenuAttributes = tagDVD_MenuAttributes;
- {$EXTERNALSYM DVD_MenuAttributes}
- TDVDMenuAttributes = tagDVD_MenuAttributes;
- tagDVD_KaraokeAttributes = record
- bVersion : BYTE;
- fMasterOfCeremoniesInGuideVocal1 : BOOL;
- fDuet : BOOL;
- ChannelAssignment : TDVDKaraokeAssignment;
- wChannelContents : array[0..7] of WORD;
- end;
- {$EXTERNALSYM tagDVD_KaraokeAttributes}
- DVD_KaraokeAttributes = tagDVD_KaraokeAttributes;
- {$EXTERNALSYM DVD_KaraokeAttributes}
- TDVDKaraokeAttributes = tagDVD_KaraokeAttributes;
- const
- DVD_PARENTAL_LEVEL_8 = $8000;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_8}
- DVD_PARENTAL_LEVEL_7 = $4000;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_7}
- DVD_PARENTAL_LEVEL_6 = $2000;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_6}
- DVD_PARENTAL_LEVEL_5 = $1000;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_5}
- DVD_PARENTAL_LEVEL_4 = $0800;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_4}
- DVD_PARENTAL_LEVEL_3 = $0400;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_3}
- DVD_PARENTAL_LEVEL_2 = $0200;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_2}
- DVD_PARENTAL_LEVEL_1 = $0100;
- {$EXTERNALSYM DVD_PARENTAL_LEVEL_1}
- type
- DVD_CMD_FLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD;
- {$EXTERNALSYM DVD_CMD_FLAGS}
- const
- DVD_CMD_FLAG_None = $00000000;
- {$EXTERNALSYM DVD_CMD_FLAG_None}
- DVD_CMD_FLAG_Flush = $00000001;
- {$EXTERNALSYM DVD_CMD_FLAG_Flush}
- DVD_CMD_FLAG_SendEvents = $00000002;
- {$EXTERNALSYM DVD_CMD_FLAG_SendEvents}
- DVD_CMD_FLAG_Block = $00000004;
- {$EXTERNALSYM DVD_CMD_FLAG_Block}
- DVD_CMD_FLAG_StartWhenRendered = $00000008;
- {$EXTERNALSYM DVD_CMD_FLAG_StartWhenRendered}
- DVD_CMD_FLAG_EndAfterRendered = $00000010;
- {$EXTERNALSYM DVD_CMD_FLAG_EndAfterRendered}
- type
- CountryCode = array[0..1] of BYTE;
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdState> _di_IDvdState;'}
- {$EXTERNALSYM IDvdState}
- IDvdState = interface(IUnknown)
- ['{86303d6d-1c4a-4087-ab42-f711167048ef}']
- (*** IDvdState methods ***)
- function GetDiscID(out pullUniqueID: Double): HResult; stdcall;
- function GetParentalLevel(out pulParentalLevel: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdCmd> _di_IDvdCmd;'}
- {$EXTERNALSYM IDvdCmd}
- IDvdCmd = interface(IUnknown)
- ['{5A4A97E4-94EE-4A55-9751-74B5643AA27D}']
- (*** IDvdCmd methods ***)
- function WaitForStart: HResult; stdcall;
- function WaitForEnd: HResult; stdcall;
- end;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdControl> _di_IDvdControl;'}
- {$EXTERNALSYM IDvdControl}
- IDvdControl = interface(IUnknown)
- ['{A70EFE61-E2A3-11D0-A9BE-00AA0061BE93}']
- (*** IDvdControl methods ***)
- function TitlePlay(uiTitle: ULONG): HResult; stdcall;
- function ChapterPlay(uiTitle: ULONG; uiChapter: ULONG): HResult; stdcall;
- function TimePlay(uiTitle: ULONG; bcdTime: ULONG): HResult; stdcall;
- function StopForResume: HResult; stdcall;
- function GoUp: HResult; stdcall;
- function TimeSearch(bcdTime: ULONG): HResult; stdcall;
- function ChapterSearch(Chapter: ULONG): HResult; stdcall;
- function PrevPGSearch: HResult; stdcall;
- function TopPGSearch: HResult; stdcall;
- function NextPGSearch: HResult; stdcall;
- function ForwardScan(dwSpeed: double): HResult; stdcall;
- function BackwardScan(dwSpeed: double): HResult; stdcall;
- function MenuCall(MenuID: TDVDMenuID): HResult; stdcall;
- function Resume: HResult; stdcall;
- function UpperButtonSelect: HResult; stdcall;
- function LowerButtonSelect: HResult; stdcall;
- function LeftButtonSelect: HResult; stdcall;
- function RightButtonSelect: HResult; stdcall;
- function ButtonActivate: HResult; stdcall;
- function ButtonSelectAndActivate(uiButton: ULONG): HResult; stdcall;
- function StillOff: HResult; stdcall;
- function PauseOn: HResult; stdcall;
- function PauseOff: HResult; stdcall;
- function MenuLanguageSelect(Language: LCID): HResult; stdcall;
- function AudioStreamChange(nAudio: ULONG): HResult; stdcall;
- function SubpictureStreamChange(nSubPicture: ULONG; bDisplay: BOOL): HResult; stdcall;
- function AngleChange(ulAngle: ULONG): HResult; stdcall;
- function ParentalLevelSelect(ulParentalLevel: ULONG): HResult; stdcall;
- function ParentalCountrySelect(wCountry: Word): HResult; stdcall;
- function KaraokeAudioPresentationModeChange(ulMode: ULONG): HResult; stdcall;
- function VideoModePreferrence(ulPreferredDisplayMode: ULONG): HResult; stdcall;
- function SetRoot(pszPath: LPCWSTR): HResult; stdcall;
- function MouseActivate(point: TPoint): HResult; stdcall;
- function MouseSelect(point: TPoint): HResult; stdcall;
- function ChapterPlayAutoStop(ulTitle, ulChapter, ulChaptersToPlay: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdControl2> _di_IDvdControl2;'}
- {$EXTERNALSYM IDvdControl2}
- IDvdControl2 = interface(IUnknown)
- ['{33BC7430-EEC0-11D2-8201-00A0C9D74842}']
- (*** IDvdControl2 methods ***)
- function PlayTitle(ulTitle, dwFlags: ULONG; var ppCmd: IDvdCmd): HResult; stdcall;
- function PlayChapterInTitle(ulTitle, ulChapter: ULONG; dwFlags: DWORD; var ppCmd: IDvdCmd): HResult; stdcall;
- function PlayAtTimeInTitle(ulTitle: ULONG; var pStartTime: TDVDHMSFTimeCode; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function Stop: HResult; stdcall;
- function ReturnFromSubmenu(dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayAtTime(pTime: PDVDHMSFTimeCode; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayChapter(ulChapter: ULONG; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayPrevChapter(dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function ReplayChapter(dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayNextChapter(dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayForwards(dSpeed: double; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayBackwards(dSpeed: double; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function ShowMenu(MenuID: TDVDMenuID; dwFlags: DVD_CMD_FLAGS;out ppCmd: IDvdCmd): HResult; stdcall;
- function Resume(dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SelectRelativeButton(buttonDir: TDVDRelativeButton): HResult; stdcall;
- function ActivateButton: HResult; stdcall;
- function SelectButton(ulButton: ULONG): HResult; stdcall;
- function SelectAndActivateButton(ulButton: ULONG): HResult; stdcall;
- function StillOff: HResult; stdcall;
- function Pause(bState: BOOL): HResult; stdcall;
- function SelectAudioStream(ulAudio: ULONG; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SelectSubpictureStream(ulSubPicture: ULONG; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SetSubpictureState(bState: BOOL; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SelectAngle(ulAngle: ULONG; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SelectParentalLevel(ulParentalLevel: ULONG): HResult; stdcall;
- function SelectParentalCountry(bCountry: CountryCode): HResult; stdcall;
- function SelectKaraokeAudioPresentationMode(ulMode: ULONG): HResult; stdcall;
- function SelectVideoModePreference(ulPreferredDisplayMode: ULONG): HResult; stdcall;
- function SetDVDDirectory(pszwPath: LPCWSTR): HResult; stdcall;
- function ActivateAtPosition(point: TPoint): HResult; stdcall;
- function SelectAtPosition(point : TPoint): HResult; stdcall;
- function PlayChaptersAutoStop(ulTitle, ulChapter, ulChaptersToPlay: ULONG; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function AcceptParentalLevelChange(bAccept: BOOL): HResult; stdcall;
- function SetOption(flag: TDVDOptionFlag; fState: BOOL): HResult; stdcall;
- function SetState(pState: IDvdState; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function PlayPeriodInTitleAutoStop(ulTitle: ULONG; var pStartTime, pEndTime: TDVDHMSFTimeCode; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SetGPRM(ulIndex: ULONG; wValue: WORD; dwFlags: DWORD; out ppCmd: IDvdCmd): HResult; stdcall;
- function SelectDefaultMenuLanguage(Language: LCID): HResult; stdcall;
- function SelectDefaultAudioLanguage(Language: LCID; audioExtension: TDVDAudioLangExt): HResult; stdcall;
- function SelectDefaultSubpictureLanguage(Language: LCID; subpictureExtension: TDVDSubpictureLangExt): HResult; stdcall;
- end;
- //Deprecated Interface
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdInfo> _di_IDvdInfo;'}
- {$EXTERNALSYM IDvdInfo}
- IDvdInfo = interface(IUnknown)
- ['{A70EFE60-E2A3-11D0-A9BE-00AA0061BE93}']
- (*** IDvdInfo methods ***)
- function GetCurrentDomain(out pDomain: TDVDDomain): HResult; stdcall;
- function GetCurrentLocation(out pLocation: TDVDPlaybackLocation): HResult; stdcall;
- function GetTotalTitleTime(out pTotalTime: ULONG): HResult; stdcall;
- function GetCurrentButton(out pnButtonsAvailable, pnCurrentButton: ULONG): HResult; stdcall;
- function GetCurrentAngle(out pnAnglesAvailable, pnCurrentAngle: ULONG): HResult; stdcall;
- function GetCurrentAudio(out pnStreamsAvailable, pnCurrentStream: ULONG): HResult; stdcall;
- function GetCurrentSubpicture(out pnStreamsAvailable, pnCurrentStream: ULONG;
- out pIsDisabled: BOOL): HResult; stdcall;
- function GetCurrentUOPS(out pUOP: VALID_UOP_SOMTHING_OR_OTHER): HResult; stdcall;
- function GetAllSPRMs(var pRegisterArray: TSPRMArray): HResult; stdcall;
- function GetAllGPRMs(var pRegisterArray: GPRMArray): HResult; stdcall;
- function GetAudioLanguage(nStream: ULONG; out pLanguage: LCID): HResult; stdcall;
- function GetSubpictureLanguage(nStream: ULONG; out pLanguage: LCID): HResult; stdcall;
- function GetTitleAttributes(nTitle: ULONG; out pATR: TDVDAtr): HResult; stdcall;
- function GetVMGAttributes(out pATR: TDVDAtr): HResult; stdcall;
- function GetCurrentVideoAttributes(out pATR: DVD_VideoATR): HResult; stdcall;
- function GetCurrentAudioAttributes(out pATR: DVD_AudioATR): HResult; stdcall;
- function GetCurrentSubpictureAttributes(out pATR: DVD_SubpictureATR): HResult; stdcall;
- function GetCurrentVolumeInfo(out pNumOfVol, pThisVolNum: ULONG;
- out pSide: TDVDDiscSide; out pNumOfTitles: ULONG): HResult; stdcall;
- function GetDVDTextInfo(out pTextManager: Byte; cbBufSize: ULONG;
- out pcbActualSize: ULONG): HResult; stdcall;
- function GetPlayerParentalLevel(out pParentalLevel, pCountryCode: ULONG): HResult; stdcall;
- function GetNumberOfChapters(ulTitle: ULONG; out pNumberOfChapters: ULONG): HResult; stdcall;
- function GetTitleParentalLevels(ulTitle: ULONG; out pParentalLevels: ULONG): HResult; stdcall;
- function GetRoot(pRoot: PChar; cbBufSize: ULONG; out pcbActualSize: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdInfo2> _di_IDvdInfo2;'}
- {$EXTERNALSYM IDvdInfo2}
- IDvdInfo2 = interface(IUnknown)
- ['{34151510-EEC0-11D2-8201-00A0C9D74842}']
- (*** IDvdInfo2 methods ***)
- function GetCurrentDomain(out pDomain: TDVDDomain): HResult; stdcall;
- function GetCurrentLocation(out pLocation: TDVDPlaybackLocation2): HResult; stdcall;
- function GetTotalTitleTime(out pTotalTime: TDVDHMSFTimeCode; out ulTimeCodeFlags: ULONG): HResult; stdcall;
- function GetCurrentButton(out pulButtonsAvailable, pulCurrentButton: ULONG): HResult; stdcall;
- function GetCurrentAngle(out pulAnglesAvailable, pulCurrentAngle: ULONG): HResult; stdcall;
- function GetCurrentAudio(out pulStreamsAvailable, pulCurrentStream: ULONG): HResult; stdcall;
- function GetCurrentSubpicture(out pulStreamsAvailable, pulCurrentStream: ULONG; out pbIsDisabled: BOOL): HResult; stdcall;
- function GetCurrentUOPS(out pulUOPs: ULONG): HResult; stdcall;
- function GetAllSPRMs(out pRegisterArray: TSPRMArray): HResult; stdcall;
- function GetAllGPRMs(out pRegisterArray: GPRMArray): HResult; stdcall;
- function GetAudioLanguage(ulStream: ULONG; out pLanguage: LCID): HResult; stdcall;
- function GetSubpictureLanguage(ulStream: ULONG; out pLanguage: LCID): HResult; stdcall;
- function GetTitleAttributes(ulTitle: ULONG; out pMenu: TDVDMenuAttributes; out pTitle: TDVDTitleAttributes): HResult; stdcall;
- function GetVMGAttributes(out pATR: TDVDMenuAttributes): HResult; stdcall;
- function GetCurrentVideoAttributes(out pATR: TDVDVideoAttributes): HResult; stdcall;
- function GetAudioAttributes(ulStream: ULONG; out pATR: TDVDAudioAttributes): HResult; stdcall;
- function GetKaraokeAttributes(ulStream: ULONG; out pAttributes: TDVDKaraokeAttributes): HResult; stdcall;
- function GetSubpictureAttributes(ulStream :ULONG; out pATR: TDVDSubpictureAttributes): HResult; stdcall;
- function GetDVDVolumeInfo(out pulNumOfVolumes, pulVolume: ULONG; out pSide: TDVDDiscSide; out pulNumOfTitles: ULONG): HResult; stdcall;
- function GetDVDTextNumberOfLanguages(out pulNumOfLangs: ULONG): HResult; stdcall;
- function GetDVDTextLanguageInfo(ulLangIndex: ULONG; out pulNumOfStrings: ULONG; out pLangCode: LCID; out pbCharacterSet: TDVDTextCharSet): HResult; stdcall;
- function GetDVDTextStringAsNative(ulLangIndex, ulStringIndex: ULONG; out pbBuffer; ulMaxBufferSize: ULONG; out pulActualSize: ULONG; out pType: TDVDTextStringType): HResult; stdcall;
- function GetDVDTextStringAsUnicode(ulLangIndex, ulStringIndex: ULONG; out pchwBuffer; ulMaxBufferSize: ULONG; out pulActualSize: ULONG; out pType: TDVDTextStringType): HResult; stdcall;
- function GetPlayerParentalLevel(out pulParentalLevel: ULONG; out pbCountryCode: CountryCode): HResult; stdcall;
- function GetNumberOfChapters(ulTitle: ULONG; out pulNumOfChapters: ULONG): HResult; stdcall;
- function GetTitleParentalLevels(ulTitle: ULONG; out pulParentalLevels: ULONG): HResult; stdcall;
- function GetDVDDirectory(out pszwPath; ulMaxSize: ULONG; out pulActualSize: ULONG): HResult; stdcall;
- function IsAudioStreamEnabled(ulStreamNum: ULONG; out pbEnabled: BOOL): HResult; stdcall;
- function GetDiscID(pszwPath: LPCWSTR; out pullDiscID: Int64): HResult; stdcall;
- function GetState(out pStateData: IDvdState): HResult; stdcall;
- function GetMenuLanguages(out pLanguages: LCID; ulMaxLanguages: ULONG; out pulActualLanguages: ULONG): HResult; stdcall;
- function GetButtonAtPosition(point: Tpoint;out pulButtonIndex: ULONG): HResult; stdcall;
- function GetCmdFromEvent(lParam1: integer; out pCmdObj: IDvdCmd): HResult; stdcall;
- function GetDefaultMenuLanguage(out pLanguage: LCID): HResult; stdcall;
- function GetDefaultAudioLanguage(out pLanguage: LCID; out pAudioExtension: TDVDAudioLangExt): HResult; stdcall;
- function GetDefaultSubpictureLanguage(out pLanguage: LCID; out pSubpictureExtension: TDVDSubpictureLangExt): HResult; stdcall;
- function GetDecoderCaps(out pCaps: TDVDDecoderCaps): HResult; stdcall;
- function GetButtonRect(ulButton: ULONG; out pRect: TRect): HResult; stdcall;
- function IsSubpictureStreamEnabled(ulStreamNum: ULONG; out pbEnabled: BOOL): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVideoFrameStep> _di_IVideoFrameStep;'}
- {$EXTERNALSYM IVideoFrameStep}
- IVideoFrameStep = interface(IUnknown)
- ['{e46a9787-2b71-444d-a4b5-1fab7b708d6a}']
- (*** IVideoFrameStep methods ***)
- function Step(dwFrames: DWORD; pStepObject: IUnKnown): HResult; stdcall;
- function CanStep(bMultiple: longint; pStepObject: IUnknown): HResult; stdcall;
- function CancelStep: HResult; stdcall;
- end;
- const
- AM_DVD_HWDEC_PREFER = $01; // default
- {$EXTERNALSYM AM_DVD_HWDEC_PREFER}
- AM_DVD_HWDEC_ONLY = $02;
- {$EXTERNALSYM AM_DVD_HWDEC_ONLY}
- AM_DVD_SWDEC_PREFER = $04;
- {$EXTERNALSYM AM_DVD_SWDEC_PREFER}
- AM_DVD_SWDEC_ONLY = $08;
- {$EXTERNALSYM AM_DVD_SWDEC_ONLY}
- AM_DVD_NOVPE = $100;
- {$EXTERNALSYM AM_DVD_NOVPE}
- // DirectX9 Specific
- AM_DVD_VMR9_ONLY = $800; // only use VMR9 (otherwise fail) for rendering
- {$EXTERNALSYM AM_DVD_VMR9_ONLY}
- AM_DVD_STREAM_VIDEO = $1;
- {$EXTERNALSYM AM_DVD_STREAM_VIDEO}
- AM_DVD_STREAM_AUDIO = $2;
- {$EXTERNALSYM AM_DVD_STREAM_AUDIO}
- AM_DVD_STREAM_SUBPIC = $4;
- {$EXTERNALSYM AM_DVD_STREAM_SUBPIC}
- type
- AM_DVD_RENDERSTATUS = record
- hrVPEStatus: HResult;
- bDvdVolInvalid: BOOL;
- bDvdVolUnknown: BOOL;
- bNoLine21In: BOOL;
- bNoLine21Out: BOOL;
- iNumStreams: Integer;
- iNumStreamsFailed: Integer;
- dwFailedStreamsFlag: DWORD;
- end;
- {$EXTERNALSYM AM_DVD_RENDERSTATUS}
- TAMDVDRenderStatus = AM_DVD_RENDERSTATUS;
- {$HPPEMIT 'typedef System::DelphiInterface<IDvdGraphBuilder> _di_IDvdGraphBuilder;'}
- {$EXTERNALSYM IDvdGraphBuilder}
- IDvdGraphBuilder = interface(IUnknown)
- ['{FCC152B6-F372-11d0-8E00-00C04FD7C08B}']
- (*** IDvdGraphBuilder methods ***)
- function GetFiltergraph(out ppGB: IGraphBuilder): HResult; stdcall;
- function GetDvdInterface(const riid: TGUID; out ppvIF): HResult; stdcall;
- function RenderDvdVideoVolume(lpcwszPathName: PWideChar; dwFlags: DWORD;
- out pStatus: TAMDVDRenderStatus): HResult; stdcall;
- end;
- //_AM_OVERLAY_NOTIFY_FLAGS
- const
- AM_OVERLAY_NOTIFY_VISIBLE_CHANGE = $1;
- {$EXTERNALSYM AM_OVERLAY_NOTIFY_VISIBLE_CHANGE}
- AM_OVERLAY_NOTIFY_SOURCE_CHANGE = $2;
- {$EXTERNALSYM AM_OVERLAY_NOTIFY_SOURCE_CHANGE}
- AM_OVERLAY_NOTIFY_DEST_CHANGE = $4;
- {$EXTERNALSYM AM_OVERLAY_NOTIFY_DEST_CHANGE}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDDrawExclModeVideoCallback> _di_IDDrawExclModeVideoCallback;'}
- {$EXTERNALSYM IDDrawExclModeVideoCallback}
- IDDrawExclModeVideoCallback = interface(IUnknown)
- ['{913c24a0-20ab-11d2-9038-00a0c9697298}']
- (*** IDDrawExclModeVideoCallback methods ***)
- function OnUpdateOverlay(bBefore: BOOL; dwFlags: DWORD; bOldVisible: BOOL;
- var prcOldSrc, prcOldDest: TRECT; bNewVisible: BOOL; var prcNewSrc, prcNewDest: TRECT): HResult; stdcall;
- function OnUpdateColorKey(var pKey: TCOLORKEY; dwColor: DWORD): HResult; stdcall;
- function OnUpdateSize(dwWidth, dwHeight, dwARWidth, dwARHeight: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDDrawExclModeVideo> _di_IDDrawExclModeVideo;'}
- {$EXTERNALSYM IDDrawExclModeVideo}
- IDDrawExclModeVideo = interface(IUnknown)
- ['{153ACC21-D83B-11d1-82BF-00A0C9696C8F}']
- (*** IDDrawExclModeVideo methods ***)
- function SetDDrawObject(pDDrawObject: IDirectDraw): HResult; stdcall;
- function GetDDrawObject(out ppDDrawObject: IDirectDraw; out pbUsingExternal: BOOL): HResult; stdcall;
- function SetDDrawSurface(pDDrawSurface: IDirectDrawSurface): HResult; stdcall;
- function GetDDrawSurface(out ppDDrawSurface: IDirectDrawSurface; out pbUsingExternal: BOOL): HResult; stdcall;
- function SetDrawParameters(prcSource, prcTarget: PRECT): HResult; stdcall;
- function GetNativeVideoProps(out pdwVideoWidth, pdwVideoHeight, pdwPictAspectRatioX,pdwPictAspectRatioY: DWORD): HResult; stdcall;
- function SetCallbackInterface(pCallback: IDDrawExclModeVideoCallback; dwFlags: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IPinConnection> _di_IPinConnection;'}
- {$EXTERNALSYM IPinConnection}
- IPinConnection = interface(IUnknown)
- ['{4a9a62d3-27d4-403d-91e9-89f540e55534}']
- (*** IPinConnection methods ***)
- function DynamicQueryAccept(var pmt: TAMMediaType): HResult; stdcall;
- function NotifyEndOfStream(hNotifyEvent: THandle): HResult; stdcall;
- function IsEndPin: HResult; stdcall;
- function DynamicDisconnect: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IPinFlowControl> _di_IPinFlowControl;'}
- {$EXTERNALSYM IPinFlowControl}
- IPinFlowControl = interface(IUnknown)
- ['{c56e9858-dbf3-4f6b-8119-384af2060deb}']
- (*** IPinFlowControl methods ***)
- function Block(dwBlockFlags: DWORD; hEvent: THandle): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IGraphConfigCallback> _di_IGraphConfigCallback;'}
- {$EXTERNALSYM IGraphConfigCallback}
- IGraphConfigCallback = interface(IUnknown)
- ['{ade0fd60-d19d-11d2-abf6-00a0c905f375}']
- (*** IGraphConfigCallback methods ***)
- function Reconfigure(var pvContext; dwFlags: DWORD): HResult; stdcall;
- end;
- const
- //_AM_PIN_FLOW_CONTROL_BLOCK_FLAGS
- AM_PIN_FLOW_CONTROL_BLOCK = $1;
- {$EXTERNALSYM AM_PIN_FLOW_CONTROL_BLOCK}
- //_AM_GRAPH_CONFIG_RECONNECT_FLAGS
- AM_GRAPH_CONFIG_RECONNECT_DIRECTCONNECT = $1;
- {$EXTERNALSYM AM_GRAPH_CONFIG_RECONNECT_DIRECTCONNECT}
- AM_GRAPH_CONFIG_RECONNECT_CACHE_REMOVED_FILTERS = $2;
- {$EXTERNALSYM AM_GRAPH_CONFIG_RECONNECT_CACHE_REMOVED_FILTERS}
- AM_GRAPH_CONFIG_RECONNECT_USE_ONLY_CACHED_FILTERS = $4;
- {$EXTERNALSYM AM_GRAPH_CONFIG_RECONNECT_USE_ONLY_CACHED_FILTERS}
- //_AM_FILTER_FLAGS
- AM_FILTER_FLAGS_REMOVABLE = $1;
- {$EXTERNALSYM AM_FILTER_FLAGS_REMOVABLE}
- //_REM_FILTER_FLAGS
- REMFILTERF_LEAVECONNECTED = $1;
- {$EXTERNALSYM REMFILTERF_LEAVECONNECTED}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IGraphConfig> _di_IGraphConfig;'}
- {$EXTERNALSYM IGraphConfig}
- IGraphConfig = interface(IUnknown)
- ['{03A1EB8E-32BF-4245-8502-114D08A9CB88}']
- (*** IGraphConfig methods ***)
- function Reconnect(pOutputPin, pInputPin: IPin; pmtFirstConnection: PAMMediaType;
- pUsingFilter: IBaseFilter; hAbortEvent: THandle; dwFlags: DWORD): HResult; stdcall;
- function Reconfigure(pCallback: IGraphConfigCallback; var pvContext;
- dwFlags: DWORD; hAbortEvent: THandle): HResult; stdcall;
- function AddFilterToCache(pFilter: IBaseFilter): HResult; stdcall;
- function EnumCacheFilter(out pEnum: IEnumFilters): HResult; stdcall;
- function RemoveFilterFromCache(pFilter: IBaseFilter): HResult; stdcall;
- function GetStartTime(out prtStart: TReferenceTime): HResult; stdcall;
- function PushThroughData(pOutputPin: IPin; pConnection: IPinConnection; hEventAbort: PHANDLE): HResult; stdcall;
- function SetFilterFlags(pFilter: IBaseFilter; dwFlags: DWORD): HResult; stdcall;
- function GetFilterFlags(pFilter: IBaseFilter; out pdwFlags: DWORD): HResult; stdcall;
- function RemoveFilterEx(pFilter: IBaseFilter; Flags: DWORD): HResult; stdcall;
- end;
- // Filter Chain Definition
- //
- // Filter chains have the following properties:
- //
- // - Each filter chain has one or more filters.
- //
- // - Each filter in a filter chain has at most one connected input pin and one
- // connected output pin. For example, filters A, C, D, F, G, H, I, J and K
- // (see the diagram below) can be in a filter chain because each one has at
- // most one connected input pin and one connected output pin.
- //
- // - Any filter in a chain is reachable by any other filter in the chain.
- // For example, in the filter chain F-G-H, F can reach H by following the F-
- // G connection to G and then following the G-H connection to H. Filters F
- // and J cannot be in the same filter chain because J is not reachable from
- // F. Anotherwords, there no sequence of connected filters between F and J.
- //
- // - The start filter is the only filter in the filter chain who's input
- // pin is not connected to another filter in the chain. For instance, F is
- // the start filter in F-G-H because F's input pin is connected to E and E
- // is not in the filter chain. G's input pin is connected to F and H's is
- // connected to G. Both F and G are in the filter chain.
- //
- // - The end filter is the only filter in the filter chain who's output pin
- // is not connected to another filter in the chain. For example, in the
- // filter chain J-K, K is the end filter because K's output pin is
- // connected to L. J's output pin is connected to K and K is in the J-K
- // filter chain.
- //
- //
- // --->|---| |---|--->
- // | C |--->| D |
- // |---| |---|--->|---| |---|--->|---| |---| |---| |---|
- // | A |--->| B | | E |--->| F |--->| G |--->| H |
- // |---| |---|--->|---|------------>|---| |---| |---| |---|
- // | I |--->
- // --->|---|--->
- //
- // |---| |---| |---|
- // | J |--->| K |--->| L |
- // |---| |---| |---|
- //
- // Example Filter Graph
- //
- //
- //
- // IFilterChain Methods Documentation
- //
- // HResult StartChain( [in] IBaseFilter *pStartFilter, [in] IBaseFilter *pEndFilter );
- //
- // StartChain() switches all the filters in the chain into the running state
- // If one of the filters will not switch to the running state, then all the filters
- // in the chain are stopped. This method can only be called if the filter graph is
- // running.
- //
- // Parameters:
- // - pStartFilter [in]
- // The first filter in the filter chain. Note that this can be the same
- // filter as pEndFilter .
- //
- // - pEndFilter [in]
- // The last filter in the filter chain. Note that this can be the same
- // filter as pStartFilter. If pEndFilter is NULL then the filter chain extends
- // from pStartFilter to the last downstream filter which can be in a filter chain.
- // For example, IFilterChain::StartChain( A, NULL ) would start filter A.
- // IFilterChain::StartChain( G, NULL ) would start filters G and H.
- // IFilterChain::StartChain( C, NULL ) would start filters C and D. Finally,
- // IFilterChain::StartChain( E, NULL ) would fail because E cannot be in a
- // filter chain (see the Filter Chain Definition section for more information).
- //
- // Return Value:
- // An HResult. See the Direct Show SDK and COM SDK documentation for more
- // information on interpreting HRESULTs.
- //
- //
- //
- //
- // HResult PauseChain( [in] IBaseFilter *pStartFilter, [in] IBaseFilter *pEndFilter );
- //
- // PauseChain() switches all the filters in a chain to the paused state. If it cannot
- // switch one of the filtres into the paused state, all the filters in the chain are
- // stopped. This method can only be called if the filter graph is paused.
- //
- // Parameters:
- // - pStartFilter [in]
- // The first filter in the filter chain. Note that this can be the same
- // filter as pEndFilter .
- //
- // - pEndFilter [in]
- // The last filter in the filter chain. Note that this can be the same
- // filter as pStartFilter. If pEndFilter is NULL then the filter chain extends
- // from pStartFilter to the last downstream filter which can be in a filter chain.
- // For example, IFilterChain::StopChain( A, NULL ) would stop filter A.
- // IFilterChain::StopChain( G, NULL ) would stop filters G and H.
- // IFilterChain::StopChain( C, NULL ) would stop filters C and D. Finally,
- // IFilterChain::StopChain( E, NULL ) would fail because E cannot be in a filter
- // chain (see the Filter Chain Definition section for more information).
- //
- //
- // Return Value:
- // An HResult. See the Direct Show SDK and COM SDK documentation for more
- // information on interpreting HRESULTs.
- //
- //
- //
- // HResult StopChain( [in] IBaseFilter *pStartFilter, [in] IBaseFilter *pEndFilter );
- //
- // StopChain() switches all the filters in chain to the stopped state.
- //
- // Parameters:
- // - pStartFilter [in]
- // The first filter in the filter chain. Note that this can be the same
- // filter as pEndFilter .
- //
- // - pEndFilter [in]
- // The last filter in the filter chain. Note that this can be the same
- // filter as pStartFilter. If pEndFilter is NULL then the filter chain extends
- // from pStartFilter to the last downstream filter which can be in a filter chain.
- // For example, IFilterChain::StopChain( A, NULL ) would stop filter A.
- // IFilterChain::StopChain( G, NULL ) would stop filters G and H.
- // IFilterChain::StopChain( C, NULL ) would stop filters C and D. Finally,
- // IFilterChain::StopChain( E, NULL ) would fail because E cannot be in a filter
- // chain (see the Filter Chain Definition section for more information).
- //
- //
- // Return Value:
- // An HResult. See the Direct Show SDK and COM SDK documentation for more
- // information on interpreting HRESULTs.
- //
- //
- //
- //
- //
- // HResult RemoveChain( [in] IBaseFilter *pStartFilter, [in] IBaseFilter *pEndFilter );
- //
- // RemoveChain() removes every filter in a chain from the filter graph.
- // The filters can be removed while the graph is running.
- //
- // Parameters:
- // - pStartFilter [in]
- // The first filter in the filter chain. Note that this can be the same
- // filter as pEndFilter .
- //
- // - pEndFilter [in]
- // The last filter in the filter chain. Note that this can be the same
- // filter as pStartFilter. If pEndFilter is NULL then the filter chain
- // extends from pStartFilter to the last downstream filter which can be in a
- // filter chain. For example, IFilterChain::RemoveChain( A, NULL ) would remove
- // filter A from the filter graph. IFilterChain::RemoveChain( G, NULL ) would
- // remove filters G and H. IFilterChain::RemoveChain( C, NULL ) would remove
- // filters C and D. Finally, IFilterChain::RemoveChain( E, NULL ) would fail
- // because E cannot be in a filter chain (see the Filter Chain Definition
- // section for more information).
- //
- //
- // Return Value:
- // An HResult. See the Direct Show SDK and COM SDK documentation for more
- // information on interpreting HRESULTs.
- //
- //
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterChain> _di_IFilterChain;'}
- {$EXTERNALSYM IFilterChain}
- IFilterChain = interface(IUnknown)
- ['{DCFBDCF6-0DC2-45f5-9AB2-7C330EA09C29}']
- (*** IFilterChain methods ***)
- function StartChain(pStartFilter, pEndFilter: IBaseFilter): HResult; stdcall;
- function PauseChain(pStartFilter, pEndFilter: IBaseFilter): HResult; stdcall;
- function StopChain(pStartFilter, pEndFilter: IBaseFilter): HResult; stdcall;
- function RemoveChain(pStartFilter, pEndFilter: IBaseFilter): HResult; stdcall;
- end;
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Allocator Presenter interfaces
- //
- ///////////////////////////////////////////////////////////////////////////////
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRImagePresenter
- //
- //=====================================================================
- type
- VMRPresentationFlags = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMRPresentationFlags}
- const
- VMRSample_SyncPoint = $00000001;
- {$EXTERNALSYM VMRSample_SyncPoint}
- VMRSample_Preroll = $00000002;
- {$EXTERNALSYM VMRSample_Preroll}
- VMRSample_Discontinuity = $00000004;
- {$EXTERNALSYM VMRSample_Discontinuity}
- VMRSample_TimeValid = $00000008;
- {$EXTERNALSYM VMRSample_TimeValid}
- VMRSample_SrcDstRectsValid = $00000010;
- {$EXTERNALSYM VMRSample_SrcDstRectsValid}
- type
- PVMRPresentationInfo = ^TVMRPresentationInfo;
- tagVMRPRESENTATIONINFO = record
- dwFlags : DWORD;
- lpSurf : IDIRECTDRAWSURFACE7;
- rtStart : TReferenceTime;
- rtEnd : TReferenceTime;
- szAspectRatio : TSIZE;
- rcSrc : TRECT;
- rcDst : TRECT;
- dwTypeSpecificFlags : DWORD;
- dwInterlaceFlags : DWORD;
- end;
- {$EXTERNALSYM tagVMRPRESENTATIONINFO}
- VMRPRESENTATIONINFO = tagVMRPRESENTATIONINFO;
- {$EXTERNALSYM VMRPRESENTATIONINFO}
- TVMRPresentationInfo = tagVMRPRESENTATIONINFO;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImagePresenter> _di_IVMRImagePresenter;'}
- {$EXTERNALSYM IVMRImagePresenter}
- IVMRImagePresenter = interface(IUnknown)
- ['{CE704FE7-E71E-41fb-BAA2-C4403E1182F5}']
- (*** IVMRImagePresenter methods ***)
- function StartPresenting(dwUserID: DWORD): HResult; stdcall;
- function StopPresenting(dwUserID: DWORD): HResult; stdcall;
- function PresentImage(dwUserID: DWORD; lpPresInfo: PVMRPRESENTATIONINFO): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRSurfaceAllocator
- //
- //=====================================================================
- const
- AMAP_PIXELFORMAT_VALID = $01;
- {$EXTERNALSYM AMAP_PIXELFORMAT_VALID}
- AMAP_3D_TARGET = $02;
- {$EXTERNALSYM AMAP_3D_TARGET}
- AMAP_ALLOW_SYSMEM = $04;
- {$EXTERNALSYM AMAP_ALLOW_SYSMEM}
- AMAP_FORCE_SYSMEM = $08;
- {$EXTERNALSYM AMAP_FORCE_SYSMEM}
- AMAP_DIRECTED_FLIP = $10;
- {$EXTERNALSYM AMAP_DIRECTED_FLIP}
- AMAP_NO_EXTRA_BUFFERS = $20;
- {$EXTERNALSYM AMAP_NO_EXTRA_BUFFERS}
- type
- PVMRAllocationInfo = ^TVMRAllocationInfo;
- tagVMRALLOCATIONINFO = record
- dwFlags : DWORD;
- lpHdr : PBITMAPINFOHEADER;
- lpPixFmt : PDDPIXELFORMAT;
- szAspectRatio : TSIZE;
- dwMinBuffers : DWORD;
- dwMaxBuffers : DWORD;
- dwInterlaceFlags : DWORD;
- szNativeSize : TSIZE ;
- end;
- {$EXTERNALSYM tagVMRALLOCATIONINFO}
- VMRALLOCATIONINFO = tagVMRALLOCATIONINFO;
- {$EXTERNALSYM VMRALLOCATIONINFO}
- TVMRAllocationInfo = tagVMRALLOCATIONINFO;
- IVMRSurfaceAllocatorNotify = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRSurfaceAllocator> _di_IVMRSurfaceAllocator;'}
- {$EXTERNALSYM IVMRSurfaceAllocator}
- IVMRSurfaceAllocator = interface(IUnknown)
- ['{31ce832e-4484-458b-8cca-f4d7e3db0b52}']
- (*** IVMRSurfaceAllocator methods ***)
- function AllocateSurface(dwUserID: DWORD; lpAllocInfo: PVMRALLOCATIONINFO;
- var lpdwActualBuffers: DWORD; out lplpSurface: IDIRECTDRAWSURFACE7): HResult; stdcall;
- function FreeSurface(dwID: DWORD): HResult; stdcall;
- function PrepareSurface(dwUserID: DWORD; lpSurface: IDIRECTDRAWSURFACE7;
- dwSurfaceFlags: DWORD): HResult; stdcall;
- function AdviseNotify(lpIVMRSurfAllocNotify: IVMRSurfaceAllocatorNotify): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRSurfaceAllocatorNotify
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRSurfaceAllocatorNotify> _di_IVMRSurfaceAllocatorNotify;'}
- {$EXTERNALSYM IVMRSurfaceAllocatorNotify}
- IVMRSurfaceAllocatorNotify = interface(IUnknown)
- ['{aada05a8-5a4e-4729-af0b-cea27aed51e2}']
- (*** IVMRSurfaceAllocatorNotify methods ***)
- function AdviseSurfaceAllocator(dwUserID: DWORD; lpIVRMSurfaceAllocator: IVMRSurfaceAllocator): HResult; stdcall;
- function SetDDrawDevice(lpDDrawDevice: IDirectDraw7; hMonitor: HMONITOR): HResult; stdcall;
- function ChangeDDrawDevice(lpDDrawDevice: IDIRECTDRAW7; hMonitor: HMONITOR): HResult; stdcall;
- function RestoreDDrawSurfaces: HResult; stdcall;
- function NotifyEvent(EventCode: LongInt; Param1, Param2: LongInt): HResult; stdcall;
- function SetBorderColor(clrBorder: COLORREF): HResult; stdcall;
- end;
- {$ENDIF}
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Application control and configuration interfaces
- //
- ///////////////////////////////////////////////////////////////////////////////
- //=====================================================================
- //
- // IVMRWindowlessControl
- //
- //=====================================================================
- VMR_ASPECT_RATIO_MODE = (
- VMR_ARMODE_NONE,
- VMR_ARMODE_LETTER_BOX
- );
- {$EXTERNALSYM VMR_ASPECT_RATIO_MODE}
- TVMRAspectRatioMode = VMR_ASPECT_RATIO_MODE;
- {$IFDEF ENABLEVMR7}
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRWindowlessControl> _di_IVMRWindowlessControl;'}
- {$EXTERNALSYM IVMRWindowlessControl}
- IVMRWindowlessControl = interface(IUnknown)
- ['{0eb1088c-4dcd-46f0-878f-39dae86a51b7}']
- (*** IVMRWindowlessControl methods ***)
- //////////////////////////////////////////////////////////
- // Video size and position information
- //////////////////////////////////////////////////////////
- function GetNativeVideoSize(out lpWidth, lpHeight, lpARWidth, lpARHeight: LongInt): HResult; stdcall;
- function GetMinIdealVideoSize(out lpWidth, lpHeight: longint): HResult; stdcall;
- function GetMaxIdealVideoSize(out lpWidth, lpHeight: longint): HResult; stdcall;
- function SetVideoPosition(lpSRCRect, lpDSTRect: PRECT): HResult; stdcall;
- function GetVideoPosition(out lpSRCRect, lpDSTRect: TRECT): HResult; stdcall;
- function GetAspectRatioMode(out lpAspectRatioMode: DWORD): HResult; stdcall;
- function SetAspectRatioMode(AspectRatioMode: TVMRAspectRatioMode): HResult; stdcall;
- //////////////////////////////////////////////////////////
- // Display and clipping management
- //////////////////////////////////////////////////////////
- function SetVideoClippingWindow(hwnd: HWND): HResult; stdcall;
- function RepaintVideo(hwnd: HWND; hdc: HDC): HResult; stdcall;
- function DisplayModeChanged: HResult; stdcall;
- //////////////////////////////////////////////////////////
- // GetCurrentImage
- //
- // Returns the current image being displayed. This images
- // is returned in the form of packed Windows DIB.
- //
- // GetCurrentImage can be called at any time, also
- // the caller is responsible for free the returned memory
- // by calling CoTaskMemFree.
- //
- // Excessive use of this function will degrade video
- // playback performed.
- //////////////////////////////////////////////////////////
- function GetCurrentImage(out lpDib): HResult; stdcall;
- //////////////////////////////////////////////////////////
- // Border Color control
- //
- // The border color is color used to fill any area of the
- // the destination rectangle that does not contain video.
- // It is typically used in two instances. When the video
- // straddles two monitors and when the VMR is trying
- // to maintain the aspect ratio of the movies by letter
- // boxing the video to fit within the specified destination
- // rectangle. See SetAspectRatioMode above.
- //////////////////////////////////////////////////////////
- function SetBorderColor(Clr: COLORREF): HResult; stdcall;
- function GetBorderColor(out lpClr: COLORREF): HResult; stdcall;
- //////////////////////////////////////////////////////////
- // Color key control only meaningful when the VMR is using
- // and overlay
- //////////////////////////////////////////////////////////
- function SetColorKey(Clr: COLORREF): HResult; stdcall;
- function GetColorKey(out lpClr: COLORREF): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRMixerControl
- //
- //=====================================================================
- //
- // Normalized relative rectangle
- // Coordinate ranges: x=[0...1) y=[0...1)
- // Where the output window goes from 0,0 (closed inclusive lower bound)
- // to 1,1 (open exclusive upper bound)
- //
- const
- MixerPref_NoDecimation = $1;
- {$EXTERNALSYM MixerPref_NoDecimation}
- MixerPref_DecimateOutput = $2;
- {$EXTERNALSYM MixerPref_DecimateOutput}
- MixerPref_ARAdjustXorY = $4; // adjust the aspect ratio in x or y
- {$EXTERNALSYM MixerPref_ARAdjustXorY}
- MixerPref_DecimationReserved = $8; // bits reserved for future use.
- {$EXTERNALSYM MixerPref_DecimationReserved}
- MixerPref_DecimateMask = $f;
- {$EXTERNALSYM MixerPref_DecimateMask}
- MixerPref_BiLinearFiltering = $10;
- {$EXTERNALSYM MixerPref_BiLinearFiltering}
- MixerPref_PointFiltering = $20;
- {$EXTERNALSYM MixerPref_PointFiltering}
- MixerPref_FilteringMask = $f0;
- {$EXTERNALSYM MixerPref_FilteringMask}
- MixerPref_RenderTargetRGB = $00000100; // Uses D3D to perform mixing
- {$EXTERNALSYM MixerPref_RenderTargetRGB}
- MixerPref_RenderTargetYUV = $00001000; // Uses DXVA to perform mixing
- {$EXTERNALSYM MixerPref_RenderTargetYUV}
- MixerPref_RenderTargetYUV420 = $00000200; // Deprecated render target
- {$EXTERNALSYM MixerPref_RenderTargetYUV420}
- MixerPref_RenderTargetYUV422 = $00000400; // Deprecated render target
- {$EXTERNALSYM MixerPref_RenderTargetYUV422}
- MixerPref_RenderTargetYUV444 = $00000800; // Deprecated render target
- {$EXTERNALSYM MixerPref_RenderTargetYUV444}
- MixerPref_RenderTargetReserved = $0000E000; // 3 bits reserved for future use.
- {$EXTERNALSYM MixerPref_RenderTargetReserved}
- MixerPref_RenderTargetMask = $ff00;
- {$EXTERNALSYM MixerPref_RenderTargetMask}
- //
- // Dynamic changes that can be performed when the VMR's mixer is
- // configured to use the YUV Render target (see MixerPref_RenderTargetYUV)
- // These preferences can be applied while the graph is running and take effect
- // when the next frame is composed by the mixer.
- //
- MixerPref_DynamicSwitchToBOB = $00010000;
- {$EXTERNALSYM MixerPref_DynamicSwitchToBOB}
- MixerPref_DynamicDecimateBy2 = $00020000;
- {$EXTERNALSYM MixerPref_DynamicDecimateBy2}
- MixerPref_DynamicReserved = $000C0000;
- {$EXTERNALSYM MixerPref_DynamicReserved}
- MixerPref_DynamicMask = $000F0000;
- {$EXTERNALSYM MixerPref_DynamicMask}
- type
- PNormalizedRect = ^TNormalizedRect;
- _NORMALIZEDRECT = record
- left : Single;
- top : Single;
- right : Single;
- bottom : Single;
- end;
- {$EXTERNALSYM _NORMALIZEDRECT}
- NORMALIZEDRECT = _NORMALIZEDRECT;
- {$EXTERNALSYM NORMALIZEDRECT}
- TNormalizedRect = _NORMALIZEDRECT;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRMixerControl> _di_IVMRMixerControl;'}
- {$EXTERNALSYM IVMRMixerControl}
- IVMRMixerControl = interface(IUnknown)
- ['{1c1a17b0-bed0-415d-974b-dc6696131599}']
- (*** IVMRMixerControl methods ***)
- //Alpha = Source alpha premultication factor (global alpha for source)
- function SetAlpha(dwStreamID: DWORD; Alpha: single): HResult; stdcall;
- function GetAlpha(dwStreamID: DWORD; out pAlpha: single): HResult; stdcall;
- function SetZOrder(dwStreamID, dwZ: DWORD): HResult; stdcall;
- function GetZOrder(dwStreamID: DWORD; out pZ: DWORD): HResult; stdcall;
- function SetOutputRect(dwStreamID: DWORD; const pRect: TNORMALIZEDRECT): HResult; stdcall;
- function GetOutputRect(dwStreamID: DWORD; out pRect: TNORMALIZEDRECT): HResult; stdcall;
- function SetBackgroundClr(ClrBkg: COLORREF): HResult; stdcall;
- function GetBackgroundClr(out lpClrBkg: COLORREF): HResult; stdcall;
- function SetMixingPrefs(dwMixerPrefs: DWORD): HResult; stdcall;
- function GetMixingPrefs(pdwMixerPrefs: DWORD): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- ///////////////////////////////////////////////////////////////////////////////
- //
- // VMR Multimon configuration interface
- //
- ///////////////////////////////////////////////////////////////////////////////
- tagVMRGUID = record
- pGUID : PGUID; // is NULL if the default DDraw device
- GUID : TGUID; // otherwise points to this GUID
- end;
- {$EXTERNALSYM tagVMRGUID}
- VMRGUID = tagVMRGUID;
- {$EXTERNALSYM VMRGUID}
- TVMRGuid = tagVMRGUID;
- tagVMRMONITORINFO = record
- guid : VMRGUID;
- rcMonitor : TRECT;
- hMon : HMONITOR;
- dwFlags : DWORD; // described in MONITORINFOEX, currently only MONITORINFOF_PRIMARY
- szDevice : array[0..31] of wchar;
- szDescription : array[0..255] of wchar;
- liDriverVersion : int64;
- dwVendorId : DWORD;
- dwDeviceId : DWORD;
- dwSubSysId : DWORD;
- dwRevision : DWORD;
- end;
- {$EXTERNALSYM tagVMRMONITORINFO}
- VMRMONITORINFO = tagVMRMONITORINFO;
- {$EXTERNALSYM VMRMONITORINFO}
- TVMRMonitorInfo = tagVMRMONITORINFO;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRMonitorConfig> _di_IVMRMonitorConfig;'}
- {$EXTERNALSYM IVMRMonitorConfig}
- IVMRMonitorConfig = interface(IUnknown)
- ['{9cf0b1b6-fbaa-4b7f-88cf-cf1f130a0dce}']
- (*** IVMRMonitorConfig methods ***)
- // Use this method on a Multi-Monitor system to specify to the
- // mixer filter which Direct Draw driver should be used when connecting
- // to an upstream decoder filter.
- function SetMonitor(const pGUID: TVMRGUID): HResult; stdcall;
- // Use this method to determine the direct draw object that will be used when
- // connecting the mixer filter to an upstream decoder filter.
- function GetMonitor(out pGUID: TVMRGUID): HResult; stdcall;
- // Use this method on a multi-monitor system to specify to the
- // mixer filter the default Direct Draw device to use when
- // connecting to an upstream filter. The default direct draw device
- // can be overriden for a particular connection by SetMonitor method
- // described above.
- function SetDefaultMonitor(const pGUID: TVMRGUID): HResult; stdcall;
- // Use this method on a multi-monitor system to determine which
- // is the default direct draw device the overlay mixer filter
- // will use when connecting to an upstream filter.
- function GetDefaultMonitor(out pGUID: TVMRGUID): HResult; stdcall;
- // Use this method to get a list of Direct Draw device GUIDs and thier
- // associated monitor information that the mixer can use when
- // connecting to an upstream decoder filter. Passing down a NULL pInfo
- // parameter allows the app to determine the required array size (returned
- // in pdwNumDevices). Otherwise, dwNumDevices returns the actual
- // number of devices retrieved.
- function GetAvailableMonitors(out pInfo: TVMRMONITORINFO; //if it fail try : "out pInfo" only /hg
- dwMaxInfoArraySize: DWORD; // in array members
- out pdwNumDevices: DWORD): HResult; stdcall; // actual number of devices retrieved
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRImageCompositor
- //
- //=====================================================================
- type
- PVMRVideoStreamInfo = ^TVMRVideoStreamInfo;
- _VMRVIDEOSTREAMINFO = record
- pddsVideoSurface : IDIRECTDRAWSURFACE7;
- dwWidth : DWORD;
- dwHeight : DWORD;
- dwStrmID : DWORD;
- fAlpha : single;
- ddClrKey : TDDCOLORKEY;
- rNormal : TNORMALIZEDRECT;
- end;
- {$EXTERNALSYM _VMRVIDEOSTREAMINFO}
- VMRVIDEOSTREAMINFO = _VMRVIDEOSTREAMINFO;
- {$EXTERNALSYM VMRVIDEOSTREAMINFO}
- TVMRVideoStreamInfo = _VMRVIDEOSTREAMINFO;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImageCompositor> _di_IVMRImageCompositor;'}
- {$EXTERNALSYM IVMRImageCompositor}
- IVMRImageCompositor = interface(IUnknown)
- ['{7a4fb5af-479f-4074-bb40-ce6722e43c82}']
- (*** IVMRImageCompositor methods ***)
- function InitCompositionTarget(pD3DDevice: IUnknown; pddsRenderTarget: IDIRECTDRAWSURFACE7): HResult; stdcall;
- function TermCompositionTarget(pD3DDevice: IUnknown; pddsRenderTarget: IDIRECTDRAWSURFACE7): HResult; stdcall;
- function SetStreamMediaType(dwStrmID: DWORD; pmt: PAMMediaType; fTexture: BOOL): HResult; stdcall;
- function CompositeImage(pD3DDevice: IUnknown; pddsRenderTarget: IDIRECTDRAWSURFACE7;
- pmtRenderTarget: PAMMediaType; rtStart, rtEnd: TReferenceTime;
- dwClrBkGnd: DWORD; pVideoStreamInfo: PVMRVIDEOSTREAMINFO; cStreams: cardinal): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- ///////////////////////////////////////////////////////////////////////////////
- //
- // VMR Filter configuration interfaces
- //
- ///////////////////////////////////////////////////////////////////////////////
- const
- RenderPrefs_RestrictToInitialMonitor = $00000000; // not implemented do not use
- {$EXTERNALSYM RenderPrefs_RestrictToInitialMonitor}
- RenderPrefs_ForceOffscreen = $00000001;
- {$EXTERNALSYM RenderPrefs_ForceOffscreen}
- RenderPrefs_ForceOverlays = $00000002; // fail if no overlays
- {$EXTERNALSYM RenderPrefs_ForceOverlays}
- RenderPrefs_AllowOverlays = $00000000; // overlay used by default
- {$EXTERNALSYM RenderPrefs_AllowOverlays}
- RenderPrefs_AllowOffscreen = $00000000; // offscreen used if no overlay
- {$EXTERNALSYM RenderPrefs_AllowOffscreen}
- RenderPrefs_DoNotRenderColorKeyAndBorder = $00000008; // app paints color keys
- {$EXTERNALSYM RenderPrefs_DoNotRenderColorKeyAndBorder}
- RenderPrefs_Reserved = $00000010; // note: used to be RestrictToInitialMonitor
- {$EXTERNALSYM RenderPrefs_Reserved}
- RenderPrefs_PreferAGPMemWhenMixing = $00000020;
- {$EXTERNALSYM RenderPrefs_PreferAGPMemWhenMixing}
- RenderPrefs_Mask = $0000003f; // OR of all above flags
- {$EXTERNALSYM RenderPrefs_Mask}
- VMRMode_Windowed = $00000001;
- {$EXTERNALSYM VMRMode_Windowed}
- VMRMode_Windowless = $00000002;
- {$EXTERNALSYM VMRMode_Windowless}
- VMRMode_Renderless = $00000004;
- {$EXTERNALSYM VMRMode_Renderless}
- VMRMode_Mask = $00000007; // OR of all above flags
- {$EXTERNALSYM VMRMode_Mask}
- // not a valid value to pass to SetRenderMode
- MAX_NUMBER_OF_STREAMS = 16;
- {$EXTERNALSYM MAX_NUMBER_OF_STREAMS}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRFilterConfig> _di_IVMRFilterConfig;'}
- {$EXTERNALSYM IVMRFilterConfig}
- IVMRFilterConfig = interface(IUnknown)
- ['{9e5530c5-7034-48b4-bb46-0b8a6efc8e36}']
- (*** IVMRFilterConfig methods ***)
- function SetImageCompositor(lpVMRImgCompositor: IVMRImageCompositor): HResult; stdcall;
- function SetNumberOfStreams(dwMaxStreams: DWORD): HResult; stdcall;
- function GetNumberOfStreams(out pdwMaxStreams: DWORD): HResult; stdcall;
- function SetRenderingPrefs(dwRenderFlags: DWORD): HResult; stdcall; // a combination of VMRRenderingPrefFlags
- function GetRenderingPrefs(out pdwRenderFlags: DWORD): HResult; stdcall;
- function SetRenderingMode(Mode: DWORD): HResult; stdcall; // a combination of VMRMode
- function GetRenderingMode(out pMode: DWORD): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRAspectRatioControl
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRAspectRatioControl> _di_IVMRAspectRatioControl;'}
- {$EXTERNALSYM IVMRAspectRatioControl}
- IVMRAspectRatioControl = interface(IUnknown)
- ['{ede80b5c-bad6-4623-b537-65586c9f8dfd}']
- (*** IVMRAspectRatioControl methods ***)
- function GetAspectRatioMode(out lpdwARMode: TVMRAspectRatioMode): HResult; stdcall;
- function SetAspectRatioMode(dwARMode: TVMRAspectRatioMode): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRDeinterlaceControl
- //
- // New interfaced introduced into the WindowsXP SP1 release of the VMR.
- // This interface allows applications to control the DX-VA deinterlacing
- // support provided by the VMR.
- //
- // The VMR needs to be set into "mixing" mode for this interface to work.
- //
- // SetDeinterlaceMode is only effective for new connections made to the
- // VMR. It should be noted that the graphics device driver may refuse
- // to use the specified deinterlace mode, in which case 3 fallback
- // policies are offered by the VMR, these being:
- //
- // 1. Fallback to the next best mode offered by the driver.
- // 2. Fallback to the BOB deinterlace mode.
- // 3. Fallback to the WEAVE deinterlace mode (ie. turn deinterlacing off).
- //
- //=====================================================================
- type
- VMRDeinterlacePrefs = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMRDeinterlacePrefs}
- const
- DeinterlacePref_NextBest = $01;
- {$EXTERNALSYM DeinterlacePref_NextBest}
- DeinterlacePref_BOB = $02;
- {$EXTERNALSYM DeinterlacePref_BOB}
- DeinterlacePref_Weave = $04;
- {$EXTERNALSYM DeinterlacePref_Weave}
- DeinterlacePref_Mask = $07;
- {$EXTERNALSYM DeinterlacePref_Mask}
- type
- VMRDeinterlaceTech = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMRDeinterlaceTech}
- const
- // the algorithm is unknown or proprietary
- DeinterlaceTech_Unknown = $0000;
- {$EXTERNALSYM DeinterlaceTech_Unknown}
- // the algorithm creates the missing lines by repeating
- // the line either above or below it - this method will look very jaggy and
- // isn't recommended
- DeinterlaceTech_BOBLineReplicate = $0001;
- {$EXTERNALSYM DeinterlaceTech_BOBLineReplicate}
- // the algorithm creates the missing lines by vertically stretching each
- // video field by a factor of two, for example by averaging two lines or
- // using a [-1, 9, 9, -1]/16 filter across four lines.
- // Slight vertical adjustments are made to ensure that the resulting image
- // does not "bob" up and down.
- DeinterlaceTech_BOBVerticalStretch = $0002;
- {$EXTERNALSYM DeinterlaceTech_BOBVerticalStretch}
- // the pixels in the missing line are recreated by a median filtering operation
- DeinterlaceTech_MedianFiltering = $0004;
- {$EXTERNALSYM DeinterlaceTech_MedianFiltering}
- // the pixels in the missing line are recreated by an edge filter.
- // In this process, spatial directional filters are applied to determine
- // the orientation of edges in the picture content, and missing
- // pixels are created by filtering along (rather than across) the
- // detected edges.
- DeinterlaceTech_EdgeFiltering = $0010;
- {$EXTERNALSYM DeinterlaceTech_EdgeFiltering}
- // the pixels in the missing line are recreated by switching on a field by
- // field basis between using either spatial or temporal interpolation
- // depending on the amount of motion.
- DeinterlaceTech_FieldAdaptive = $0020;
- {$EXTERNALSYM DeinterlaceTech_FieldAdaptive}
- // the pixels in the missing line are recreated by switching on a pixel by pixel
- // basis between using either spatial or temporal interpolation depending on
- // the amount of motion..
- DeinterlaceTech_PixelAdaptive = $0040;
- {$EXTERNALSYM DeinterlaceTech_PixelAdaptive}
- // Motion Vector Steering identifies objects within a sequence of video
- // fields. The missing pixels are recreated after first aligning the
- // movement axes of the individual objects in the scene to make them
- // parallel with the time axis.
- DeinterlaceTech_MotionVectorSteered = $0080;
- {$EXTERNALSYM DeinterlaceTech_MotionVectorSteered}
- type
- PVMRFrequency = ^TVMRFrequency;
- _VMRFrequency = record
- dwNumerator : DWORD;
- dwDenominator : DWORD;
- end;
- {$EXTERNALSYM _VMRFrequency}
- VMRFrequency = _VMRFrequency;
- {$EXTERNALSYM VMRFrequency}
- TVMRFrequency = _VMRFrequency;
- PVMRVideoDesc = ^TVMRVideoDesc;
- _VMRVideoDesc = record
- dwSize : DWORD;
- dwSampleWidth : DWORD;
- dwSampleHeight : DWORD;
- SingleFieldPerSample : BOOL;
- dwFourCC : DWORD;
- InputSampleFreq : VMRFrequency;
- OutputFrameFreq : VMRFrequency;
- end;
- {$EXTERNALSYM _VMRVideoDesc}
- VMRVideoDesc = _VMRVideoDesc;
- {$EXTERNALSYM VMRVideoDesc}
- TVMRVideoDesc = _VMRVideoDesc;
- PVMRDeinterlaceCaps = ^TVMRDeinterlaceCaps;
- _VMRDeinterlaceCaps = record
- dwSize : DWORD;
- dwNumPreviousOutputFrames : DWORD;
- dwNumForwardRefSamples : DWORD;
- dwNumBackwardRefSamples : DWORD;
- DeinterlaceTechnology : VMRDeinterlaceTech;
- end;
- {$EXTERNALSYM _VMRDeinterlaceCaps}
- VMRDeinterlaceCaps = _VMRDeinterlaceCaps;
- {$EXTERNALSYM VMRDeinterlaceCaps}
- TVMRDeinterlaceCaps = _VMRDeinterlaceCaps;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRDeinterlaceControl> _di_IVMRDeinterlaceControl;'}
- {$EXTERNALSYM IVMRDeinterlaceControl}
- IVMRDeinterlaceControl = interface(IUnknown)
- ['{bb057577-0db8-4e6a-87a7-1a8c9a505a0f}']
- (*** IVMRDeinterlaceControl methods ***)
- // For the specified video description returns the
- // number of deinterlacing modes available to the VMR.
- // The deinterlacing modes are returned in descending
- // quality order ie. the best quality mode is at
- // lpdwNumDeinterlaceModes[0], the next best at
- // lpdwNumDeinterlaceModes[1] and so on.
- //
- // To determine how big an array of guids to pass to the
- // GetNumberOfDeinterlaceModes method call
- // GetNumberOfDeinterlaceModes(lpVideoDescription, &dwNumModes, NULL);
- //
- function GetNumberOfDeinterlaceModes(lpVideoDescription: PVMRVideoDesc;
- var lpdwNumDeinterlaceModes: DWORD; lpDeinterlaceModes: PGUID): HResult; stdcall;
- // For the given video description get the capabilities of the
- // specified de-interlace mode.
- function GetDeinterlaceModeCaps(const lpDeinterlaceMode: TGUID;
- lpVideoDescription: PVMRVideoDesc; lpDeinterlaceCaps: PVMRDeinterlaceCaps): HResult; stdcall;
- // Get/Set the deinterlace mode that you would like the
- // VMR to use when de-interlacing the specified stream.
- // It should be noted that the VMR may not actually be able
- // to use the requested deinterlace mode, in which case the
- // the VMR will fall back to other de-interlace modes as specified
- // by the de-interlace preferences (see SetDeinterlacePrefs below).
- function GetDeinterlaceMode(
- dwStreamID: DWORD;
- out lpDeinterlaceMode: TGUID // returns GUID_NULL if SetDeinterlaceMode
- ): HResult; stdcall; // has not been called yet.
- function SetDeinterlaceMode(
- dwStreamID: DWORD; // use $FFFFFFFF to set mode for all streams
- const lpDeinterlaceMode: TGUID // GUID_NULL == turn deinterlacing off
- ): HResult; stdcall;
- function GetDeinterlacePrefs(out lpdwDeinterlacePrefs: VMRDeinterlacePrefs): HResult; stdcall;
- function SetDeinterlacePrefs(dwDeinterlacePrefs: VMRDeinterlacePrefs): HResult; stdcall;
- // Get the DeinterlaceMode currently in use for the specified
- // video stream (ie. pin). The returned GUID will be NULL if
- // the de-interlacing h/w has not been created by the VMR at the
- // time the function is called, or if the VMR determines that
- // this stream should not or can be de-interlaced.
- function GetActualDeinterlaceMode(
- dwStreamID: DWORD; out lpDeinterlaceMode: TGUID): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRMixerBitmap
- //
- //=====================================================================
- PVMRAlphaBitmap = ^TVMRAlphaBitmap;
- _VMRALPHABITMAP = record
- dwFlags : DWORD; // flags word
- hdc : HDC; // DC for the bitmap to copy
- pDDS : IDIRECTDRAWSURFACE7; // DirectDraw surface to copy
- rSrc : TRECT; // rectangle to copy from the DC/DDS
- rDest : NORMALIZEDRECT; // output rectangle in composition space
- fAlpha : single; // opacity of the bitmap
- clrSrcKey : COLORREF; // src color key
- end;
- {$EXTERNALSYM _VMRALPHABITMAP}
- VMRALPHABITMAP = _VMRALPHABITMAP;
- {$EXTERNALSYM VMRALPHABITMAP}
- TVMRAlphaBitmap = _VMRALPHABITMAP;
- const
- // Disable the alpha bitmap for now
- VMRBITMAP_DISABLE = $00000001;
- {$EXTERNALSYM VMRBITMAP_DISABLE}
- // Take the bitmap from the HDC rather than the DirectDraw surface
- VMRBITMAP_HDC = $00000002;
- {$EXTERNALSYM VMRBITMAP_HDC}
- // Take the entire DDraw surface - rSrc is ignored
- VMRBITMAP_ENTIREDDS = $00000004;
- {$EXTERNALSYM VMRBITMAP_ENTIREDDS}
- // Indicates that the clrTrans value is valid and should be
- // used when blending
- VMRBITMAP_SRCCOLORKEY = $00000008;
- {$EXTERNALSYM VMRBITMAP_SRCCOLORKEY}
- VMRBITMAP_SRCRECT = $00000010;
- {$EXTERNALSYM VMRBITMAP_SRCRECT}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRMixerBitmap> _di_IVMRMixerBitmap;'}
- {$EXTERNALSYM IVMRMixerBitmap}
- IVMRMixerBitmap = interface(IUnknown)
- ['{1E673275-0257-40aa-AF20-7C608D4A0428}']
- (*** IVMRMixerBitmap methods ***)
- // Set bitmap, location to blend it, and blending value
- function SetAlphaBitmap(var pBmpParms: TVMRALPHABITMAP): HResult; stdcall;
- // Change bitmap location, size and blending value,
- // graph must be running for change to take effect.
- function UpdateAlphaBitmapParameters(pBmpParms: PVMRALPHABITMAP): HResult; stdcall;
- // Get bitmap, location to blend it, and blending value
- function GetAlphaBitmapParameters(out pBmpParms: TVMRALPHABITMAP): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRVideoStreamControl
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRVideoStreamControl> _di_IVMRVideoStreamControl;'}
- {$EXTERNALSYM IVMRVideoStreamControl}
- IVMRVideoStreamControl = interface(IUnknown)
- ['{058d1f11-2a54-4bef-bd54-df706626b727}']
- (*** IVMRVideoStreamControl methods ***)
- function SetColorKey(clr: PDDCOLORKEY): HResult; stdcall; // Source color key, set to 0xFFFFFFFF to disable
- function GetColorKey(out pclr: TDDCOLORKEY): HResult; stdcall;
- function SetStreamActiveState(fActive: BOOL): HResult; stdcall;
- function GetStreamActiveState(out lpfActive: BOOL): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRSurface
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRSurface> _di_IVMRSurface;'}
- {$EXTERNALSYM IVMRSurface}
- IVMRSurface = interface(IUnknown)
- ['{a9849bbe-9ec8-4263-b764-62730f0d15d0}']
- (*** IVMRSurface methods ***)
- function IsSurfaceLocked: HResult; stdcall;
- function LockSurface(out lpSurface: PBYTE): HResult; stdcall;
- function UnlockSurface: HResult; stdcall;
- function GetSurface(lplpSurface: IDIRECTDRAWSURFACE7): HResult; stdcall;
- end;
- {$ENDIF}
- {$IFDEF ENABLEVMR7}
- //=====================================================================
- //
- // IVMRImagePresenterConfig
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImagePresenterConfig> _di_IVMRImagePresenterConfig;'}
- {$EXTERNALSYM IVMRImagePresenterConfig}
- IVMRImagePresenterConfig = interface(IUnknown)
- ['{9f3a1c85-8555-49ba-935f-be5b5b29d178}']
- (*** IVMRImagePresenterConfig methods ***)
- function SetRenderingPrefs(dwRenderFlags: DWORD): HResult; stdcall;
- function GetRenderingPrefs(out dwRenderFlags: DWORD): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRImagePresenterExclModeConfig
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImagePresenterExclModeConfig> _di_IVMRImagePresenterExclModeConfig;'}
- {$EXTERNALSYM IVMRImagePresenterExclModeConfig}
- IVMRImagePresenterExclModeConfig = interface(IVMRImagePresenterConfig)
- ['{e6f7ce40-4673-44f1-8f77-5499d68cb4ea}']
- (*** IVMRImagePresenterExclModeConfig methods ***)
- function SetXlcModeDDObjAndPrimarySurface(lpDDObj: IDIRECTDRAW7; lpPrimarySurf: IDIRECTDRAWSURFACE7): HResult; stdcall;
- function GetXlcModeDDObjAndPrimarySurface(lpDDObj: IDIRECTDRAW7; lpPrimarySurf: IDIRECTDRAWSURFACE7): HResult; stdcall;
- end;
- {$ENDIF}
- //=====================================================================
- //
- // IVPManager
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVPManager> _di_IVPManager;'}
- {$EXTERNALSYM IVPManager}
- IVPManager = interface(IUnknown)
- ['{aac18c18-e186-46d2-825d-a1f8dc8e395a}']
- (*** IVPManager methods ***)
- // Use this method on a Multi-Monitor system to specify to the
- // video port manager filter which videoport index is used
- // to an upstream decoder filter.
- function SetVideoPortIndex(dwVideoPortIndex: DWORD): HResult; stdcall; // the video port number that this is connected to
- // This method returns the current video port index being used by the VPM.
- function GetVideoPortIndex(out pdwVideoPortIndex: DWORD): HResult; stdcall; // the video port number that this is connected to
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: mmstream.h
- *
- ***************************************************************************)
- const
- IID_IMultiMediaStream: TGUID = '{B502D1BC-9A57-11d0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IMultiMediaStream}
- IID_IMediaStream: TGUID = '{B502D1BD-9A57-11d0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IMediaStream}
- IID_IStreamSample: TGUID = '{B502D1BE-9A57-11d0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IStreamSample}
- const
- MS_S_PENDING = $00040001;
- {$EXTERNALSYM MS_S_PENDING}
- MS_S_NOUPDATE = $00040002;
- {$EXTERNALSYM MS_S_NOUPDATE}
- MS_S_ENDOFSTREAM = $00040003;
- {$EXTERNALSYM MS_S_ENDOFSTREAM}
- MS_E_SAMPLEALLOC = $80040401;
- {$EXTERNALSYM MS_E_SAMPLEALLOC}
- MS_E_PURPOSEID = $80040402;
- {$EXTERNALSYM MS_E_PURPOSEID}
- MS_E_NOSTREAM = $80040403;
- {$EXTERNALSYM MS_E_NOSTREAM}
- MS_E_NOSEEKING = $80040404;
- {$EXTERNALSYM MS_E_NOSEEKING}
- MS_E_INCOMPATIBLE = $80040405;
- {$EXTERNALSYM MS_E_INCOMPATIBLE}
- MS_E_BUSY = $80040406;
- {$EXTERNALSYM MS_E_BUSY}
- MS_E_NOTINIT = $80040407;
- {$EXTERNALSYM MS_E_NOTINIT}
- MS_E_SOURCEALREADYDEFINED = $80040408;
- {$EXTERNALSYM MS_E_SOURCEALREADYDEFINED}
- MS_E_INVALIDSTREAMTYPE = $80040409;
- {$EXTERNALSYM MS_E_INVALIDSTREAMTYPE}
- MS_E_NOTRUNNING = $8004040A;
- {$EXTERNALSYM MS_E_NOTRUNNING}
- MSPID_PrimaryVideo: TGUID = (D1:$A35FF56A;D2:$9FDA;D3:$11D0;D4:($8F,$DF,$00,$C0,$4F,$D9,$18,$9D));
- {$EXTERNALSYM MSPID_PrimaryVideo}
- MSPID_PrimaryAudio: TGUID = (D1:$A35FF56B;D2:$9FDA;D3:$11D0;D4:($8F,$DF,$00,$C0,$4F,$D9,$18,$9D));
- {$EXTERNALSYM MSPID_PrimaryAudio}
- type
- PAPCFUNC = procedure(dwParam: DWORD); stdcall;
- {$EXTERNALSYM PAPCFUNC}
- STREAM_TIME = {$IFDEF TYPE_IDENTITY}type {$ENDIF} int64;
- {$EXTERNALSYM STREAM_TIME}
- PStreamType = ^TStreamType;
- STREAM_TYPE = (
- STREAMTYPE_READ,
- STREAMTYPE_WRITE,
- STREAMTYPE_TRANSFORM
- );
- {$EXTERNALSYM STREAM_TYPE}
- TStreamType = STREAM_TYPE;
- STREAM_STATE = (
- STREAMSTATE_STOP,
- STREAMSTATE_RUN
- );
- {$EXTERNALSYM STREAM_STATE}
- TStreamState = STREAM_STATE;
- const
- COMPSTAT_NOUPDATEOK = 1;
- {$EXTERNALSYM COMPSTAT_NOUPDATEOK}
- COMPSTAT_WAIT = 2;
- {$EXTERNALSYM COMPSTAT_WAIT}
- COMPSTAT_ABORT = 4;
- {$EXTERNALSYM COMPSTAT_ABORT}
- MMSSF_HASCLOCK = $1;
- {$EXTERNALSYM MMSSF_HASCLOCK}
- MMSSF_SUPPORTSEEK = $2;
- {$EXTERNALSYM MMSSF_SUPPORTSEEK}
- MMSSF_ASYNCHRONOUS = $4;
- {$EXTERNALSYM MMSSF_ASYNCHRONOUS}
- SSUPDATE_ASYNC = $1;
- {$EXTERNALSYM SSUPDATE_ASYNC}
- SSUPDATE_CONTINUOUS = $2;
- {$EXTERNALSYM SSUPDATE_CONTINUOUS}
- type
- IMediaStream = interface;
- IStreamSample = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IMultiMediaStream> _di_IMultiMediaStream;'}
- {$EXTERNALSYM IMultiMediaStream}
- IMultiMediaStream = interface(IUnknown)
- ['{B502D1BC-9A57-11d0-8FDE-00C04FD9189D}']
- (*** IMultiMediaStream methods ***)
- function GetInformation(pdwFlags: PDWORD; pStreamType: PStreamType):
- HResult; stdcall;
- function GetMediaStream(const idPurpose: TGUID;
- out ppMediaStream: IMediaStream): HResult; stdcall;
- function EnumMediaStreams(Index: Longint; out ppMediaStream: IMediaStream):
- HResult; stdcall;
- function GetState(out pCurrentState: TStreamState): HResult; stdcall;
- function SetState(NewState: TStreamState): HResult; stdcall;
- function GetTime(out pCurrentTime: STREAM_TIME): HResult; stdcall;
- function GetDuration(out pDuration: STREAM_TIME): HResult; stdcall;
- function Seek(SeekTime: STREAM_TIME): HResult; stdcall;
- function GetEndOfStreamEventHandle(out phEOS: THandle): HResult; stdcall;
- end;
-
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaStream> _di_IMediaStream;'}
- {$EXTERNALSYM IMediaStream}
- IMediaStream = interface(IUnknown)
- ['{B502D1BD-9A57-11d0-8FDE-00C04FD9189D}']
- (*** IMediaStream methods ***)
- function GetMultiMediaStream(out ppMultiMediaStream: IMultiMediaStream):
- HResult; stdcall;
- function GetInformation(pPurposeId: PGUID; pType: PStreamType): HResult; stdcall;
- function SetSameFormat(pStreamThatHasDesiredFormat: IMediaStream;
- dwFlags: DWORD): HResult; stdcall;
- function AllocateSample(dwFlags: DWORD; out ppSample: IStreamSample): HResult; stdcall;
- function CreateSharedSample(pExistingSample: IStreamSample; dwFlags: DWORD;
- out ppNewSample: IStreamSample): HResult; stdcall;
- function SendEndOfStream(dwFlags: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamSample> _di_IStreamSample;'}
- {$EXTERNALSYM IStreamSample}
- IStreamSample = interface(IUnknown)
- ['{B502D1BE-9A57-11d0-8FDE-00C04FD9189D}']
- (*** IStreamSample methods ***)
- function GetMediaStream(out ppMediaStream: IMediaStream): HResult; stdcall;
- function GetSampleTimes(out pStartTime, pEndTime,
- pCurrentTime: STREAM_TIME): HResult; stdcall;
- function SetSampleTimes(var pStartTime, pEndTime: STREAM_TIME): HResult; stdcall;
- function Update(dwFlags: DWORD; hEvent: THandle; pfnAPC: PAPCFUNC;
- dwAPCData: DWORD): HResult; stdcall;
- function CompletionStatus(dwFlags: DWORD; dwMilliseconds: DWORD): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: amstream.h
- *
- ***************************************************************************)
- const
- IID_IDirectShowStream: TGUID = '{7DB01C96-C0C3-11D0-8FF1-00C04FD9189D}';
- {$EXTERNALSYM IID_IDirectShowStream}
- IID_IAMMultiMediaStream: TGUID = '{BEBE595C-9A6F-11D0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IAMMultiMediaStream}
- IID_IAMMediaStream: TGUID = '{BEBE595D-9A6F-11D0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IAMMediaStream}
- IID_IMediaStreamFilter: TGUID = '{BEBE595E-9A6F-11D0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IMediaStreamFilter}
- IID_IDirectDrawMediaSampleAllocator: TGUID = '{AB6B4AFC-F6E4-11D0-900D-00C04FD9189D}';
- {$EXTERNALSYM IID_IDirectDrawMediaSampleAllocator}
- IID_IDirectDrawMediaSample: TGUID = '{AB6B4AFE-F6E4-11D0-900D-00C04FD9189D}';
- {$EXTERNALSYM IID_IDirectDrawMediaSample}
- IID_IAMMediaTypeStream: TGUID = '{AB6B4AFA-F6E4-11D0-900D-00C04FD9189D}';
- {$EXTERNALSYM IID_IAMMediaTypeStream}
- IID_IAMMediaTypeSample: TGUID = '{AB6B4AFB-F6E4-11D0-900D-00C04FD9189D}';
- {$EXTERNALSYM IID_IAMMediaTypeSample}
- const
- AMMSF_NOGRAPHTHREAD = $1;
- {$EXTERNALSYM AMMSF_NOGRAPHTHREAD}
- AMMSF_ADDDEFAULTRENDERER = $1;
- {$EXTERNALSYM AMMSF_ADDDEFAULTRENDERER}
- AMMSF_CREATEPEER = $2;
- {$EXTERNALSYM AMMSF_CREATEPEER}
- AMMSF_STOPIFNOSAMPLES = $4;
- {$EXTERNALSYM AMMSF_STOPIFNOSAMPLES}
- AMMSF_NOSTALL = $8;
- {$EXTERNALSYM AMMSF_NOSTALL}
- AMMSF_RENDERTYPEMASK = $3;
- {$EXTERNALSYM AMMSF_RENDERTYPEMASK}
- AMMSF_RENDERTOEXISTING = 0;
- {$EXTERNALSYM AMMSF_RENDERTOEXISTING}
- AMMSF_RENDERALLSTREAMS = $1;
- {$EXTERNALSYM AMMSF_RENDERALLSTREAMS}
- AMMSF_NORENDER = $2;
- {$EXTERNALSYM AMMSF_NORENDER}
- AMMSF_NOCLOCK = $4;
- {$EXTERNALSYM AMMSF_NOCLOCK}
- AMMSF_RUN = $8;
- {$EXTERNALSYM AMMSF_RUN}
- type
- OUTPUT_STATE = (
- Disabled,
- ReadData,
- RenderData
- );
- {$EXTERNALSYM OUTPUT_STATE}
- TOutputState = OUTPUT_STATE;
- {$HPPEMIT 'typedef System::DelphiInterface<IDirectShowStream> _di_IDirectShowStream;'}
- {$EXTERNALSYM IDirectShowStream}
- IDirectShowStream = interface(IDispatch)
- ['{7DB01C96-C0C3-11D0-8FF1-00C04FD9189D}']
- (*** IDirectShowStream methods ***)
- function get_FileName(out pVal: WideString): HResult; stdcall;
- function put_FileName(newVal: WideString): HResult; stdcall;
- function get_Video(out pVal: TOutputState): HResult; stdcall;
- function put_Video(newVal: TOutputState): HResult; stdcall;
- function get_Audio(out pVal: TOutputState): HResult; stdcall;
- function put_Audio(newVal: TOutputState): HResult; stdcall;
- end;
- IMediaStreamFilter = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMMultiMediaStream> _di_IAMMultiMediaStream;'}
- {$EXTERNALSYM IAMMultiMediaStream}
- IAMMultiMediaStream = interface(IMultiMediaStream)
- ['{BEBE595C-9A6F-11D0-8FDE-00C04FD9189D}']
- (*** IAMMultiMediaStream methods ***)
- function Initialize(StreamType: TStreamType; dwFlags: DWORD;
- pFilterGraph: IGraphBuilder): HResult; stdcall;
- function GetFilterGraph(out ppGraphBuilder: IGraphBuilder): HResult; stdcall;
- function GetFilter(out ppFilter: IMediaStreamFilter): HResult; stdcall;
- function AddMediaStream(pStreamObject: IUnknown; PurposeId: PGUID;
- dwFlags: DWORD; out ppNewStream: IMediaStream): HResult; stdcall;
- function OpenFile(pszFileName: PWideChar; dwFlags: DWORD): HResult; stdcall;
- function OpenMoniker(pCtx: IBindCtx; pMoniker: IMoniker; dwFlags: DWORD): HResult; stdcall;
- function Render(dwFlags: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMMediaStream> _di_IAMMediaStream;'}
- {$EXTERNALSYM IAMMediaStream}
- IAMMediaStream = interface(IMediaStream)
- ['{BEBE595D-9A6F-11D0-8FDE-00C04FD9189D}']
- (*** IAMMediaStream methods ***)
- function Initialize(pSourceObject: IUnknown; dwFlags: DWORD;
- PurposeId: PGUID; StreamType: TStreamType): HResult; stdcall;
- function SetState(State: TFilterState): HResult; stdcall;
- function JoinAMMultiMediaStream(pAMMultiMediaStream: IAMMultiMediaStream): HResult; stdcall;
- function JoinFilter(pMediaStreamFilter: IMediaStreamFilter): HResult; stdcall;
- function JoinFilterGraph(pFilterGraph: IFilterGraph): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaStreamFilter> _di_IMediaStreamFilter;'}
- {$EXTERNALSYM IMediaStreamFilter}
- IMediaStreamFilter = interface(IBaseFilter)
- ['{BEBE595E-9A6F-11D0-8FDE-00C04FD9189D}']
- (*** IMediaStreamFilter methods ***)
- function AddMediaStream(pAMMediaStream: IAMMediaStream): HResult; stdcall;
- function GetMediaStream( var idPurpose: TGUID;
- out ppMediaStream: IMediaStream): HResult; stdcall;
- function EnumMediaStreams(Index: Longint; out ppMediaStream: IMediaStream): HResult; stdcall;
- function SupportSeeking(bRenderer: BOOL): HResult; stdcall;
- function ReferenceTimeToStreamTime( var pTime: TReferenceTime): HResult; stdcall;
- function GetCurrentStreamTime(out pCurrentStreamTime: TReferenceTime): HResult; stdcall;
- function WaitUntil(WaitStreamTime: TReferenceTime): HResult; stdcall;
- function Flush(bCancelEOS: BOOL): HResult; stdcall;
- function EndOfStream: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDirectDrawMediaSampleAllocator> _di_IDirectDrawMediaSampleAllocator;'}
- {$EXTERNALSYM IDirectDrawMediaSampleAllocator}
- IDirectDrawMediaSampleAllocator = interface(IUnknown)
- ['{AB6B4AFC-F6E4-11D0-900D-00C04FD9189D}']
- (*** IDirectDrawMediaSampleAllocator methods ***)
- function GetDirectDraw(out ppDirectDraw: IDirectDraw): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDirectDrawMediaSample> _di_IDirectDrawMediaSample;'}
- {$EXTERNALSYM IDirectDrawMediaSample}
- IDirectDrawMediaSample = interface(IUnknown)
- ['{AB6B4AFE-F6E4-11D0-900D-00C04FD9189D}']
- (*** IDirectDrawMediaSample methods ***)
- function GetSurfaceAndReleaseLock(out ppDirectDrawSurface: IDirectDrawSurface;
- out pRect: TRect): HResult; stdcall;
- function LockMediaSamplePointer: HResult; stdcall;
- end;
- IAMMediaTypeSample = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMMediaTypeStream> _di_IAMMediaTypeStream;'}
- {$EXTERNALSYM IAMMediaTypeStream}
- IAMMediaTypeStream = interface(IMediaStream)
- ['{AB6B4AFA-F6E4-11D0-900D-00C04FD9189D}']
- (*** IAMMediaTypeStream methods ***)
- function GetFormat(out pMediaType: TAMMediaType; dwFlags: DWORD): HResult; stdcall;
- function SetFormat(const pMediaType: TAMMediaType; dwFlags: DWORD): HResult; stdcall;
- function CreateSample(lSampleSize: Longint; pbBuffer: Pointer;
- dwFlags: DWORD; pUnkOuter: IUnknown; out ppAMMediaTypeSample: IAMMediaTypeSample): HResult; stdcall;
- function GetStreamAllocatorRequirements(var pProps: TAllocatorProperties): HResult; stdcall;
- function SetStreamAllocatorRequirements(const pProps: TAllocatorProperties): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMMediaTypeSample> _di_IAMMediaTypeSample;'}
- {$EXTERNALSYM IAMMediaTypeSample}
- IAMMediaTypeSample = interface(IStreamSample)
- ['{AB6B4AFB-F6E4-11D0-900D-00C04FD9189D}']
- (*** IAMMediaTypeSample methods ***)
- function SetPointer(pBuffer: Pointer; lSize: Longint): HResult; stdcall;
- function GetPointer(out ppBuffer: Pointer): HResult; stdcall;
- function GetSize: Longint; stdcall;
- function GetTime(out pTimeStart, pTimeEnd: TReferenceTime): HResult; stdcall;
- function SetTime(pTimeStart, pTimeEnd: PReferenceTime): HResult; stdcall;
- function IsSyncPoint: HResult; stdcall;
- function SetSyncPoint(bIsSyncPoint: BOOL): HResult; stdcall;
- function IsPreroll: HResult; stdcall;
- function SetPreroll(bIsPreroll: BOOL): HResult; stdcall;
- function GetActualDataLength: Longint; stdcall;
- function SetActualDataLength(l: Longint): HResult; stdcall;
- function GetMediaType(var ppMediaType: PAMMediaType): HResult; stdcall;
- function SetMediaType(var pMediaType: TAMMediaType): HResult; stdcall;
- function IsDiscontinuity: HResult; stdcall;
- function SetDiscontinuity(bDiscontinuity: BOOL): HResult; stdcall;
- function GetMediaTime(out pTimeStart, pTimeEnd: int64): HResult; stdcall;
- function SetMediaTime(var pTimeStart, pTimeEnd: int64): HResult; stdcall;
- end;
- const
- {
- EXTERN_C const IID LIBID_DirectShowStreamLib;
- EXTERN_C const CLSID CLSID_AMMultiMediaStream;
- }
- CLSID_AMMultiMediaStream: TGUID = '{49C47CE5-9BA4-11D0-8212-00C04FC32C45}';
- {$EXTERNALSYM CLSID_AMMultiMediaStream}
- CLSID_AMDirectDrawStream: TGUID = (D1:$49C47CE4;D2:$9BA4;D3:$11D0;D4:($82,$12,$00,$C0,$4F,$C3,$2C,$45));
- {$EXTERNALSYM CLSID_AMDirectDrawStream}
- CLSID_AMAudioStream: TGUID = (D1:$8496E040;D2:$AF4C;D3:$11D0;D4:($82,$12,$00,$C0,$4F,$C3,$2C,$45));
- {$EXTERNALSYM CLSID_AMAudioStream}
- CLSID_AMAudioData: TGUID = (D1:$F2468580;D2:$AF8A;D3:$11D0;D4:($82,$12,$00,$C0,$4F,$C3,$2C,$45));
- {$EXTERNALSYM CLSID_AMAudioData}
- CLSID_AMMediaTypeStream: TGUID = (D1:$CF0F2F7C;D2:$F7BF;D3:$11D0;D4:($90,$0D,$00,$C0,$4F,$D9,$18,$9D));
- {$EXTERNALSYM CLSID_AMMediaTypeStream}
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: ddstream.h
- *
- ***************************************************************************)
- const
- DDSFF_PROGRESSIVERENDER = $1;
- {$EXTERNALSYM DDSFF_PROGRESSIVERENDER}
- IID_IDirectDrawMediaStream: TGUID = '{F4104FCE-9A70-11d0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IDirectDrawMediaStream}
- IID_IDirectDrawStreamSample: TGUID = '{F4104FCF-9A70-11d0-8FDE-00C04FD9189D}';
- {$EXTERNALSYM IID_IDirectDrawStreamSample}
- type
- IDirectDrawStreamSample = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IDirectDrawMediaStream> _di_IDirectDrawMediaStream;'}
- {$EXTERNALSYM IDirectDrawMediaStream}
- IDirectDrawMediaStream = interface(IMediaStream)
- ['{F4104FCE-9A70-11d0-8FDE-00C04FD9189D}']
- (*** IDirectDrawMediaStream methods ***)
- function GetFormat(out pDDSDCurrent: TDDSurfaceDesc;
- out ppDirectDrawPalette: IDirectDrawPalette;
- out pDDSDDesired: TDDSurfaceDesc; out pdwFlags: DWORD): HResult; stdcall;
- function SetFormat(const pTDDSurfaceDesc: TDDSurfaceDesc;
- pDirectDrawPalette: IDirectDrawPalette): HResult; stdcall;
- function GetDirectDraw(out ppDirectDraw: IDirectDraw): HResult; stdcall;
- function SetDirectDraw(pDirectDraw: IDirectDraw): HResult; stdcall;
- function CreateSample(pSurface: IDirectDrawSurface; const pRect: TRect;
- dwFlags: DWORD; out ppSample: IDirectDrawStreamSample): HResult;
- stdcall;
- function GetTimePerFrame(var pFrameTime: STREAM_TIME): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDirectDrawStreamSample> _di_IDirectDrawStreamSample;'}
- {$EXTERNALSYM IDirectDrawStreamSample}
- IDirectDrawStreamSample = interface(IStreamSample)
- ['{F4104FCF-9A70-11d0-8FDE-00C04FD9189D}']
- (*** IDirectDrawStreamSample methods ***)
- function GetSurface(out ppDirectDrawSurface: IDirectDrawSurface;
- out pRect: TRect): HResult; stdcall;
- function SetRect(const pRect: TRect): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: austream.h
- *
- ***************************************************************************)
- const
- IID_IAudioMediaStream: TGUID = '{F7537560-A3BE-11D0-8212-00C04FC32C45}';
- {$EXTERNALSYM IID_IAudioMediaStream}
- IID_IAudioStreamSample: TGUID = '{345FEE00-ABA5-11D0-8212-00C04FC32C45}';
- {$EXTERNALSYM IID_IAudioStreamSample}
- IID_IMemoryData: TGUID = '{327FC560-AF60-11D0-8212-00C04FC32C45}';
- {$EXTERNALSYM IID_IMemoryData}
- IID_IAudioData: TGUID = '{54C719C0-AF60-11D0-8212-00C04FC32C45}';
- {$EXTERNALSYM IID_IAudioData}
- type
- IAudioStreamSample = interface;
- IAudioData = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IAudioMediaStream> _di_IAudioMediaStream;'}
- {$EXTERNALSYM IAudioMediaStream}
- IAudioMediaStream = interface(IMediaStream)
- ['{F7537560-A3BE-11D0-8212-00C04FC32C45}']
- (*** IAudioMediaStream methods ***)
- function GetFormat(out pWaveFormatCurrent: TWaveFormatEx): HResult; stdcall;
- function SetFormat(const lpWaveFormat: TWaveFormatEx): HResult; stdcall;
- function CreateSample(pAudioData: IAudioData; dwFlags: DWORD;
- out ppSample: IAudioStreamSample): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAudioStreamSample> _di_IAudioStreamSample;'}
- {$EXTERNALSYM IAudioStreamSample}
- IAudioStreamSample = interface(IStreamSample)
- ['{345FEE00-ABA5-11D0-8212-00C04FC32C45}']
- (*** IAudioStreamSample methods ***)
- function GetAudioData(out ppAudio: IAudioData): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMemoryData> _di_IMemoryData;'}
- {$EXTERNALSYM IMemoryData}
- IMemoryData = interface(IUnknown)
- ['{327FC560-AF60-11D0-8212-00C04FC32C45}']
- (*** IMemoryData methods ***)
- function SetBuffer(cbSize: DWORD; pbData: pointer; dwFlags: DWORD): HResult;
- stdcall;
- function GetInfo(out pdwLength: DWORD; out ppbData: pointer;
- out pcbActualData: DWORD): HResult; stdcall;
- function SetActual(cbDataValid: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAudioData> _di_IAudioData;'}
- {$EXTERNALSYM IAudioData}
- IAudioData = interface(IMemoryData)
- ['{54C719C0-AF60-11D0-8212-00C04FC32C45}']
- (*** IAudioData methods ***)
- function GetFormat(out pWaveFormatCurrent: TWaveFormatEx): HResult; stdcall;
- function SetFormat(const lpWaveFormat: TWaveFormatEx): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: mpconfig.h
- *
- ***************************************************************************)
- const
- IID_IMixerPinConfig : TGUID = (D1:$593CDDE1;D2:$0759;D3:$11D1;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM IID_IMixerPinConfig}
- IID_IMixerPinConfig2: TGUID = (D1:$ebf47182;D2:$8764;D3:$11d1;D4:($9e,$69,$00,$c0,$4f,$d7,$c1,$5b));
- {$EXTERNALSYM IID_IMixerPinConfig2}
- type
- _AM_ASPECT_RATIO_MODE = (
- AM_ARMODE_STRETCHED, // don't do any aspect ratio correction
- AM_ARMODE_LETTER_BOX, // letter box the video, paint background color in the excess region
- AM_ARMODE_CROP, // crop the video to the right aspect ratio
- AM_ARMODE_STRETCHED_AS_PRIMARY
- );
- {$EXTERNALSYM _AM_ASPECT_RATIO_MODE}
- AM_ASPECT_RATIO_MODE = _AM_ASPECT_RATIO_MODE;
- {$EXTERNALSYM AM_ASPECT_RATIO_MODE}
- TAMAspectRatioMode = AM_ASPECT_RATIO_MODE;
- {$HPPEMIT 'typedef System::DelphiInterface<IMixerPinConfig> _di_IMixerPinConfig;'}
- {$EXTERNALSYM IMixerPinConfig}
- IMixerPinConfig = interface(IUnknown)
- ['{593CDDE1-0759-11D1-9E69-00C04FD7C15B}']
- (*** IMixerPinConfig methods ***)
- function SetRelativePosition(dwLeft, dwTop, dwRight, dwBottom: DWORD): HResult; stdcall;
- function GetRelativePosition(out dwLeft, dwTop, dwRight, dwBottom: DWORD): HResult; stdcall;
- function SetZOrder(dwZOrder: DWORD): HResult; stdcall;
- function GetZOrder(out dwZOrder: DWORD): HResult; stdcall;
- function SetColorKey(var pColorKey: TColorKey): HResult; stdcall;
- function GetColorKey(out pColorKey: TColorKey; out pColor: DWORD): HResult; stdcall;
- function SetBlendingParameter(dwBlendingParameter: DWORD): HResult; stdcall;
- function GetBlendingParameter(out dwBlendingParameter: DWORD): HResult; stdcall;
- function SetAspectRatioMode(amAspectRatioMode: TAMAspectRatioMode): HResult; stdcall;
- function GetAspectRatioMode(out amAspectRatioMode: TAMAspectRatioMode): HResult; stdcall;
- function SetStreamTransparent(bStreamTransparent: BOOL): HResult; stdcall;
- function GetStreamTransparent(out bStreamTransparent: BOOL): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMixerPinConfig2> _di_IMixerPinConfig2;'}
- {$EXTERNALSYM IMixerPinConfig2}
- IMixerPinConfig2 = interface(IMixerPinConfig)
- ['{EBF47182-8764-11d1-9E69-00C04FD7C15B}']
- (*** IMixerPinConfig2 methods ***)
- function SetOverlaySurfaceColorControls(pColorControl: PDDColorControl): HResult; stdcall;
- function GetOverlaySurfaceColorControls(out pColorControl: TDDColorControl): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: control.h
- *
- ***************************************************************************)
- const
- LIBID_QuartzTypeLib: TGUID = (D1:$56A868B0;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM LIBID_QuartzTypeLib}
- IID_IAMCollection: TGUID = (D1:$56A868B9;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IAMCollection}
- IID_IMediaControl: TGUID = (D1:$56A868B1;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IMediaControl}
- IID_IMediaEvent: TGUID = (D1:$56A868B6;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IMediaEvent}
- IID_IMediaEventEx: TGUID = (D1:$56A868C0;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IMediaEventEx}
- IID_IMediaPosition: TGUID = (D1:$56A868B2;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IMediaPosition}
- IID_IBasicAudio: TGUID = (D1:$56A868B3;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IBasicAudio}
- IID_IVideoWindow: TGUID = (D1:$56A868B4;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IVideoWindow}
- IID_IBasicVideo: TGUID = (D1:$56A868B5;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IBasicVideo}
- IID_IBasicVideo2: TGUID = (D1:$329bb360;D2:$f6ea;D3:$11d1;D4:($90,$38,$00,$a0,$c9,$69,$72,$98));
- {$EXTERNALSYM IID_IBasicVideo2}
- IID_IDeferredCommand: TGUID = (D1:$56A868B8;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IDeferredCommand}
- IID_IQueueCommand: TGUID = (D1:$56A868B7;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IQueueCommand}
- CLSID_FilgraphManager: TGUID = (D1:$E436EBB3;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_FilgraphManager}
- IID_IFilterInfo: TGUID = (D1:$56A868BA;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IFilterInfo}
- IID_IRegFilterInfo: TGUID = (D1:$56A868BB;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IRegFilterInfo}
- IID_IMediaTypeInfo: TGUID = (D1:$56A868BC;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IMediaTypeInfo}
- IID_IPinInfo: TGUID = (D1:$56A868BD;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IPinInfo}
- IID_IAMStats: TGUID = (D1:$bc9bcf80;D2:$dcd2;D3:$11d2;D4:($ab,$f6,$00,$a0,$c9,$05,$f3,$75));
- {$EXTERNALSYM IID_IAMStats}
- type
- OAEVENT = {$IFDEF TYPE_IDENTITY}type {$ENDIF} Longint;
- {$EXTERNALSYM OAEVENT}
- OAHWND = {$IFDEF TYPE_IDENTITY}type {$ENDIF} Longint;
- {$EXTERNALSYM OAHWND}
- OAFilterState = {$IFDEF TYPE_IDENTITY}type {$ENDIF} Longint;
- {$EXTERNALSYM OAFilterState}
- {$HPPEMIT 'typedef System::DelphiInterface<IAMCollection> _di_IAMCollection;'}
- {$EXTERNALSYM IAMCollection}
- IAMCollection = interface(IDispatch)
- ['{56A868B9-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IAMCollection methods ***)
- function get_Count(out plCount: Longint): HResult; stdcall;
- function Item(lItem: Longint; out ppUnk: IUnknown): HResult; stdcall;
- function get__NewEnum(out ppUnk: IUnknown): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaControl> _di_IMediaControl;'}
- {$EXTERNALSYM IMediaControl}
- IMediaControl = interface(IDispatch)
- ['{56A868B1-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaControl methods ***)
- function Run: HResult; stdcall;
- function Pause: HResult; stdcall;
- function Stop: HResult; stdcall;
- function GetState(msTimeout: DWORD; out pfs: TFilterState): HResult; stdcall;
- function RenderFile(strFilename: WideString): HResult; stdcall;
- function AddSourceFilter(strFilename: WideString; out ppUnk: IDispatch): HResult; stdcall;
- function get_FilterCollection(out ppUnk: IDispatch): HResult; stdcall;
- function get_RegFilterCollection(out ppUnk: IDispatch): HResult; stdcall;
- function StopWhenReady: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaEvent> _di_IMediaEvent;'}
- {$EXTERNALSYM IMediaEvent}
- IMediaEvent = interface(IDispatch)
- ['{56A868B6-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaEvent methods ***)
- function GetEventHandle(out hEvent: OAEVENT): HResult; stdcall;
- function GetEvent(out lEventCode: Longint; out lParam1, lParam2: Longint;
- msTimeout: DWORD): HResult; stdcall;
- function WaitForCompletion(msTimeout: DWORD; out pEvCode: Longint):
- HResult; stdcall;
- function CancelDefaultHandling(lEvCode: Longint): HResult; stdcall;
- function RestoreDefaultHandling(lEvCode: Longint): HResult; stdcall;
- function FreeEventParams(lEvCode: Longint; lParam1, lParam2: Longint):
- HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaEventEx> _di_IMediaEventEx;'}
- {$EXTERNALSYM IMediaEventEx}
- IMediaEventEx = interface(IMediaEvent)
- ['{56A868C0-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaEventEx methods ***)
- function SetNotifyWindow(hwnd: OAHWND; lMsg: Longint;
- lInstanceData: Longint): HResult; stdcall;
- function SetNotifyFlags(lNoNotifyFlags: Longint): HResult; stdcall;
- function GetNotifyFlags(out lplNoNotifyFlags): HResult; stdcall; //longint
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaPosition> _di_IMediaPosition;'}
- {$EXTERNALSYM IMediaPosition}
- IMediaPosition = interface(IDispatch)
- ['{56A868B2-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaPosition methods ***)
- function get_Duration(out plength: TRefTime): HResult; stdcall;
- function put_CurrentPosition(llTime: TRefTime): HResult; stdcall;
- function get_CurrentPosition(out pllTime: TRefTime): HResult; stdcall;
- function get_StopTime(out pllTime: TRefTime): HResult; stdcall;
- function put_StopTime(llTime: TRefTime): HResult; stdcall;
- function get_PrerollTime(out pllTime: TRefTime): HResult; stdcall;
- function put_PrerollTime(llTime: TRefTime): HResult; stdcall;
- function put_Rate(dRate: double): HResult; stdcall;
- function get_Rate(out pdRate: double): HResult; stdcall;
- function CanSeekForward(out pCanSeekForward: Longint): HResult; stdcall;
- function CanSeekBackward(out pCanSeekBackward: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBasicAudio> _di_IBasicAudio;'}
- {$EXTERNALSYM IBasicAudio}
- IBasicAudio = interface(IDispatch)
- ['{56A868B3-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IBasicAudio methods ***)
- function put_Volume(lVolume: Longint): HResult; stdcall;
- function get_Volume(out plVolume: Longint): HResult; stdcall;
- function put_Balance(lBalance: Longint): HResult; stdcall;
- function get_Balance(out plBalance: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVideoWindow> _di_IVideoWindow;'}
- {$EXTERNALSYM IVideoWindow}
- IVideoWindow = interface(IDispatch)
- ['{56A868B4-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IVideoWindow methods ***)
- function put_Caption(strCaption: WideString): HResult; stdcall;
- function get_Caption(out strCaption: WideString): HResult; stdcall;
- function put_WindowStyle(WindowStyle: Longint): HResult; stdcall;
- function get_WindowStyle(out WindowStyle: Longint): HResult; stdcall;
- function put_WindowStyleEx(WindowStyleEx: Longint): HResult; stdcall;
- function get_WindowStyleEx(out WindowStyleEx: Longint): HResult; stdcall;
- function put_AutoShow(AutoShow: LongBool): HResult; stdcall;
- function get_AutoShow(out AutoShow: LongBool): HResult; stdcall;
- function put_WindowState(WindowState: Longint): HResult; stdcall;
- function get_WindowState(out WindowState: Longint): HResult; stdcall;
- function put_BackgroundPalette(BackgroundPalette: Longint): HResult; stdcall;
- function get_BackgroundPalette(out pBackgroundPalette: Longint): HResult; stdcall;
- function put_Visible(Visible: LongBool): HResult; stdcall;
- function get_Visible(out pVisible: LongBool): HResult; stdcall;
- function put_Left(Left: Longint): HResult; stdcall;
- function get_Left(out pLeft: Longint): HResult; stdcall;
- function put_Width(Width: Longint): HResult; stdcall;
- function get_Width(out pWidth: Longint): HResult; stdcall;
- function put_Top(Top: Longint): HResult; stdcall;
- function get_Top(out pTop: Longint): HResult; stdcall;
- function put_Height(Height: Longint): HResult; stdcall;
- function get_Height(out pHeight: Longint): HResult; stdcall;
- function put_Owner(Owner: OAHWND): HResult; stdcall;
- function get_Owner(out Owner: OAHWND): HResult; stdcall;
- function put_MessageDrain(Drain: OAHWND): HResult; stdcall;
- function get_MessageDrain(out Drain: OAHWND): HResult; stdcall;
- function get_BorderColor(out Color: Longint): HResult; stdcall;
- function put_BorderColor(Color: Longint): HResult; stdcall;
- function get_FullScreenMode(out FullScreenMode: LongBool): HResult; stdcall;
- function put_FullScreenMode(FullScreenMode: LongBool): HResult; stdcall;
- function SetWindowForeground(Focus: Longint): HResult; stdcall;
- function NotifyOwnerMessage(hwnd: Longint; uMsg, wParam, lParam: Longint): HResult; stdcall;
- function SetWindowPosition(Left, Top, Width, Height: Longint): HResult; stdcall;
- function GetWindowPosition(out pLeft, pTop, pWidth, pHeight: Longint): HResult; stdcall;
- function GetMinIdealImageSize(out pWidth, pHeight: Longint): HResult; stdcall;
- function GetMaxIdealImageSize(out pWidth, pHeight: Longint): HResult; stdcall;
- function GetRestorePosition(out pLeft, pTop, pWidth, pHeight: Longint): HResult; stdcall;
- function HideCursor(HideCursor: LongBool): HResult; stdcall;
- function IsCursorHidden(out CursorHidden: LongBool): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBasicVideo> _di_IBasicVideo;'}
- {$EXTERNALSYM IBasicVideo}
- IBasicVideo = interface(IDispatch)
- ['{56A868B5-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IBasicVideo methods ***)
- function get_AvgTimePerFrame(out pAvgTimePerFrame: TRefTime): HResult; stdcall;
- function get_BitRate(out pBitRate: Longint): HResult; stdcall;
- function get_BitErrorRate(out pBitErrorRate: Longint): HResult; stdcall;
- function get_VideoWidth(out pVideoWidth: Longint): HResult; stdcall;
- function get_VideoHeight(out pVideoHeight: Longint): HResult; stdcall;
- function put_SourceLeft(SourceLeft: Longint): HResult; stdcall;
- function get_SourceLeft(out pSourceLeft: Longint): HResult; stdcall;
- function put_SourceWidth(SourceWidth: Longint): HResult; stdcall;
- function get_SourceWidth(out pSourceWidth: Longint): HResult; stdcall;
- function put_SourceTop(SourceTop: Longint): HResult; stdcall;
- function get_SourceTop(out pSourceTop: Longint): HResult; stdcall;
- function put_SourceHeight(SourceHeight: Longint): HResult; stdcall;
- function get_SourceHeight(out pSourceHeight: Longint): HResult; stdcall;
- function put_DestinationLeft(DestinationLeft: Longint): HResult; stdcall;
- function get_DestinationLeft(out pDestinationLeft: Longint): HResult; stdcall;
- function put_DestinationWidth(DestinationWidth: Longint): HResult; stdcall;
- function get_DestinationWidth(out pDestinationWidth: Longint): HResult; stdcall;
- function put_DestinationTop(DestinationTop: Longint): HResult; stdcall;
- function get_DestinationTop(out pDestinationTop: Longint): HResult; stdcall;
- function put_DestinationHeight(DestinationHeight: Longint): HResult; stdcall;
- function get_DestinationHeight(out pDestinationHeight: Longint): HResult; stdcall;
- function SetSourcePosition(Left, Top, Width, Height: Longint): HResult; stdcall;
- function GetSourcePosition(out pLeft, pTop, pWidth, pHeight: Longint): HResult; stdcall;
- function SetDefaultSourcePosition: HResult; stdcall;
- function SetDestinationPosition(Left, Top, Width, Height: Longint): HResult; stdcall;
- function GetDestinationPosition(out pLeft, pTop, pWidth, pHeight: Longint): HResult; stdcall;
- function SetDefaultDestinationPosition: HResult; stdcall;
- function GetVideoSize(out pWidth, Height: Longint): HResult; stdcall;
- function GetVideoPaletteEntries(StartIndex, Entries: Longint;
- out pRetrieved: Longint; out pPalette): HResult; stdcall;
- function GetCurrentImage(var BufferSize: Longint; var pDIBImage): HResult; stdcall;
- function IsUsingDefaultSource: HResult; stdcall;
- function IsUsingDefaultDestination: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBasicVideo2> _di_IBasicVideo2;'}
- {$EXTERNALSYM IBasicVideo2}
- IBasicVideo2 = interface(IBasicVideo)
- ['{329bb360-f6ea-11d1-9038-00a0c9697298}']
- (*** IBasicVideo2 methods ***)
- function GetPreferredAspectRatio(out plAspectX, plAspectY: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDeferredCommand> _di_IDeferredCommand;'}
- {$EXTERNALSYM IDeferredCommand}
- IDeferredCommand = interface(IDispatch)
- ['{56A868B8-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IDeferredCommand methods ***)
- function Cancel: HResult; stdcall;
- function Confidence(out pConfidence: Longint): HResult; stdcall;
- function Postpone(newtime: TRefTime): HResult; stdcall;
- function GetHResult(out phrResult: HResult): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IQueueCommand> _di_IQueueCommand;'}
- {$EXTERNALSYM IQueueCommand}
- IQueueCommand = interface(IUnknown)
- ['{56A868B7-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IQueueCommand methods ***)
- function InvokeAtStreamTime(out pCmd: IDeferredCommand; time: TRefTime;
- const iid: TGUID; dispidMethod: Longint; wFlags: SmallInt;
- cArgs: Longint; const pDispParams: OleVariant; var pvarResult: OleVariant;
- out puArgErr: SmallInt): HResult; stdcall;
- function InvokeAtPresentationTime(out pCmd: IDeferredCommand;
- time: TRefTime; const iid: TGUID; dispidMethod: Longint;
- wFlags: SmallInt; cArgs: Longint; const pDispParams: OleVariant;
- var pvarResult: OleVariant; out puArgErr: SmallInt): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFilterInfo> _di_IFilterInfo;'}
- {$EXTERNALSYM IFilterInfo}
- IFilterInfo = interface(IDispatch)
- ['{56A868BA-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IFilterInfo methods ***)
- function FindPin(strPinID: WideString; out ppUnk: IDispatch): HResult; stdcall;
- function get_Name(out strName: WideString): HResult; stdcall;
- function get_VendorInfo(out strVendorInfo: WideString): HResult; stdcall;
- function get_Filter(out ppUnk: IUnknown): HResult; stdcall;
- function get_Pins(out ppUnk: IDispatch): HResult; stdcall;
- function get_IsFileSource(out pbIsSource: LongBool): HResult; stdcall;
- function get_Filename(out pstrFilename: WideString): HResult; stdcall;
- function put_Filename(strFilename: WideString): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IRegFilterInfo> _di_IRegFilterInfo;'}
- {$EXTERNALSYM IRegFilterInfo}
- IRegFilterInfo = interface(IDispatch)
- ['{56A868BB-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IRegFilterInfo methods ***)
- function get_Name(out strName: WideString): HResult; stdcall;
- function Filter(out ppUnk: IDispatch): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaTypeInfo> _di_IMediaTypeInfo;'}
- {$EXTERNALSYM IMediaTypeInfo}
- IMediaTypeInfo = interface(IDispatch)
- ['{56A868BC-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IMediaTypeInfo methods ***)
- function Get_Type(out strType: WideString): HResult; stdcall;
- function Get_Subtype(out strType: WideString): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IPinInfo> _di_IPinInfo;'}
- {$EXTERNALSYM IPinInfo}
- IPinInfo = interface(IDispatch)
- ['{56A868BD-0AD4-11CE-B03A-0020AF0BA770}']
- (*** IPinInfo methods ***)
- function get_Pin(out ppUnk: IUnknown): HResult; stdcall;
- function get_ConnectedTo(out ppUnk: IDispatch): HResult; stdcall;
- function get_ConnectionMediaType(out ppUnk: IDispatch): HResult; stdcall;
- function get_FilterInfo(out ppUnk: IDispatch): HResult; stdcall;
- function get_Name(out ppUnk: WideString): HResult; stdcall;
- function get_Direction(out ppDirection: Longint): HResult; stdcall;
- function get_PinID(out strPinID: WideString): HResult; stdcall;
- function get_MediaTypes(out ppUnk: IDispatch): HResult; stdcall;
- function Connect(pPin: IUnknown): HResult; stdcall;
- function ConnectDirect(pPin: IUnknown): HResult; stdcall;
- function ConnectWithType(pPin: IUnknown; pMediaType: IDispatch): HResult; stdcall;
- function Disconnect: HResult; stdcall;
- function Render: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMStats> _di_IAMStats;'}
- {$EXTERNALSYM IAMStats}
- IAMStats = interface(IDispatch)
- ['{bc9bcf80-dcd2-11d2-abf6-00a0c905f375}']
- (*** IAMStats methods ***)
- function Reset: HResult; stdcall;
- function get_Count(out plCount: Longint): HResult; stdcall;
- function GetValueByIndex(lIndex: longint; out szName: WideString; out lCount: longint;
- out dLast, dAverage, dStdDev, dMin, dMax: double): HResult; stdcall;
- function GetValueByName(szName: WideString; out lIndex, lCount: Longint;
- out dLast, dAverage, dStdDev, dMin, dMax: double): HResult; stdcall;
- function GetIndex(szName: WideString; lCreate: longint; out plIndex: longint): HResult; stdcall;
- function AddValue(lIndex: longint; dValue: double): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: qnetwork.h
- *
- ***************************************************************************)
- const
- LIBID_QuartzNetTypeLib: TGUID = (D1:$56A868B1;D2:$0AD4;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM LIBID_QuartzNetTypeLib}
- IID_IAMNetShowConfig: TGUID = (D1:$FA2AA8F1;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMNetShowConfig}
- IID_IAMChannelInfo: TGUID = (D1:$FA2AA8F2;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMChannelInfo}
- IID_IAMNetworkStatus: TGUID = (D1:$FA2AA8F3;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMNetworkStatus}
- IID_IAMExtendedSeeking: TGUID = (D1:$FA2AA8F9;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMExtendedSeeking}
- IID_IAMNetShowExProps: TGUID = (D1:$FA2AA8F5;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMNetShowExProps}
- IID_IAMExtendedErrorInfo: TGUID = (D1:$FA2AA8F6;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMExtendedErrorInfo}
- IID_IAMMediaContent: TGUID = (D1:$FA2AA8F4;D2:$8B62;D3:$11D0;D4:($A5,$20,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM IID_IAMMediaContent}
- IID_IAMMediaContent2 : TGUID = (D1:$CE8F78C1;D2:$74D9;D3:$11D2;D4:($B0,$9D,$00,$A0,$C9,$A8,$11,$17));
- {$EXTERNALSYM IID_IAMMediaContent2}
- IID_IAMNetShowPreroll: TGUID = (D1:$AAE7E4E2;D2:$6388;D3:$11D1;D4:($8D,$93,$00,$60,$97,$C9,$A2,$B2));
- {$EXTERNALSYM IID_IAMNetShowPreroll}
- IID_IDShowPlugin : TGUID = (D1:$4746B7C8;D2:$700E;D3:$11D1;D4:($BE,$CC,$00,$C0,$4F,$B6,$E9,$37));
- {$EXTERNALSYM IID_IDShowPlugin}
- //AMExtendedSeekingCapabilities
- const
- AM_EXSEEK_CANSEEK = 1;
- {$EXTERNALSYM AM_EXSEEK_CANSEEK}
- AM_EXSEEK_CANSCAN = 2;
- {$EXTERNALSYM AM_EXSEEK_CANSCAN}
- AM_EXSEEK_MARKERSEEK = 4;
- {$EXTERNALSYM AM_EXSEEK_MARKERSEEK}
- AM_EXSEEK_SCANWITHOUTCLOCK = 8;
- {$EXTERNALSYM AM_EXSEEK_SCANWITHOUTCLOCK}
- AM_EXSEEK_NOSTANDARDREPAINT = 16;
- {$EXTERNALSYM AM_EXSEEK_NOSTANDARDREPAINT}
- AM_EXSEEK_BUFFERING = 32;
- {$EXTERNALSYM AM_EXSEEK_BUFFERING}
- AM_EXSEEK_SENDS_VIDEOFRAMEREADY = 64;
- {$EXTERNALSYM AM_EXSEEK_SENDS_VIDEOFRAMEREADY}
- type
- DATE = record
- da_year: Integer; // Year - 1980
- da_day : Byte; // Day of the month
- da_mon : Byte; // Month (1 = Jan)
- end;
- {$EXTERNALSYM DATE}
- //TDate = DATE;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMNetShowConfig> _di_IAMNetShowConfig;'}
- {$EXTERNALSYM IAMNetShowConfig}
- IAMNetShowConfig = interface(IDispatch)
- ['{FA2AA8F1-8B62-11D0-A520-000000000000}']
- (*** IAMNetShowConfig methods ***)
- function get_BufferingTime(var pBufferingTime: double): HResult; stdcall;
- function put_BufferingTime(BufferingTime: double): HResult; stdcall;
- function get_UseFixedUDPPort(var pUseFixedUDPPort: WordBool): HResult; stdcall;
- function put_UseFixedUDPPort(UseFixedUDPPort: WordBool): HResult; stdcall;
- function get_FixedUDPPort(var pFixedUDPPort: Longint): HResult; stdcall;
- function put_FixedUDPPort(FixedUDPPort: Longint): HResult; stdcall;
- function get_UseHTTPProxy(var pUseHTTPProxy: WordBool): HResult; stdcall;
- function put_UseHTTPProxy(UseHTTPProxy: WordBool): HResult; stdcall;
- function get_EnableAutoProxy(var pEnableAutoProxy: WordBool): HResult; stdcall;
- function put_EnableAutoProxy(EnableAutoProxy: WordBool): HResult; stdcall;
- function get_HTTPProxyHost(var pbstrHTTPProxyHost: TBSTR): HResult; stdcall;
- function put_HTTPProxyHost(bstrHTTPProxyHost: TBSTR): HResult; stdcall;
- function get_HTTPProxyPort(var pHTTPProxyPort: Longint): HResult; stdcall;
- function put_HTTPProxyPort(HTTPProxyPort: Longint): HResult; stdcall;
- function get_EnableMulticast(var pEnableMulticast: WordBool): HResult; stdcall;
- function put_EnableMulticast(EnableMulticast: WordBool): HResult; stdcall;
- function get_EnableUDP(var pEnableUDP: WordBool): HResult; stdcall;
- function put_EnableUDP(EnableUDP: WordBool): HResult; stdcall;
- function get_EnableTCP(var pEnableTCP: WordBool): HResult; stdcall;
- function put_EnableTCP(EnableTCP: WordBool): HResult; stdcall;
- function get_EnableHTTP(var pEnableHTTP: WordBool): HResult; stdcall;
- function put_EnableHTTP(EnableHTTP: WordBool): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMChannelInfo> _di_IAMChannelInfo;'}
- {$EXTERNALSYM IAMChannelInfo}
- IAMChannelInfo = interface(IDispatch)
- ['{FA2AA8F2-8B62-11D0-A520-000000000000}']
- (*** IAMChannelInfo methods ***)
- function get_ChannelName(var pbstrChannelName: TBSTR): HResult; stdcall;
- function get_ChannelDescription(var pbstrChannelDescription: TBSTR): HResult; stdcall;
- function get_ChannelURL(var pbstrChannelURL: TBSTR): HResult; stdcall;
- function get_ContactAddress(var pbstrContactAddress: TBSTR): HResult; stdcall;
- function get_ContactPhone(var pbstrContactPhone: TBSTR): HResult; stdcall;
- function get_ContactEmail(var pbstrContactEmail: TBSTR): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMNetworkStatus> _di_IAMNetworkStatus;'}
- {$EXTERNALSYM IAMNetworkStatus}
- IAMNetworkStatus = interface(IDispatch)
- ['{FA2AA8F3-8B62-11D0-A520-000000000000}']
- (*** IAMNetworkStatus methods ***)
- function get_ReceivedPackets(var pReceivedPackets: Longint): HResult; stdcall;
- function get_RecoveredPackets(var pRecoveredPackets: Longint): HResult; stdcall;
- function get_LostPackets(var pLostPackets: Longint): HResult; stdcall;
- function get_ReceptionQuality(var pReceptionQuality: Longint): HResult; stdcall;
- function get_BufferingCount(var pBufferingCount: Longint): HResult; stdcall;
- function get_IsBroadcast(var pIsBroadcast: WordBool): HResult; stdcall;
- function get_BufferingProgress(var pBufferingProgress: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMExtendedSeeking> _di_IAMExtendedSeeking;'}
- {$EXTERNALSYM IAMExtendedSeeking}
- IAMExtendedSeeking = interface(IDispatch)
- ['{FA2AA8F9-8B62-11D0-A520-000000000000}']
- (*** IAMExtendedSeeking methods ***)
- function get_ExSeekCapabilities(var pExCapabilities: Longint): HResult; stdcall;
- function get_MarkerCount(var pMarkerCount: Longint): HResult; stdcall;
- function get_CurrentMarker(var pCurrentMarker: Longint): HResult; stdcall;
- function GetMarkerTime(MarkerNum: Longint; var pMarkerTime: double): HResult; stdcall;
- function GetMarkerName(MarkerNum: Longint; var pbstrMarkerName: TBSTR): HResult; stdcall;
- function put_PlaybackSpeed(Speed: double): HResult; stdcall;
- function get_PlaybackSpeed(var pSpeed: double): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMNetShowExProps> _di_IAMNetShowExProps;'}
- {$EXTERNALSYM IAMNetShowExProps}
- IAMNetShowExProps = interface(IDispatch)
- ['{FA2AA8F5-8B62-11D0-A520-000000000000}']
- (*** IAMNetShowExProps methods ***)
- function get_SourceProtocol(var pSourceProtocol: Longint): HResult; stdcall;
- function get_Bandwidth(var pBandwidth: Longint): HResult; stdcall;
- function get_ErrorCorrection(var pbstrErrorCorrection: TBSTR): HResult; stdcall;
- function get_CodecCount(var pCodecCount: Longint): HResult; stdcall;
- function GetCodecInstalled(CodecNum: Longint; var pCodecInstalled: WordBool): HResult; stdcall;
- function GetCodecDescription(CodecNum: Longint; var pbstrCodecDescription: TBSTR): HResult; stdcall;
- function GetCodecURL(CodecNum: Longint; var pbstrCodecURL: TBSTR): HResult; stdcall;
- function get_CreationDate(var pCreationDate: Date): HResult; stdcall;
- function get_SourceLink(var pbstrSourceLink: TBSTR): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMExtendedErrorInfo> _di_IAMExtendedErrorInfo;'}
- {$EXTERNALSYM IAMExtendedErrorInfo}
- IAMExtendedErrorInfo = interface(IDispatch)
- ['{FA2AA8F6-8B62-11D0-A520-000000000000}']
- (*** IAMExtendedErrorInfo methods ***)
- function get_HasError(var pHasError: WordBool): HResult; stdcall;
- function get_ErrorDescription(var pbstrErrorDescription: TBSTR): HResult; stdcall;
- function get_ErrorCode(var pErrorCode: Longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMMediaContent> _di_IAMMediaContent;'}
- {$EXTERNALSYM IAMMediaContent}
- IAMMediaContent = interface(IDispatch)
- ['{FA2AA8F4-8B62-11D0-A520-000000000000}']
- (*** IAMMediaContent methods ***)
- function get_AuthorName(var pbstrAuthorName: TBSTR): HResult; stdcall;
- function get_Title(var pbstrTitle: TBSTR): HResult; stdcall;
- function get_Rating(var pbstrRating: TBSTR): HResult; stdcall;
- function get_Description(var pbstrDescription: TBSTR): HResult; stdcall;
- function get_Copyright(var pbstrCopyright: TBSTR): HResult; stdcall;
- function get_BaseURL(var pbstrBaseURL: TBSTR): HResult; stdcall;
- function get_LogoURL(var pbstrLogoURL: TBSTR): HResult; stdcall;
- function get_LogoIconURL(var pbstrLogoURL: TBSTR): HResult; stdcall;
- function get_WatermarkURL(var pbstrWatermarkURL: TBSTR): HResult; stdcall;
- function get_MoreInfoURL(var pbstrMoreInfoURL: TBSTR): HResult; stdcall;
- function get_MoreInfoBannerImage(var pbstrMoreInfoBannerImage: TBSTR): HResult; stdcall;
- function get_MoreInfoBannerURL(var pbstrMoreInfoBannerURL: TBSTR): HResult; stdcall;
- function get_MoreInfoText(var pbstrMoreInfoText: TBSTR): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMMediaContent2> _di_IAMMediaContent2;'}
- {$EXTERNALSYM IAMMediaContent2}
- IAMMediaContent2 = interface(IDispatch)
- ['{CE8F78C1-74D9-11D2-B09D-00A0C9A81117}']
- (*** IAMMediaContent2 methods ***)
- function get_MediaParameter(var EntryNum: longint; var bstrName, pbstrValue: TBSTR): HResult; stdcall;
- function get_MediaParameterName(var EntryNum, Index: longint; var pbstrName: TBSTR): HResult; stdcall;
- function get_PlaylistCount(var pNumberEntries: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMNetShowPreroll> _di_IAMNetShowPreroll;'}
- {$EXTERNALSYM IAMNetShowPreroll}
- IAMNetShowPreroll = interface(IDispatch)
- ['{AAE7E4E2-6388-11D1-8D93-006097C9A2B2}']
- (*** IAMNetShowPreroll methods ***)
- function put_Preroll(var fPreroll : WordBool): HResult; stdcall;
- function get_Preroll(var pfPreroll: WordBool): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDShowPlugin> _di_IDShowPlugin;'}
- {$EXTERNALSYM IDShowPlugin}
- IDShowPlugin = interface(IUnknown)
- ['{4746B7C8-700E-11D1-BECC-00C04FB6E937}']
- (*** IDShowPlugin methods ***)
- function get_URL(var pURL: TBSTR): HResult; stdcall;
- function get_UserAgent(var pUserAgent: TBSTR): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: playlist.h
- *
- ***************************************************************************)
- const
- IID_IAMPlayListItem: TGUID = (D1:$56A868FF;D2:$0AD4;D3:$11CE;D4:($B0,$A3,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IAMPlayListItem}
- IID_IAMPlayList: TGUID = (D1:$56A868FE;D2:$0AD4;D3:$11CE;D4:($B0,$A3,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM IID_IAMPlayList}
- IID_ISpecifyParticularPages : TGUID = '{4C437B91-6E9E-11d1-A704-006097C4E476}';
- {$EXTERNALSYM IID_ISpecifyParticularPages}
- IID_IAMRebuild: TGUID = '{02EF04DD-7580-11d1-BECE-00C04FB6E937}';
- {$EXTERNALSYM IID_IAMRebuild}
- SPECIFYPAGES_STATISTICS: TGUID = (D1:$4c437b92;D2:$6e9e;D3:$11d1;D4:($a7,$4,$0,$60,$97,$c4,$e4,$76));
- {$EXTERNALSYM SPECIFYPAGES_STATISTICS}
- AMPLAYLISTITEM_CANSKIP = 1;
- {$EXTERNALSYM AMPLAYLISTITEM_CANSKIP}
- AMPLAYLISTITEM_CANBIND = 2;
- {$EXTERNALSYM AMPLAYLISTITEM_CANBIND}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMPlayListItem> _di_IAMPlayListItem;'}
- {$EXTERNALSYM IAMPlayListItem}
- IAMPlayListItem = interface(IUnknown)
- ['{56A868FF-0AD4-11CE-B0A3-0020AF0BA770}']
- (*** IAMPlayListItem methods ***)
- function GetFlags(out pdwFlags: DWORD): HResult; stdcall;
- function GetSourceCount(out pdwSources: DWORD): HResult; stdcall;
- function GetSourceURL(dwSourceIndex: DWORD; out pbstrURL: WideChar): HResult; stdcall;
- function GetSourceStart(dwSourceIndex: DWORD; out prtStart: TReferenceTime): HResult; stdcall;
- function GetSourceDuration(dwSourceIndex: DWORD;
- out prtDuration: TReferenceTime): HResult; stdcall;
- function GetSourceStartMarker(dwSourceIndex: DWORD;
- out pdwMarker: DWORD): HResult; stdcall;
- function GetSourceEndMarker(dwSourceIndex: DWORD;
- out pdwMarker: DWORD): HResult; stdcall;
- function GetSourceStartMarkerName(dwSourceIndex: DWORD;
- out pbstrStartMarker: WideChar): HResult; stdcall;
- function GetSourceEndMarkerName(dwSourceIndex: DWORD;
- out pbstrEndMarker: WideChar): HResult; stdcall;
- function GetLinkURL(out pbstrURL: WideChar): HResult; stdcall;
- function GetScanDuration(dwSourceIndex: DWORD;
- out prtScanDuration: TReferenceTime): HResult; stdcall;
- end;
- const
- AMPLAYLIST_STARTINSCANMODE = 1;
- {$EXTERNALSYM AMPLAYLIST_STARTINSCANMODE}
- AMPLAYLIST_FORCEBANNER = 2;
- {$EXTERNALSYM AMPLAYLIST_FORCEBANNER}
- AMPLAYLISTEVENT_RESUME = $0;
- {$EXTERNALSYM AMPLAYLISTEVENT_RESUME}
- AMPLAYLISTEVENT_BREAK = $1;
- {$EXTERNALSYM AMPLAYLISTEVENT_BREAK}
- AMPLAYLISTEVENT_NEXT = $2;
- {$EXTERNALSYM AMPLAYLISTEVENT_NEXT}
- AMPLAYLISTEVENT_MASK = $f;
- {$EXTERNALSYM AMPLAYLISTEVENT_MASK}
- AMPLAYLISTEVENT_REFRESH = $10;
- {$EXTERNALSYM AMPLAYLISTEVENT_REFRESH}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMPlayList> _di_IAMPlayList;'}
- {$EXTERNALSYM IAMPlayList}
- IAMPlayList = interface(IUnknown)
- ['{56A868FE-0AD4-11CE-B0A3-0020AF0BA770}']
- (*** IAMPlayList methods ***)
- function GetFlags(out pdwFlags: DWORD): HResult; stdcall;
- function GetItemCount(out pdwItems: DWORD): HResult; stdcall;
- function GetItem(dwItemIndex: DWORD; out ppItem: IAMPlayListItem): HResult; stdcall;
- function GetNamedEvent(var pwszEventName: WideChar; dwItemIndex: DWORD;
- out ppItem: IAMPlayListItem; out pdwFlags: DWORD): HResult; stdcall;
- function GetRepeatInfo(out pdwRepeatCount, pdwRepeatStart,
- pdwRepeatEnd: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ISpecifyParticularPages> _di_ISpecifyParticularPages;'}
- {$EXTERNALSYM ISpecifyParticularPages}
- ISpecifyParticularPages = interface(IUnknown)
- ['{4C437B91-6E9E-11d1-A704-006097C4E476}']
- (*** ISpecifyParticularPages methods ***)
- function GetPages(const guidWhatPages: TGUID; out pPages: PGUID): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMRebuild> _di_IAMRebuild;'}
- {$EXTERNALSYM IAMRebuild}
- IAMRebuild = interface(IUnknown)
- ['{02EF04DD-7580-11d1-BECE-00C04FB6E937}']
- (*** IAMRebuild methods ***)
- function RebuildNow: HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: amvideo.h
- *
- ***************************************************************************)
- const
- IID_IDirectDrawVideo: TGUID = (D1:$36D39EB0;D2:$DD75;D3:$11CE;D4:($BF,$0E,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM IID_IDirectDrawVideo}
- IID_IQualProp: TGUID = (D1:$1BD0ECB0;D2:$F8E2;D3:$11CE;D4:($AA,$C6,$00,$20,$AF,$0B,$99,$A3));
- {$EXTERNALSYM IID_IQualProp}
- IID_IFullScreenVideo: TGUID = (D1:$DD1D7110;D2:$7836;D3:$11CF;D4:($BF,$47,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM IID_IFullScreenVideo}
- IID_IFullScreenVideoEx: TGUID = (D1:$53479470;D2:$F1DD;D3:$11CF;D4:($BC,$42,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM IID_IFullScreenVideoEx}
- IID_IBaseVideoMixer: TGUID = (D1:$61DED640;D2:$E912;D3:$11CE;D4:($A0,$99,$00,$AA,$00,$47,$9A,$58));
- {$EXTERNALSYM IID_IBaseVideoMixer}
- const
- AMDDS_NONE = $00; // No use for DCI/DirectDraw
- {$EXTERNALSYM AMDDS_NONE}
- AMDDS_DCIPS = $01; // Use DCI primary surface
- {$EXTERNALSYM AMDDS_DCIPS}
- AMDDS_PS = $02; // Use DirectDraw primary
- {$EXTERNALSYM AMDDS_PS}
- AMDDS_RGBOVR = $04; // RGB overlay surfaces
- {$EXTERNALSYM AMDDS_RGBOVR}
- AMDDS_YUVOVR = $08; // YUV overlay surfaces
- {$EXTERNALSYM AMDDS_YUVOVR}
- AMDDS_RGBOFF = $10; // RGB offscreen surfaces
- {$EXTERNALSYM AMDDS_RGBOFF}
- AMDDS_YUVOFF = $20; // YUV offscreen surfaces
- {$EXTERNALSYM AMDDS_YUVOFF}
- AMDDS_RGBFLP = $40; // RGB flipping surfaces
- {$EXTERNALSYM AMDDS_RGBFLP}
- AMDDS_YUVFLP = $80; // YUV flipping surfaces
- {$EXTERNALSYM AMDDS_YUVFLP}
- AMDDS_ALL = $FF; // ALL the previous flags
- {$EXTERNALSYM AMDDS_ALL}
- AMDDS_DEFAULT = AMDDS_ALL; // Use all available surfaces
- {$EXTERNALSYM AMDDS_DEFAULT}
- AMDDS_YUV = AMDDS_YUVOFF or AMDDS_YUVOVR or AMDDS_YUVFLP;
- {$EXTERNALSYM AMDDS_YUV}
- AMDDS_RGB = AMDDS_RGBOFF or AMDDS_RGBOVR or AMDDS_RGBFLP;
- {$EXTERNALSYM AMDDS_RGB}
- AMDDS_PRIMARY = AMDDS_DCIPS or AMDDS_PS;
- {$EXTERNALSYM AMDDS_PRIMARY}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDirectDrawVideo> _di_IDirectDrawVideo;'}
- {$EXTERNALSYM IDirectDrawVideo}
- IDirectDrawVideo = interface(IUnknown)
- ['{36D39EB0-DD75-11CE-BF0E-00AA0055595A}']
- (*** IDirectDrawVideo methods ***)
- function GetSwitches(out pSwitches: DWORD): HResult; stdcall;
- function SetSwitches(pSwitches: DWORD): HResult; stdcall;
- function GetCaps(out pCaps: TDDCaps): HResult; stdcall;
- function GetEmulatedCaps(out pCaps: TDDCaps): HResult; stdcall;
- function GetSurfaceDesc(out pSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
- function GetFourCCCodes(out pCount, pCodes: DWORD): HResult; stdcall;
- function SetDirectDraw(pDirectDraw: IDirectDraw): HResult; stdcall;
- function GetDirectDraw(out ppDirectDraw: IDirectDraw): HResult; stdcall;
- function GetSurfaceType(out pSurfaceType: DWORD): HResult; stdcall;
- function SetDefault: HResult; stdcall;
- function UseScanLine(UseScanLine: LongBool): HResult; stdcall;
- function CanUseScanLine(var UseScanLine: LongBool): HResult; stdcall;
- function UseOverlayStretch(UseOverlayStretch: LongBool): HResult; stdcall;
- function CanUseOverlayStretch(var UseOverlayStretch: LongBool): HResult;
- stdcall;
- function UseWhenFullScreen(UseWhenFullScreen: LongBool): HResult; stdcall;
- function WillUseFullScreen(var UseWhenFullScreen: LongBool): HResult;
- stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IQualProp> _di_IQualProp;'}
- {$EXTERNALSYM IQualProp}
- IQualProp = interface(IUnknown)
- ['{1BD0ECB0-F8E2-11CE-AAC6-0020AF0B99A3}']
- (*** IQualProp methods ***)
- // Compare these with the functions in class CGargle in gargle.h
- function get_FramesDroppedInRenderer(var pcFrames: Integer): HResult; stdcall;
- function get_FramesDrawn(out pcFrames: Integer): HResult; stdcall;
- function get_AvgFrameRate(out piAvgFrameRate: Integer): HResult; stdcall;
- function get_Jitter(out iJitter: Integer): HResult; stdcall;
- function get_AvgSyncOffset(out piAvg: Integer): HResult; stdcall;
- function get_DevSyncOffset(out piDev: Integer): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFullScreenVideo> _di_IFullScreenVideo;'}
- {$EXTERNALSYM IFullScreenVideo}
- IFullScreenVideo = interface(IUnknown)
- ['{DD1D7110-7836-11CF-BF47-00AA0055595A}']
- (*** IFullScreenVideo methods ***)
- function CountModes(out pModes: Longint): HResult; stdcall;
- function GetModeInfo(Mode: Longint; out pWidth, pHeight, pDepth: Longint):
- HResult; stdcall;
- function GetCurrentMode(out pMode: Longint): HResult; stdcall;
- function IsModeAvailable(Mode: Longint): HResult; stdcall;
- function IsModeEnabled(Mode: Longint): HResult; stdcall;
- function SetEnabled(Mode: Longint; bEnabled: Longint): HResult; stdcall;
- function GetClipFactor(out pClipFactor: Longint): HResult; stdcall;
- function SetClipFactor(ClipFactor: Longint): HResult; stdcall;
- function SetMessageDrain(hwnd: HWND): HResult; stdcall;
- function GetMessageDrain(out hwnd: HWND): HResult; stdcall;
- function SetMonitor(Monitor: Longint): HResult; stdcall;
- function GetMonitor(out Monitor: Longint): HResult; stdcall;
- function HideOnDeactivate(Hide: LongBool): HResult; stdcall;
- function IsHideOnDeactivate: HResult; stdcall;
- function SetCaption(strCaption: TBStr): HResult; stdcall;
- function GetCaption(out pstrCaption: TBStr): HResult; stdcall;
- function SetDefault: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IFullScreenVideoEx> _di_IFullScreenVideoEx;'}
- {$EXTERNALSYM IFullScreenVideoEx}
- IFullScreenVideoEx = interface(IFullScreenVideo)
- ['{53479470-F1DD-11CF-BC42-00AA00AC74F6}']
- (*** IFullScreenVideoEx methods ***)
- // IFullScreenVideoEx
- function SetAcceleratorTable(hwnd: HWND; hAccel: HACCEL): HResult; stdcall;
- function GetAcceleratorTable(var hwnd: HWND; var hAccel: HACCEL): HResult;
- stdcall;
- function KeepPixelAspectRatio(KeepAspect: LongBool): HResult; stdcall;
- function IsKeepPixelAspectRatio(var pKeepAspect: LongBool): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBaseVideoMixer> _di_IBaseVideoMixer;'}
- {$EXTERNALSYM IBaseVideoMixer}
- IBaseVideoMixer = interface(IUnknown)
- ['{61DED640-E912-11CE-A099-00AA00479A58}']
- (*** IBaseVideoMixer methods ***)
- function SetLeadPin(iPin: Integer): HResult; stdcall;
- function GetLeadPin(out iPin: Integer): HResult; stdcall;
- function GetInputPinCount(out piPinCount: Integer): HResult; stdcall;
- function IsUsingClock(out pbValue: Integer): HResult; stdcall;
- function SetUsingClock(bValue: Integer): HResult; stdcall;
- function GetClockPeriod(out pbValue: Integer): HResult; stdcall;
- function SetClockPeriod(bValue: Integer): HResult; stdcall;
- end;
- const
- iPALETTE_COLORS = 256; // Maximum colours in palette
- {$EXTERNALSYM iPALETTE_COLORS}
- iEGA_COLORS = 16; // Number colours in EGA palette
- {$EXTERNALSYM iEGA_COLORS}
- iMASK_COLORS = 3; // Maximum three components
- {$EXTERNALSYM iMASK_COLORS}
- iTRUECOLOR = 16; // Minimum true colour device
- {$EXTERNALSYM iTRUECOLOR}
- iRED = 0; // Index position for RED mask
- {$EXTERNALSYM iRED}
- iGREEN = 1; // Index position for GREEN mask
- {$EXTERNALSYM iGREEN}
- iBLUE = 2; // Index position for BLUE mask
- {$EXTERNALSYM iBLUE}
- iPALETTE = 8; // Maximum colour depth using a palette
- {$EXTERNALSYM iPALETTE}
- iMAXBITS = 8; // Maximum bits per colour component
- {$EXTERNALSYM iMAXBITS}
- type
- // Used for true colour images that also have a palette
- tag_TRUECOLORINFO = record
- dwBitMasks: array[0..iMASK_COLORS-1] of DWORD;
- bmiColors: array[0..iPALETTE_COLORS-1] of TRGBQuad;
- end;
- {$EXTERNALSYM tag_TRUECOLORINFO}
- TRUECOLORINFO = tag_TRUECOLORINFO;
- {$EXTERNALSYM TRUECOLORINFO}
- TTrueColorInfo = tag_TRUECOLORINFO;
- PVideoInfoHeader = ^TVideoInfoHeader;
- tagVIDEOINFOHEADER = record
- rcSource: TRect; // The bit we really want to use
- rcTarget: TRect; // Where the video should go
- dwBitRate: DWORD; // Approximate bit data rate
- dwBitErrorRate: DWORD; // Bit error rate for this stream
- AvgTimePerFrame: TReferenceTime; // Average time per frame (100ns units)
- bmiHeader: TBitmapInfoHeader;
- end;
- {$EXTERNALSYM tagVIDEOINFOHEADER}
- VIDEOINFOHEADER = tagVIDEOINFOHEADER;
- {$EXTERNALSYM VIDEOINFOHEADER}
- TVideoInfoHeader = tagVIDEOINFOHEADER;
- // make sure the pbmi is initialized before using these macros
- {function TRUECOLOR(pbmi: PBitmapInfo): Pointer;
- function COLORS(pbmi: PBitmapInfo): Pointer;
- function BITMASKS(pbmi: PBitmapInfo): Pointer;
- {
- #define TRUECOLOR(pbmi) ((TRUECOLORINFO *)(((LPBYTE)&((pbmi)->bmiHeader)) \
- + (pbmi)->bmiHeader.biSize))
- #define COLORS(pbmi) ((RGBQUAD *)(((LPBYTE)&((pbmi)->bmiHeader)) \
- + (pbmi)->bmiHeader.biSize))
- #define BITMASKS(pbmi) ((DWORD *)(((LPBYTE)&((pbmi)->bmiHeader)) \
- + (pbmi)->bmiHeader.biSize))
- }
- // All the image based filters use this to communicate their media types. It's
- // centred principally around the BITMAPINFO. This structure always contains a
- // BITMAPINFOHEADER followed by a number of other fields depending on what the
- // BITMAPINFOHEADER contains. If it contains details of a palettised format it
- // will be followed by one or more RGBQUADs defining the palette. If it holds
- // details of a true colour format then it may be followed by a set of three
- // DWORD bit masks that specify where the RGB data can be found in the image
- // (For more information regarding BITMAPINFOs see the Win32 documentation)
- // The rcSource and rcTarget fields are not for use by filters supplying the
- // data. The destination (target) rectangle should be set to all zeroes. The
- // source may also be zero filled or set with the dimensions of the video. So
- // if the video is 352x288 pixels then set it to (0,0,352,288). These fields
- // are mainly used by downstream filters that want to ask the source filter
- // to place the image in a different position in an output buffer. So when
- // using for example the primary surface the video renderer may ask a filter
- // to place the video images in a destination position of (100,100,452,388)
- // on the display since that's where the window is positioned on the display
- // !!! WARNING !!!
- // DO NOT use this structure unless you are sure that the BITMAPINFOHEADER
- // has a normal biSize == sizeof(BITMAPINFOHEADER) !
- // !!! WARNING !!!
- type
- PVideoInfo = ^TVideoInfo;
- tagVIDEOINFO = record
- rcSource: TRect; // The bit we really want to use
- rcTarget: TRect; // Where the video should go
- dwBitRate: DWORD; // Approximate bit data rate
- dwBitErrorRate: DWORD; // Bit error rate for this stream
- AvgTimePerFrame: TReferenceTime; // Average time per frame (100ns units)
- bmiHeader: TBitmapInfoHeader;
- case Integer of
- 0: (
- bmiColors: array[0..iPALETTE_COLORS-1] of TRGBQuad // Colour palette
- );
- 1: (
- dwBitMasks: array[0..iMASK_COLORS-1] of DWORD // True colour masks
- );
- 2: (
- TrueColorInfo: TTrueColorInfo // Both of the above
- );
- end;
- {$EXTERNALSYM tagVIDEOINFO}
- VIDEOINFO = tagVIDEOINFO;
- {$EXTERNALSYM VIDEOINFO}
- TVideoInfo = tagVIDEOINFO;
- // These macros define some standard bitmap format sizes
- const
- SIZE_EGA_PALETTE = iEGA_COLORS * SizeOf(TRGBQuad);
- {$EXTERNALSYM SIZE_EGA_PALETTE}
- SIZE_PALETTE = iPALETTE_COLORS * SizeOf(TRGBQuad);
- {$EXTERNALSYM SIZE_PALETTE}
- SIZE_MASKS = iMASK_COLORS * SizeOf(DWORD);
- {$EXTERNALSYM SIZE_MASKS}
- SIZE_PREHEADER = 48; // offset TVideoInfoHeader.bmiHeader
- {$EXTERNALSYM SIZE_PREHEADER}
- SIZE_VIDEOHEADER = SizeOf(TVideoInfoHeader);
- {$EXTERNALSYM SIZE_VIDEOHEADER}
- // !!! for abnormal biSizes
- // #define SIZE_VIDEOHEADER(pbmi) ((pbmi)->bmiHeader.biSize + SIZE_PREHEADER)
- // DIBSIZE calculates the number of bytes required by an image
- {
- function WIDTHBYTES(bits: Integer): DWORD;
- function DIBWIDTHBYTES(const bhi: TBitmapInfoHeader): DWORD;
- function _DIBSIZE(const bmi: TBitmapInfoHeader): DWORD;
- function DIBSIZE(const bmi: TBitmapInfoHeader): DWORD;
- {
- #define WIDTHBYTES(bits) ((DWORD)(((bits)+31) & (~31)) / 8)
- #define DIBWIDTHBYTES(bi) (DWORD)WIDTHBYTES((DWORD)(bi).biWidth * (DWORD)(bi).biBitCount)
- #define _DIBSIZE(bi) (DIBWIDTHBYTES(bi) * (DWORD)(bi).biHeight)
- #define DIBSIZE(bi) ((bi).biHeight < 0 ? (-1)*(_DIBSIZE(bi)) : _DIBSIZE(bi))
- }
- // This compares the bit masks between two VIDEOINFOHEADERs
- {
- function BIT_MASKS_MATCH(const bmi1, bmi2: TBitmapInfo): Boolean;
- {
- #define BIT_MASKS_MATCH(pbmi1,pbmi2) \
- (((pbmi1)->dwBitMasks[iRED] == (pbmi2)->dwBitMasks[iRED]) && \
- ((pbmi1)->dwBitMasks[iGREEN] == (pbmi2)->dwBitMasks[iGREEN]) && \
- ((pbmi1)->dwBitMasks[iBLUE] == (pbmi2)->dwBitMasks[iBLUE]))
- }
- // These zero fill different parts of the VIDEOINFOHEADER structure
- // Only use these macros for pbmi's with a normal BITMAPINFOHEADER biSize
- {procedure RESET_MASKS(var bmi: TBitmapInfo);
- procedure RESET_HEADER(var bmi: TBitmapInfo);
- procedure RESET_PALETTE(var bmi: TBitmapInfo);
- {
- #define RESET_MASKS(pbmi) (ZeroMemory((PVOID)(pbmi)->dwBitFields,SIZE_MASKS))
- #define RESET_HEADER(pbmi) (ZeroMemory((PVOID)(pbmi),SIZE_VIDEOHEADER))
- #define RESET_PALETTE(pbmi) (ZeroMemory((PVOID)(pbmi)->bmiColors,SIZE_PALETTE));
- }
- {
- // !!! This is the right way to do it, but may break existing code
- #define RESET_MASKS(pbmi) (ZeroMemory((PVOID)(((LPBYTE)(pbmi)->bmiHeader) + \
- (pbmi)->bmiHeader.biSize,SIZE_MASKS)))
- #define RESET_HEADER(pbmi) (ZeroMemory((PVOID)(pbmi), SIZE_PREHEADER + \
- sizeof(BITMAPINFOHEADER)))
- #define RESET_PALETTE(pbmi) (ZeroMemory((PVOID)(((LPBYTE)(pbmi)->bmiHeader) + \
- (pbmi)->bmiHeader.biSize,SIZE_PALETTE))
- }
- // Other (hopefully) useful bits and bobs
- {
- #define PALETTISED(pbmi) ((pbmi)->bmiHeader.biBitCount <= iPALETTE)
- #define PALETTE_ENTRIES(pbmi) ((DWORD) 1 << (pbmi)->bmiHeader.biBitCount)
- // Returns the address of the BITMAPINFOHEADER from the VIDEOINFOHEADER
- #define HEADER(pVideoInfo) (&(((VIDEOINFOHEADER *) (pVideoInfo))->bmiHeader))
- }
- // MPEG variant - includes a DWORD length followed by the
- // video sequence header after the video header.
- //
- // The sequence header includes the sequence header start code and the
- // quantization matrices associated with the first sequence header in the
- // stream so is a maximum of 140 bytes long.
- type
- PMPEG1VideoInfo = ^TMPEG1VideoInfo;
- tagMPEG1VIDEOINFO = record
- hdr: TVideoInfoHeader; // Compatible with VIDEOINFO
- dwStartTimeCode: DWORD; // 25-bit Group of pictures time code
- // at start of data
- cbSequenceHeader: DWORD; // Length in bytes of bSequenceHeader
- bSequenceHeader: array[0..0] of Byte; // Sequence header including
- // quantization matrices if any
- end;
- {$EXTERNALSYM tagMPEG1VIDEOINFO}
- MPEG1VIDEOINFO = tagMPEG1VIDEOINFO;
- {$EXTERNALSYM MPEG1VIDEOINFO}
- TMPEG1VideoInfo = tagMPEG1VIDEOINFO;
-
- const
- MAX_SIZE_MPEG1_SEQUENCE_INFO = 140;
- {$EXTERNALSYM MAX_SIZE_MPEG1_SEQUENCE_INFO}
- {
- #define SIZE_MPEG1VIDEOINFO(pv) (FIELD_OFFSET(MPEG1VIDEOINFO, bSequenceHeader[0]) + (pv)->cbSequenceHeader)
- #define MPEG1_SEQUENCE_INFO(pv) ((const BYTE *)(pv)->bSequenceHeader)
- }
- // Analog video variant - Use this when the format is FORMAT_AnalogVideo
- //
- // rcSource defines the portion of the active video signal to use
- // rcTarget defines the destination rectangle
- // both of the above are relative to the dwActiveWidth and dwActiveHeight fields
- // dwActiveWidth is currently set to 720 for all formats (but could change for HDTV)
- // dwActiveHeight is 483 for NTSC and 575 for PAL/SECAM (but could change for HDTV)
- type
- tagAnalogVideoInfo = record
- rcSource: TRect; // Width max is 720, height varies w/ TransmissionS
- rcTarget: TRect; // Where the video should go
- dwBitRate: DWORD; // Always 720 (CCIR-601 active samples per line)
- dwBitErrorRate: DWORD; // 483 for NTSC, 575 for PAL/SECAM
- AvgTimePerFrame: TReferenceTime; // Normal ActiveMovie units (100 nS)
- end;
- {$EXTERNALSYM tagAnalogVideoInfo}
- ANALOGVIDEOINFO = tagAnalogVideoInfo;
- {$EXTERNALSYM ANALOGVIDEOINFO}
- TAnalogVideoInfo = tagAnalogVideoInfo;
- //
- // AM_KSPROPSETID_FrameStep property set definitions
- //
- AM_PROPERTY_FRAMESTEP = (
- {$IFNDEF COMPILER6_UP}
- AM_PROPERTY_FRAMESTEP_INVALID_O,
- // Step
- AM_PROPERTY_FRAMESTEP_STEP,
- AM_PROPERTY_FRAMESTEP_CANCEL,
- // S_OK for these 2 means we can - S_FALSE if we can't
- AM_PROPERTY_FRAMESTEP_CANSTEP,
- AM_PROPERTY_FRAMESTEP_CANSTEPMULTIPLE
- {$ELSE}
- // Step
- AM_PROPERTY_FRAMESTEP_STEP = 1,
- AM_PROPERTY_FRAMESTEP_CANCEL = 2 ,
- // S_OK for these 2 means we can - S_FALSE if we can't
- AM_PROPERTY_FRAMESTEP_CANSTEP = 3,
- AM_PROPERTY_FRAMESTEP_CANSTEPMULTIPLE = 4
- {$ENDIF}
- );
- {$EXTERNALSYM AM_PROPERTY_FRAMESTEP}
- TAMPropertyFramesStep = AM_PROPERTY_FRAMESTEP;
- _AM_FRAMESTEP_STEP = record
- // 1 means step 1 frame forward
- // 0 is invalid
- // n (n > 1) means skip n - 1 frames and show the nth
- dwFramesToStep: DWORD;
- end;
- {$EXTERNALSYM _AM_FRAMESTEP_STEP}
- AM_FRAMESTEP_STEP = _AM_FRAMESTEP_STEP;
- {$EXTERNALSYM AM_FRAMESTEP_STEP}
- TAMFramestepStep = _AM_FRAMESTEP_STEP;
-
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: amaudio.h
- *
- ***************************************************************************)
- const
- IID_IAMDirectSound: TGUID = (D1:$546F4260;D2:$D53E;D3:$11CF;D4:($B3,$F0,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM IID_IAMDirectSound}
- // This is the interface the audio renderer supports to give the application
- // access to the direct sound object and buffers it is using, to allow the
- // application to use things like the 3D features of Direct Sound for the
- // soundtrack of a movie being played with Active Movie
- // be nice to our friends in C
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMDirectSound> _di_IAMDirectSound;'}
- {$EXTERNALSYM IAMDirectSound}
- IAMDirectSound = interface(IUnknown)
- ['{546F4260-D53E-11CF-B3F0-00AA003761C5}']
- (*** IAMDirectSound methods ***)
- function GetDirectSoundInterface(out lplpds: IDirectSound): HResult;
- stdcall;
- function GetPrimaryBufferInterface(out lplpdsb: IDirectSoundBuffer):
- HResult; stdcall;
- function GetSecondaryBufferInterface(out lplpdsb: IDirectSoundBuffer):
- HResult; stdcall;
- function ReleaseDirectSoundInterface(lpds: IDirectSound): HResult; stdcall;
- function ReleasePrimaryBufferInterface(lpdsb: IDirectSoundBuffer): HResult;
- stdcall;
- function ReleaseSecondaryBufferInterface(lpdsb: IDirectSoundBuffer):
- HResult; stdcall;
- function SetFocusWindow(hwnd: HWND; b: BOOL): HResult; stdcall;
- function GetFocusWindow(var hwnd: HWND; var b: BOOL): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: vptype.h
- *
- ***************************************************************************)
- type
- // enum to specify the criterion, which the vpmixer is supposed to use
- // in order to select the video format
- _AMVP_SELECT_FORMAT_BY = (
- AMVP_DO_NOT_CARE,
- AMVP_BEST_BANDWIDTH,
- AMVP_INPUT_SAME_AS_OUTPUT
- );
- {$EXTERNALSYM _AMVP_SELECT_FORMAT_BY}
- AMVP_SELECT_FORMAT_BY = _AMVP_SELECT_FORMAT_BY;
- {$EXTERNALSYM AMVP_SELECT_FORMAT_BY}
- TAMVPSelectFormatBy = AMVP_SELECT_FORMAT_BY;
- // enum to specify the various mode
- _AMVP_MODE = (
- AMVP_MODE_WEAVE,
- AMVP_MODE_BOBINTERLEAVED,
- AMVP_MODE_BOBNONINTERLEAVED,
- AMVP_MODE_SKIPEVEN,
- AMVP_MODE_SKIPODD
- );
- {$EXTERNALSYM _AMVP_MODE}
- AMVP_MODE = _AMVP_MODE;
- {$EXTERNALSYM AMVP_MODE}
- TAMVPMode = AMVP_MODE;
- // struct to specify the width and height. The context could be anything
- // such as scaling cropping etc.
- PAMVPSize = ^TAMVPSize;
- _AMVPSIZE = record
- dwWidth : DWORD; // the width
- dwHeight : DWORD; // the height
- end;
- {$EXTERNALSYM _AMVPSIZE}
- AMVPSIZE = _AMVPSIZE;
- {$EXTERNALSYM AMVPSIZE}
- LPAMVPSIZE = ^AMVPSIZE;
- {$EXTERNALSYM LPAMVPSIZE}
- TAMVPSize = _AMVPSIZE;
- // struct to specify the dimensional characteristics of the input stream
- PAMVPDimInfo = ^TAMVPDimInfo;
- _AMVPDIMINFO = record
- {$EXTERNALSYM _AMVPDIMINFO}
- dwFieldWidth : DWORD; // Field height of the data
- dwFieldHeight : DWORD; // Field width of the data
- dwVBIWidth : DWORD; // Width of the VBI data
- dwVBIHeight : DWORD; // Height of the VBI data
- rcValidRegion : TRect; // The vaild rectangle, used for cropping
- end;
- AMVPDIMINFO = _AMVPDIMINFO;
- {$EXTERNALSYM AMVPDIMINFO}
- LPAMVPDIMINFO = ^AMVPDIMINFO;
- {$EXTERNALSYM LPAMVPDIMINFO}
- TAMVPDimInfo = _AMVPDIMINFO;
- // struct to specify the various data specific characteristics of the input stream
- PAMVPDataInfo = ^TAMVPDataInfo;
- _AMVPDATAINFO = record
- dwSize : DWORD; // Size of the struct
- dwMicrosecondsPerField : DWORD; // Time taken by each field
- amvpDimInfo : TAMVPDIMInfo; // Dimensional Information
- dwPictAspectRatioX : DWORD; // X dimension of Picture Aspect Ratio
- dwPictAspectRatioY : DWORD; // Y dimension of Picture Aspect Ratio
- bEnableDoubleClock : BOOL; // Videoport should enable double clocking
- bEnableVACT : BOOL; // Videoport should use an external VACT signal
- bDataIsInterlaced : BOOL; // Indicates that the signal is interlaced
- lHalfLinesOdd : Longint; // number of halflines in the odd field
- bFieldPolarityInverted : BOOL; // Device inverts the polarity by default
- dwNumLinesInVREF : DWORD; // Number of lines of data in VREF
- lHalfLinesEven : Longint; // number of halflines in the even field
- dwReserved1 : DWORD; // Reserved for future use
- end;
- {$EXTERNALSYM _AMVPDATAINFO}
- AMVPDATAINFO = _AMVPDATAINFO;
- {$EXTERNALSYM AMVPDATAINFO}
- LPAMVPDATAINFO = ^AMVPDATAINFO;
- {$EXTERNALSYM LPAMVPDATAINFO}
- TAMVPDataInfo = _AMVPDATAINFO;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: vpconfig.h
- *
- ***************************************************************************)
- const
- IID_IVPConfig: TGUID = (D1:$BC29A660;D2:$30E3;D3:$11D0;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM IID_IVPConfig}
- IID_IVPVBIConfig: TGUID = (D1:$EC529B00;D2:$1A1F;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM IID_IVPVBIConfig}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVPBaseConfig> _di_IVPBaseConfig;'}
- {$EXTERNALSYM IVPBaseConfig}
- IVPBaseConfig = interface(IUnknown)
- (*** IVPBaseConfig methods ***)
- // gets the various connection information structures (guid, portwidth)
- // in an array of structures. If the pointer to the array is NULL, first
- // parameter returns the total number of formats supported.
- function GetConnectInfo(var pdwNumConnectInfo: PDWORD;
- var pddVPConnectInfo: PDDVideoPortConnect): HResult; stdcall;
- // sets the connection entry chosen (0, 1, .. ,(dwNumProposedEntries-1))
- function SetConnectInfo(dwChosenEntry: DWORD): HResult; stdcall;
- // gets various data parameters, includes dimensionnal info
- function GetVPDataInfo(var pamvpDataInfo: PAMVPDataInfo): HResult; stdcall;
- // retrives maximum pixels per second rate expected for a given
- // format and a given scaling factor. If decoder does not support
- // those scaling factors, then it gives the rate and the nearest
- // scaling factors.
- function GetMaxPixelRate(var pamvpSize: PAMVPSize;
- out pdwMaxPixelsPerSecond: PDWORD): HResult; stdcall;
- // informs the callee of the videoformats supported by the videoport
- function InformVPInputFormats(dwNumFormats: DWORD;
- pTDDPixelFormats: PDDPixelFormat): HResult; stdcall;
- // gets the various formats supported by the decoder in an array
- // of structures. If the pointer to the array is NULL, first parameter
- // returns the total number of formats supported.
- function GetVideoFormats(var pdwNumFormats: PDWORD;
- var pTDDPixelFormats: PDDPixelFormat): HResult; stdcall;
- // sets the format entry chosen (0, 1, .. ,(dwNumProposedEntries-1))
- function SetVideoFormat(dwChosenEntry: DWORD): HResult; stdcall;
- // asks the decoder to treat even fields like odd fields and visa versa
- function SetInvertPolarity: HResult; stdcall;
- // the mixer uses this function to determine if the callee wants
- // the vpmixer to use its overlay surface and if so to get a pointer to it
- function GetOverlaySurface(out ppddOverlaySurface: IDirectDrawSurface):
- HResult; stdcall;
- // sets the direct draw kernel handle
- function SetDirectDrawKernelHandle(dwDDKernelHandle: THandle): HResult;
- stdcall;
- // sets the video port id
- function SetVideoPortID(dwVideoPortID: DWORD): HResult; stdcall;
- // sets the direct draw surface kernel handle
- function SetDDSurfaceKernelHandles(cHandles: DWORD;
- var rgDDKernelHandles: THandle): HResult; stdcall;
- // Tells driver about surface created on its behalf by ovmixer/vbisurf and
- // returned from videoport/ddraw. Should always return NOERROR or E_NOIMPL.
- // dwPitch is the pitch of the surface (distance in pixels between the start
- // pixels of two consecutive lines of the surface). (dwXOrigin, dwYOrigin)
- // are the (X, Y) coordinates of the pixel at which valid data starts.
- function SetSurfaceParameters(dwPitch, dwXOrigin, dwYOrigin: DWORD):
- HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVPConfig> _di_IVPConfig;'}
- {$EXTERNALSYM IVPConfig}
- IVPConfig = interface(IVPBaseConfig)
- ['{BC29A660-30E3-11D0-9E69-00C04FD7C15B}']
- (*** IVPConfig methods ***)
- // the mixer uses this function to determine if the callee wants
- // the mixer to decimate VIDEO data at its own descrition
- function IsVPDecimationAllowed(out pbIsDecimationAllowed: PBOOL): HResult;
- stdcall;
- // sets the scaling factors. If decoder does not support these,
- // then it sets the values to the nearest factors it can support
- function SetScalingFactors(pamvpSize: PAMVPSize): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVPVBIConfig> _di_IVPVBIConfig;'}
- {$EXTERNALSYM IVPVBIConfig}
- IVPVBIConfig = interface(IVPBaseConfig)
- ['{EC529B00-1A1F-11D1-BAD9-00609744111A}']
- (*** IVPVBIConfig methods ***)
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: vpnotify.h
- *
- ***************************************************************************)
- const
- IID_IVPNotify: TGUID = (D1:$C76794A1;D2:$D6C5;D3:$11D0;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM IID_IVPNotify}
- IID_IVPVBINotify: TGUID = (D1:$EC529B01;D2:$1A1F;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM IID_IVPVBINotify}
- IID_IVPNotify2: TGUID = (D1:$ebf47183;D2:$8764;D3:$11d1;D4:($9e,$69,$00,$c0,$4f,$d7,$c1,$5b));
- {$EXTERNALSYM IID_IVPNotify2}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVPBaseNotify> _di_IVPBaseNotify;'}
- {$EXTERNALSYM IVPBaseNotify}
- IVPBaseNotify = interface(IUnknown)
- (*** IVPBaseNotify methods ***)
- // this function initializes the reconnection to the decoder.
- function RenegotiateVPParameters: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVPNotify> _di_IVPNotify;'}
- {$EXTERNALSYM IVPNotify}
- IVPNotify = interface(IVPBaseNotify)
- ['{C76794A1-D6C5-11D0-9E69-00C04FD7C15B}']
- (*** IVPNotify methods ***)
- // function to set the mode (bob, weave etc)
- function SetDeinterlaceMode(mode: TAMVPMode): HResult; stdcall;
- // function to get the mode (bob, weave etc)
- function GetDeinterlaceMode(out pMode: TAMVPMode): HResult; stdcall;
- end;
- // 4 functions have been removed from dxmedia!!
- {$HPPEMIT 'typedef System::DelphiInterface<IVPNotify2> _di_IVPNotify2;'}
- {$EXTERNALSYM IVPNotify2}
- IVPNotify2 = interface(IVPNotify)
- ['{EBF47183-8764-11d1-9E69-00C04FD7C15B}']
- (*** IVPNotify2 methods ***)
- // function to set the mode (bob, weave etc)
- function SetVPSyncMaster(bVPSyncMaster: BOOL): HResult; stdcall;
- // function to get the mode (bob, weave etc)
- function GetVPSyncMaster(OUT pbVPSyncMaster: BOOL): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IVPVBINotify> _di_IVPVBINotify;'}
- {$EXTERNALSYM IVPVBINotify}
- IVPVBINotify = interface(IVPBaseNotify)
- ['{EC529B01-1A1F-11D1-BAD9-00609744111A}']
- (*** IVPVBINotify methods ***)
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: mpegtype.h
- *
- ***************************************************************************)
- const
- IID_IMpegAudioDecoder: TGUID = (D1:$B45DD570;D2:$3C77;D3:$11D1;D4:($AB,$E1,$00,$A0,$C9,$05,$F3,$75));
- {$EXTERNALSYM IID_IMpegAudioDecoder}
- type
- //
- // AM_MPEGSYSTEMTYPE defines the format block contents for
- // data of type MEDIATYPE_MPEG1System when the format
- // block GUID is FORMAT_MPEG1System
- //
- // The format block consists of elements of type
- // AM_MPEGSYSTEMTYPE up to the length of the format block
- // Each format block is 8-byte aligned from the start of
- // the format block
- //
- tagAM_MPEGSTREAMTYPE = record
- dwStreamId: DWORD; // Stream id of stream to process
- dwReserved: DWORD; // 8-byte alignment
- mt: TAMMediaType; // Type for substream - pbFormat is NULL
- bFormat: array[0..0] of Byte; // Format data
- end;
- {$EXTERNALSYM tagAM_MPEGSTREAMTYPE}
- AM_MPEGSTREAMTYPE = tagAM_MPEGSTREAMTYPE;
- {$EXTERNALSYM AM_MPEGSTREAMTYPE}
- TAMMPEGStreamType = tagAM_MPEGSTREAMTYPE;
- tagAM_MPEGSYSTEMTYPE = record
- dwBitRate: DWORD; // Bits per second
- cStreams: DWORD; // Number of streams
- Streams: array[0..0] of TAMMPEGStreamType;
- end;
- {$EXTERNALSYM tagAM_MPEGSYSTEMTYPE}
- AM_MPEGSYSTEMTYPE = tagAM_MPEGSYSTEMTYPE;
- {$EXTERNALSYM AM_MPEGSYSTEMTYPE}
- TAMMPEGSystemType = tagAM_MPEGSYSTEMTYPE;
- {
- //
- // Helper macros for AM_MPEGSTREAMTYPE
- //
- #define AM_MPEGSTREAMTYPE_ELEMENTLENGTH(pStreamType) \
- FIELD_OFFSET(AM_MPEGSTREAMTYPE, bFormat[(pStreamType)->mt.cbFormat])
- #define AM_MPEGSTREAMTYPE_NEXT(pStreamType) \
- ((AM_MPEGSTREAMTYPE *)((PBYTE)(pStreamType) + \
- ((AM_MPEGSTREAMTYPE_ELEMENTLENGTH(pStreamType) + 7) & ~7)))
- }
- //
- // IMpegAudioDecoder
- //
- // Values for DualMode
- const
- AM_MPEG_AUDIO_DUAL_MERGE = 0;
- {$EXTERNALSYM AM_MPEG_AUDIO_DUAL_MERGE}
- AM_MPEG_AUDIO_DUAL_LEFT = 1;
- {$EXTERNALSYM AM_MPEG_AUDIO_DUAL_LEFT}
- AM_MPEG_AUDIO_DUAL_RIGHT = 2;
- {$EXTERNALSYM AM_MPEG_AUDIO_DUAL_RIGHT}
- type
- //
- //
- // Microsoft MPEG audio WAV definition
- //
- (* MPEG-1 audio wave format (audio layer only). (0x0050) *)
- MPEG1WAVEFORMAT = record
- wfx: TWaveFormatEx;
- fwHeadLayer: Word;
- dwHeadBitrate: DWORD;
- fwHeadMode: Word;
- fwHeadModeExt: Word;
- wHeadEmphasis: Word;
- fwHeadFlags: Word;
- dwPTSLow: DWORD;
- dwPTSHigh: DWORD;
- end;
- {$EXTERNALSYM MPEG1WAVEFORMAT}
- TMPEG1WaveFormat = MPEG1WAVEFORMAT;
- const
- ACM_MPEG_LAYER1 = $0001;
- {$EXTERNALSYM ACM_MPEG_LAYER1}
- ACM_MPEG_LAYER2 = $0002;
- {$EXTERNALSYM ACM_MPEG_LAYER2}
- ACM_MPEG_LAYER3 = $0004;
- {$EXTERNALSYM ACM_MPEG_LAYER3}
- ACM_MPEG_STEREO = $0001;
- {$EXTERNALSYM ACM_MPEG_STEREO}
- ACM_MPEG_JOINTSTEREO = $0002;
- {$EXTERNALSYM ACM_MPEG_JOINTSTEREO}
- ACM_MPEG_DUALCHANNEL = $0004;
- {$EXTERNALSYM ACM_MPEG_DUALCHANNEL}
- ACM_MPEG_SINGLECHANNEL = $0008;
- {$EXTERNALSYM ACM_MPEG_SINGLECHANNEL}
- ACM_MPEG_PRIVATEBIT = $0001;
- {$EXTERNALSYM ACM_MPEG_PRIVATEBIT}
- ACM_MPEG_COPYRIGHT = $0002;
- {$EXTERNALSYM ACM_MPEG_COPYRIGHT}
- ACM_MPEG_ORIGINALHOME = $0004;
- {$EXTERNALSYM ACM_MPEG_ORIGINALHOME}
- ACM_MPEG_PROTECTIONBIT = $0008;
- {$EXTERNALSYM ACM_MPEG_PROTECTIONBIT}
- ACM_MPEG_ID_MPEG1 = $0010;
- {$EXTERNALSYM ACM_MPEG_ID_MPEG1}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMpegAudioDecoder> _di_IMpegAudioDecoder;'}
- {$EXTERNALSYM IMpegAudioDecoder}
- IMpegAudioDecoder = interface(IUnknown)
- ['{B45DD570-3C77-11D1-ABE1-00A0C905F375}']
- (*** IMpegAudioDecoder methods ***)
- function get_FrequencyDivider(out pDivider: LongWord): HResult; stdcall;
- function put_FrequencyDivider(Divider: LongWord): HResult; stdcall;
- function get_DecoderAccuracy(out pAccuracy: LongWord): HResult; stdcall;
- function put_DecoderAccuracy(Accuracy: LongWord): HResult; stdcall;
- function get_Stereo(out pStereo: LongWord): HResult; stdcall;
- function put_Stereo(Stereo: LongWord): HResult; stdcall;
- function get_DecoderWordSize(out pWordSize: LongWord): HResult; stdcall;
- function put_DecoderWordSize(WordSize: LongWord): HResult; stdcall;
- function get_IntegerDecode(out pIntDecode: LongWord): HResult; stdcall;
- function put_IntegerDecode(IntDecode: LongWord): HResult; stdcall;
- function get_DualMode(out pIntDecode: LongWord): HResult; stdcall;
- function put_DualMode(IntDecode: LongWord): HResult; stdcall;
- function get_AudioFormat(out lpFmt: TMPEG1WaveFormat): HResult; stdcall;
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: il21dec.h
- *
- ***************************************************************************)
- // Line 21 Decoder related definitions and interfaces for ActiveMovie
- const
- IID_IAMLine21Decoder: TGUID = (D1:$6E8D4A21;D2:$310C;D3:$11D0;D4:($B7,$9A,$00,$AA,$00,$37,$67,$A7));
- {$EXTERNALSYM IID_IAMLine21Decoder}
- type
- //
- // Some enum data types used as line 21 decoder params by the interface
- //
- _AM_LINE21_CCLEVEL = ( // should we use TC1, TC2 in stead?
- AM_L21_CCLEVEL_TC2
- );
- {$EXTERNALSYM _AM_LINE21_CCLEVEL}
- AM_LINE21_CCLEVEL = _AM_LINE21_CCLEVEL;
- {$EXTERNALSYM AM_LINE21_CCLEVEL}
- PAM_LINE21_CCLEVEL = ^AM_LINE21_CCLEVEL;
- {$EXTERNALSYM PAM_LINE21_CCLEVEL}
- TAMLine21CCLevel = AM_LINE21_CCLEVEL;
- _AM_LINE21_CCSERVICE = (
- {$IFNDEF COMPILER6_UP}
- AM_L21_CCSERVICE_None,
- AM_L21_CCSERVICE_Caption1,
- AM_L21_CCSERVICE_Caption2,
- AM_L21_CCSERVICE_Text1,
- AM_L21_CCSERVICE_Text2,
- AM_L21_CCSERVICE_XDS,
- AM_L21_CCSERVICE_INVALID_6,
- AM_L21_CCSERVICE_INVALID_7,
- AM_L21_CCSERVICE_INVALID_8,
- AM_L21_CCSERVICE_INVALID_9,
- AM_L21_CCSERVICE_DefChannel,
- AM_L21_CCSERVICE_Invalid
- {$ELSE}
- AM_L21_CCSERVICE_None = 0,
- AM_L21_CCSERVICE_Caption1 = 1,
- AM_L21_CCSERVICE_Caption2 = 2,
- AM_L21_CCSERVICE_Text1 = 3,
- AM_L21_CCSERVICE_Text2 = 4,
- AM_L21_CCSERVICE_XDS = 5,
- AM_L21_CCSERVICE_DefChannel = 10,
- AM_L21_CCSERVICE_Invalid = 11
- {$ENDIF}
- );
- {$EXTERNALSYM _AM_LINE21_CCSERVICE}
- AM_LINE21_CCSERVICE = _AM_LINE21_CCSERVICE;
- {$EXTERNALSYM AM_LINE21_CCSERVICE}
- PAM_LINE21_CCSERVICE = ^AM_LINE21_CCSERVICE;
- {$EXTERNALSYM PAM_LINE21_CCSERVICE}
- TAMLine21CCService = AM_LINE21_CCSERVICE;
- _AM_LINE21_CCSTATE = (
- AM_L21_CCSTATE_Off,
- AM_L21_CCSTATE_On
- );
- {$EXTERNALSYM _AM_LINE21_CCSTATE}
- AM_LINE21_CCSTATE = _AM_LINE21_CCSTATE;
- {$EXTERNALSYM AM_LINE21_CCSTATE}
- PAM_LINE21_CCSTATE = ^AM_LINE21_CCSTATE;
- {$EXTERNALSYM PAM_LINE21_CCSTATE}
- TAMLine21CCState = AM_LINE21_CCSTATE;
- _AM_LINE21_CCSTYLE = (
- AM_L21_CCSTYLE_None,
- AM_L21_CCSTYLE_PopOn,
- AM_L21_CCSTYLE_PaintOn,
- AM_L21_CCSTYLE_RollUp
- );
- {$EXTERNALSYM _AM_LINE21_CCSTYLE}
- AM_LINE21_CCSTYLE = _AM_LINE21_CCSTYLE;
- {$EXTERNALSYM AM_LINE21_CCSTYLE}
- PAM_LINE21_CCSTYLE = ^AM_LINE21_CCSTYLE;
- {$EXTERNALSYM PAM_LINE21_CCSTYLE}
- TAMLine21CCStyle = AM_LINE21_CCSTYLE;
- _AM_LINE21_DRAWBGMODE = (
- AM_L21_DRAWBGMODE_Opaque,
- AM_L21_DRAWBGMODE_Transparent
- );
- {$EXTERNALSYM _AM_LINE21_DRAWBGMODE}
- AM_LINE21_DRAWBGMODE = _AM_LINE21_DRAWBGMODE;
- {$EXTERNALSYM AM_LINE21_DRAWBGMODE}
- PAM_LINE21_DRAWBGMODE = ^AM_LINE21_DRAWBGMODE;
- {$EXTERNALSYM PAM_LINE21_DRAWBGMODE}
- TAMLine21DrawBGMode = AM_LINE21_DRAWBGMODE;
-
- //
- // Line 21 Decoder standard COM interface
- //
- {$HPPEMIT 'typedef System::DelphiInterface<IAMLine21Decoder> _di_IAMLine21Decoder;'}
- {$EXTERNALSYM IAMLine21Decoder}
- IAMLine21Decoder = interface(IUnknown)
- ['{6E8D4A21-310C-11D0-B79A-00AA003767A7}']
- (*** IAMLine21Decoder methods ***)
- //
- // Decoder options to be used by apps
- //
- // What is the decoder's level
- function GetDecoderLevel(var lpLevel: TAMLine21CCLevel): HResult; stdcall;
- // supported level value is AM_L21Level_TC2 only
- // skipping the SetDecoderLevel( )
- // Which of the services is being currently used
- function GetCurrentService(var lpService: TAMLine21CCService): HResult;
- stdcall;
- function SetCurrentService(Service: TAMLine21CCService): HResult;
- stdcall;
- // supported service values are AM_L21Service_Caption1,
- // AM_L21Service_Caption2, AM_L21Service_Text1, AM_L21Service_Text2,
- // AM_L21Service_XDS, AM_L21Service_None)
- // Query/Set the service state (On/Off)
- // supported state values are AM_L21State_On and AM_L21State_Off
- function GetServiceState(var lpState: TAMLine21CCState): HResult;
- stdcall;
- function SetServiceState(State: TAMLine21CCState): HResult;
- stdcall;
- //
- // Output options to be used by downstream filters
- //
- // What size, bitdepth etc should the output video be
- function GetOutputFormat(lpbmih: PBitmapInfoHeader): HResult; stdcall;
- // GetOutputFormat() method, if successful, returns
- // 1. S_FALSE if no output format has so far been defined by downstream filters
- // 2. S_OK if an output format has already been defined by downstream filters
- function SetOutputFormat(lpbmih: PBitmapInfoHeader): HResult;
- stdcall;
- // Specify physical color to be used in colorkeying the background
- // for overlay mixing
- function GetBackgroundColor(var pdwPhysColor: DWORD): HResult; stdcall;
- function SetBackgroundColor(dwPhysColor: DWORD): HResult; stdcall;
- // Specify if whole output bitmap should be redrawn for each sample
- function GetRedrawAlways(lpbOption: PBOOL): HResult; stdcall;
- function SetRedrawAlways(bOption: BOOL): HResult; stdcall;
- // Specify if the caption text background should be opaque/transparent
- function GetDrawBackgroundMode(var lpMode: TAMLine21DrawBGMode): HResult;
- stdcall;
- function SetDrawBackgroundMode(Mode: TAMLine21DrawBGMode): HResult;
- stdcall;
- // supported mode values are AM_L21_DrawBGMode_Opaque and
- // AM_L21_DrawBGMode_Transparent
- end;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: dvdevcod.h
- *
- ***************************************************************************)
- // list of standard DVD-Video event codes and the expected params
- const
- EC_DVDBASE = $0100;
- {$EXTERNALSYM EC_DVDBASE}
- type
- _tagDVD_ERROR = (
- {$IFNDEF COMPILER6_UP}
- DVD_ERROR_INVALID_0,
- DVD_ERROR_Unexpected, // Something unexpected happened, perhaps content
- // is incorrectly authored. Playback is stopped.
- DVD_ERROR_CopyProtectFail, // Key exchange for DVD copy protection failed.
- // Playback is stopped.
- DVD_ERROR_InvalidDVD1_0Disc, // DVD-Video disc is incorrectly authored for v1.0
- // of spec. Playback is stopped.
- DVD_ERROR_InvalidDiscRegion, // The Disc is not approved for playback by decoders
- // from this DVD region.
- DVD_ERROR_LowParentalLevel, // Player parental level is lower than the lowest parental
- // level available in the DVD content. Playback is stopped.
- DVD_ERROR_MacrovisionFail, // Macrovision Distribution Failed.
- // Playback is stopped.
- DVD_ERROR_IncompatibleSystemAndDecoderRegions,
- // No discs can be played because the system region
- // does not match the decoder region.
- DVD_ERROR_IncompatibleDiscAndDecoderRegions
- // The disc cannot be played because the disc is
- // not authored to be played in the decoder's region
- {$ELSE}
- DVD_ERROR_Unexpected = 1, // Something unexpected happened, perhaps content
- // is incorrectly authored. Playback is stopped.
- DVD_ERROR_CopyProtectFail = 2, // Key exchange for DVD copy protection failed.
- // Playback is stopped.
- DVD_ERROR_InvalidDVD1_0Disc = 3, // DVD-Video disc is incorrectly authored for v1.0
- // of spec. Playback is stopped.
- DVD_ERROR_InvalidDiscRegion = 4, // The Disc is not approved for playback by decoders
- // from this DVD region.
- DVD_ERROR_LowParentalLevel = 5, // Player parental level is lower than the lowest parental
- // level available in the DVD content. Playback is stopped.
- DVD_ERROR_MacrovisionFail = 6, // Macrovision Distribution Failed.
- // Playback is stopped.
- DVD_ERROR_IncompatibleSystemAndDecoderRegions = 7,
- // No discs can be played because the system region
- // does not match the decoder region.
- DVD_ERROR_IncompatibleDiscAndDecoderRegions = 8
- // The disc cannot be played because the disc is
- // not authored to be played in the decoder's region
- {$ENDIF}
- );
- {$EXTERNALSYM _tagDVD_ERROR}
- DVD_ERROR = _tagDVD_ERROR;
- {$EXTERNALSYM DVD_ERROR}
- TDVDError = DVD_ERROR;
- _tagDVD_WARNING = (
- {$IFNDEF COMPILER6_UP}
- DVD_WARNING_INVALID_0,
- DVD_WARNING_InvalidDVD1_0Disc, // DVD-Video disc is incorrectly authored. Playback
- // can continue, but unexpected behavior may occur.
- DVD_WARNING_FormatNotSupported, // A decoder would not support the current format. Playback
- // of a stream (audio, video of SP) may not function.
- // lParam2 contains the stream type (see AM_DVD_STREAM_FLAGS) -> Windows XP
- DVD_WARNING_IllegalNavCommand, // The internal DVD navigation command processor attempted to
- // process an illegal command.
- DVD_WARNING_Open, // File Open Failed
- DVD_WARNING_Seek, // File Seek Failed
- DVD_WARNING_Read // File Read Failed
- {$ELSE}
- DVD_WARNING_InvalidDVD1_0Disc = 1, // DVD-Video disc is incorrectly authored. Playback
- // can continue, but unexpected behavior may occur.
- DVD_WARNING_FormatNotSupported = 2, // A decoder would not support the current format. Playback
- // of a stream (audio, video of SP) may not function.
- // lParam2 contains the stream type (see AM_DVD_STREAM_FLAGS) -> Windows XP
- DVD_WARNING_IllegalNavCommand = 3, // The internal DVD navigation command processor attempted to
- // process an illegal command.
- DVD_WARNING_Open = 4, // File Open Failed
- DVD_WARNING_Seek = 5, // File Seek Failed
- DVD_WARNING_Read = 6 // File Read Failed
- {$ENDIF}
- );
- {$EXTERNALSYM _tagDVD_WARNING}
- DVD_WARNING = _tagDVD_WARNING;
- {$EXTERNALSYM DVD_WARNING}
- TDVDWarning = DVD_WARNING;
- _tagDVD_PB_STOPPED = (
- DVD_PB_STOPPED_Other, // The navigator stopped the playback (no reason available).
- DVD_PB_STOPPED_NoBranch, // The nav completed the current pgc and there was no more video and
- // did not find any other branching instruction for subsequent playback.
- DVD_PB_STOPPED_NoFirstPlayDomain, // The disc does not contain an initial startup program.
- DVD_PB_STOPPED_StopCommand, // The app issued a stop() command or a stop command was authored on the disc.
- DVD_PB_STOPPED_Reset, // The navigator was reset to the start of the disc (using ResetOnStop).
- DVD_PB_STOPPED_DiscEjected, // The disc was ejected.
- DVD_PB_STOPPED_IllegalNavCommand, // An illegal nav command prevented playback from continuing.
- DVD_PB_STOPPED_PlayPeriodAutoStop, // PlayPeriod completed
- DVD_PB_STOPPED_PlayChapterAutoStop, // PlayChapter completed
- DVD_PB_STOPPED_ParentalFailure, // A parental level failure prevented playback
- DVD_PB_STOPPED_RegionFailure, // A region failure prevented playback
- DVD_PB_STOPPED_MacrovisionFailure, // A Macrovision failure prevented playback.
- DVD_PB_STOPPED_DiscReadError, // A read error prevented playback.
- DVD_PB_STOPPED_CopyProtectFailure // Copy protection failure.
- );
- {$EXTERNALSYM _tagDVD_PB_STOPPED}
- DVD_PB_STOPPED = _tagDVD_PB_STOPPED;
- {$EXTERNALSYM DVD_PB_STOPPED}
- TDVDPBStopped = DVD_PB_STOPPED;
- const
- // DVD-Video event codes
- // ======================
- //
- // All DVD-Video event are always passed on to the application, and are
- // never processed by the filter graph
- EC_DVD_DOMAIN_CHANGE = (EC_DVDBASE + $01);
- {$EXTERNALSYM EC_DVD_DOMAIN_CHANGE}
- // Parameters: ( DWORD, void )
- // lParam1 is enum DVD_DOMAIN, and indicates the player's new domain
- //
- // Raised from following domains: all
- //
- // Signaled when ever the DVD player changes domains.
- EC_DVD_TITLE_CHANGE = (EC_DVDBASE + $02);
- {$EXTERNALSYM EC_DVD_TITLE_CHANGE}
- // Parameters: ( DWORD, void )
- // lParam1 is the new title number.
- //
- // Raised from following domains: DVD_DOMAIN_Title
- //
- // Indicates when the current title number changes. Title numbers
- // range 1 to 99. This indicates the TTN, which is the title number
- // with respect to the whole disc, not the VTS_TTN which is the title
- // number with respect to just a current VTS.
- EC_DVD_CHAPTER_START = (EC_DVDBASE + $03);
- {$EXTERNALSYM EC_DVD_CHAPTER_START}
- // Parameters: ( DWORD, void )
- // lParam1 is the new chapter number (which is the program number for
- // One_Sequential_PGC_Titles).
- //
- // Raised from following domains: DVD_DOMAIN_Title
- //
- // Signales that DVD player started playback of a new program in the Title
- // domain. This is only signaled for One_Sequential_PGC_Titles.
- EC_DVD_AUDIO_STREAM_CHANGE = (EC_DVDBASE + $04);
- {$EXTERNALSYM EC_DVD_AUDIO_STREAM_CHANGE}
- // Parameters: ( DWORD, void )
- // lParam1 is the new user audio stream number.
- //
- // Raised from following domains: all
- //
- // Signaled when ever the current user audio stream number changes for the main
- // title. This can be changed automatically with a navigation command on disc
- // as well as through IDVDAnnexJ.
- // Audio stream numbers range from 0 to 7. Stream $ffffffff
- // indicates that no stream is selected.
- EC_DVD_SUBPICTURE_STREAM_CHANGE = (EC_DVDBASE + $05);
- {$EXTERNALSYM EC_DVD_SUBPICTURE_STREAM_CHANGE}
- // Parameters: ( DWORD, BOOL ) -> WindowsXP
- // Parameters: ( DWORD, void )
- // lParam1 is the new user subpicture stream number.
- // lParam2 is the subpicture's on/off state (TRUE if on) -> WindowsXP
- // Raised from following domains: all
- //
- // Signaled when ever the current user subpicture stream number changes for the main
- // title. This can be changed automatically with a navigation command on disc
- // as well as through IDVDAnnexJ.
- // Subpicture stream numbers range from 0 to 31. Stream $ffffffff
- // indicates that no stream is selected.
- EC_DVD_ANGLE_CHANGE = (EC_DVDBASE + $06);
- {$EXTERNALSYM EC_DVD_ANGLE_CHANGE}
- // Parameters: ( DWORD, DWORD )
- // lParam1 is the number of available angles.
- // lParam2 is the current user angle number.
- //
- // Raised from following domains: all
- //
- // Signaled when ever either
- // a) the number of available angles changes, or
- // b) the current user angle number changes.
- // Current angle number can be changed automatically with navigation command
- // on disc as well as through IDVDAnnexJ.
- // When the number of available angles is 1, the current video is not multiangle.
- // Angle numbers range from 1 to 9.
- EC_DVD_BUTTON_CHANGE = (EC_DVDBASE + $07);
- {$EXTERNALSYM EC_DVD_BUTTON_CHANGE}
- // Parameters: ( DWORD, DWORD )
- // lParam1 is the number of available buttons.
- // lParam2 is the current selected button number.
- //
- // Raised from following domains: all
- //
- // Signaled when ever either
- // a) the number of available buttons changes, or
- // b) the current selected button number changes.
- // The current selected button can be changed automatically with navigation
- // commands on disc as well as through IDVDAnnexJ.
- // Button numbers range from 1 to 36. Selected button number 0 implies that
- // no button is selected. Note that these button numbers enumerate all
- // available button numbers, and do not always correspond to button numbers
- // used for IDVDAnnexJ::ButtonSelectAndActivate since only a subset of buttons
- // may be activated with ButtonSelectAndActivate.
- EC_DVD_VALID_UOPS_CHANGE = (EC_DVDBASE + $08);
- {$EXTERNALSYM EC_DVD_VALID_UOPS_CHANGE}
- // Parameters: ( DWORD, void )
- // lParam1 is a VALID_UOP_SOMTHING_OR_OTHER bit-field stuct which indicates
- // which IDVDAnnexJ commands are explicitly disable by the DVD disc.
- //
- // Raised from following domains: all
- //
- // Signaled when ever the available set of IDVDAnnexJ methods changes. This
- // only indicates which operations are explicited disabled by the content on
- // the DVD disc, and does not guarentee that it is valid to call methods
- // which are not disabled. For example, if no buttons are currently present,
- // IDVDAnnexJ::ButtonActivate() won't work, even though the buttons are not
- // explicitly disabled.
- EC_DVD_STILL_ON = (EC_DVDBASE + $09);
- {$EXTERNALSYM EC_DVD_STILL_ON}
- // Parameters: ( BOOL, DWORD )
- // lParam1 == 0 --> buttons are available, so StillOff won't work
- // lParam1 == 1 --> no buttons available, so StillOff will work
- // lParam2 indicates the number of seconds the still will last, with $ffffffff
- // indicating an infinite still (wait till button or StillOff selected).
- //
- // Raised from following domains: all
- //
- // Signaled at the beginning of any still: PGC still, Cell Still, or VOBU Still.
- // Note that all combinations of buttons and still are possible (buttons on with
- // still on, buttons on with still off, button off with still on, button off
- // with still off).
- EC_DVD_STILL_OFF = (EC_DVDBASE + $0a);
- {$EXTERNALSYM EC_DVD_STILL_OFF}
- // Parameters: ( void, void )
- //
- // Indicating that any still that is currently active
- // has been released.
- //
- // Raised from following domains: all
- //
- // Signaled at the end of any still: PGC still, Cell Still, or VOBU Still.
- //
- EC_DVD_CURRENT_TIME = (EC_DVDBASE + $0b);
- {$EXTERNALSYM EC_DVD_CURRENT_TIME}
- // Parameters: ( DWORD, BOOL )
- // lParam1 is a DVD_TIMECODE which indicates the current
- // playback time code in a BCD HH:MM:SS:FF format.
- // lParam2 == 0 --> time code is 25 frames/sec
- // lParam2 == 1 --> time code is 30 frames/sec (non-drop).
- //
- // Raised from following domains: DVD_DOMAIN_Title
- //
- // Signaled at the beginning of every VOBU, which occurs every .4 to 1.0 sec.
- // This is only signaled for One_Sequential_PGC_Titles.
- EC_DVD_ERROR = (EC_DVDBASE + $0c);
- {$EXTERNALSYM EC_DVD_ERROR}
- // Parameters: ( DWORD, void)
- // lParam1 is an enum DVD_ERROR which notifies the app of some error condition.
- //
- // Raised from following domains: all
- //
- EC_DVD_WARNING = (EC_DVDBASE + $0d);
- {$EXTERNALSYM EC_DVD_WARNING}
- // Parameters: ( DWORD, DWORD) -> WindowsXP
- // Parameters: ( DWORD, void)
- // lParam1 is an enum DVD_WARNING which notifies the app of some warning condition.
- // lParam2 contains more specific information about the warning (warning dependent) -> WindowsXP
- // Raised from following domains: all
- //
- EC_DVD_CHAPTER_AUTOSTOP = (EC_DVDBASE + $0e);
- {$EXTERNALSYM EC_DVD_CHAPTER_AUTOSTOP}
- // Parameters: (void, void)
- //
- // Indicating that playback is stopped as a result of a call
- // to IDVDControl::ChapterPlayAutoStop()
- //
- // Raised from following domains : DVD_DOMAIN_TITLE
- //
- EC_DVD_NO_FP_PGC = (EC_DVDBASE + $0f);
- {$EXTERNALSYM EC_DVD_NO_FP_PGC}
- // Parameters : (void, void)
- //
- // Raised from the following domains : FP_DOM
- //
- // Indicates that the DVD disc does not have a FP_PGC (First Play Program Chain)
- // and the DVD Navigator will not automatically load any PGC and start playback.
- //
- EC_DVD_PLAYBACK_RATE_CHANGE = (EC_DVDBASE + $10);
- {$EXTERNALSYM EC_DVD_PLAYBACK_RATE_CHANGE}
- // Parameters : (LONG, void)
- // lParam1 is a LONG indicating the new playback rate.
- // lParam1 < 0 indicates reverse playback mode.
- // lParam1 > 0 indicates forward playback mode
- // Value of lParam1 is the actual playback rate multiplied by 10000.
- // i.e. lParam1 = rate * 10000
- //
- // Raised from the following domains : TT_DOM
- //
- // Indicates that a rate change in playback has been initiated and the parameter
- // lParam1 indicates the new playback rate that is being used.
- //
- EC_DVD_PARENTAL_LEVEL_CHANGE = (EC_DVDBASE + $11);
- {$EXTERNALSYM EC_DVD_PARENTAL_LEVEL_CHANGE}
- // Parameters : (LONG, void)
- // lParam1 is a LONG indicating the new parental level.
- //
- // Raised from the following domains : VMGM_DOM
- //
- // Indicates that an authored Nav command has changed the parental level
- // setting in the player.
- //
- EC_DVD_PLAYBACK_STOPPED = (EC_DVDBASE + $12);
- {$EXTERNALSYM EC_DVD_PLAYBACK_STOPPED}
- // Parameters : (DWORD, void)
- //
- // Raised from the following domains : All Domains
- //
- // Indicates that playback has been stopped as the Navigator has completed
- // playback of the pgc and did not find any other branching instruction for
- // subsequent playback.
- //
- // The DWORD returns the reason for the completion of the playback. See
- // The DVD_PB_STOPPED enumeration for details.
- //
- EC_DVD_ANGLES_AVAILABLE = (EC_DVDBASE + $13);
- {$EXTERNALSYM EC_DVD_ANGLES_AVAILABLE}
- // Parameters : (BOOL, void)
- // lParam1 == 0 indicates that playback is not in an angle block and angles are
- // not available
- // lParam1 == 1 indicates that an angle block is being played back and angle changes
- // can be performed.
- //
- // Indicates whether an angle block is being played and if angle changes can be
- // performed. However, angle changes are not restricted to angle blocks and the
- // manifestation of the angle change can be seen only in an angle block.
- EC_DVD_PLAYPERIOD_AUTOSTOP = (EC_DVDBASE + $14);
- {$EXTERNALSYM EC_DVD_PLAYPERIOD_AUTOSTOP}
- // Parameters: (void, void)
- // Sent when the PlayPeriodInTitle completes or is cancelled
- //
- // Raised from following domains : DVD_DOMAIN_TITLE
- //
- EC_DVD_BUTTON_AUTO_ACTIVATED = (EC_DVDBASE + $15);
- {$EXTERNALSYM EC_DVD_BUTTON_AUTO_ACTIVATED}
- // Parameters: (DWORD button, void)
- // Sent when a button is automatically activated
- //
- // Raised from following domains : DVD_DOMAIN_MENU
- //
- EC_DVD_CMD_START = (EC_DVDBASE + $16);
- {$EXTERNALSYM EC_DVD_CMD_START}
- // Parameters: (CmdID, HResult)
- // Sent when a command begins
- //
- EC_DVD_CMD_END = (EC_DVDBASE + $17);
- {$EXTERNALSYM EC_DVD_CMD_END}
- // Parameters: (CmdID, HResult)
- // Sent when a command completes
- //
- EC_DVD_DISC_EJECTED = (EC_DVDBASE + $18);
- {$EXTERNALSYM EC_DVD_DISC_EJECTED}
- // Parameters: none
- // Sent when the nav detects that a disc was ejected and stops the playback
- // The app does not need to take any action to stop the playback.
- //
- EC_DVD_DISC_INSERTED = (EC_DVDBASE + $19);
- {$EXTERNALSYM EC_DVD_DISC_INSERTED}
- // Parameters: none
- // Sent when the nav detects that a disc was inserted and the nav begins playback
- // The app does not need to take any action to start the playback.
- //
- EC_DVD_CURRENT_HMSF_TIME = (EC_DVDBASE + $1a);
- {$EXTERNALSYM EC_DVD_CURRENT_HMSF_TIME}
- // Parameters: ( ULONG, ULONG )
- // lParam2 contains a union of the DVD_TIMECODE_FLAGS
- // lParam1 contains a DVD_HMSF_TIMECODE. Assign lParam1 to a ULONG then cast the
- // ULONG as a DVD_HMSF_TIMECODE to use its values.
- //
- // Raised from following domains: DVD_DOMAIN_Title
- //
- // Signaled at the beginning of every VOBU, which occurs every .4 to 1.0 sec.
- EC_DVD_KARAOKE_MODE = (EC_DVDBASE + $1b);
- {$EXTERNALSYM EC_DVD_KARAOKE_MODE}
- // Parameters: ( BOOL, reserved )
- // lParam1 is either TRUE (a karaoke track is being played) or FALSE (no karaoke data is being played).
- //
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: dvdmedia.h
- *
- ***************************************************************************)
- type
- // -----------------------------------------------------------------------
- // AC-3 definition for the AM_KSPROPSETID_AC3 property set
- // -----------------------------------------------------------------------
- AM_PROPERTY_AC3 = (
- AM_PROPERTY_AC3_INVALID_0,
- AM_PROPERTY_AC3_ERROR_CONCEALMENT,
- AM_PROPERTY_AC3_ALTERNATE_AUDIO,
- AM_PROPERTY_AC3_DOWNMIX,
- AM_PROPERTY_AC3_BIT_STREAM_MODE,
- AM_PROPERTY_AC3_DIALOGUE_LEVEL,
- AM_PROPERTY_AC3_LANGUAGE_CODE,
- AM_PROPERTY_AC3_ROOM_TYPE
- );
- {$EXTERNALSYM AM_PROPERTY_AC3}
- TAMPropertyAC3 = AM_PROPERTY_AC3;
- AM_AC3_ERROR_CONCEALMENT = record
- fRepeatPreviousBlock: BOOL;
- fErrorInCurrentBlock: BOOL;
- end;
- {$EXTERNALSYM AM_AC3_ERROR_CONCEALMENT}
- PAM_AC3_ERROR_CONCEALMENT = ^AM_AC3_ERROR_CONCEALMENT;
- {$EXTERNALSYM PAM_AC3_ERROR_CONCEALMENT}
- TAMAC3ErrorConcelment = AM_AC3_ERROR_CONCEALMENT;
- AM_AC3_ALTERNATE_AUDIO = record
- fStereo: BOOL;
- DualMode: ULONG;
- end;
- {$EXTERNALSYM AM_AC3_ALTERNATE_AUDIO}
- PAM_AC3_ALTERNATE_AUDIO = ^AM_AC3_ALTERNATE_AUDIO;
- {$EXTERNALSYM PAM_AC3_ALTERNATE_AUDIO}
- TAMAC3AlteranateAudio = AM_AC3_ALTERNATE_AUDIO;
- const
- AM_AC3_ALTERNATE_AUDIO_1 = 1;
- {$EXTERNALSYM AM_AC3_ALTERNATE_AUDIO_1}
- AM_AC3_ALTERNATE_AUDIO_2 = 2;
- {$EXTERNALSYM AM_AC3_ALTERNATE_AUDIO_2}
- AM_AC3_ALTERNATE_AUDIO_BOTH = 3;
- {$EXTERNALSYM AM_AC3_ALTERNATE_AUDIO_BOTH}
- type
- AM_AC3_DOWNMIX = record
- fDownMix : BOOL;
- fDolbySurround : BOOL;
- end;
- {$EXTERNALSYM AM_AC3_DOWNMIX}
- PAM_AC3_DOWNMIX = ^AM_AC3_DOWNMIX;
- {$EXTERNALSYM PAM_AC3_DOWNMIX}
- TAMAC3DownMix = AM_AC3_DOWNMIX;
- AM_AC3_BIT_STREAM_MODE = record
- BitStreamMode: Longint;
- end;
- {$EXTERNALSYM AM_AC3_BIT_STREAM_MODE}
- PAM_AC3_BIT_STREAM_MODE = ^AM_AC3_BIT_STREAM_MODE;
- {$EXTERNALSYM PAM_AC3_BIT_STREAM_MODE}
- TAMAC3BitStreamMode = AM_AC3_BIT_STREAM_MODE;
- const
- AM_AC3_SERVICE_MAIN_AUDIO = 0;
- {$EXTERNALSYM AM_AC3_SERVICE_MAIN_AUDIO}
- AM_AC3_SERVICE_NO_DIALOG = 1;
- {$EXTERNALSYM AM_AC3_SERVICE_NO_DIALOG}
- AM_AC3_SERVICE_VISUALLY_IMPAIRED = 2;
- {$EXTERNALSYM AM_AC3_SERVICE_VISUALLY_IMPAIRED}
- AM_AC3_SERVICE_HEARING_IMPAIRED = 3;
- {$EXTERNALSYM AM_AC3_SERVICE_HEARING_IMPAIRED}
- AM_AC3_SERVICE_DIALOG_ONLY = 4;
- {$EXTERNALSYM AM_AC3_SERVICE_DIALOG_ONLY}
- AM_AC3_SERVICE_COMMENTARY = 5;
- {$EXTERNALSYM AM_AC3_SERVICE_COMMENTARY}
- AM_AC3_SERVICE_EMERGENCY_FLASH = 6;
- {$EXTERNALSYM AM_AC3_SERVICE_EMERGENCY_FLASH}
- AM_AC3_SERVICE_VOICE_OVER = 7;
- {$EXTERNALSYM AM_AC3_SERVICE_VOICE_OVER}
- type
- AM_AC3_DIALOGUE_LEVEL = record
- DialogueLevel: ULONG;
- end;
- {$EXTERNALSYM AM_AC3_DIALOGUE_LEVEL}
- PAM_AC3_DIALOGUE_LEVEL = ^AM_AC3_DIALOGUE_LEVEL;
- {$EXTERNALSYM PAM_AC3_DIALOGUE_LEVEL}
- TAMAC3DialogueLevel = AM_AC3_DIALOGUE_LEVEL;
- AM_AC3_ROOM_TYPE = record
- fLargeRoom: BOOL;
- end;
- {$EXTERNALSYM AM_AC3_ROOM_TYPE}
- PAM_AC3_ROOM_TYPE = ^AM_AC3_ROOM_TYPE;
- {$EXTERNALSYM PAM_AC3_ROOM_TYPE}
- TAMAC3RoomType = AM_AC3_ROOM_TYPE;
-
- // -----------------------------------------------------------------------
- // subpicture definition for the AM_KSPROPSETID_DvdSubPic property set
- // -----------------------------------------------------------------------
- AM_PROPERTY_DVDSUBPIC = (
- AM_PROPERTY_DVDSUBPIC_PALETTE,
- AM_PROPERTY_DVDSUBPIC_HLI,
- AM_PROPERTY_DVDSUBPIC_COMPOSIT_ON // TRUE for subpicture is displayed
- );
- {$EXTERNALSYM AM_PROPERTY_DVDSUBPIC}
- TAM_Property_DVDSubpic = AM_PROPERTY_DVDSUBPIC;
- _AM_DVD_YUV = record
- Reserved: Byte;
- Y: byte;
- U: Byte;
- V: Byte;
- end;
- {$EXTERNALSYM _AM_DVD_YUV}
- AM_DVD_YUV = _AM_DVD_YUV;
- {$EXTERNALSYM AM_DVD_YUV}
- TAMDVDYUV = _AM_DVD_YUV;
- _AM_PROPERTY_SPPAL = record
- sppal: array[0..15] of TAMDVDYUV;
- end;
- {$EXTERNALSYM _AM_PROPERTY_SPPAL}
- AM_PROPERTY_SPPAL = _AM_PROPERTY_SPPAL;
- {$EXTERNALSYM AM_PROPERTY_SPPAL}
- PAM_PROPERTY_SPPAL = ^AM_PROPERTY_SPPAL;
- {$EXTERNALSYM PAM_PROPERTY_SPPAL}
- TAMPropertySPPAL = _AM_PROPERTY_SPPAL;
- _AM_COLCON = record
- emph1col : Byte;
- emph2col : Byte;
- backcol : Byte;
- patcol : Byte;
- emph1con : Byte;
- emph2con : Byte;
- backcon : Byte;
- patcon : Byte;
- end;
- {$EXTERNALSYM _AM_COLCON}
- AM_COLCON = _AM_COLCON;
- {$EXTERNALSYM AM_COLCON}
- PAM_COLCON = ^AM_COLCON;
- {$EXTERNALSYM PAM_COLCON}
- TAMColcon = _AM_COLCON;
- _AM_PROPERTY_SPHLI = record
- HLISS : Word; //
- Reserved : Word;
- StartPTM : ULONG; // start presentation time in x/90000
- EndPTM : ULONG; // end PTM in x/90000
- StartX : Word;
- StartY : Word;
- StopX : Word;
- StopY : Word;
- ColCon : TAMColCon; // color contrast description (4 bytes as given in HLI)
- end;
- {$EXTERNALSYM _AM_PROPERTY_SPHLI}
- AM_PROPERTY_SPHLI = _AM_PROPERTY_SPHLI;
- {$EXTERNALSYM AM_PROPERTY_SPHLI}
- TAMPropertySPHLI = _AM_PROPERTY_SPHLI;
- AM_PROPERTY_COMPOSIT_ON = {$IFDEF TYPE_IDENTITY}type {$ENDIF} BOOL;
- {$EXTERNALSYM AM_PROPERTY_COMPOSIT_ON}
- PAM_PROPERTY_COMPOSIT_ON = ^AM_PROPERTY_COMPOSIT_ON;
- {$EXTERNALSYM PAM_PROPERTY_COMPOSIT_ON}
- // -----------------------------------------------------------------------
- // copy protection definitions
- // -----------------------------------------------------------------------
- // AM_UseNewCSSKey for the dwTypeSpecificFlags in IMediaSample2 to indicate
- // the exact point in a stream after which to start applying a new CSS key.
- // This is typically sent on an empty media sample just before attempting
- // to renegotiate a CSS key.
- const
- AM_UseNewCSSKey = $1;
- {$EXTERNALSYM AM_UseNewCSSKey}
- //
- // AM_KSPROPSETID_CopyProt property set definitions
- //
- AM_PROPERTY_DVDCOPY_CHLG_KEY = $01;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_CHLG_KEY}
- AM_PROPERTY_DVDCOPY_DVD_KEY1 = $02;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_DVD_KEY1}
- AM_PROPERTY_DVDCOPY_DEC_KEY2 = $03;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_DEC_KEY2}
- AM_PROPERTY_DVDCOPY_TITLE_KEY = $04;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_TITLE_KEY}
- AM_PROPERTY_COPY_MACROVISION = $05;
- {$EXTERNALSYM AM_PROPERTY_COPY_MACROVISION}
- AM_PROPERTY_DVDCOPY_REGION = $06;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_REGION}
- AM_PROPERTY_DVDCOPY_SET_COPY_STATE = $07;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_SET_COPY_STATE}
- AM_PROPERTY_DVDCOPY_DISC_KEY = $80;
- {$EXTERNALSYM AM_PROPERTY_DVDCOPY_DISC_KEY}
- type
- _AM_DVDCOPY_CHLGKEY = record
- ChlgKey: array[0..9] of Byte;
- Reserved: array[0..1] of Byte;
- end;
- {$EXTERNALSYM _AM_DVDCOPY_CHLGKEY}
- AM_DVDCOPY_CHLGKEY = _AM_DVDCOPY_CHLGKEY;
- {$EXTERNALSYM AM_DVDCOPY_CHLGKEY}
- PAM_DVDCOPY_CHLGKEY = ^AM_DVDCOPY_CHLGKEY;
- {$EXTERNALSYM PAM_DVDCOPY_CHLGKEY}
- TAMDVDCopyCHLGKey = _AM_DVDCOPY_CHLGKEY;
- _AM_DVDCOPY_BUSKEY = record
- BusKey: array[0..4] of Byte;
- Reserved: array[0..0] of Byte;
- end;
- {$EXTERNALSYM _AM_DVDCOPY_BUSKEY}
- AM_DVDCOPY_BUSKEY = _AM_DVDCOPY_BUSKEY;
- {$EXTERNALSYM AM_DVDCOPY_BUSKEY}
- PAM_DVDCOPY_BUSKEY = ^AM_DVDCOPY_BUSKEY;
- {$EXTERNALSYM PAM_DVDCOPY_BUSKEY}
- TAMDVDCopyBusKey = _AM_DVDCOPY_BUSKEY;
- _AM_DVDCOPY_DISCKEY = record
- DiscKey: array[0..2047] of Byte;
- end;
- {$EXTERNALSYM _AM_DVDCOPY_DISCKEY}
- AM_DVDCOPY_DISCKEY = _AM_DVDCOPY_DISCKEY;
- {$EXTERNALSYM AM_DVDCOPY_DISCKEY}
- PAM_DVDCOPY_DISCKEY = ^AM_DVDCOPY_DISCKEY;
- {$EXTERNALSYM PAM_DVDCOPY_DISCKEY}
- TAMDVDCopyDiscKey = _AM_DVDCOPY_DISCKEY;
- AM_DVDCOPY_TITLEKEY = record
- KeyFlags: ULONG;
- Reserved1: array[0..1] of ULONG;
- TitleKey: array[0..5] of Byte;
- Reserved2: array[0..1] of Byte;
- end;
- {$EXTERNALSYM AM_DVDCOPY_TITLEKEY}
- PAM_DVDCOPY_TITLEKEY = AM_DVDCOPY_TITLEKEY;
- {$EXTERNALSYM PAM_DVDCOPY_TITLEKEY}
- TAMDVDCopyTitleKey = AM_DVDCOPY_TITLEKEY;
- _AM_COPY_MACROVISION = record
- MACROVISIONLevel: ULONG;
- end;
- {$EXTERNALSYM _AM_COPY_MACROVISION}
- AM_COPY_MACROVISION = _AM_COPY_MACROVISION;
- {$EXTERNALSYM AM_COPY_MACROVISION}
- PAM_COPY_MACROVISION = ^AM_COPY_MACROVISION;
- {$EXTERNALSYM PAM_COPY_MACROVISION}
- TAMCopyMacroVision = _AM_COPY_MACROVISION;
- AM_DVDCOPY_SET_COPY_STATE = record
- DVDCopyState: ULONG;
- end;
- {$EXTERNALSYM AM_DVDCOPY_SET_COPY_STATE}
- PAM_DVDCOPY_SET_COPY_STATE = ^AM_DVDCOPY_SET_COPY_STATE;
- {$EXTERNALSYM PAM_DVDCOPY_SET_COPY_STATE}
- TAMDVDCopySetCopyState = AM_DVDCOPY_SET_COPY_STATE;
- AM_DVDCOPYSTATE = (
- AM_DVDCOPYSTATE_INITIALIZE,
- AM_DVDCOPYSTATE_INITIALIZE_TITLE, // indicates we are starting a title
- // key copy protection sequence
- AM_DVDCOPYSTATE_AUTHENTICATION_NOT_REQUIRED,
- AM_DVDCOPYSTATE_AUTHENTICATION_REQUIRED,
- AM_DVDCOPYSTATE_DONE
- );
- {$EXTERNALSYM AM_DVDCOPYSTATE}
- TAMDVDCopyState = AM_DVDCOPYSTATE;
- AM_COPY_MACROVISION_LEVEL = (
- AM_MACROVISION_DISABLED,
- AM_MACROVISION_LEVEL1,
- AM_MACROVISION_LEVEL2,
- AM_MACROVISION_LEVEL3
- );
- {$EXTERNALSYM AM_COPY_MACROVISION_LEVEL}
- PAM_COPY_MACROVISION_LEVEL = ^AM_COPY_MACROVISION_LEVEL;
- {$EXTERNALSYM PAM_COPY_MACROVISION_LEVEL}
- TAMCopyMacroVisionLevel = AM_COPY_MACROVISION_LEVEL;
- // CSS region stucture
- _DVD_REGION = record
- CopySystem: Byte;
- RegionData: Byte;
- SystemRegion: Byte;
- Reserved: Byte;
- end;
- {$EXTERNALSYM _DVD_REGION}
- DVD_REGION = _DVD_REGION;
- {$EXTERNALSYM DVD_REGION}
- PDVD_REGION = ^DVD_REGION;
- {$EXTERNALSYM PDVD_REGION}
- TDVDRegion = _DVD_REGION;
- //
- // CGMS Copy Protection Flags
- //
- const
- AM_DVD_CGMS_RESERVED_MASK = $00000078;
- {$EXTERNALSYM AM_DVD_CGMS_RESERVED_MASK}
- AM_DVD_CGMS_COPY_PROTECT_MASK = $00000018;
- {$EXTERNALSYM AM_DVD_CGMS_COPY_PROTECT_MASK}
- AM_DVD_CGMS_COPY_PERMITTED = $00000000;
- {$EXTERNALSYM AM_DVD_CGMS_COPY_PERMITTED}
- AM_DVD_CGMS_COPY_ONCE = $00000010;
- {$EXTERNALSYM AM_DVD_CGMS_COPY_ONCE}
- AM_DVD_CGMS_NO_COPY = $00000018;
- {$EXTERNALSYM AM_DVD_CGMS_NO_COPY}
- AM_DVD_COPYRIGHT_MASK = $00000040;
- {$EXTERNALSYM AM_DVD_COPYRIGHT_MASK}
- AM_DVD_NOT_COPYRIGHTED = $00000000;
- {$EXTERNALSYM AM_DVD_NOT_COPYRIGHTED}
- AM_DVD_COPYRIGHTED = $00000040;
- {$EXTERNALSYM AM_DVD_COPYRIGHTED}
- AM_DVD_SECTOR_PROTECT_MASK = $00000020;
- {$EXTERNALSYM AM_DVD_SECTOR_PROTECT_MASK}
- AM_DVD_SECTOR_NOT_PROTECTED = $00000000;
- {$EXTERNALSYM AM_DVD_SECTOR_NOT_PROTECTED}
- AM_DVD_SECTOR_PROTECTED = $00000020;
- {$EXTERNALSYM AM_DVD_SECTOR_PROTECTED}
- // -----------------------------------------------------------------------
- // video format blocks
- // -----------------------------------------------------------------------
- type
- AM_MPEG2Level = (
- {$IFNDEF COMPILER6_UP}
- AM_MPEG2Level_INVALID_0,
- AM_MPEG2Level_Low,
- AM_MPEG2Level_Main,
- AM_MPEG2Level_High1440,
- AM_MPEG2Level_High
- {$ELSE}
- AM_MPEG2Level_Low = 1,
- AM_MPEG2Level_Main = 2,
- AM_MPEG2Level_High1440 = 3,
- AM_MPEG2Level_High = 4
- {$ENDIF}
- );
- {$EXTERNALSYM AM_MPEG2Level}
- TAMMPEG2Level = AM_MPEG2Level;
- AM_MPEG2Profile = (
- {$IFNDEF COMPILER6_UP}
- AM_MPEG2Profile_0,
- AM_MPEG2Profile_Simple,
- AM_MPEG2Profile_Main,
- AM_MPEG2Profile_SNRScalable,
- AM_MPEG2Profile_SpatiallyScalable,
- AM_MPEG2Profile_High
- {$ELSE}
- AM_MPEG2Profile_Simple = 1,
- AM_MPEG2Profile_Main = 2,
- AM_MPEG2Profile_SNRScalable = 3,
- AM_MPEG2Profile_SpatiallyScalable = 4,
- AM_MPEG2Profile_High = 5
- {$ENDIF}
- );
- {$EXTERNALSYM AM_MPEG2Profile}
- TAMMPEG2Profile = AM_MPEG2Profile;
- const
- AMINTERLACE_IsInterlaced = $00000001; // if 0, other interlace bits are irrelevent
- {$EXTERNALSYM AMINTERLACE_IsInterlaced}
- AMINTERLACE_1FieldPerSample = $00000002; // else 2 fields per media sample
- {$EXTERNALSYM AMINTERLACE_1FieldPerSample}
- AMINTERLACE_Field1First = $00000004; // else Field 2 is first; top field in PAL is field 1, top field in NTSC is field 2?
- {$EXTERNALSYM AMINTERLACE_Field1First}
- AMINTERLACE_UNUSED = $00000008; //
- {$EXTERNALSYM AMINTERLACE_UNUSED}
- AMINTERLACE_FieldPatternMask = $00000030; // use this mask with AMINTERLACE_FieldPat*
- {$EXTERNALSYM AMINTERLACE_FieldPatternMask}
- AMINTERLACE_FieldPatField1Only = $00000000; // stream never contains a Field2
- {$EXTERNALSYM AMINTERLACE_FieldPatField1Only}
- AMINTERLACE_FieldPatField2Only = $00000010; // stream never contains a Field1
- {$EXTERNALSYM AMINTERLACE_FieldPatField2Only}
- AMINTERLACE_FieldPatBothRegular = $00000020; // There will be a Field2 for every Field1 (required for Weave?)
- {$EXTERNALSYM AMINTERLACE_FieldPatBothRegular}
- AMINTERLACE_FieldPatBothIrregular = $00000030; // Random pattern of Field1s and Field2s
- {$EXTERNALSYM AMINTERLACE_FieldPatBothIrregular}
- AMINTERLACE_DisplayModeMask = $000000c0;
- {$EXTERNALSYM AMINTERLACE_DisplayModeMask}
- AMINTERLACE_DisplayModeBobOnly = $00000000;
- {$EXTERNALSYM AMINTERLACE_DisplayModeBobOnly}
- AMINTERLACE_DisplayModeWeaveOnly = $00000040;
- {$EXTERNALSYM AMINTERLACE_DisplayModeWeaveOnly}
- AMINTERLACE_DisplayModeBobOrWeave = $00000080;
- {$EXTERNALSYM AMINTERLACE_DisplayModeBobOrWeave}
- AMCOPYPROTECT_RestrictDuplication = $00000001; // duplication of this stream should be restricted
- {$EXTERNALSYM AMCOPYPROTECT_RestrictDuplication}
- AMMPEG2_DoPanScan = $00000001; //if set, the MPEG-2 video decoder should crop output image
- {$EXTERNALSYM AMMPEG2_DoPanScan} // based on pan-scan vectors in picture_display_extension
- // and change the picture aspect ratio accordingly.
- AMMPEG2_DVDLine21Field1 = $00000002; //if set, the MPEG-2 decoder must be able to produce an output
- {$EXTERNALSYM AMMPEG2_DVDLine21Field1} // pin for DVD style closed caption data found in GOP layer of field 1
- AMMPEG2_DVDLine21Field2 = $00000004; //if set, the MPEG-2 decoder must be able to produce an output
- {$EXTERNALSYM AMMPEG2_DVDLine21Field2} // pin for DVD style closed caption data found in GOP layer of field 2
- AMMPEG2_SourceIsLetterboxed = $00000008; //if set, indicates that black bars have been encoded in the top
- {$EXTERNALSYM AMMPEG2_SourceIsLetterboxed} // and bottom of the video.
- AMMPEG2_FilmCameraMode = $00000010; //if set, indicates "film mode" used for 625/50 content. If cleared,
- {$EXTERNALSYM AMMPEG2_FilmCameraMode} // indicates that "camera mode" was used.
- AMMPEG2_LetterboxAnalogOut = $00000020; //if set and this stream is sent to an analog output, it should
- {$EXTERNALSYM AMMPEG2_LetterboxAnalogOut} // be letterboxed. Streams sent to VGA should be letterboxed only by renderers.
- AMMPEG2_DSS_UserData = $00000040; //if set, the MPEG-2 decoder must process DSS style user data
- {$EXTERNALSYM AMMPEG2_DSS_UserData}
- AMMPEG2_DVB_UserData = $00000080; //if set, the MPEG-2 decoder must process DVB style user data
- {$EXTERNALSYM AMMPEG2_DVB_UserData}
- AMMPEG2_27MhzTimebase = $00000100; //if set, the PTS,DTS timestamps advance at 27MHz rather than 90KHz
- {$EXTERNALSYM AMMPEG2_27MhzTimebase}
- AMMPEG2_WidescreenAnalogOut = $00000200; //if set and this stream is sent to an analog output, it should
- {$EXTERNALSYM AMMPEG2_WidescreenAnalogOut}
- // be in widescreen format (4x3 content should be centered on a 16x9 output).
- // Streams sent to VGA should be widescreened only by renderers.
- // PRESENT in dwReserved1 field in VIDEOINFOHEADER2
- AMCONTROL_USED = $00000001; // Used to test if these flags are supported. Set and test for AcceptMediaType.
- {$EXTERNALSYM AMCONTROL_USED} // If rejected, then you cannot use the AMCONTROL flags (send 0 for dwReserved1)
- AMCONTROL_PAD_TO_4x3 = $00000002; // if set means display the image in a 4x3 area
- {$EXTERNALSYM AMCONTROL_PAD_TO_4x3}
- AMCONTROL_PAD_TO_16x9 = $00000004; // if set means display the image in a 16x9 area
- {$EXTERNALSYM AMCONTROL_PAD_TO_16x9}
- type
- TVideoInfoHeader2ControlFlags = record
- case byte of
- 0: (dwControlFlags : DWORD); // use AMCONTROL_* defines, use this from now on
- 1: (dwReserved1 : DWORD); // for backward compatiblity (was "must be 0"; connection rejected otherwise)
- end;
- {$EXTERNALSYM TVideoInfoHeader2ControlFlags}
- PVideoInfoHeader2 = ^TVideoInfoHeader2;
- tagVIDEOINFOHEADER2 = record
- rcSource: TRect;
- rcTarget: TRect;
- dwBitRate: DWORD;
- dwBitErrorRate: DWORD;
- AvgTimePerFrame: TReferenceTime;
- dwInterlaceFlags: DWORD; // use AMINTERLACE_* defines. Reject connection if undefined bits are not 0
- dwCopyProtectFlags: DWORD; // use AMCOPYPROTECT_* defines. Reject connection if undefined bits are not 0
- dwPictAspectRatioX: DWORD; // X dimension of picture aspect ratio, e.g. 16 for 16x9 display
- dwPictAspectRatioY: DWORD; // Y dimension of picture aspect ratio, e.g. 9 for 16x9 display
- ControlFlags: TVideoInfoHeader2ControlFlags;
- dwReserved2: DWORD; // must be 0; reject connection otherwise
- bmiHeader: TBitmapInfoHeader;
- end;
- {$EXTERNALSYM tagVIDEOINFOHEADER2}
- VIDEOINFOHEADER2 = tagVIDEOINFOHEADER2;
- {$EXTERNALSYM VIDEOINFOHEADER2}
- TVideoInfoHeader2 = tagVIDEOINFOHEADER2;
- PMPEG2VideoInfo = ^TMPEG2VideoInfo;
- tagMPEG2VIDEOINFO = record
- hdr: TVIDEOINFOHEADER2;
- dwStartTimeCode: DWORD; // ?? not used for DVD ??
- cbSequenceHeader: DWORD; // is 0 for DVD (no sequence header)
- dwProfile: DWORD; // use enum MPEG2Profile
- dwLevel: DWORD; // use enum MPEG2Level
- dwFlags: DWORD; // use AMMPEG2_* defines. Reject connection if undefined bits are not 0
- dwSequenceHeader: array[0..0] of DWORD; // DWORD instead of Byte for alignment purposes
- // For MPEG-2, if a sequence_header is included, the sequence_extension
- // should also be included
- end;
- {$EXTERNALSYM tagMPEG2VIDEOINFO}
- MPEG2VIDEOINFO = tagMPEG2VIDEOINFO;
- {$EXTERNALSYM MPEG2VIDEOINFO}
- TMPEG2VideoInfo = tagMPEG2VIDEOINFO;
- {
- #define SIZE_MPEG2VIDEOINFO(pv) (FIELD_OFFSET(MPEG2VIDEOINFO, bSequenceHeader[0]) + (pv)->cbSequenceHeader)
- #define MPEG1_SEQUENCE_INFO(pv) ((const BYTE *)(pv)->bSequenceHeader)
- // use this macro instead, the previous only works for MPEG1VIDEOINFO structures
- #define MPEG2_SEQUENCE_INFO(pv) ((const BYTE *)(pv)->dwSequenceHeader)
- }
- //===================================================================================
- // flags for dwTypeSpecificFlags in AM_SAMPLE2_PROPERTIES which define type specific
- // data in IMediaSample2
- //===================================================================================
- const
- AM_VIDEO_FLAG_FIELD_MASK = $0003; // use this mask to check whether the sample is field1 or field2 or frame
- {$EXTERNALSYM AM_VIDEO_FLAG_FIELD_MASK}
- AM_VIDEO_FLAG_INTERLEAVED_FRAME = $0000; // the sample is a frame (remember to use AM_VIDEO_FLAG_FIELD_MASK when using this)
- {$EXTERNALSYM AM_VIDEO_FLAG_INTERLEAVED_FRAME}
- AM_VIDEO_FLAG_FIELD1 = $0001; // the sample is field1 (remember to use AM_VIDEO_FLAG_FIELD_MASK when using this)
- {$EXTERNALSYM AM_VIDEO_FLAG_FIELD1}
- AM_VIDEO_FLAG_FIELD2 = $0002; // the sample is the field2 (remember to use AM_VIDEO_FLAG_FIELD_MASK when using this)
- {$EXTERNALSYM AM_VIDEO_FLAG_FIELD2}
- AM_VIDEO_FLAG_FIELD1FIRST = $0004; // if set means display field1 first, else display field2 first.
- {$EXTERNALSYM AM_VIDEO_FLAG_FIELD1FIRST}
- // this bit is irrelavant for 1FieldPerSample mode
- AM_VIDEO_FLAG_WEAVE = $0008; // if set use bob display mode else weave
- {$EXTERNALSYM AM_VIDEO_FLAG_WEAVE}
- AM_VIDEO_FLAG_IPB_MASK = $0030; // use this mask to check whether the sample is I, P or B
- {$EXTERNALSYM AM_VIDEO_FLAG_IPB_MASK}
- AM_VIDEO_FLAG_I_SAMPLE = $0000; // I Sample (remember to use AM_VIDEO_FLAG_IPB_MASK when using this)
- {$EXTERNALSYM AM_VIDEO_FLAG_I_SAMPLE}
- AM_VIDEO_FLAG_P_SAMPLE = $0010; // P Sample (remember to use AM_VIDEO_FLAG_IPB_MASK when using this)
- {$EXTERNALSYM AM_VIDEO_FLAG_P_SAMPLE}
- AM_VIDEO_FLAG_B_SAMPLE = $0020; // B Sample (remember to use AM_VIDEO_FLAG_IPB_MASK when using this)
- {$EXTERNALSYM AM_VIDEO_FLAG_B_SAMPLE}
- AM_VIDEO_FLAG_REPEAT_FIELD = $0040; // if set means display the field which has been displayed first again after displaying
- {$EXTERNALSYM AM_VIDEO_FLAG_REPEAT_FIELD}
- // both fields first. This bit is irrelavant for 1FieldPerSample mode
- // -----------------------------------------------------------------------
- // AM_KSPROPSETID_DvdKaraoke property set definitions
- // -----------------------------------------------------------------------
- type
- tagAM_DvdKaraokeData = record
- dwDownmix : DWORD; // bitwise OR of AM_DvdKaraoke_Downmix flags
- dwSpeakerAssignment : DWORD; // AM_DvdKaraoke_SpeakerAssignment
- end;
- {$EXTERNALSYM tagAM_DvdKaraokeData}
- AM_DvdKaraokeData = tagAM_DvdKaraokeData;
- {$EXTERNALSYM AM_DvdKaraokeData}
- TAMDvdKaraokeData = tagAM_DvdKaraokeData;
- AM_PROPERTY_DVDKARAOKE = (
- AM_PROPERTY_DVDKARAOKE_ENABLE, // BOOL
- AM_PROPERTY_DVDKARAOKE_DATA
- );
- {$EXTERNALSYM AM_PROPERTY_DVDKARAOKE}
- TAMPropertyDVDKaraoke = AM_PROPERTY_DVDKARAOKE;
- // -----------------------------------------------------------------------
- // AM_KSPROPSETID_TSRateChange property set definitions for time stamp
- // rate changes.
- // -----------------------------------------------------------------------
- type
- AM_PROPERTY_TS_RATE_CHANGE = (
- {$IFNDEF COMPILER6_UP}
- AM_RATE_INVALID_0,
- AM_RATE_SimpleRateChange, // rw, use AM_SimpleRateChange
- AM_RATE_ExactRateChange, // rw, use AM_ExactRateChange
- AM_RATE_MaxFullDataRate, // r, use AM_MaxFullDataRate
- AM_RATE_Step, // w, use AM_Step
- AM_RATE_UseRateVersion, // w, use WORD
- AM_RATE_QueryFullFrameRate, // r, use AM_QueryRate
- AM_RATE_QueryLastRateSegPTS, // r, use REFERENCE_TIME
- AM_RATE_CorrectTS // w, use LONG
- {$ELSE}
- AM_RATE_SimpleRateChange = 1, // rw, use AM_SimpleRateChange
- AM_RATE_ExactRateChange = 2, // rw, use AM_ExactRateChange
- AM_RATE_MaxFullDataRate = 3, // r, use AM_MaxFullDataRate
- AM_RATE_Step = 4, // w, use AM_Step
- AM_RATE_UseRateVersion = 5, // w, use WORD
- AM_RATE_QueryFullFrameRate = 6, // r, use AM_QueryRate
- AM_RATE_QueryLastRateSegPTS = 7, // r, use REFERENCE_TIME
- AM_RATE_CorrectTS = 8 // w, use LONG
- {$ENDIF}
- );
- {$EXTERNALSYM AM_PROPERTY_TS_RATE_CHANGE}
- TAMPropertyTSRateChange = AM_PROPERTY_TS_RATE_CHANGE;
- // -------------------------------------------------------------------
- // AM_KSPROPSETID_DVD_RateChange property set definitions for new DVD
- // rate change scheme.
- // -------------------------------------------------------------------
- AM_PROPERTY_DVD_RATE_CHANGE = (
- {$IFNDEF COMPILER6_UP}
- AM_RATE_INVALID__0,
- AM_RATE_ChangeRate, // w, use AM_DVD_ChangeRate
- AM_RATE_FullDataRateMax, // r, use AM_MaxFullDataRate
- AM_RATE_ReverseDecode, // r, use LONG
- AM_RATE_DecoderPosition, // r, use AM_DVD_DecoderPosition
- AM_RATE_DecoderVersion // r, use LONG
- {$ELSE}
- AM_RATE_ChangeRate = 1, // w, use AM_DVD_ChangeRate
- AM_RATE_FullDataRateMax = 2, // r, use AM_MaxFullDataRate
- AM_RATE_ReverseDecode = 3, // r, use LONG
- AM_RATE_DecoderPosition = 4, // r, use AM_DVD_DecoderPosition
- AM_RATE_DecoderVersion = 5 // r, use LONG
- {$ENDIF}
- );
- {$EXTERNALSYM AM_PROPERTY_DVD_RATE_CHANGE}
- TAMPropertyDVDRateChange = AM_PROPERTY_DVD_RATE_CHANGE;
- AM_SimpleRateChange = record
- // this is the simplest mechinism to set a time stamp rate change on
- // a filter (simplest for the person setting the rate change, harder
- // for the filter doing the rate change).
- StartTime: TReferenceTime; //stream time at which to start this rate
- Rate: Longint; //new rate * 10000 (decimal)
- end;
- {$EXTERNALSYM AM_SimpleRateChange}
- TAMSimpleRateChange = AM_SimpleRateChange;
- AM_QueryRate = record
- lMaxForwardFullFrame: LongInt; // rate * 10000
- lMaxReverseFullFrame: LongInt; // rate * 10000
- end;
- {$EXTERNALSYM AM_QueryRate}
- TAMQueryRate = AM_QueryRate;
- AM_ExactRateChange = record
- OutputZeroTime: TReferenceTime; //input TS that maps to zero output TS
- Rate: Longint; //new rate * 10000 (decimal)
- end;
- {$EXTERNALSYM AM_ExactRateChange}
- TAMExactRateChange = AM_ExactRateChange;
- AM_MaxFullDateRate = {$IFDEF TYPE_IDENTITY}type {$ENDIF} Longint; //rate * 10000 (decimal)
- {$EXTERNALSYM AM_MaxFullDateRate}
- AM_Step = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD; // number of frame to step
- {$EXTERNALSYM AM_Step}
- // New rate change property set, structs. enums etc.
- AM_DVD_ChangeRate = record
- StartInTime : TReferenceTime; // stream time (input) at which to start decoding at this rate
- StartOutTime : TReferenceTime; // reference time (output) at which to start showing at this rate
- Rate : Longint; // new rate * 10000 (decimal)
- end;
- {$EXTERNALSYM AM_DVD_ChangeRate}
- TAMDVDChangeRate = AM_DVD_ChangeRate;
- AM_DVD_DecoderPosition = {$IFDEF TYPE_IDENTITY}type {$ENDIF} int64 ;
- {$EXTERNALSYM AM_DVD_DecoderPosition}
- DVD_PLAY_DIRECTION = (
- DVD_DIR_FORWARD,
- DVD_DIR_BACKWARD
- );
- {$EXTERNALSYM DVD_PLAY_DIRECTION}
- TDVDPlayDirection = DVD_PLAY_DIRECTION;
-
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: activecf.h
- *
- ***************************************************************************)
- const
- CFSTR_VFW_FILTERLIST = 'Video for Windows 4 Filters';
- {$EXTERNALSYM CFSTR_VFW_FILTERLIST}
- type
- tagVFW_FILTERLIST = record
- cFilters: UINT; // number of CLSIDs in aClsId
- aClsId: array[0..0] of TGUID; // ClsId of each filter
- end;
- {$EXTERNALSYM tagVFW_FILTERLIST}
- VFW_FILTERLIST = tagVFW_FILTERLIST;
- {$EXTERNALSYM VFW_FILTERLIST}
- TVFWFilterList = tagVFW_FILTERLIST;
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: vfwmsgs.h
- *
- ***************************************************************************)
- const
- //
- // Define the severity codes
- //
- VFW_E_INVALIDMEDIATYPE = HResult($80040200);
- {$EXTERNALSYM VFW_E_INVALIDMEDIATYPE}
- VFW_E_INVALIDSUBTYPE = HResult($80040201);
- {$EXTERNALSYM VFW_E_INVALIDSUBTYPE}
- VFW_E_NEED_OWNER = HResult($80040202);
- {$EXTERNALSYM VFW_E_NEED_OWNER}
- VFW_E_ENUM_OUT_OF_SYNC = HResult($80040203);
- {$EXTERNALSYM VFW_E_ENUM_OUT_OF_SYNC}
- VFW_E_ALREADY_CONNECTED = HResult($80040204);
- {$EXTERNALSYM VFW_E_ALREADY_CONNECTED}
- VFW_E_FILTER_ACTIVE = HResult($80040205);
- {$EXTERNALSYM VFW_E_FILTER_ACTIVE}
- VFW_E_NO_TYPES = HResult($80040206);
- {$EXTERNALSYM VFW_E_NO_TYPES}
- VFW_E_NO_ACCEPTABLE_TYPES = HResult($80040207);
- {$EXTERNALSYM VFW_E_NO_ACCEPTABLE_TYPES}
- VFW_E_INVALID_DIRECTION = HResult($80040208);
- {$EXTERNALSYM VFW_E_INVALID_DIRECTION}
- VFW_E_NOT_CONNECTED = HResult($80040209);
- {$EXTERNALSYM VFW_E_NOT_CONNECTED}
- VFW_E_NO_ALLOCATOR = HResult($8004020A);
- {$EXTERNALSYM VFW_E_NO_ALLOCATOR}
- VFW_E_RUNTIME_ERROR = HResult($8004020B);
- {$EXTERNALSYM VFW_E_RUNTIME_ERROR}
- VFW_E_BUFFER_NOTSET = HResult($8004020C);
- {$EXTERNALSYM VFW_E_BUFFER_NOTSET}
- VFW_E_BUFFER_OVERFLOW = HResult($8004020D);
- {$EXTERNALSYM VFW_E_BUFFER_OVERFLOW}
- VFW_E_BADALIGN = HResult($8004020E);
- {$EXTERNALSYM VFW_E_BADALIGN}
- VFW_E_ALREADY_COMMITTED = HResult($8004020F);
- {$EXTERNALSYM VFW_E_ALREADY_COMMITTED}
- VFW_E_BUFFERS_OUTSTANDING = HResult($80040210);
- {$EXTERNALSYM VFW_E_BUFFERS_OUTSTANDING}
- VFW_E_NOT_COMMITTED = HResult($80040211);
- {$EXTERNALSYM VFW_E_NOT_COMMITTED}
- VFW_E_SIZENOTSET = HResult($80040212);
- {$EXTERNALSYM VFW_E_SIZENOTSET}
- VFW_E_NO_CLOCK = HResult($80040213);
- {$EXTERNALSYM VFW_E_NO_CLOCK}
- VFW_E_NO_SINK = HResult($80040214);
- {$EXTERNALSYM VFW_E_NO_SINK}
- VFW_E_NO_INTERFACE = HResult($80040215);
- {$EXTERNALSYM VFW_E_NO_INTERFACE}
- VFW_E_NOT_FOUND = HResult($80040216);
- {$EXTERNALSYM VFW_E_NOT_FOUND}
- VFW_E_CANNOT_CONNECT = HResult($80040217);
- {$EXTERNALSYM VFW_E_CANNOT_CONNECT}
- VFW_E_CANNOT_RENDER = HResult($80040218);
- {$EXTERNALSYM VFW_E_CANNOT_RENDER}
- VFW_E_CHANGING_FORMAT = HResult($80040219);
- {$EXTERNALSYM VFW_E_CHANGING_FORMAT}
- VFW_E_NO_COLOR_KEY_SET = HResult($8004021A);
- {$EXTERNALSYM VFW_E_NO_COLOR_KEY_SET}
- VFW_E_NOT_OVERLAY_CONNECTION = HResult($8004021B);
- {$EXTERNALSYM VFW_E_NOT_OVERLAY_CONNECTION}
- VFW_E_NOT_SAMPLE_CONNECTION = HResult($8004021C);
- {$EXTERNALSYM VFW_E_NOT_SAMPLE_CONNECTION}
- VFW_E_PALETTE_SET = HResult($8004021D);
- {$EXTERNALSYM VFW_E_PALETTE_SET}
- VFW_E_COLOR_KEY_SET = HResult($8004021E);
- {$EXTERNALSYM VFW_E_COLOR_KEY_SET}
- VFW_E_NO_COLOR_KEY_FOUND = HResult($8004021F);
- {$EXTERNALSYM VFW_E_NO_COLOR_KEY_FOUND}
- VFW_E_NO_PALETTE_AVAILABLE = HResult($80040220);
- {$EXTERNALSYM VFW_E_NO_PALETTE_AVAILABLE}
- VFW_E_NO_DISPLAY_PALETTE = HResult($80040221);
- {$EXTERNALSYM VFW_E_NO_DISPLAY_PALETTE}
- VFW_E_TOO_MANY_COLORS = HResult($80040222);
- {$EXTERNALSYM VFW_E_TOO_MANY_COLORS}
- VFW_E_STATE_CHANGED = HResult($80040223);
- {$EXTERNALSYM VFW_E_STATE_CHANGED}
- VFW_E_NOT_STOPPED = HResult($80040224);
- {$EXTERNALSYM VFW_E_NOT_STOPPED}
- VFW_E_NOT_PAUSED = HResult($80040225);
- {$EXTERNALSYM VFW_E_NOT_PAUSED}
- VFW_E_NOT_RUNNING = HResult($80040226);
- {$EXTERNALSYM VFW_E_NOT_RUNNING}
- VFW_E_WRONG_STATE = HResult($80040227);
- {$EXTERNALSYM VFW_E_WRONG_STATE}
- VFW_E_START_TIME_AFTER_END = HResult($80040228);
- {$EXTERNALSYM VFW_E_START_TIME_AFTER_END}
- VFW_E_INVALID_RECT = HResult($80040229);
- {$EXTERNALSYM VFW_E_INVALID_RECT}
- VFW_E_TYPE_NOT_ACCEPTED = HResult($8004022A);
- {$EXTERNALSYM VFW_E_TYPE_NOT_ACCEPTED}
- VFW_E_SAMPLE_REJECTED = HResult($8004022B);
- {$EXTERNALSYM VFW_E_SAMPLE_REJECTED}
- VFW_E_SAMPLE_REJECTED_EOS = HResult($8004022C);
- {$EXTERNALSYM VFW_E_SAMPLE_REJECTED_EOS}
- VFW_E_DUPLICATE_NAME = HResult($8004022D);
- {$EXTERNALSYM VFW_E_DUPLICATE_NAME}
- VFW_S_DUPLICATE_NAME = HResult($0004022D);
- {$EXTERNALSYM VFW_S_DUPLICATE_NAME}
- VFW_E_TIMEOUT = HResult($8004022E);
- {$EXTERNALSYM VFW_E_TIMEOUT}
- VFW_E_INVALID_FILE_FORMAT = HResult($8004022F);
- {$EXTERNALSYM VFW_E_INVALID_FILE_FORMAT}
- VFW_E_ENUM_OUT_OF_RANGE = HResult($80040230);
- {$EXTERNALSYM VFW_E_ENUM_OUT_OF_RANGE}
- VFW_E_CIRCULAR_GRAPH = HResult($80040231);
- {$EXTERNALSYM VFW_E_CIRCULAR_GRAPH}
- VFW_E_NOT_ALLOWED_TO_SAVE = HResult($80040232);
- {$EXTERNALSYM VFW_E_NOT_ALLOWED_TO_SAVE}
- VFW_E_TIME_ALREADY_PASSED = HResult($80040233);
- {$EXTERNALSYM VFW_E_TIME_ALREADY_PASSED}
- VFW_E_ALREADY_CANCELLED = HResult($80040234);
- {$EXTERNALSYM VFW_E_ALREADY_CANCELLED}
- VFW_E_CORRUPT_GRAPH_FILE = HResult($80040235);
- {$EXTERNALSYM VFW_E_CORRUPT_GRAPH_FILE}
- VFW_E_ADVISE_ALREADY_SET = HResult($80040236);
- {$EXTERNALSYM VFW_E_ADVISE_ALREADY_SET}
- VFW_S_STATE_INTERMEDIATE = HResult($00040237);
- {$EXTERNALSYM VFW_S_STATE_INTERMEDIATE}
- VFW_E_NO_MODEX_AVAILABLE = HResult($80040238);
- {$EXTERNALSYM VFW_E_NO_MODEX_AVAILABLE}
- VFW_E_NO_ADVISE_SET = HResult($80040239);
- {$EXTERNALSYM VFW_E_NO_ADVISE_SET}
- VFW_E_NO_FULLSCREEN = HResult($8004023B);
- {$EXTERNALSYM VFW_E_NO_FULLSCREEN}
- VFW_E_UNKNOWN_FILE_TYPE = HResult($80040240);
- {$EXTERNALSYM VFW_E_UNKNOWN_FILE_TYPE}
- VFW_E_CANNOT_LOAD_SOURCE_FILTER = HResult($80040241);
- {$EXTERNALSYM VFW_E_CANNOT_LOAD_SOURCE_FILTER}
- VFW_S_PARTIAL_RENDER = HResult($00040242);
- {$EXTERNALSYM VFW_S_PARTIAL_RENDER}
- VFW_E_FILE_TOO_SHORT = HResult($80040243);
- {$EXTERNALSYM VFW_E_FILE_TOO_SHORT}
- VFW_E_INVALID_FILE_VERSION = HResult($80040244);
- {$EXTERNALSYM VFW_E_INVALID_FILE_VERSION}
- VFW_S_SOME_DATA_IGNORED = HResult($00040245);
- {$EXTERNALSYM VFW_S_SOME_DATA_IGNORED}
- VFW_S_CONNECTIONS_DEFERRED = HResult($00040246);
- {$EXTERNALSYM VFW_S_CONNECTIONS_DEFERRED}
- VFW_E_INVALID_CLSID = HResult($80040247);
- {$EXTERNALSYM VFW_E_INVALID_CLSID}
- VFW_E_INVALID_MEDIA_TYPE = HResult($80040248);
- {$EXTERNALSYM VFW_E_INVALID_MEDIA_TYPE}
- VFW_E_BAD_KEY = HResult($800403F2);
- {$EXTERNALSYM VFW_E_BAD_KEY}
- VFW_S_NO_MORE_ITEMS = HResult($00040103);
- {$EXTERNALSYM VFW_S_NO_MORE_ITEMS}
- VFW_E_SAMPLE_TIME_NOT_SET = HResult($80040249);
- {$EXTERNALSYM VFW_E_SAMPLE_TIME_NOT_SET}
- VFW_S_RESOURCE_NOT_NEEDED = HResult($00040250);
- {$EXTERNALSYM VFW_S_RESOURCE_NOT_NEEDED}
- VFW_E_MEDIA_TIME_NOT_SET = HResult($80040251);
- {$EXTERNALSYM VFW_E_MEDIA_TIME_NOT_SET}
- VFW_E_NO_TIME_FORMAT_SET = HResult($80040252);
- {$EXTERNALSYM VFW_E_NO_TIME_FORMAT_SET}
- VFW_E_MONO_AUDIO_HW = HResult($80040253);
- {$EXTERNALSYM VFW_E_MONO_AUDIO_HW}
- VFW_S_MEDIA_TYPE_IGNORED = HResult($00040254);
- {$EXTERNALSYM VFW_S_MEDIA_TYPE_IGNORED}
- VFW_E_NO_AUDIO_HARDWARE = HResult($80040256);
- {$EXTERNALSYM VFW_E_NO_AUDIO_HARDWARE}
- VFW_S_VIDEO_NOT_RENDERED = HResult($00040257);
- {$EXTERNALSYM VFW_S_VIDEO_NOT_RENDERED}
- VFW_S_AUDIO_NOT_RENDERED = HResult($00040258);
- {$EXTERNALSYM VFW_S_AUDIO_NOT_RENDERED}
- VFW_E_RPZA = HResult($80040259);
- {$EXTERNALSYM VFW_E_RPZA}
- VFW_S_RPZA = HResult($0004025A);
- {$EXTERNALSYM VFW_S_RPZA}
- VFW_E_PROCESSOR_NOT_SUITABLE = HResult($8004025B);
- {$EXTERNALSYM VFW_E_PROCESSOR_NOT_SUITABLE}
- VFW_E_UNSUPPORTED_AUDIO = HResult($8004025C);
- {$EXTERNALSYM VFW_E_UNSUPPORTED_AUDIO}
- VFW_E_UNSUPPORTED_VIDEO = HResult($8004025D);
- {$EXTERNALSYM VFW_E_UNSUPPORTED_VIDEO}
- VFW_E_MPEG_NOT_CONSTRAINED = HResult($8004025E);
- {$EXTERNALSYM VFW_E_MPEG_NOT_CONSTRAINED}
- VFW_E_NOT_IN_GRAPH = HResult($8004025F);
- {$EXTERNALSYM VFW_E_NOT_IN_GRAPH}
- VFW_S_ESTIMATED = HResult($00040260);
- {$EXTERNALSYM VFW_S_ESTIMATED}
- VFW_E_NO_TIME_FORMAT = HResult($80040261);
- {$EXTERNALSYM VFW_E_NO_TIME_FORMAT}
- VFW_E_READ_ONLY = HResult($80040262);
- {$EXTERNALSYM VFW_E_READ_ONLY}
- VFW_S_RESERVED = HResult($00040263);
- {$EXTERNALSYM VFW_S_RESERVED}
- VFW_E_BUFFER_UNDERFLOW = HResult($80040264);
- {$EXTERNALSYM VFW_E_BUFFER_UNDERFLOW}
- VFW_E_UNSUPPORTED_STREAM = HResult($80040265);
- {$EXTERNALSYM VFW_E_UNSUPPORTED_STREAM}
- VFW_E_NO_TRANSPORT = HResult($80040266);
- {$EXTERNALSYM VFW_E_NO_TRANSPORT}
- VFW_S_STREAM_OFF = HResult($00040267);
- {$EXTERNALSYM VFW_S_STREAM_OFF}
- VFW_S_CANT_CUE = HResult($00040268);
- {$EXTERNALSYM VFW_S_CANT_CUE}
- VFW_E_BAD_VIDEOCD = HResult($80040269);
- {$EXTERNALSYM VFW_E_BAD_VIDEOCD}
- VFW_S_NO_STOP_TIME = HResult($00040270);
- {$EXTERNALSYM VFW_S_NO_STOP_TIME}
- VFW_E_OUT_OF_VIDEO_MEMORY = HResult($80040271);
- {$EXTERNALSYM VFW_E_OUT_OF_VIDEO_MEMORY}
- VFW_E_VP_NEGOTIATION_FAILED = HResult($80040272);
- {$EXTERNALSYM VFW_E_VP_NEGOTIATION_FAILED}
- VFW_E_DDRAW_CAPS_NOT_SUITABLE = HResult($80040273);
- {$EXTERNALSYM VFW_E_DDRAW_CAPS_NOT_SUITABLE}
- VFW_E_NO_VP_HARDWARE = HResult($80040274);
- {$EXTERNALSYM VFW_E_NO_VP_HARDWARE}
- VFW_E_NO_CAPTURE_HARDWARE = HResult($80040275);
- {$EXTERNALSYM VFW_E_NO_CAPTURE_HARDWARE}
- VFW_E_DVD_OPERATION_INHIBITED = HResult($80040276);
- {$EXTERNALSYM VFW_E_DVD_OPERATION_INHIBITED}
- VFW_E_DVD_INVALIDDOMAIN = HResult($80040277);
- {$EXTERNALSYM VFW_E_DVD_INVALIDDOMAIN}
- VFW_E_DVD_NO_BUTTON = Hresult($80040278);
- {$EXTERNALSYM VFW_E_DVD_NO_BUTTON}
- VFW_E_DVD_GRAPHNOTREADY = HResult($80040279);
- {$EXTERNALSYM VFW_E_DVD_GRAPHNOTREADY}
- VFW_E_DVD_RENDERFAIL = HResult($8004027A);
- {$EXTERNALSYM VFW_E_DVD_RENDERFAIL}
- VFW_E_DVD_DECNOTENOUGH = HResult($8004027B);
- {$EXTERNALSYM VFW_E_DVD_DECNOTENOUGH}
- VFW_E_DDRAW_VERSION_NOT_SUITABLE = HResult($8004027C);
- {$EXTERNALSYM VFW_E_DDRAW_VERSION_NOT_SUITABLE}
- VFW_E_COPYPROT_FAILED = HResult($8004027D);
- {$EXTERNALSYM VFW_E_COPYPROT_FAILED}
- VFW_S_NOPREVIEWPIN = HResult($0004027E);
- {$EXTERNALSYM VFW_S_NOPREVIEWPIN}
- VFW_E_TIME_EXPIRED = HResult($8004027F);
- {$EXTERNALSYM VFW_E_TIME_EXPIRED}
- VFW_S_DVD_NON_ONE_SEQUENTIAL = HResult($00040280);
- {$EXTERNALSYM VFW_S_DVD_NON_ONE_SEQUENTIAL}
- VFW_E_DVD_WRONG_SPEED = HResult($80040281);
- {$EXTERNALSYM VFW_E_DVD_WRONG_SPEED}
- VFW_E_DVD_MENU_DOES_NOT_EXIST = HResult($80040282);
- {$EXTERNALSYM VFW_E_DVD_MENU_DOES_NOT_EXIST}
- VFW_E_DVD_CMD_CANCELLED = HResult($80040283);
- {$EXTERNALSYM VFW_E_DVD_CMD_CANCELLED}
- VFW_E_DVD_STATE_WRONG_VERSION = HResult($80040284);
- {$EXTERNALSYM VFW_E_DVD_STATE_WRONG_VERSION}
- VFW_E_DVD_STATE_CORRUPT = HResult($80040285);
- {$EXTERNALSYM VFW_E_DVD_STATE_CORRUPT}
- VFW_E_DVD_STATE_WRONG_DISC = HResult($80040286);
- {$EXTERNALSYM VFW_E_DVD_STATE_WRONG_DISC}
- VFW_E_DVD_INCOMPATIBLE_REGION = HResult($80040287);
- {$EXTERNALSYM VFW_E_DVD_INCOMPATIBLE_REGION}
- VFW_E_DVD_NO_ATTRIBUTES = HResult($80040288);
- {$EXTERNALSYM VFW_E_DVD_NO_ATTRIBUTES}
- VFW_E_DVD_NO_GOUP_PGC = HResult($80040289);
- {$EXTERNALSYM VFW_E_DVD_NO_GOUP_PGC}
- VFW_E_DVD_LOW_PARENTAL_LEVEL = HResult($8004028A);
- {$EXTERNALSYM VFW_E_DVD_LOW_PARENTAL_LEVEL}
- VFW_E_DVD_NOT_IN_KARAOKE_MODE = HResult($8004028B);
- {$EXTERNALSYM VFW_E_DVD_NOT_IN_KARAOKE_MODE}
- VFW_S_DVD_CHANNEL_CONTENTS_NOT_AVAILABLE = HResult($0004028C);
- {$EXTERNALSYM VFW_S_DVD_CHANNEL_CONTENTS_NOT_AVAILABLE}
- VFW_S_DVD_NOT_ACCURATE = HResult($0004028D);
- {$EXTERNALSYM VFW_S_DVD_NOT_ACCURATE}
- VFW_E_FRAME_STEP_UNSUPPORTED = HResult($8004028E);
- {$EXTERNALSYM VFW_E_FRAME_STEP_UNSUPPORTED}
- VFW_E_DVD_STREAM_DISABLED = HResult($8004028F);
- {$EXTERNALSYM VFW_E_DVD_STREAM_DISABLED}
- VFW_E_DVD_TITLE_UNKNOWN = HResult($80040290);
- {$EXTERNALSYM VFW_E_DVD_TITLE_UNKNOWN}
- VFW_E_DVD_INVALID_DISC = HResult($80040291);
- {$EXTERNALSYM VFW_E_DVD_INVALID_DISC}
- VFW_E_DVD_NO_RESUME_INFORMATION = HResult($80040292);
- {$EXTERNALSYM VFW_E_DVD_NO_RESUME_INFORMATION}
- VFW_E_PIN_ALREADY_BLOCKED_ON_THIS_THREAD = HResult($80040293);
- {$EXTERNALSYM VFW_E_PIN_ALREADY_BLOCKED_ON_THIS_THREAD}
- VFW_E_PIN_ALREADY_BLOCKED = HResult($80040294);
- {$EXTERNALSYM VFW_E_PIN_ALREADY_BLOCKED}
- VFW_E_CERTIFICATION_FAILURE = HResult($80040295);
- {$EXTERNALSYM VFW_E_CERTIFICATION_FAILURE}
- VFW_E_VMR_NOT_IN_MIXER_MODE = HResult($80040296);
- {$EXTERNALSYM VFW_E_VMR_NOT_IN_MIXER_MODE}
- // The application has not yet provided the VMR filter with a valid allocator-presenter object.%0
- VFW_E_VMR_NO_AP_SUPPLIED = HResult($80040297);
- {$EXTERNALSYM VFW_E_VMR_NO_AP_SUPPLIED}
- // The VMR could not find any de-interlacing hardware on the current display device.%0
- VFW_E_VMR_NO_DEINTERLACE_HW = HResult($80040298);
- {$EXTERNALSYM VFW_E_VMR_NO_DEINTERLACE_HW}
- // The VMR could not find any ProcAmp hardware on the current display device.%0
- VFW_E_VMR_NO_PROCAMP_HW = HResult($80040299);
- {$EXTERNALSYM VFW_E_VMR_NO_PROCAMP_HW}
- // VMR9 does not work with VPE-based hardware decoders.%0
- VFW_E_DVD_VMR9_INCOMPATIBLEDEC = HResult($8004029A);
- {$EXTERNALSYM VFW_E_DVD_VMR9_INCOMPATIBLEDEC}
- // The current display device does not support Content Output Protection Protocol (COPP) H/W.%0
- VFW_E_NO_COPP_HW = HRESULT($8004029B);
- {$EXTERNALSYM VFW_E_NO_COPP_HW}
- E_PROP_SET_UNSUPPORTED = HResult($80070492);
- {$EXTERNALSYM E_PROP_SET_UNSUPPORTED}
- E_PROP_ID_UNSUPPORTED = HResult($80070490);
- {$EXTERNALSYM E_PROP_ID_UNSUPPORTED}
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * Files: edevdefs.h
- * XPrtDefs.h (derived from edevdefs.h)
- *
- ***************************************************************************)
- const
- ED_BASE = $1000;
- {$EXTERNALSYM ED_BASE}
- // this is used to tell the device communications object which
- // physical communications port to use.
- DEV_PORT_SIM = 1;
- {$EXTERNALSYM DEV_PORT_SIM}
- DEV_PORT_COM1 = 2; // standard serial ports
- {$EXTERNALSYM DEV_PORT_COM1}
- DEV_PORT_COM2 = 3;
- {$EXTERNALSYM DEV_PORT_COM2}
- DEV_PORT_COM3 = 4;
- {$EXTERNALSYM DEV_PORT_COM3}
- DEV_PORT_COM4 = 5;
- {$EXTERNALSYM DEV_PORT_COM4}
- DEV_PORT_DIAQ = 6; // Diaquest driver
- {$EXTERNALSYM DEV_PORT_DIAQ}
- DEV_PORT_ARTI = 7; // ARTI driver
- {$EXTERNALSYM DEV_PORT_ARTI}
- DEV_PORT_1394 = 8; // IEEE 1394 Serial Bus
- {$EXTERNALSYM DEV_PORT_1394}
- DEV_PORT_USB = 9; // Universal Serial Bus
- {$EXTERNALSYM DEV_PORT_USB}
- DEV_PORT_MIN = DEV_PORT_SIM;
- {$EXTERNALSYM DEV_PORT_MIN}
- DEV_PORT_MAX = DEV_PORT_USB;
- {$EXTERNALSYM DEV_PORT_MAX}
- // IAMExtDevice Capability Items: unless otherwise specified, these items return
- // OATRUE or OAFALSE. All return values are in pdwValue unless otherwise specified:
- ED_DEVCAP_CAN_RECORD = ED_BASE+1;
- {$EXTERNALSYM ED_DEVCAP_CAN_RECORD}
- ED_DEVCAP_CAN_RECORD_STROBE = ED_BASE+2;
- {$EXTERNALSYM ED_DEVCAP_CAN_RECORD_STROBE}
- ED_DEVCAP_HAS_AUDIO = ED_BASE+3;
- {$EXTERNALSYM ED_DEVCAP_HAS_AUDIO}
- ED_DEVCAP_HAS_VIDEO = ED_BASE+4;
- {$EXTERNALSYM ED_DEVCAP_HAS_VIDEO}
- ED_DEVCAP_USES_FILES = ED_BASE+5;
- {$EXTERNALSYM ED_DEVCAP_USES_FILES}
- ED_DEVCAP_CAN_SAVE = ED_BASE+6;
- {$EXTERNALSYM ED_DEVCAP_CAN_SAVE}
- ED_DEVCAP_DEVICE_TYPE = ED_BASE+7;
- {$EXTERNALSYM ED_DEVCAP_DEVICE_TYPE}
- ED_DEVTYPE_VCR = ED_BASE+8;
- {$EXTERNALSYM ED_DEVTYPE_VCR}
- ED_DEVTYPE_LASERDISK = ED_BASE+9;
- {$EXTERNALSYM ED_DEVTYPE_LASERDISK}
- ED_DEVTYPE_ATR = ED_BASE+10;
- {$EXTERNALSYM ED_DEVTYPE_ATR}
- ED_DEVTYPE_DDR = ED_BASE+11;
- {$EXTERNALSYM ED_DEVTYPE_DDR}
- ED_DEVTYPE_ROUTER = ED_BASE+12;
- {$EXTERNALSYM ED_DEVTYPE_ROUTER}
- ED_DEVTYPE_KEYER = ED_BASE+13;
- {$EXTERNALSYM ED_DEVTYPE_KEYER}
- ED_DEVTYPE_MIXER_VIDEO = ED_BASE+14;
- {$EXTERNALSYM ED_DEVTYPE_MIXER_VIDEO}
- ED_DEVTYPE_DVE = ED_BASE+15;
- {$EXTERNALSYM ED_DEVTYPE_DVE}
- ED_DEVTYPE_WIPEGEN = ED_BASE+16;
- {$EXTERNALSYM ED_DEVTYPE_WIPEGEN}
- ED_DEVTYPE_MIXER_AUDIO = ED_BASE+17;
- {$EXTERNALSYM ED_DEVTYPE_MIXER_AUDIO}
- ED_DEVTYPE_CG = ED_BASE+18;
- {$EXTERNALSYM ED_DEVTYPE_CG}
- ED_DEVTYPE_TBC = ED_BASE+19;
- {$EXTERNALSYM ED_DEVTYPE_TBC}
- ED_DEVTYPE_TCG = ED_BASE+20;
- {$EXTERNALSYM ED_DEVTYPE_TCG}
- ED_DEVTYPE_GPI = ED_BASE+21;
- {$EXTERNALSYM ED_DEVTYPE_GPI}
- ED_DEVTYPE_JOYSTICK = ED_BASE+22;
- {$EXTERNALSYM ED_DEVTYPE_JOYSTICK}
- ED_DEVTYPE_KEYBOARD = ED_BASE+23;
- {$EXTERNALSYM ED_DEVTYPE_KEYBOARD}
- // returns mfr-specific ID from external device.
- ED_DEVCAP_EXTERNAL_DEVICE_ID = ED_BASE+24;
- {$EXTERNALSYM ED_DEVCAP_EXTERNAL_DEVICE_ID}
- ED_DEVCAP_TIMECODE_READ = ED_BASE+25;
- {$EXTERNALSYM ED_DEVCAP_TIMECODE_READ}
- ED_DEVCAP_TIMECODE_WRITE = ED_BASE+26;
- {$EXTERNALSYM ED_DEVCAP_TIMECODE_WRITE}
- // used for seekable non-timecode enabled devices
- ED_DEVCAP_CTLTRK_READ = ED_BASE+27;
- {$EXTERNALSYM ED_DEVCAP_CTLTRK_READ}
- // used for seekable non-timecode enabled devices
- ED_DEVCAP_INDEX_READ = ED_BASE+28;
- {$EXTERNALSYM ED_DEVCAP_INDEX_READ}
- // returns device preroll time in current time format
- ED_DEVCAP_PREROLL = ED_BASE+29;
- {$EXTERNALSYM ED_DEVCAP_PREROLL}
- // returns device postroll time in current time format
- ED_DEVCAP_POSTROLL = ED_BASE+30;
- {$EXTERNALSYM ED_DEVCAP_POSTROLL}
- // returns indication of device’s synchronization accuracy.
- ED_DEVCAP_SYNC_ACCURACY = ED_BASE+31;
- {$EXTERNALSYM ED_DEVCAP_SYNC_ACCURACY}
- ED_SYNCACC_PRECISE = ED_BASE+32;
- {$EXTERNALSYM ED_SYNCACC_PRECISE}
- ED_SYNCACC_FRAME = ED_BASE+33;
- {$EXTERNALSYM ED_SYNCACC_FRAME}
- ED_SYNCACC_ROUGH = ED_BASE+34;
- {$EXTERNALSYM ED_SYNCACC_ROUGH}
- // returns device’s normal framerate.
- ED_DEVCAP_NORMAL_RATE = ED_BASE+35;
- {$EXTERNALSYM ED_DEVCAP_NORMAL_RATE}
- ED_RATE_24 = ED_BASE+36;
- {$EXTERNALSYM ED_RATE_24}
- ED_RATE_25 = ED_BASE+37;
- {$EXTERNALSYM ED_RATE_25}
- ED_RATE_2997 = ED_BASE+38;
- {$EXTERNALSYM ED_RATE_2997}
- ED_RATE_30 = ED_BASE+39;
- {$EXTERNALSYM ED_RATE_30}
- ED_DEVCAP_CAN_PREVIEW = ED_BASE+40;
- {$EXTERNALSYM ED_DEVCAP_CAN_PREVIEW}
- ED_DEVCAP_CAN_MONITOR_SOURCES = ED_BASE+41;
- {$EXTERNALSYM ED_DEVCAP_CAN_MONITOR_SOURCES}
- // indicates implementation allows testing of methods/parameters by
- // setting the hi bit of a parm that makes sense - see individual methods
- // for details.
- ED_DEVCAP_CAN_TEST = ED_BASE+42;
- {$EXTERNALSYM ED_DEVCAP_CAN_TEST}
- // indicates device accepts video as an input.
- ED_DEVCAP_VIDEO_INPUTS = ED_BASE+43;
- {$EXTERNALSYM ED_DEVCAP_VIDEO_INPUTS}
- // indicates device accepts audio as an input.
- ED_DEVCAP_AUDIO_INPUTS = ED_BASE+44;
- {$EXTERNALSYM ED_DEVCAP_AUDIO_INPUTS}
- ED_DEVCAP_NEEDS_CALIBRATING = ED_BASE+45;
- {$EXTERNALSYM ED_DEVCAP_NEEDS_CALIBRATING}
- ED_DEVCAP_SEEK_TYPE = ED_BASE+46;
- {$EXTERNALSYM ED_DEVCAP_SEEK_TYPE}
- ED_SEEK_PERFECT = ED_BASE+47;
- {$EXTERNALSYM ED_SEEK_PERFECT}
- ED_SEEK_FAST = ED_BASE+48;
- {$EXTERNALSYM ED_SEEK_FAST}
- ED_SEEK_SLOW = ED_BASE+49;
- {$EXTERNALSYM ED_SEEK_SLOW}
- ED_POWER_ON = ED_BASE+50;
- {$EXTERNALSYM ED_POWER_ON}
- ED_POWER_OFF = ED_BASE+51;
- {$EXTERNALSYM ED_POWER_OFF}
- ED_POWER_STANDBY = ED_BASE+52;
- {$EXTERNALSYM ED_POWER_STANDBY}
- ED_POWER_DEVICE_DEPENDENT = ED_BASE+1033; // Power is on with limited functions
- {$EXTERNALSYM ED_POWER_DEVICE_DEPENDENT}
- ED_ACTIVE = ED_BASE+53;
- {$EXTERNALSYM ED_ACTIVE}
- ED_INACTIVE = ED_BASE+54;
- {$EXTERNALSYM ED_INACTIVE}
- ED_ALL = ED_BASE+55;
- {$EXTERNALSYM ED_ALL}
- ED_TEST = ED_BASE+56;
- {$EXTERNALSYM ED_TEST}
- // IAMExtTransport Capability Items: unless otherwise specified, these items return
- // OATRUE or OAFALSE. All return values are in pdwValue unless otherwise specified:
- ED_TRANSCAP_CAN_EJECT = ED_BASE+100;
- {$EXTERNALSYM ED_TRANSCAP_CAN_EJECT}
- ED_TRANSCAP_CAN_BUMP_PLAY = ED_BASE+101;
- {$EXTERNALSYM ED_TRANSCAP_CAN_BUMP_PLAY}
- ED_TRANSCAP_CAN_PLAY_BACKWARDS = ED_BASE+102;
- {$EXTERNALSYM ED_TRANSCAP_CAN_PLAY_BACKWARDS}
- ED_TRANSCAP_CAN_SET_EE = ED_BASE+103;
- {$EXTERNALSYM ED_TRANSCAP_CAN_SET_EE}
- ED_TRANSCAP_CAN_SET_PB = ED_BASE+104;
- {$EXTERNALSYM ED_TRANSCAP_CAN_SET_PB}
- ED_TRANSCAP_CAN_DELAY_VIDEO_IN = ED_BASE+105;
- {$EXTERNALSYM ED_TRANSCAP_CAN_DELAY_VIDEO_IN}
- ED_TRANSCAP_CAN_DELAY_VIDEO_OUT = ED_BASE+106;
- {$EXTERNALSYM ED_TRANSCAP_CAN_DELAY_VIDEO_OUT}
- ED_TRANSCAP_CAN_DELAY_AUDIO_IN = ED_BASE+107;
- {$EXTERNALSYM ED_TRANSCAP_CAN_DELAY_AUDIO_IN}
- ED_TRANSCAP_CAN_DELAY_AUDIO_OUT = ED_BASE+108;
- {$EXTERNALSYM ED_TRANSCAP_CAN_DELAY_AUDIO_OUT}
- ED_TRANSCAP_FWD_VARIABLE_MAX = ED_BASE+109;
- {$EXTERNALSYM ED_TRANSCAP_FWD_VARIABLE_MAX}
- ED_TRANSCAP_FWD_VARIABLE_MIN = ED_BASE+800;
- {$EXTERNALSYM ED_TRANSCAP_FWD_VARIABLE_MIN}
- ED_TRANSCAP_REV_VARIABLE_MAX = ED_BASE+110;
- {$EXTERNALSYM ED_TRANSCAP_REV_VARIABLE_MAX}
- ED_TRANSCAP_REV_VARIABLE_MIN = ED_BASE+801;
- {$EXTERNALSYM ED_TRANSCAP_REV_VARIABLE_MIN}
- ED_TRANSCAP_FWD_SHUTTLE_MAX = ED_BASE+802;
- {$EXTERNALSYM ED_TRANSCAP_FWD_SHUTTLE_MAX}
- ED_TRANSCAP_FWD_SHUTTLE_MIN = ED_BASE+803;
- {$EXTERNALSYM ED_TRANSCAP_FWD_SHUTTLE_MIN}
- ED_TRANSCAP_REV_SHUTTLE_MAX = ED_BASE+804;
- {$EXTERNALSYM ED_TRANSCAP_REV_SHUTTLE_MAX}
- ED_TRANSCAP_REV_SHUTTLE_MIN = ED_BASE+805;
- {$EXTERNALSYM ED_TRANSCAP_REV_SHUTTLE_MIN}
- ED_TRANSCAP_NUM_AUDIO_TRACKS = ED_BASE+111;
- {$EXTERNALSYM ED_TRANSCAP_NUM_AUDIO_TRACKS}
- ED_TRANSCAP_LTC_TRACK = ED_BASE+112;
- {$EXTERNALSYM ED_TRANSCAP_LTC_TRACK}
- ED_TRANSCAP_NEEDS_TBC = ED_BASE+113;
- {$EXTERNALSYM ED_TRANSCAP_NEEDS_TBC}
- ED_TRANSCAP_NEEDS_CUEING = ED_BASE+114;
- {$EXTERNALSYM ED_TRANSCAP_NEEDS_CUEING}
- ED_TRANSCAP_CAN_INSERT = ED_BASE+115;
- {$EXTERNALSYM ED_TRANSCAP_CAN_INSERT}
- ED_TRANSCAP_CAN_ASSEMBLE = ED_BASE+116;
- {$EXTERNALSYM ED_TRANSCAP_CAN_ASSEMBLE}
- ED_TRANSCAP_FIELD_STEP = ED_BASE+117;
- {$EXTERNALSYM ED_TRANSCAP_FIELD_STEP}
- ED_TRANSCAP_CLOCK_INC_RATE = ED_BASE+118;
- {$EXTERNALSYM ED_TRANSCAP_CLOCK_INC_RATE}
- ED_TRANSCAP_CAN_DETECT_LENGTH = ED_BASE+119;
- {$EXTERNALSYM ED_TRANSCAP_CAN_DETECT_LENGTH}
- ED_TRANSCAP_CAN_FREEZE = ED_BASE+120;
- {$EXTERNALSYM ED_TRANSCAP_CAN_FREEZE}
- ED_TRANSCAP_HAS_TUNER = ED_BASE+121;
- {$EXTERNALSYM ED_TRANSCAP_HAS_TUNER}
- ED_TRANSCAP_HAS_TIMER = ED_BASE+122;
- {$EXTERNALSYM ED_TRANSCAP_HAS_TIMER}
- ED_TRANSCAP_HAS_CLOCK = ED_BASE+123;
- {$EXTERNALSYM ED_TRANSCAP_HAS_CLOCK}
- ED_TRANSCAP_MULTIPLE_EDITS = ED_BASE+806;
- {$EXTERNALSYM ED_TRANSCAP_MULTIPLE_EDITS}
- ED_TRANSCAP_IS_MASTER = ED_BASE+807;
- {$EXTERNALSYM ED_TRANSCAP_IS_MASTER}
- ED_TRANSCAP_HAS_DT = ED_BASE+814;
- {$EXTERNALSYM ED_TRANSCAP_HAS_DT}
- // IAMExtTransport Media States
- ED_MEDIA_SPIN_UP = ED_BASE+130;
- {$EXTERNALSYM ED_MEDIA_SPIN_UP}
- ED_MEDIA_SPIN_DOWN = ED_BASE+131;
- {$EXTERNALSYM ED_MEDIA_SPIN_DOWN}
- ED_MEDIA_UNLOAD = ED_BASE+132;
- {$EXTERNALSYM ED_MEDIA_UNLOAD}
- // IAMExtTransport Modes
- ED_MODE_PLAY = ED_BASE+200;
- {$EXTERNALSYM ED_MODE_PLAY}
- ED_MODE_STOP = ED_BASE+201;
- {$EXTERNALSYM ED_MODE_STOP}
- ED_MODE_FREEZE = ED_BASE+202;
- {$EXTERNALSYM ED_MODE_FREEZE}
- ED_MODE_THAW = ED_BASE+203;
- {$EXTERNALSYM ED_MODE_THAW}
- ED_MODE_FF = ED_BASE+204;
- {$EXTERNALSYM ED_MODE_FF}
- ED_MODE_REW = ED_BASE+205;
- {$EXTERNALSYM ED_MODE_REW}
- ED_MODE_RECORD = ED_BASE+206;
- {$EXTERNALSYM ED_MODE_RECORD}
- ED_MODE_RECORD_STROBE = ED_BASE+207;
- {$EXTERNALSYM ED_MODE_RECORD_STROBE}
- ED_MODE_RECORD_FREEZE = ED_BASE+808; // never "put", only "get"
- {$EXTERNALSYM ED_MODE_RECORD_FREEZE}
- ED_MODE_STEP = ED_BASE+208;
- {$EXTERNALSYM ED_MODE_STEP}
- ED_MODE_STEP_FWD = ED_BASE+208;
- {$EXTERNALSYM ED_MODE_STEP_FWD}
- ED_MODE_STEP_REV = ED_BASE+809;
- {$EXTERNALSYM ED_MODE_STEP_REV}
- ED_MODE_SHUTTLE = ED_BASE+209;
- {$EXTERNALSYM ED_MODE_SHUTTLE}
- ED_MODE_EDIT_CUE = ED_BASE+210;
- {$EXTERNALSYM ED_MODE_EDIT_CUE}
- ED_MODE_VAR_SPEED = ED_BASE+211;
- {$EXTERNALSYM ED_MODE_VAR_SPEED}
- ED_MODE_PERFORM = ED_BASE+212;
- {$EXTERNALSYM ED_MODE_PERFORM}
- ED_MODE_LINK_ON = ED_BASE+280;
- {$EXTERNALSYM ED_MODE_LINK_ON}
- ED_MODE_LINK_OFF = ED_BASE+281;
- {$EXTERNALSYM ED_MODE_LINK_OFF}
- ED_MODE_NOTIFY_ENABLE = ED_BASE+810;
- {$EXTERNALSYM ED_MODE_NOTIFY_ENABLE}
- ED_MODE_NOTIFY_DISABLE = ED_BASE+811;
- {$EXTERNALSYM ED_MODE_NOTIFY_DISABLE}
- ED_MODE_SHOT_SEARCH = ED_BASE+812;
- {$EXTERNALSYM ED_MODE_SHOT_SEARCH}
- // IAMTimecodeReader/Generator/Display defines
- //
- // Timecode Generator Mode params and values:
- //
- ED_TCG_TIMECODE_TYPE = ED_BASE+400;
- {$EXTERNALSYM ED_TCG_TIMECODE_TYPE}
- ED_TCG_SMPTE_LTC = ED_BASE+401;
- {$EXTERNALSYM ED_TCG_SMPTE_LTC}
- ED_TCG_SMPTE_VITC = ED_BASE+402;
- {$EXTERNALSYM ED_TCG_SMPTE_VITC}
- ED_TCG_MIDI_QF = ED_BASE+403;
- {$EXTERNALSYM ED_TCG_MIDI_QF}
- ED_TCG_MIDI_FULL = ED_BASE+404;
- {$EXTERNALSYM ED_TCG_MIDI_FULL}
- ED_TCG_FRAMERATE = ED_BASE+405;
- {$EXTERNALSYM ED_TCG_FRAMERATE}
- ED_FORMAT_SMPTE_30 = ED_BASE+406;
- {$EXTERNALSYM ED_FORMAT_SMPTE_30}
- ED_FORMAT_SMPTE_30DROP = ED_BASE+407;
- {$EXTERNALSYM ED_FORMAT_SMPTE_30DROP}
- ED_FORMAT_SMPTE_25 = ED_BASE+408;
- {$EXTERNALSYM ED_FORMAT_SMPTE_25}
- ED_FORMAT_SMPTE_24 = ED_BASE+409;
- {$EXTERNALSYM ED_FORMAT_SMPTE_24}
- ED_TCG_SYNC_SOURCE = ED_BASE+410;
- {$EXTERNALSYM ED_TCG_SYNC_SOURCE}
- ED_TCG_VIDEO = ED_BASE+411;
- {$EXTERNALSYM ED_TCG_VIDEO}
- ED_TCG_READER = ED_BASE+412;
- {$EXTERNALSYM ED_TCG_READER}
- ED_TCG_FREE = ED_BASE+413;
- {$EXTERNALSYM ED_TCG_FREE}
- ED_TCG_REFERENCE_SOURCE = ED_BASE+414;
- {$EXTERNALSYM ED_TCG_REFERENCE_SOURCE}
- // TimeCodeReader Mode params and values:
- ED_TCR_SOURCE = ED_BASE+416;
- {$EXTERNALSYM ED_TCR_SOURCE}
- // ED_TCG (already defined)
- ED_TCR_LTC = ED_BASE+417;
- {$EXTERNALSYM ED_TCR_LTC}
- ED_TCR_VITC = ED_BASE+418;
- {$EXTERNALSYM ED_TCR_VITC}
- ED_TCR_CT = ED_BASE+419;
- {$EXTERNALSYM ED_TCR_CT}
- ED_TCR_FTC = ED_BASE+420;
- {$EXTERNALSYM ED_TCR_FTC}
- // ED_MODE_NOTIFY_ENABLE can be OATRUE or OAFALSE (defined in transport mode
- // section of this file).
- ED_TCR_LAST_VALUE = ED_BASE+421;
- {$EXTERNALSYM ED_TCR_LAST_VALUE}
- // TimeCode Display Mode params and values:
- //
- ED_TCD_SOURCE = ED_BASE+422;
- {$EXTERNALSYM ED_TCD_SOURCE}
- ED_TCR = ED_BASE+423;
- {$EXTERNALSYM ED_TCR}
- ED_TCG = ED_BASE+424;
- {$EXTERNALSYM ED_TCG}
- ED_TCD_SIZE = ED_BASE+425;
- {$EXTERNALSYM ED_TCD_SIZE}
- ED_SMALL = ED_BASE+426;
- {$EXTERNALSYM ED_SMALL}
- ED_MED = ED_BASE+427;
- {$EXTERNALSYM ED_MED}
- ED_LARGE = ED_BASE+428;
- {$EXTERNALSYM ED_LARGE}
- ED_TCD_POSITION = ED_BASE+429;
- {$EXTERNALSYM ED_TCD_POSITION}
- ED_TOP = $0001;
- {$EXTERNALSYM ED_TOP}
- ED_MIDDLE = $0002;
- {$EXTERNALSYM ED_MIDDLE}
- ED_BOTTOM = $0004;
- {$EXTERNALSYM ED_BOTTOM}
- ED_LEFT = $0100;
- {$EXTERNALSYM ED_LEFT}
- ED_CENTER = $0200;
- {$EXTERNALSYM ED_CENTER}
- ED_RIGHT = $0400;
- {$EXTERNALSYM ED_RIGHT}
- ED_TCD_INTENSITY = ED_BASE+436;
- {$EXTERNALSYM ED_TCD_INTENSITY}
- ED_HIGH = ED_BASE+437;
- {$EXTERNALSYM ED_HIGH}
- ED_LOW = ED_BASE+438;
- {$EXTERNALSYM ED_LOW}
- ED_TCD_TRANSPARENCY = ED_BASE+439;
- {$EXTERNALSYM ED_TCD_TRANSPARENCY}
- ED_TCD_INVERT = ED_BASE+440;
- {$EXTERNALSYM ED_TCD_INVERT}
- // IAMExtTransport defines
- //
- // Transport status, params and values
- //
- // IAMExtTransport Status items and and values:
- ED_MODE = ED_BASE+500;
- {$EXTERNALSYM ED_MODE}
- ED_ERROR = ED_BASE+501;
- {$EXTERNALSYM ED_ERROR}
- ED_LOCAL = ED_BASE+502;
- {$EXTERNALSYM ED_LOCAL}
- ED_RECORD_INHIBIT = ED_BASE+503;
- {$EXTERNALSYM ED_RECORD_INHIBIT}
- ED_SERVO_LOCK = ED_BASE+504;
- {$EXTERNALSYM ED_SERVO_LOCK}
- ED_MEDIA_PRESENT = ED_BASE+505;
- {$EXTERNALSYM ED_MEDIA_PRESENT}
- ED_MEDIA_LENGTH = ED_BASE+506;
- {$EXTERNALSYM ED_MEDIA_LENGTH}
- ED_MEDIA_SIZE = ED_BASE+507;
- {$EXTERNALSYM ED_MEDIA_SIZE}
- ED_MEDIA_TRACK_COUNT = ED_BASE+508;
- {$EXTERNALSYM ED_MEDIA_TRACK_COUNT}
- ED_MEDIA_TRACK_LENGTH = ED_BASE+509;
- {$EXTERNALSYM ED_MEDIA_TRACK_LENGTH}
- ED_MEDIA_SIDE = ED_BASE+510;
- {$EXTERNALSYM ED_MEDIA_SIDE}
- ED_MEDIA_TYPE = ED_BASE+511;
- {$EXTERNALSYM ED_MEDIA_TYPE}
- ED_MEDIA_VHS = ED_BASE+512;
- {$EXTERNALSYM ED_MEDIA_VHS}
- ED_MEDIA_SVHS = ED_BASE+513;
- {$EXTERNALSYM ED_MEDIA_SVHS}
- ED_MEDIA_HI8 = ED_BASE+514;
- {$EXTERNALSYM ED_MEDIA_HI8}
- ED_MEDIA_UMATIC = ED_BASE+515;
- {$EXTERNALSYM ED_MEDIA_UMATIC}
- ED_MEDIA_DVC = ED_BASE+516;
- {$EXTERNALSYM ED_MEDIA_DVC}
- ED_MEDIA_1_INCH = ED_BASE+517;
- {$EXTERNALSYM ED_MEDIA_1_INCH}
- ED_MEDIA_D1 = ED_BASE+518;
- {$EXTERNALSYM ED_MEDIA_D1}
- ED_MEDIA_D2 = ED_BASE+519;
- {$EXTERNALSYM ED_MEDIA_D2}
- ED_MEDIA_D3 = ED_BASE+520;
- {$EXTERNALSYM ED_MEDIA_D3}
- ED_MEDIA_D5 = ED_BASE+521;
- {$EXTERNALSYM ED_MEDIA_D5}
- ED_MEDIA_DBETA = ED_BASE+522;
- {$EXTERNALSYM ED_MEDIA_DBETA}
- ED_MEDIA_BETA = ED_BASE+523;
- {$EXTERNALSYM ED_MEDIA_BETA}
- ED_MEDIA_8MM = ED_BASE+524;
- {$EXTERNALSYM ED_MEDIA_8MM}
- ED_MEDIA_DDR = ED_BASE+525;
- {$EXTERNALSYM ED_MEDIA_DDR}
- ED_MEDIA_SX = ED_BASE+813;
- {$EXTERNALSYM ED_MEDIA_SX}
- ED_MEDIA_OTHER = ED_BASE+526;
- {$EXTERNALSYM ED_MEDIA_OTHER}
- ED_MEDIA_CLV = ED_BASE+527;
- {$EXTERNALSYM ED_MEDIA_CLV}
- ED_MEDIA_CAV = ED_BASE+528;
- {$EXTERNALSYM ED_MEDIA_CAV}
- ED_MEDIA_POSITION = ED_BASE+529;
- {$EXTERNALSYM ED_MEDIA_POSITION}
- ED_MEDIA_NEO = ED_BASE+531; // Mini digital tape for MPEG2TS signal
- {$EXTERNALSYM ED_MEDIA_NEO}
- ED_MEDIA_MICROMV = ED_MEDIA_NEO;
- {$EXTERNALSYM ED_MEDIA_MICROMV}
- ED_LINK_MODE = ED_BASE+530;
- {$EXTERNALSYM ED_LINK_MODE}
- // IAMExtTransport Basic Parms
- ED_TRANSBASIC_TIME_FORMAT = ED_BASE+540;
- {$EXTERNALSYM ED_TRANSBASIC_TIME_FORMAT}
- ED_FORMAT_MILLISECONDS = ED_BASE+541;
- {$EXTERNALSYM ED_FORMAT_MILLISECONDS}
- ED_FORMAT_FRAMES = ED_BASE+542;
- {$EXTERNALSYM ED_FORMAT_FRAMES}
- ED_FORMAT_REFERENCE_TIME = ED_BASE+543;
- {$EXTERNALSYM ED_FORMAT_REFERENCE_TIME}
- ED_FORMAT_HMSF = ED_BASE+547;
- {$EXTERNALSYM ED_FORMAT_HMSF}
- ED_FORMAT_TMSF = ED_BASE+548;
- {$EXTERNALSYM ED_FORMAT_TMSF}
- ED_TRANSBASIC_TIME_REFERENCE = ED_BASE+549;
- {$EXTERNALSYM ED_TRANSBASIC_TIME_REFERENCE}
- ED_TIMEREF_TIMECODE = ED_BASE+550;
- {$EXTERNALSYM ED_TIMEREF_TIMECODE}
- ED_TIMEREF_CONTROL_TRACK = ED_BASE+551;
- {$EXTERNALSYM ED_TIMEREF_CONTROL_TRACK}
- ED_TIMEREF_INDEX = ED_BASE+552;
- {$EXTERNALSYM ED_TIMEREF_INDEX}
- ED_TRANSBASIC_SUPERIMPOSE = ED_BASE+553;
- {$EXTERNALSYM ED_TRANSBASIC_SUPERIMPOSE}
- ED_TRANSBASIC_END_STOP_ACTION = ED_BASE+554;
- {$EXTERNALSYM ED_TRANSBASIC_END_STOP_ACTION}
- ED_TRANSBASIC_RECORD_FORMAT = ED_BASE+555;
- {$EXTERNALSYM ED_TRANSBASIC_RECORD_FORMAT}
- ED_RECORD_FORMAT_SP = ED_BASE+556;
- {$EXTERNALSYM ED_RECORD_FORMAT_SP}
- ED_RECORD_FORMAT_LP = ED_BASE+557;
- {$EXTERNALSYM ED_RECORD_FORMAT_LP}
- ED_RECORD_FORMAT_EP = ED_BASE+558;
- {$EXTERNALSYM ED_RECORD_FORMAT_EP}
- ED_TRANSBASIC_STEP_COUNT = ED_BASE+559;
- {$EXTERNALSYM ED_TRANSBASIC_STEP_COUNT}
- ED_TRANSBASIC_STEP_UNIT = ED_BASE+560;
- {$EXTERNALSYM ED_TRANSBASIC_STEP_UNIT}
- ED_STEP_FIELD = ED_BASE+561;
- {$EXTERNALSYM ED_STEP_FIELD}
- ED_STEP_FRAME = ED_BASE+562;
- {$EXTERNALSYM ED_STEP_FRAME}
- ED_STEP_3_2 = ED_BASE+563;
- {$EXTERNALSYM ED_STEP_3_2}
- ED_TRANSBASIC_PREROLL = ED_BASE+564;
- {$EXTERNALSYM ED_TRANSBASIC_PREROLL}
- ED_TRANSBASIC_RECPREROLL = ED_BASE+565;
- {$EXTERNALSYM ED_TRANSBASIC_RECPREROLL}
- ED_TRANSBASIC_POSTROLL = ED_BASE+566;
- {$EXTERNALSYM ED_TRANSBASIC_POSTROLL}
- ED_TRANSBASIC_EDIT_DELAY = ED_BASE+567;
- {$EXTERNALSYM ED_TRANSBASIC_EDIT_DELAY}
- ED_TRANSBASIC_PLAYTC_DELAY = ED_BASE+568;
- {$EXTERNALSYM ED_TRANSBASIC_PLAYTC_DELAY}
- ED_TRANSBASIC_RECTC_DELAY = ED_BASE+569;
- {$EXTERNALSYM ED_TRANSBASIC_RECTC_DELAY}
- ED_TRANSBASIC_EDIT_FIELD = ED_BASE+570;
- {$EXTERNALSYM ED_TRANSBASIC_EDIT_FIELD}
- ED_TRANSBASIC_FRAME_SERVO = ED_BASE+571;
- {$EXTERNALSYM ED_TRANSBASIC_FRAME_SERVO}
- ED_TRANSBASIC_CF_SERVO = ED_BASE+572;
- {$EXTERNALSYM ED_TRANSBASIC_CF_SERVO}
- ED_TRANSBASIC_SERVO_REF = ED_BASE+573;
- {$EXTERNALSYM ED_TRANSBASIC_SERVO_REF}
- ED_REF_EXTERNAL = ED_BASE+574;
- {$EXTERNALSYM ED_REF_EXTERNAL}
- ED_REF_INPUT = ED_BASE+575;
- {$EXTERNALSYM ED_REF_INPUT}
- ED_REF_INTERNAL = ED_BASE+576;
- {$EXTERNALSYM ED_REF_INTERNAL}
- ED_REF_AUTO = ED_BASE+577;
- {$EXTERNALSYM ED_REF_AUTO}
- ED_TRANSBASIC_WARN_GL = ED_BASE+578;
- {$EXTERNALSYM ED_TRANSBASIC_WARN_GL}
- ED_TRANSBASIC_SET_TRACKING = ED_BASE+579;
- {$EXTERNALSYM ED_TRANSBASIC_SET_TRACKING}
- ED_TRACKING_PLUS = ED_BASE+580;
- {$EXTERNALSYM ED_TRACKING_PLUS}
- ED_TRACKING_MINUS = ED_BASE+581;
- {$EXTERNALSYM ED_TRACKING_MINUS}
- ED_TRACKING_RESET = ED_BASE+582;
- {$EXTERNALSYM ED_TRACKING_RESET}
- ED_TRANSBASIC_SET_FREEZE_TIMEOUT = ED_BASE+583;
- {$EXTERNALSYM ED_TRANSBASIC_SET_FREEZE_TIMEOUT}
- ED_TRANSBASIC_VOLUME_NAME = ED_BASE+584;
- {$EXTERNALSYM ED_TRANSBASIC_VOLUME_NAME}
- ED_TRANSBASIC_BALLISTIC_1 = ED_BASE+585;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_1}
- ED_TRANSBASIC_BALLISTIC_2 = ED_BASE+586;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_2}
- ED_TRANSBASIC_BALLISTIC_3 = ED_BASE+587;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_3}
- ED_TRANSBASIC_BALLISTIC_4 = ED_BASE+588;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_4}
- ED_TRANSBASIC_BALLISTIC_5 = ED_BASE+589;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_5}
- ED_TRANSBASIC_BALLISTIC_6 = ED_BASE+590;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_6}
- ED_TRANSBASIC_BALLISTIC_7 = ED_BASE+591;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_7}
- ED_TRANSBASIC_BALLISTIC_8 = ED_BASE+592;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_8}
- ED_TRANSBASIC_BALLISTIC_9 = ED_BASE+593;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_9}
- ED_TRANSBASIC_BALLISTIC_10 = ED_BASE+594;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_10}
- ED_TRANSBASIC_BALLISTIC_11 = ED_BASE+595;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_11}
- ED_TRANSBASIC_BALLISTIC_12 = ED_BASE+596;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_12}
- ED_TRANSBASIC_BALLISTIC_13 = ED_BASE+597;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_13}
- ED_TRANSBASIC_BALLISTIC_14 = ED_BASE+598;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_14}
- ED_TRANSBASIC_BALLISTIC_15 = ED_BASE+599;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_15}
- ED_TRANSBASIC_BALLISTIC_16 = ED_BASE+600;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_16}
- ED_TRANSBASIC_BALLISTIC_17 = ED_BASE+601;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_17}
- ED_TRANSBASIC_BALLISTIC_18 = ED_BASE+602;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_18}
- ED_TRANSBASIC_BALLISTIC_19 = ED_BASE+603;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_19}
- ED_TRANSBASIC_BALLISTIC_20 = ED_BASE+604;
- {$EXTERNALSYM ED_TRANSBASIC_BALLISTIC_20}
- // consumer VCR items
- ED_TRANSBASIC_SETCLOCK = ED_BASE+605;
- {$EXTERNALSYM ED_TRANSBASIC_SETCLOCK}
- ED_TRANSBASIC_SET_COUNTER_FORMAT = ED_BASE+606;
- {$EXTERNALSYM ED_TRANSBASIC_SET_COUNTER_FORMAT}
- ED_TRANSBASIC_SET_COUNTER_VALUE = ED_BASE+607;
- {$EXTERNALSYM ED_TRANSBASIC_SET_COUNTER_VALUE}
- ED_TRANSBASIC_SETTUNER_CH_UP = ED_BASE+608;
- {$EXTERNALSYM ED_TRANSBASIC_SETTUNER_CH_UP}
- ED_TRANSBASIC_SETTUNER_CH_DN = ED_BASE+609;
- {$EXTERNALSYM ED_TRANSBASIC_SETTUNER_CH_DN}
- ED_TRANSBASIC_SETTUNER_SK_UP = ED_BASE+610;
- {$EXTERNALSYM ED_TRANSBASIC_SETTUNER_SK_UP}
- ED_TRANSBASIC_SETTUNER_SK_DN = ED_BASE+611;
- {$EXTERNALSYM ED_TRANSBASIC_SETTUNER_SK_DN}
- ED_TRANSBASIC_SETTUNER_CH = ED_BASE+612;
- {$EXTERNALSYM ED_TRANSBASIC_SETTUNER_CH}
- ED_TRANSBASIC_SETTUNER_NUM = ED_BASE+613;
- {$EXTERNALSYM ED_TRANSBASIC_SETTUNER_NUM}
- ED_TRANSBASIC_SETTIMER_EVENT = ED_BASE+614;
- {$EXTERNALSYM ED_TRANSBASIC_SETTIMER_EVENT}
- ED_TRANSBASIC_SETTIMER_STARTDAY = ED_BASE+615;
- {$EXTERNALSYM ED_TRANSBASIC_SETTIMER_STARTDAY}
- ED_TRANSBASIC_SETTIMER_STARTTIME = ED_BASE+616;
- {$EXTERNALSYM ED_TRANSBASIC_SETTIMER_STARTTIME}
- ED_TRANSBASIC_SETTIMER_STOPDAY = ED_BASE+617;
- {$EXTERNALSYM ED_TRANSBASIC_SETTIMER_STOPDAY}
- ED_TRANSBASIC_SETTIMER_STOPTIME = ED_BASE+618;
- {$EXTERNALSYM ED_TRANSBASIC_SETTIMER_STOPTIME}
- // IAMExtTransport video parameters
- ED_TRANSVIDEO_SET_OUTPUT = ED_BASE+630;
- {$EXTERNALSYM ED_TRANSVIDEO_SET_OUTPUT}
- ED_E2E = ED_BASE+631;
- {$EXTERNALSYM ED_E2E}
- ED_PLAYBACK = ED_BASE+632;
- {$EXTERNALSYM ED_PLAYBACK}
- ED_OFF = ED_BASE+633;
- {$EXTERNALSYM ED_OFF}
- ED_TRANSVIDEO_SET_SOURCE = ED_BASE+634;
- {$EXTERNALSYM ED_TRANSVIDEO_SET_SOURCE}
- // IAMExtTransport audio parameters
- ED_TRANSAUDIO_ENABLE_OUTPUT = ED_BASE+640;
- {$EXTERNALSYM ED_TRANSAUDIO_ENABLE_OUTPUT}
- ED_AUDIO_ALL = $10000000;
- {$EXTERNALSYM ED_AUDIO_ALL}
- ED_AUDIO_1 = $0000001;
- {$EXTERNALSYM ED_AUDIO_1}
- ED_AUDIO_2 = $0000002;
- {$EXTERNALSYM ED_AUDIO_2}
- ED_AUDIO_3 = $0000004;
- {$EXTERNALSYM ED_AUDIO_3}
- ED_AUDIO_4 = $0000008;
- {$EXTERNALSYM ED_AUDIO_4}
- ED_AUDIO_5 = $0000010;
- {$EXTERNALSYM ED_AUDIO_5}
- ED_AUDIO_6 = $0000020;
- {$EXTERNALSYM ED_AUDIO_6}
- ED_AUDIO_7 = $0000040;
- {$EXTERNALSYM ED_AUDIO_7}
- ED_AUDIO_8 = $0000080;
- {$EXTERNALSYM ED_AUDIO_8}
- ED_AUDIO_9 = $0000100;
- {$EXTERNALSYM ED_AUDIO_9}
- ED_AUDIO_10 = $0000200;
- {$EXTERNALSYM ED_AUDIO_10}
- ED_AUDIO_11 = $0000400;
- {$EXTERNALSYM ED_AUDIO_11}
- ED_AUDIO_12 = $0000800;
- {$EXTERNALSYM ED_AUDIO_12}
- ED_AUDIO_13 = $0001000;
- {$EXTERNALSYM ED_AUDIO_13}
- ED_AUDIO_14 = $0002000;
- {$EXTERNALSYM ED_AUDIO_14}
- ED_AUDIO_15 = $0004000;
- {$EXTERNALSYM ED_AUDIO_15}
- ED_AUDIO_16 = $0008000;
- {$EXTERNALSYM ED_AUDIO_16}
- ED_AUDIO_17 = $0010000;
- {$EXTERNALSYM ED_AUDIO_17}
- ED_AUDIO_18 = $0020000;
- {$EXTERNALSYM ED_AUDIO_18}
- ED_AUDIO_19 = $0040000;
- {$EXTERNALSYM ED_AUDIO_19}
- ED_AUDIO_20 = $0080000;
- {$EXTERNALSYM ED_AUDIO_20}
- ED_AUDIO_21 = $0100000;
- {$EXTERNALSYM ED_AUDIO_21}
- ED_AUDIO_22 = $0200000;
- {$EXTERNALSYM ED_AUDIO_22}
- ED_AUDIO_23 = $0400000;
- {$EXTERNALSYM ED_AUDIO_23}
- ED_AUDIO_24 = $0800000;
- {$EXTERNALSYM ED_AUDIO_24}
- ED_VIDEO = $2000000;
- {$EXTERNALSYM ED_VIDEO}
- ED_TRANSAUDIO_ENABLE_RECORD = ED_BASE+642;
- {$EXTERNALSYM ED_TRANSAUDIO_ENABLE_RECORD}
- ED_TRANSAUDIO_ENABLE_SELSYNC = ED_BASE+643;
- {$EXTERNALSYM ED_TRANSAUDIO_ENABLE_SELSYNC}
- ED_TRANSAUDIO_SET_SOURCE = ED_BASE+644;
- {$EXTERNALSYM ED_TRANSAUDIO_SET_SOURCE}
- ED_TRANSAUDIO_SET_MONITOR = ED_BASE+645;
- {$EXTERNALSYM ED_TRANSAUDIO_SET_MONITOR}
- // Edit Property Set-related defs
- // The following values reflect (and control) the state of an
- // edit property set
- ED_INVALID = ED_BASE+652;
- {$EXTERNALSYM ED_INVALID}
- ED_EXECUTING = ED_BASE+653;
- {$EXTERNALSYM ED_EXECUTING}
- ED_REGISTER = ED_BASE+654;
- {$EXTERNALSYM ED_REGISTER}
- ED_DELETE = ED_BASE+655;
- {$EXTERNALSYM ED_DELETE}
- // Edit property set parameters and values
- ED_EDIT_HEVENT = ED_BASE+656;
- {$EXTERNALSYM ED_EDIT_HEVENT}
- ED_EDIT_TEST = ED_BASE+657;
- {$EXTERNALSYM ED_EDIT_TEST}
- ED_EDIT_IMMEDIATE = ED_BASE+658;
- {$EXTERNALSYM ED_EDIT_IMMEDIATE}
- ED_EDIT_MODE = ED_BASE+659;
- {$EXTERNALSYM ED_EDIT_MODE}
- // can be one of the following values:
- ED_EDIT_MODE_ASSEMBLE = ED_BASE+660;
- {$EXTERNALSYM ED_EDIT_MODE_ASSEMBLE}
- ED_EDIT_MODE_INSERT = ED_BASE+661;
- {$EXTERNALSYM ED_EDIT_MODE_INSERT}
- ED_EDIT_MODE_CRASH_RECORD = ED_BASE+662;
- {$EXTERNALSYM ED_EDIT_MODE_CRASH_RECORD}
- ED_EDIT_MODE_BOOKMARK_TIME = ED_BASE+663;
- {$EXTERNALSYM ED_EDIT_MODE_BOOKMARK_TIME}
- ED_EDIT_MODE_BOOKMARK_CHAPTER = ED_BASE+664;
- {$EXTERNALSYM ED_EDIT_MODE_BOOKMARK_CHAPTER}
- ED_EDIT_MASTER = ED_BASE+666;
- {$EXTERNALSYM ED_EDIT_MASTER}
- ED_EDIT_TRACK = ED_BASE+667;
- {$EXTERNALSYM ED_EDIT_TRACK}
- // can be one of the following possible OR'd values:
- // ED_VIDEO, ED_AUDIO_1 thru ED_AUDIO_24 (or ED_AUDIO_ALL)
- EDED_EDIT_SRC_INPOINT = ED_BASE+668;
- {$EXTERNALSYM EDED_EDIT_SRC_INPOINT}
- ED_EDIT_SRC_OUTPOINT = ED_BASE+669;
- {$EXTERNALSYM ED_EDIT_SRC_OUTPOINT}
- ED_EDIT_REC_INPOINT = ED_BASE+670;
- {$EXTERNALSYM ED_EDIT_REC_INPOINT}
- ED_EDIT_REC_OUTPOINT = ED_BASE+671;
- {$EXTERNALSYM ED_EDIT_REC_OUTPOINT}
- ED_EDIT_REHEARSE_MODE = ED_BASE+672;
- {$EXTERNALSYM ED_EDIT_REHEARSE_MODE}
- // can be one of the following possible values:
- ED_EDIT_BVB = ED_BASE+673;
- {$EXTERNALSYM ED_EDIT_BVB}
- ED_EDIT_VBV = ED_BASE+674;
- {$EXTERNALSYM ED_EDIT_VBV}
- ED_EDIT_VVV = ED_BASE+675;
- {$EXTERNALSYM ED_EDIT_VVV}
- ED_EDIT_PERFORM = ED_BASE+676;
- {$EXTERNALSYM ED_EDIT_PERFORM}
- // Set this property to OATRUE to kill the edit if in progress
- ED_EDIT_ABORT = ED_BASE+677;
- {$EXTERNALSYM ED_EDIT_ABORT}
- // how long to wait for edit to complete
- ED_EDIT_TIMEOUT = ED_BASE+678;
- {$EXTERNALSYM ED_EDIT_TIMEOUT}
- // This property causes the device to seek to a point specified by
- // ED_EDIT_SEEK_MODE (see below). NOTE: Only one event at a time can seek.
- ED_EDIT_SEEK = ED_BASE+679;
- {$EXTERNALSYM ED_EDIT_SEEK}
- ED_EDIT_SEEK_MODE = ED_BASE+680;
- {$EXTERNALSYM ED_EDIT_SEEK_MODE}
- //possible values:
- ED_EDIT_SEEK_EDIT_IN = ED_BASE+681;
- {$EXTERNALSYM ED_EDIT_SEEK_EDIT_IN}
- ED_EDIT_SEEK_EDIT_OUT = ED_BASE+682;
- {$EXTERNALSYM ED_EDIT_SEEK_EDIT_OUT}
- ED_EDIT_SEEK_PREROLL = ED_BASE+683;
- {$EXTERNALSYM ED_EDIT_SEEK_PREROLL}
- ED_EDIT_SEEK_PREROLL_CT = ED_BASE+684;
- {$EXTERNALSYM ED_EDIT_SEEK_PREROLL_CT}
- ED_EDIT_SEEK_BOOKMARK = ED_BASE+685;
- {$EXTERNALSYM ED_EDIT_SEEK_BOOKMARK}
- ED_EDIT_OFFSET = ED_BASE+686;
- {$EXTERNALSYM ED_EDIT_OFFSET}
- ED_EDIT_PREREAD = ED_BASE+815;
- {$EXTERNALSYM ED_EDIT_PREREAD}
- //
- // Some error codes:
- //
- // device could be in local mode
- ED_ERR_DEVICE_NOT_READY = ED_BASE+700;
- {$EXTERNALSYM ED_ERR_DEVICE_NOT_READY}
- // **************************************************
- //
- // New constants added for implementation of DVCR
- //
- // **************************************************
- //
- // New Device type (a DV has two subunits: camera and VCR)
- //
- ED_DEVTYPE_CAMERA = ED_BASE+900;
- {$EXTERNALSYM ED_DEVTYPE_CAMERA}
- ED_DEVTYPE_TUNER = ED_BASE+901;
- {$EXTERNALSYM ED_DEVTYPE_TUNER}
- ED_DEVTYPE_DVHS = ED_BASE+902;
- {$EXTERNALSYM ED_DEVTYPE_DVHS}
- ED_DEVTYPE_UNKNOWN = ED_BASE+903; // Driver cannot determine the device type
- {$EXTERNALSYM ED_DEVTYPE_UNKNOWN}
- ED_DEVTYPE_CAMERA_STORAGE = ED_BASE+1034; // Storage for digital still images, short video files, etc.
- {$EXTERNALSYM ED_DEVTYPE_CAMERA_STORAGE}
- ED_DEVTYPE_DTV = ED_BASE+1035; // DTV with serial bus interface
- {$EXTERNALSYM ED_DEVTYPE_DTV}
- ED_DEVTYPE_PC_VIRTUAL = ED_BASE+1036; // Emulated device (virtual) on a PC
- {$EXTERNALSYM ED_DEVTYPE_PC_VIRTUAL}
- //
- // Unknownn capability
- // Instead of return E_NOTIMPL, or S_OK with OAFALSE, it may return S_OK with _UNKNOWN
- //
- ED_CAPABILITY_UNKNOWN = ED_BASE+910;
- {$EXTERNALSYM ED_CAPABILITY_UNKNOWN}
- //
- // Send raw 1394/AVC extenal device command via GetTransportBasicParameters()
- // This is specifically for a 1394 AVC device connected with DEV_PORT_1394.
- //
- ED_RAW_EXT_DEV_CMD = ED_BASE+920;
- {$EXTERNALSYM ED_RAW_EXT_DEV_CMD}
- //
- // MEDIUM INFO
- //
- ED_MEDIA_VHSC = ED_BASE+925; // New media type
- {$EXTERNALSYM ED_MEDIA_VHSC}
- ED_MEDIA_UNKNOWN = ED_BASE+926; // Unknown media
- {$EXTERNALSYM ED_MEDIA_UNKNOWN}
- ED_MEDIA_NOT_PRESENT = ED_BASE+927;
- {$EXTERNALSYM ED_MEDIA_NOT_PRESENT}
- //
- // Device Control command that can result in pending state.
- //
- ED_CONTROL_HEVENT_GET = ED_BASE+928; // To get a sychronous event handle
- {$EXTERNALSYM ED_CONTROL_HEVENT_GET}
- ED_CONTROL_HEVENT_RELEASE = ED_BASE+929; // To release sychronous event handle must match what it got
- {$EXTERNALSYM ED_CONTROL_HEVENT_RELEASE}
- ED_DEV_REMOVED_HEVENT_GET = ED_BASE+960; // To be a notify event and will be signal if device is removed.
- {$EXTERNALSYM ED_DEV_REMOVED_HEVENT_GET}
- ED_DEV_REMOVED_HEVENT_RELEASE = ED_BASE+961; // Release this event handle
- {$EXTERNALSYM ED_DEV_REMOVED_HEVENT_RELEASE}
- //
- // TRANSPORT STATE
- //
- ED_NOTIFY_HEVENT_GET = ED_BASE+930; // To get a sychronous event handle
- {$EXTERNALSYM ED_NOTIFY_HEVENT_GET}
- ED_NOTIFY_HEVENT_RELEASE = ED_BASE+931; // To release sychronous event handle must match what it got
- {$EXTERNALSYM ED_NOTIFY_HEVENT_RELEASE}
- ED_MODE_CHANGE_NOTIFY = ED_BASE+932; // This is asynchronous operation, wait for event.
- {$EXTERNALSYM ED_MODE_CHANGE_NOTIFY}
- ED_MODE_PLAY_FASTEST_FWD = ED_BASE+933;
- {$EXTERNALSYM ED_MODE_PLAY_FASTEST_FWD}
- ED_MODE_PLAY_SLOWEST_FWD = ED_BASE+934;
- {$EXTERNALSYM ED_MODE_PLAY_SLOWEST_FWD}
- ED_MODE_PLAY_FASTEST_REV = ED_BASE+935;
- {$EXTERNALSYM ED_MODE_PLAY_FASTEST_REV}
- ED_MODE_PLAY_SLOWEST_REV = ED_BASE+936;
- {$EXTERNALSYM ED_MODE_PLAY_SLOWEST_REV}
- ED_MODE_WIND = ED_BASE+937;
- {$EXTERNALSYM ED_MODE_WIND}
- ED_MODE_REW_FASTEST = ED_BASE+938; // High speed rewind
- {$EXTERNALSYM ED_MODE_REW_FASTEST}
- ED_MODE_REV_PLAY = ED_BASE+939; // x1 speed reverse play
- {$EXTERNALSYM ED_MODE_REV_PLAY}
- //
- // Additional play modes (added post Windows XP)
- //
- ED_MODE_PLAY_SLOW_FWD_6 = ED_BASE+1001; // Slow forward
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_6}
- ED_MODE_PLAY_SLOW_FWD_5 = ED_BASE+1002;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_5}
- ED_MODE_PLAY_SLOW_FWD_4 = ED_BASE+1003;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_4}
- ED_MODE_PLAY_SLOW_FWD_3 = ED_BASE+1004;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_3}
- ED_MODE_PLAY_SLOW_FWD_2 = ED_BASE+1005;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_2}
- ED_MODE_PLAY_SLOW_FWD_1 = ED_BASE+1006;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_1}
- ED_MODE_PLAY_FAST_FWD_1 = ED_BASE+1007; // Fast forward
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_1}
- ED_MODE_PLAY_FAST_FWD_2 = ED_BASE+1008;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_2}
- ED_MODE_PLAY_FAST_FWD_3 = ED_BASE+1009;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_3}
- ED_MODE_PLAY_FAST_FWD_4 = ED_BASE+1010;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_4}
- ED_MODE_PLAY_FAST_FWD_5 = ED_BASE+1011;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_5}
- ED_MODE_PLAY_FAST_FWD_6 = ED_BASE+1012;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_6}
- ED_MODE_PLAY_SLOW_REV_6 = ED_BASE+1013; // Slow reverse
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_6}
- ED_MODE_PLAY_SLOW_REV_5 = ED_BASE+1014;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_5}
- ED_MODE_PLAY_SLOW_REV_4 = ED_BASE+1015;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_4}
- ED_MODE_PLAY_SLOW_REV_3 = ED_BASE+1016;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_3}
- ED_MODE_PLAY_SLOW_REV_2 = ED_BASE+1017;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_2}
- ED_MODE_PLAY_SLOW_REV_1 = ED_BASE+1018;
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_1}
- ED_MODE_PLAY_FAST_REV_1 = ED_BASE+1019; // Fast reverse
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_1}
- ED_MODE_PLAY_FAST_REV_2 = ED_BASE+1020;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_2}
- ED_MODE_PLAY_FAST_REV_3 = ED_BASE+1021;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_3}
- ED_MODE_PLAY_FAST_REV_4 = ED_BASE+1022;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_4}
- ED_MODE_PLAY_FAST_REV_5 = ED_BASE+1023;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_5}
- ED_MODE_PLAY_FAST_REV_6 = ED_BASE+1024;
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_6}
- ED_MODE_REVERSE = ED_MODE_REV_PLAY; // Same as Reverse playback
- {$EXTERNALSYM ED_MODE_REVERSE}
- ED_MODE_REVERSE_FREEZE = ED_BASE+1025; // Pause at reverse playback
- {$EXTERNALSYM ED_MODE_REVERSE_FREEZE}
- ED_MODE_PLAY_SLOW_FWD_X = ED_BASE+1026; // Possible response for a trick play
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_FWD_X}
- ED_MODE_PLAY_FAST_FWD_X = ED_BASE+1027; // Possible response for a trick play
- {$EXTERNALSYM ED_MODE_PLAY_FAST_FWD_X}
- ED_MODE_PLAY_SLOW_REV_X = ED_BASE+1028; // Possible response for a trick play
- {$EXTERNALSYM ED_MODE_PLAY_SLOW_REV_X}
- ED_MODE_PLAY_FAST_REV_X = ED_BASE+1029; // Possible response for a trick play
- {$EXTERNALSYM ED_MODE_PLAY_FAST_REV_X}
- ED_MODE_STOP_START = ED_BASE+1030; // Indicate stopping at the begin of a tape
- {$EXTERNALSYM ED_MODE_STOP_START}
- ED_MODE_STOP_END = ED_BASE+1031; // Indicate stopping at the end of a tape
- {$EXTERNALSYM ED_MODE_STOP_END}
- ED_MODE_STOP_EMERGENCY = ED_BASE+1032; // Indicate stopping due to an emergency
- {$EXTERNALSYM ED_MODE_STOP_EMERGENCY}
- //
- // TRANSPOSRTBASIC: input and output signal
- //
- ED_TRANSBASIC_INPUT_SIGNAL = ED_BASE+940;
- {$EXTERNALSYM ED_TRANSBASIC_INPUT_SIGNAL}
- ED_TRANSBASIC_OUTPUT_SIGNAL = ED_BASE+941;
- {$EXTERNALSYM ED_TRANSBASIC_OUTPUT_SIGNAL}
- ED_TRANSBASIC_SIGNAL_525_60_SD = ED_BASE+942;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_525_60_SD}
- ED_TRANSBASIC_SIGNAL_525_60_SDL = ED_BASE+943;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_525_60_SDL}
- ED_TRANSBASIC_SIGNAL_625_50_SD = ED_BASE+944;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_625_50_SD}
- ED_TRANSBASIC_SIGNAL_625_50_SDL = ED_BASE+945;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_625_50_SDL}
- ED_TRANSBASIC_SIGNAL_MPEG2TS = ED_BASE+946;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_MPEG2TS}
- ED_TRANSBASIC_SIGNAL_625_60_HD = ED_BASE+947;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_625_60_HD}
- ED_TRANSBASIC_SIGNAL_625_50_HD = ED_BASE+948;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_625_50_HD}
- ED_TRANSBASIC_SIGNAL_2500_60_MPEG = ED_BASE+980;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_2500_60_MPEG}
- ED_TRANSBASIC_SIGNAL_1250_60_MPEG = ED_BASE+981;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_1250_60_MPEG}
- ED_TRANSBASIC_SIGNAL_0625_60_MPEG = ED_BASE+982;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_0625_60_MPEG}
- ED_TRANSBASIC_SIGNAL_2500_50_MPEG = ED_BASE+985;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_2500_50_MPEG}
- ED_TRANSBASIC_SIGNAL_1250_50_MPEG = ED_BASE+986;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_1250_50_MPEG}
- ED_TRANSBASIC_SIGNAL_0625_50_MPEG = ED_BASE+987;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_0625_50_MPEG}
- ED_TRANSBASIC_SIGNAL_UNKNOWN = ED_BASE+990;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_UNKNOWN}
- ED_TRANSBASIC_SIGNAL_525_60_DV25 = ED_BASE+991;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_525_60_DV25}
- ED_TRANSBASIC_SIGNAL_625_50_DV25 = ED_BASE+992;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_625_50_DV25}
- ED_TRANSBASIC_SIGNAL_525_60_DV50 = ED_BASE+993;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_525_60_DV50}
- ED_TRANSBASIC_SIGNAL_625_50_DV50 = ED_BASE+994;
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_625_50_DV50}
- ED_TRANSBASIC_SIGNAL_HD_60_DVH1 = ED_BASE+995; // DVCPRO 100: 1080i or 720p
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_HD_60_DVH1}
- ED_TRANSBASIC_SIGNAL_HD_50_DVH1 = ED_BASE+996; // DVCPRO 100: 1080i only
- {$EXTERNALSYM ED_TRANSBASIC_SIGNAL_HD_50_DVH1}
- //
- // TIMECODE/AbsoluteTrackNumber/RealTimeCounter read/seek/write
- //
- ED_DEVCAP_TIMECODE_SEEK = ED_BASE+950;
- {$EXTERNALSYM ED_DEVCAP_TIMECODE_SEEK}
- ED_DEVCAP_ATN_READ = ED_BASE+951;
- {$EXTERNALSYM ED_DEVCAP_ATN_READ}
- ED_DEVCAP_ATN_SEEK = ED_BASE+952;
- {$EXTERNALSYM ED_DEVCAP_ATN_SEEK}
- ED_DEVCAP_ATN_WRITE = ED_BASE+953;
- {$EXTERNALSYM ED_DEVCAP_ATN_WRITE}
- ED_DEVCAP_RTC_READ = ED_BASE+954;
- {$EXTERNALSYM ED_DEVCAP_RTC_READ}
- ED_DEVCAP_RTC_SEEK = ED_BASE+955;
- {$EXTERNALSYM ED_DEVCAP_RTC_SEEK}
- ED_DEVCAP_RTC_WRITE = ED_BASE+956;
- {$EXTERNALSYM ED_DEVCAP_RTC_WRITE}
- //
- // Basic parameter
- //
- ED_TIMEREF_ATN = ED_BASE+958;
- {$EXTERNALSYM ED_TIMEREF_ATN}
- //
- // GUID used to identify a class driver
- //
- MSTapeDeviceGUID : TGUID = '{8C0F6AF2-0EDB-44c1-8AEB-59040BD830ED}'; // MSTapeDeviceGUID
- {$EXTERNALSYM MSTapeDeviceGUID}
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: aviriff.h
- *
- ***************************************************************************)
- type
- (*+
- *
- * Structures and defines for the RIFF AVI file format extended to
- * handle very large/long files
- *
- *-=====================================================================*)
- {
- #if !defined NUMELMS
- #define NUMELMS(aa) (sizeof(aa)/sizeof((aa)[0]))
- #endif
- }
- // all structures in this file are packed on word boundaries
- //
- (*
- * heres the general layout of an AVI riff file (new format)
- *
- * RIFF (3F??????) AVI <- not more than 1 GB in size
- * LIST (size) hdrl
- * avih (0038)
- * LIST (size) strl
- * strh (0038)
- * strf (????)
- * indx (3ff8) <- size may vary, should be sector sized
- * LIST (size) strl
- * strh (0038)
- * strf (????)
- * indx (3ff8) <- size may vary, should be sector sized
- * LIST (size) odml
- * dmlh (????)
- * JUNK (size) <- fill to align to sector - 12
- * LIST (7f??????) movi <- aligned on sector - 12
- * 00dc (size) <- sector aligned
- * 01wb (size) <- sector aligned
- * ix00 (size) <- sector aligned
- * idx1 (00??????) <- sector aligned
- * RIFF (7F??????) AVIX
- * JUNK (size) <- fill to align to sector -12
- * LIST (size) movi
- * 00dc (size) <- sector aligned
- * RIFF (7F??????) AVIX <- not more than 2GB in size
- * JUNK (size) <- fill to align to sector - 12
- * LIST (size) movi
- * 00dc (size) <- sector aligned
- *
- *-===================================================================*)
- //
- // structures for manipulating RIFF headers
- //
- {
- #define FCC(ch4) ((((DWORD)(ch4) & 0xFF) << 24) | \
- (((DWORD)(ch4) & 0xFF00) << 8) | \
- (((DWORD)(ch4) & 0xFF0000) >> 8) | \
- (((DWORD)(ch4) & 0xFF000000) >> 24))
- }
- PRIFFChunk = ^TRIFFChunk;
- _riffchunk = record
- fcc: FOURCC;
- cb: DWORD;
- end;
- {$EXTERNALSYM _riffchunk}
- RIFFCHUNK = _riffchunk;
- {$EXTERNALSYM RIFFCHUNK}
- LPRIFFCHUNK = ^RIFFCHUNK;
- {$EXTERNALSYM LPRIFFCHUNK}
- TRIFFChunk = _riffchunk;
- PRIFFList = ^TRIFFList;
- _rifflist = record
- fcc: FOURCC;
- cb: DWORD;
- fccListType: FOURCC;
- end;
- {$EXTERNALSYM _rifflist}
- RIFFLIST = _rifflist;
- {$EXTERNALSYM RIFFLIST}
- LPRIFFLIST = ^RIFFLIST;
- {$EXTERNALSYM LPRIFFLIST}
- TRIFFList = _rifflist;
- {
- #define RIFFROUND(cb) ((cb) + ((cb)&1))
- #define RIFFNEXT(pChunk) (LPRIFFCHUNK)((LPBYTE)(pChunk) \
- + sizeof(RIFFCHUNK) \
- + RIFFROUND(((LPRIFFCHUNK)pChunk)->cb))
- }
- //
- // ==================== avi header structures ===========================
- //
- // main header for the avi file (compatibility header)
- const
- ckidMAINAVIHEADER = $68697661;// 'avih'
- {$EXTERNALSYM ckidMAINAVIHEADER}
- type
- _avimainheader = record
- fcc: FOURCC; // 'avih'
- cb: DWORD; // size of this structure -8
- dwMicroSecPerFrame: DWORD; // frame display rate (or 0L)
- dwMaxBytesPerSec: DWORD; // max. transfer rate
- dwPaddingGranularity: DWORD; // pad to multiples of this size; normally 2K.
- dwFlags: DWORD; // the ever-present flags
- dwTotalFrames: DWORD; // # frames in first movi list
- dwInitialFrames: DWORD;
- dwStreams: DWORD;
- dwSuggestedBufferSize: DWORD;
- dwWidth: DWORD;
- dwHeight: DWORD;
- dwReserved: array[0..3] of DWORD;
- end;
- {$EXTERNALSYM _avimainheader}
- AVIMAINHEADER = _avimainheader;
- {$EXTERNALSYM AVIMAINHEADER}
- TAVIMainHeader = _avimainheader;
- const
- AVIF_HASINDEX = $00000010; // Index at end of file?
- {$EXTERNALSYM AVIF_HASINDEX}
- AVIF_MUSTUSEINDEX = $00000020;
- {$EXTERNALSYM AVIF_MUSTUSEINDEX}
- AVIF_ISINTERLEAVED = $00000100;
- {$EXTERNALSYM AVIF_ISINTERLEAVED}
- AVIF_TRUSTCKTYPE = $00000800; // Use CKType to find key frames
- {$EXTERNALSYM AVIF_TRUSTCKTYPE}
- AVIF_WASCAPTUREFILE = $00010000;
- {$EXTERNALSYM AVIF_WASCAPTUREFILE}
- AVIF_COPYRIGHTED = $00020000;
- {$EXTERNALSYM AVIF_COPYRIGHTED}
- ckidODML = $6C6D646F; //'odml'
- {$EXTERNALSYM ckidODML}
- ckidAVIEXTHEADER = $686C6D64; //'dmlh'
- {$EXTERNALSYM ckidAVIEXTHEADER}
- type
- _aviextheader = record
- fcc: FOURCC; // 'dmlh'
- cb: DWORD; // size of this structure -8
- dwGrandFrames: DWORD; // total number of frames in the file
- dwFuture: array[0..60] of DWORD; // to be defined later
- end;
- {$EXTERNALSYM _aviextheader}
- AVIEXTHEADER = _aviextheader;
- {$EXTERNALSYM AVIEXTHEADER}
- TAVIExtHeader = _aviextheader;
- //
- // structure of an AVI stream header riff chunk
- //
- const
- ckidSTREAMLIST = $6C727473; //'strl'
- {$EXTERNALSYM ckidSTREAMLIST}
- ckidSTREAMHEADER = $68727473; //'strh'
- {$EXTERNALSYM ckidSTREAMHEADER}
- type
- _avistreamheader = record
- fcc: FOURCC; // 'strh'
- cb: DWORD; // size of this structure - 8
- fccType: FOURCC; // stream type codes
- fccHandler: FOURCC;
- dwFlags: DWORD;
- wPriority: WORD;
- wLanguage: WORD;
- dwInitialFrames: DWORD;
- dwScale: DWORD;
- dwRate: DWORD; // dwRate/dwScale is stream tick rate in ticks/sec
- dwStart: DWORD;
- dwLength: DWORD;
- dwSuggestedBufferSize: DWORD;
- dwQuality: DWORD;
- dwSampleSize: DWORD;
- rcFrame: record
- left: SmallInt;
- top: SmallInt;
- right: SmallInt;
- bottom: SmallInt;
- end;
- end;
- {$EXTERNALSYM _avistreamheader}
- AVISTREAMHEADER = _avistreamheader;
- {$EXTERNALSYM AVISTREAMHEADER}
- TAVIStreamHeader = _avistreamheader;
-
- const
- streamtypeVIDEO = $73646976; //'vids'
- {$EXTERNALSYM streamtypeVIDEO}
- streamtypeAUDIO = $73647561; //'auds'
- {$EXTERNALSYM streamtypeAUDIO}
- streamtypeMIDI = $7364696D; //'mids'
- {$EXTERNALSYM streamtypeMIDI}
- streamtypeTEXT = $73747874; //'txts'
- {$EXTERNALSYM streamtypeTEXT}
- AVISF_DISABLED = $00000001;
- {$EXTERNALSYM AVISF_DISABLED}
- AVISF_VIDEO_PALCHANGES = $00010000;
- {$EXTERNALSYM AVISF_VIDEO_PALCHANGES}
- //
- // structure of an AVI stream format chunk
- //
- ckidSTREAMFORMAT = $66727473; //'strf'
- {$EXTERNALSYM ckidSTREAMFORMAT}
- //
- // avi stream formats are different for each stream type
- //
- // BITMAPINFOHEADER for video streams
- // WAVEFORMATEX or PCMWAVEFORMAT for audio streams
- // nothing for text streams
- // nothing for midi streams
- //
- // structure of old style AVI index
- //
- ckidAVIOLDINDEX = $31786469;//'idx1'
- {$EXTERNALSYM ckidAVIOLDINDEX}
- type
- _avioldindex = record
- fcc: FOURCC; // 'idx1'
- cb: DWORD; // size of this structure -8
- aIndex: array[0..0] of record
- dwChunkId: DWORD;
- dwFlags: DWORD;
- dwOffset: DWORD; // offset of riff chunk header for the data
- dwSize: DWORD; // size of the data (excluding riff header size)
- end; // size of this array
- end;
- {$EXTERNALSYM _avioldindex}
- AVIOLDINDEX = _avioldindex;
- {$EXTERNALSYM AVIOLDINDEX}
- TAVIOldIndex = _avioldindex;
- const
- AVIIF_LIST = $00000001;
- {$EXTERNALSYM AVIIF_LIST}
- AVIIF_KEYFRAME = $00000010;
- {$EXTERNALSYM AVIIF_KEYFRAME}
- AVIIF_NO_TIME = $00000100;
- {$EXTERNALSYM AVIIF_NO_TIME}
- AVIIF_COMPRESSOR = $0FFF0000; // unused?
- {$EXTERNALSYM AVIIF_COMPRESSOR}
- // old timecode structure
- //typedef union _timecode {
- // struct {
- // WORD wFrameRate;
- // WORD wFrameFract;
- // LONG cFrames;
- // };
- // DWORDLONG qw;
- // } TIMECODE;
- //
- // struct for all the SMPTE timecode info
- //
- TIMECODE_RATE_30DROP = 0; // this MUST be zero
- {$EXTERNALSYM TIMECODE_RATE_30DROP}
- type
- _timecodedata = record
- time: TTimeCode;
- dwSMPTEflags: DWORD;
- dwUser: DWORD;
- end;
- {$EXTERNALSYM _timecodedata}
- TIMECODEDATA = _timecodedata;
- {$EXTERNALSYM TIMECODEDATA}
- TTimeCodeData = _timecodedata;
- // dwSMPTEflags masks/values
- //
- const
- TIMECODE_SMPTE_BINARY_GROUP = $07;
- {$EXTERNALSYM TIMECODE_SMPTE_BINARY_GROUP}
- TIMECODE_SMPTE_COLOR_FRAME = $08;
- {$EXTERNALSYM TIMECODE_SMPTE_COLOR_FRAME}
- //
- // ============ structures for new style AVI indexes =================
- //
- // index type codes
- //
- AVI_INDEX_OF_INDEXES = $00;
- {$EXTERNALSYM AVI_INDEX_OF_INDEXES}
- AVI_INDEX_OF_CHUNKS = $01;
- {$EXTERNALSYM AVI_INDEX_OF_CHUNKS}
- AVI_INDEX_OF_TIMED_CHUNKS = $02;
- {$EXTERNALSYM AVI_INDEX_OF_TIMED_CHUNKS}
- AVI_INDEX_OF_SUB_2FIELD = $03;
- {$EXTERNALSYM AVI_INDEX_OF_SUB_2FIELD}
- AVI_INDEX_IS_DATA = $80;
- {$EXTERNALSYM AVI_INDEX_IS_DATA}
- // index subtype codes
- //
- AVI_INDEX_SUB_DEFAULT = $00;
- {$EXTERNALSYM AVI_INDEX_SUB_DEFAULT}
- // INDEX_OF_CHUNKS subtype codes
- //
- AVI_INDEX_SUB_2FIELD = $01;
- {$EXTERNALSYM AVI_INDEX_SUB_2FIELD}
- // meta structure of all avi indexes
- //
- type
- _avimetaindex = record
- fcc: FOURCC;
- cb: UINT;
- wLongsPerEntry: WORD;
- bIndexSubType: BYTE;
- bIndexType: BYTE;
- nEntriesInUse: DWORD;
- dwChunkId: DWORD;
- dwReserved: array[0..2] of DWORD;
- adwIndex: array[0..0] of DWORD;
- end;
- {$EXTERNALSYM _avimetaindex}
- AVIMETAINDEX = _avimetaindex;
- {$EXTERNALSYM AVIMETAINDEX}
- TAVIMetaIndex = _avimetaindex;
- const
- STDINDEXSIZE = $4000;
- {$EXTERNALSYM STDINDEXSIZE}
- {
- #define NUMINDEX(wLongsPerEntry) ((STDINDEXSIZE-32)/4/(wLongsPerEntry))
- #define NUMINDEXFILL(wLongsPerEntry) ((STDINDEXSIZE/4) - NUMINDEX(wLongsPerEntry))
- }
- // structure of a super index (INDEX_OF_INDEXES)
- //
- ckidAVISUPERINDEX = $78646E69;//'indx'
- {$EXTERNALSYM ckidAVISUPERINDEX}
- type
- _avisuperindex = record
- fcc: FOURCC; // 'indx'
- cb: UINT; // size of this structure
- wLongsPerEntry: WORD; // ==4
- bIndexSubType: BYTE; // ==0 (frame index) or AVI_INDEX_SUB_2FIELD
- bIndexType: BYTE; // ==AVI_INDEX_OF_INDEXES
- nEntriesInUse: DWORD; // offset of next unused entry in aIndex
- dwChunkId: DWORD; // chunk ID of chunks being indexed, (i.e. RGB8)
- dwReserved: array[0..2] of DWORD; // must be 0
- aIndex: array[0..3] of record
- qwOffset: Int64; // 64 bit offset to sub index chunk
- dwSize: DWORD; // 32 bit size of sub index chunk
- dwDuration: DWORD; // time span of subindex chunk (in stream ticks)
- end;
- end;
- {$EXTERNALSYM _avisuperindex}
- AVISUPERINDEX = _avisuperindex;
- {$EXTERNALSYM AVISUPERINDEX}
- TAVISuperIndex = _avisuperindex;
- //#define Valid_SUPERINDEX(pi) (*(DWORD *)(&((pi)->wLongsPerEntry)) == (4 | (AVI_INDEX_OF_INDEXES << 24)))
- // struct of a standard index (AVI_INDEX_OF_CHUNKS)
- //
- _avistdindex_entry = record
- dwOffset: DWORD; // 32 bit offset to data (points to data, not riff header)
- dwSize: DWORD; // 31 bit size of data (does not include size of riff header), bit 31 is deltaframe bit
- end;
- {$EXTERNALSYM _avistdindex_entry}
- AVISTDINDEX_ENTRY = _avistdindex_entry;
- {$EXTERNALSYM AVISTDINDEX_ENTRY}
- TAVIStdIndexEntry = _avistdindex_entry;
- const
- AVISTDINDEX_DELTAFRAME = $80000000; // Delta frames have the high bit set;
- {$EXTERNALSYM AVISTDINDEX_DELTAFRAME}
- AVISTDINDEX_SIZEMASK = not $80000000;
- {$EXTERNALSYM AVISTDINDEX_SIZEMASK}
- type
- _avistdindex = record
- fcc: FOURCC; // 'indx' or '##ix'
- cb: UINT; // size of this structure
- wLongsPerEntry: WORD; // ==2
- bIndexSubType: BYTE; // ==0
- bIndexType: BYTE; // ==AVI_INDEX_OF_CHUNKS
- nEntriesInUse: DWORD; // offset of next unused entry in aIndex
- dwChunkId: DWORD; // chunk ID of chunks being indexed, (i.e. RGB8)
- qwBaseOffset: Int64; // base offset that all index intries are relative to
- dwReserved_3: DWORD;
- aIndex: array[0..2043] of TAVIStdIndexEntry;
- end;
- {$EXTERNALSYM _avistdindex}
- AVISTDINDEX = _avistdindex;
- {$EXTERNALSYM AVISTDINDEX}
- TAVIStdIndex = _avistdindex;
- // struct of a time variant standard index (AVI_INDEX_OF_TIMED_CHUNKS)
- //
- _avitimedindex_entry = record
- dwOffset: DWORD; // 32 bit offset to data (points to data, not riff header)
- dwSize: DWORD; // 31 bit size of data (does not include size of riff header) (high bit is deltaframe bit)
- dwDuration: DWORD; // how much time the chunk should be played (in stream ticks)
- end;
- {$EXTERNALSYM _avitimedindex_entry}
- AVITIMEDINDEX_ENTRY = _avitimedindex_entry;
- {$EXTERNALSYM AVITIMEDINDEX_ENTRY}
- TAVITimedIndexEntry = _avitimedindex_entry;
- _avitimedindex = record
- fcc: FOURCC; // 'indx' or '##ix'
- cb: UINT; // size of this structure
- wLongsPerEntry: WORD; // ==3
- bIndexSubType: BYTE; // ==0
- bIndexType: BYTE; // ==AVI_INDEX_OF_TIMED_CHUNKS
- nEntriesInUse: DWORD; // offset of next unused entry in aIndex
- dwChunkId: DWORD; // chunk ID of chunks being indexed, (i.e. RGB8)
- qwBaseOffset: Int64; // base offset that all index intries are relative to
- dwReserved_3: DWORD; // must be 0
- aIndex: array[0..1361] of TAVITimedIndexEntry;
- adwTrailingFill: array[0..2733] of DWORD; // to align struct to correct size
- end;
- {$EXTERNALSYM _avitimedindex}
- AVITIMEDINDEX = _avitimedindex;
- {$EXTERNALSYM AVITIMEDINDEX}
- TAVITimedIndex = _avitimedindex;
- // structure of a timecode stream
- //
- _avitimecodeindex = record
- fcc: FOURCC; // 'indx' or '##ix'
- cb: UINT; // size of this structure
- wLongsPerEntry: WORD; // ==4
- bIndexSubType: BYTE; // ==0
- bIndexType: BYTE; // ==AVI_INDEX_IS_DATA
- nEntriesInUse: DWORD; // offset of next unused entry in aIndex
- dwChunkId: DWORD; // 'time'
- dwReserved: array[0..2] of DWORD; // must be 0
- aIndex: array[0..0] of TTimeCodeData;
- end;
- {$EXTERNALSYM _avitimecodeindex}
- AVITIMECODEINDEX = _avitimecodeindex;
- {$EXTERNALSYM AVITIMECODEINDEX}
- TAviTimeCodeIndex = _avitimecodeindex;
- // structure of a timecode discontinuity list (when wLongsPerEntry == 7)
- //
- _avitcdlindex_entry = record
- dwTick: DWORD; // stream tick time that maps to this timecode value
- time: TTimeCode;
- dwSMPTEflags: DWORD;
- dwUser: DWORD;
- szReelId: array[0..11] of Char;
- end;
- {$EXTERNALSYM _avitcdlindex_entry}
- AVITCDLINDEX_ENTRY = _avitcdlindex_entry;
- {$EXTERNALSYM AVITCDLINDEX_ENTRY}
- TAVITcdlIndexEntry = _avitcdlindex_entry;
- _avitcdlindex = record
- fcc: FOURCC; // 'indx' or '##ix'
- cb: UINT; // size of this structure
- wLongsPerEntry: WORD; // ==7 (must be 4 or more all 'tcdl' indexes
- bIndexSubType: BYTE; // ==0
- bIndexType: BYTE; // ==AVI_INDEX_IS_DATA
- nEntriesInUse: DWORD; // offset of next unused entry in aIndex
- dwChunkId: DWORD; // 'tcdl'
- dwReserved: array[0..2] of DWORD; // must be 0
- aIndex: array[0..583] of TAVITcdlIndexEntry;
- adwTrailingFill: array[0..3511] of DWORD; // to align struct to correct size
- end;
- {$EXTERNALSYM _avitcdlindex}
- AVITCDLINDEX = _avitcdlindex;
- {$EXTERNALSYM AVITCDLINDEX}
- TAVITcdlIndex = _avitcdlindex;
- _avifieldindex_chunk = record
- {$EXTERNALSYM _avifieldindex_chunk}
- fcc: FOURCC; // 'ix##'
- cb: DWORD; // size of this structure
- wLongsPerEntry: WORD; // must be 3 (size of each entry in
- // aIndex array)
- bIndexSubType: BYTE; // AVI_INDEX_2FIELD
- bIndexType: BYTE; // AVI_INDEX_OF_CHUNKS
- nEntriesInUse: DWORD; //
- dwChunkId: DWORD; // '##dc' or '##db'
- qwBaseOffset: Int64; // offsets in aIndex array are relative to this
- dwReserved3: DWORD; // must be 0
- aIndex: array[0..0] of record
- dwOffset: DWORD;
- dwSize: DWORD; // size of all fields
- dwOffsetField2: DWORD; // (bit 31 set for NON-keyframes)
- end; // offset to second field
- end;
- AVIFIELDINDEX = _avifieldindex_chunk;
- {$EXTERNALSYM AVIFIELDINDEX}
- PAVIFIELDINDEX = ^AVIFIELDINDEX;
- {$EXTERNALSYM PAVIFIELDINDEX}
- TAVIFieldIndex = _avifieldindex_chunk;
-
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: evcode.h
- *
- ***************************************************************************)
- const
- //
- // list of standard Quartz event codes and the expected params
- //
- // Event codes are broken into two groups
- // -- system event codes
- // -- extension event codes
- // All system event codes are below EC_USER
- EC_SYSTEMBASE = $00;
- {$EXTERNALSYM EC_SYSTEMBASE}
- EC_USER = $8000;
- {$EXTERNALSYM EC_USER}
- // System-defined event codes
- // ==========================
- //
- // There are three types of system-defined event codes:
- //
- // 1. Those which are always passed through to the application
- // (To be collected by calls to GetEvent or within WaitForCompletion.)
- // (e.g. EC_ERRORABORT, EC_USERABORT.)
- //
- // 2. Those which are pure internal and will never be passed to
- // the application. (e.g. EC_SHUTDOWN)
- //
- // 3. Those which have default handling. Default handing implies that
- // the event is not passed to the application. However, default
- // handling may be canceled by calling
- // IMediaEvent::CancelDefaultHandling. If the default handling is
- // cancelled in this way, then the message will be delivered to the
- // application and the application must action it appropriately.
- // Default handling can be restored by calling RestoreDefaultHandling.
- //
- // We will refer to these events as application, internal and defaulted
- // events respectively.
- //
- // System-defined events may have interface pointers, BSTR's, etc passed
- // as parameters. It is therefore essential that, for any message
- // retrieved using GetEvent, a matching call to FreeEventParams is made
- // to ensure that relevant interfaces are released and storage freed.
- // Failure to call FreeEventParams will result in memory leaks, if not
- // worse.
- //
- // Filters sending these messages to the filter graph should not AddRef()
- // any interfaces that they may pass as parameters. The filter graph
- // manager will AddRef them if required. E.g. if the event is to be queued
- // for the application or queued to a worker thread.
- // Each event listed below is immediately followed by a parameter list
- // detailing the types of the parameters associated with the message,
- // and an indication of whether the message is an application, internal
- // or defaulted message. This is then followed by a short description.
- // The use of "void" in the parameter list implies that the parameter is not
- // used. Such parameters should be zero.
- // Other defined EC_ regions:
- // DVD event codes 0x0100 - 0x0150 (dvdevcod.h)
- // audio device event codes 0x0200 - 0x0250 (audevcod.h)
- // WindowsMedia SDK-originated events 0x0251 - 0x0300 (see below)
- // MSVIDCTL 0x0301 - 0x0325 (msvidctl.idl)
- // stream buffer engine (PVR) 0x0326 - 0x0350 (sbe.idl)
- EC_COMPLETE = $01;
- {$EXTERNALSYM EC_COMPLETE}
- // ( HResult, void ) : defaulted (special)
- // Signals the completed playback of a stream within the graph. This message
- // is sent by renderers when they receive end-of-stream. The default handling
- // of this message results in a _SINGLE_ EC_COMPLETE being sent to the
- // application when ALL of the individual renderers have signaled EC_COMPLETE
- // to the filter graph. If the default handing is canceled, the application
- // will see all of the individual EC_COMPLETEs.
- EC_USERABORT = $02;
- {$EXTERNALSYM EC_USERABORT}
- // ( void, void ) : application
- // In some sense, the user has requested that playback be terminated.
- // This message is typically sent by renderers that render into a
- // window if the user closes the window into which it was rendering.
- // It is up to the application to decide if playback should actually
- // be stopped.
- EC_ERRORABORT = $03;
- {$EXTERNALSYM EC_ERRORABORT}
- // ( HResult, void ) : application
- // Operation aborted because of error
- EC_TIME = $04;
- {$EXTERNALSYM EC_TIME}
- // ( DWORD, DWORD ) : application
- // The requested reference time occurred. (This event is currently not used).
- // lParam1 is low dword of ref time, lParam2 is high dword of TRefTime.
- EC_REPAINT = $05;
- {$EXTERNALSYM EC_REPAINT}
- // ( IPin * (could be NULL), void ) : defaulted
- // A repaint is required - lParam1 contains the (IPin *) that needs the data
- // to be sent again. Default handling is: if the output pin which the IPin is
- // attached to supports the IMediaEventSink interface then it will be called
- // with the EC_REPAINT first. If that fails then normal repaint processing is
- // done by the filter graph.
- // Stream error notifications
- EC_STREAM_ERROR_STOPPED = $06;
- {$EXTERNALSYM EC_STREAM_ERROR_STOPPED}
- EC_STREAM_ERROR_STILLPLAYING = $07;
- {$EXTERNALSYM EC_STREAM_ERROR_STILLPLAYING}
- // ( HResult, DWORD ) : application
- // lParam 1 is major code, lParam2 is minor code, either may be zero.
- EC_ERROR_STILLPLAYING = $08;
- {$EXTERNALSYM EC_ERROR_STILLPLAYING}
- // ( HResult, void ) : application
- // The filter graph manager may issue Run's to the graph asynchronously.
- // If such a Run fails, EC_ERROR_STILLPLAYING is issued to notify the
- // application of the failure. The state of the underlying filters
- // at such a time will be indeterminate - they will all have been asked
- // to run, but some are almost certainly not.
- EC_PALETTE_CHANGED = $09;
- {$EXTERNALSYM EC_PALETTE_CHANGED}
- // ( void, void ) : application
- // notify application that the video palette has changed
- EC_VIDEO_SIZE_CHANGED = $0A;
- {$EXTERNALSYM EC_VIDEO_SIZE_CHANGED}
- // ( DWORD, void ) : application
- // Sent by video renderers.
- // Notifies the application that the native video size has changed.
- // LOWORD of the DWORD is the new width, HIWORD is the new height.
- EC_QUALITY_CHANGE = $0B;
- {$EXTERNALSYM EC_QUALITY_CHANGE}
- // ( void, void ) : application
- // Notify application that playback degradation has occurred
- EC_SHUTTING_DOWN = $0C;
- {$EXTERNALSYM EC_SHUTTING_DOWN}
- // ( void, void ) : internal
- // This message is sent by the filter graph manager to any plug-in
- // distributors which support IMediaEventSink to notify them that
- // the filter graph is starting to shutdown.
- EC_CLOCK_CHANGED = $0D;
- {$EXTERNALSYM EC_CLOCK_CHANGED}
- // ( void, void ) : application
- // Notify application that the clock has changed.
- // (i.e. SetSyncSource has been called on the filter graph and has been
- // distributed successfully to the filters in the graph.)
- EC_PAUSED = $0E;
- {$EXTERNALSYM EC_PAUSED}
- // ( HResult, void ) : application
- // Notify application the previous pause request has completed
- EC_OPENING_FILE = $10;
- {$EXTERNALSYM EC_OPENING_FILE}
- EC_BUFFERING_DATA = $11;
- {$EXTERNALSYM EC_BUFFERING_DATA}
- // ( BOOL, void ) : application
- // lParam1 == 1 --> starting to open file or buffer data
- // lParam1 == 0 --> not opening or buffering any more
- // (This event does not appear to be used by ActiveMovie.)
- EC_FULLSCREEN_LOST = $12;
- {$EXTERNALSYM EC_FULLSCREEN_LOST}
- // ( void, IBaseFilter * ) : application
- // Sent by full screen renderers when switched away from full screen.
- // IBaseFilter may be NULL.
- EC_ACTIVATE = $13;
- {$EXTERNALSYM EC_ACTIVATE}
- // ( BOOL, IBaseFilter * ) : internal
- // Sent by video renderers when they lose or gain activation.
- // lParam1 is set to 1 if gained or 0 if lost
- // lParam2 is the IBaseFilter* for the filter that is sending the message
- // Used for sound follows focus and full-screen switching
- EC_NEED_RESTART = $14;
- {$EXTERNALSYM EC_NEED_RESTART}
- // ( void, void ) : defaulted
- // Sent by renderers when they regain a resource (e.g. audio renderer).
- // Causes a restart by Pause/put_Current/Run (if running).
- EC_WINDOW_DESTROYED = $15;
- {$EXTERNALSYM EC_WINDOW_DESTROYED}
- // ( IBaseFilter *, void ) : internal
- // Sent by video renderers when the window has been destroyed. Handled
- // by the filter graph / distributor telling the resource manager.
- // lParam1 is the IBaseFilter* of the filter whose window is being destroyed
- EC_DISPLAY_CHANGED = $16;
- {$EXTERNALSYM EC_DISPLAY_CHANGED}
- // ( IPin *, void ) : internal
- // Sent by renderers when they detect a display change. the filter graph
- // will arrange for the graph to be stopped and the pin send in lParam1
- // to be reconnected. by being reconnected it allows a renderer to reset
- // and connect with a more appropriate format for the new display mode
- // lParam1 contains an (IPin *) that should be reconnected by the graph
- EC_STARVATION = $17;
- {$EXTERNALSYM EC_STARVATION}
- // ( void, void ) : defaulted
- // Sent by a filter when it detects starvation. Default handling (only when
- // running) is for the graph to be paused until all filters enter the
- // paused state and then run. Normally this would be sent by a parser or source
- // filter when too little data is arriving.
- EC_OLE_EVENT = $18;
- {$EXTERNALSYM EC_OLE_EVENT}
- // ( BSTR, BSTR ) : application
- // Sent by a filter to pass a text string to the application.
- // Conventionally, the first string is a type, and the second a parameter.
- EC_NOTIFY_WINDOW = $19;
- {$EXTERNALSYM EC_NOTIFY_WINDOW}
- // ( HWND, void ) : internal
- // Pass the window handle around during pin connection.
- EC_STREAM_CONTROL_STOPPED = $1A;
- {$EXTERNALSYM EC_STREAM_CONTROL_STOPPED}
- // ( IPin * pSender, DWORD dwCookie )
- // Notification that an earlier call to IAMStreamControl::StopAt
- // has now take effect. Calls to the method can be marked
- // with a cookie which is passed back in the second parameter,
- // allowing applications to easily tie together request
- // and completion notifications.
- //
- // NB: IPin will point to the pin that actioned the Stop. This
- // may not be the pin that the StopAt was sent to.
- EC_STREAM_CONTROL_STARTED = $1B;
- {$EXTERNALSYM EC_STREAM_CONTROL_STARTED}
- // ( IPin * pSender, DWORD dwCookie )
- // Notification that an earlier call to IAMStreamControl::StartAt
- // has now take effect. Calls to the method can be marked
- // with a cookie which is passed back in the second parameter,
- // allowing applications to easily tie together request
- // and completion notifications.
- //
- // NB: IPin will point to the pin that actioned the Start. This
- // may not be the pin that the StartAt was sent to.
- EC_END_OF_SEGMENT = $1C;
- {$EXTERNALSYM EC_END_OF_SEGMENT}
- //
- // ( const REFERENCE_TIME *pStreamTimeAtEndOfSegment, DWORD dwSegmentNumber )
- //
- // pStreamTimeAtEndOfSegment
- // pointer to the accumulated stream clock
- // time since the start of the segment - this is directly computable
- // as the sum of the previous and current segment durations (Stop - Start)
- // and the rate applied to each segment
- // The source add this time to the time within each segment to get
- // a total elapsed time
- //
- // dwSegmentNumber
- // Segment number - starts at 0
- //
- // Notifies that a segment end has been reached when the
- // AM_SEEKING_Segment flags was set for IMediaSeeking::SetPositions
- // Passes in an IMediaSeeking interface to allow the next segment
- // to be defined by the application
- EC_SEGMENT_STARTED = $1D;
- {$EXTERNALSYM EC_SEGMENT_STARTED}
- //
- // ( const REFERENCE_TIME *pStreamTimeAtStartOfSegment, DWORD dwSegmentNumber)
- //
- // pStreamTimeAtStartOfSegment
- // pointer to the accumulated stream clock
- // time since the start of the segment - this is directly computable
- // as the sum of the previous segment durations (Stop - Start)
- // and the rate applied to each segment
- //
- // dwSegmentNumber
- // Segment number - starts at 0
- //
- // Notifies that a new segment has been started.
- // This is sent synchronously by any entity that will issue
- // EC_END_OF_SEGMENT when a new segment is started
- // (See IMediaSeeking::SetPositions - AM_SEEKING_Segment flag)
- // It is used to compute how many EC_END_OF_SEGMENT notifications
- // to expect at the end of a segment and as a consitency check
- EC_LENGTH_CHANGED = $1E;
- {$EXTERNALSYM EC_LENGTH_CHANGED}
- // (void, void)
- // sent to indicate that the length of the "file" has changed
- EC_DEVICE_LOST = $1f;
- {$EXTERNALSYM EC_DEVICE_LOST}
- // (IUnknown, 0)
- //
- // request window notification when the device is available again
- // (through WM_DEVICECHANGED messages registered with
- // RegisterDeviceNotification; see IAMDeviceRemoval interface)
- EC_STEP_COMPLETE = $24;
- {$EXTERNALSYM EC_STEP_COMPLETE}
- // (BOOL bCacelled, void)
- // Step request complete
- // if bCancelled is TRUE the step was cancelled. This can happen
- // if the application issued some control request or because there
- // was a mode change etc etc
- // EC_SKIP_FRAMES = $25;
- // ( nFramesToSkip, void ) : internal
- // Get the filter graph to seek accuratley.
- // Event code 25 is reserved for future use. (dx8.1 specific)
- EC_TIMECODE_AVAILABLE = $30;
- {$EXTERNALSYM EC_TIMECODE_AVAILABLE}
- // Sent by filter supporting timecode
- // Param1 has a pointer to the sending object
- // Param2 has the device ID of the sending object
- EC_EXTDEVICE_MODE_CHANGE = $31;
- {$EXTERNALSYM EC_EXTDEVICE_MODE_CHANGE}
- // Sent by filter supporting IAMExtDevice
- // Param1 has the new mode
- // Param2 has the device ID of the sending object
- EC_STATE_CHANGE = $32;
- {$EXTERNALSYM EC_STATE_CHANGE}
- // ( FILTER_STATE, BOOL bInternal)
- // Used to notify the application of any state changes in the filter graph.
- // lParam1 is of type enum FILTER_STATE (defined in strmif.h) and indicates
- // the state of the filter graph.
- //
- // lParam2 == 0 indicates that the previous state change request has completed
- // & a change in application state.
- // lParam2 == 1 reserved for future use to indicate internal state changes.
- EC_GRAPH_CHANGED = $50;
- {$EXTERNALSYM EC_GRAPH_CHANGED}
- // Sent by filter to notify interesting graph changes
- EC_CLOCK_UNSET = $51;
- {$EXTERNALSYM EC_CLOCK_UNSET}
- // ( void, void ) : application
- // Used to notify the filter graph to unset the current graph clock.
- // Has the affect of forcing the filter graph to reestablish the graph clock
- // on the next Pause/Run (note that this is only used by ksproxy, when the pin
- // of a clock providing filter is disconnected)
- EC_VMR_RENDERDEVICE_SET = $53;
- {$EXTERNALSYM EC_VMR_RENDERDEVICE_SET}
- // (Render_Device type, void)
- // Identifies the type of rendering mechanism the VMR
- // is using to display video. Types used include:
- VMR_RENDER_DEVICE_OVERLAY = $01;
- {$EXTERNALSYM VMR_RENDER_DEVICE_OVERLAY}
- VMR_RENDER_DEVICE_VIDMEM = $02;
- {$EXTERNALSYM VMR_RENDER_DEVICE_VIDMEM}
- VMR_RENDER_DEVICE_SYSMEM = $04;
- {$EXTERNALSYM VMR_RENDER_DEVICE_SYSMEM}
- EC_VMR_SURFACE_FLIPPED = $54;
- {$EXTERNALSYM EC_VMR_SURFACE_FLIPPED}
- // (hr - Flip return code, void)
- // Identifies the VMR's allocator-presenter has called the DDraw flip api on
- // the surface being presented. This allows the VMR to keep its DX-VA table
- // of DDraw surfaces in sync with DDraws flipping chain.
- EC_VMR_RECONNECTION_FAILED = $55;
- {$EXTERNALSYM EC_VMR_RECONNECTION_FAILED}
- // (hr - ReceiveConnection return code, void)
- // Identifies that an upstream decoder tried to perform a dynamic format
- // change and the VMR was unable to accept the new format.
- EC_PREPROCESS_COMPLETE = $56;
- {$EXTERNALSYM EC_PREPROCESS_COMPLETE}
- // Sent by the WM ASF writer filter (WMSDK V9 version) to signal the completion
- // of a pre-process run when running in multipass encode mode.
- // Param1 = 0, Param2 = IBaseFilter ptr of sending filter
- EC_CODECAPI_EVENT = $57;
- {$EXTERNALSYM EC_CODECAPI_EVENT}
- // Sent by the Codec API when an event is encountered. Both the Data
- // must be freed by the recipient using CoTaskMemFree
- // Param1 = UserDataPointer, Param2 = VOID* Data
- //------------------------------------------
- //
- // BDA events:
- //
- // Event code 0x80 through 0x8f are reserved for BDA
- //
- //------------------------------------------
- //
- // WindowsMedia SDK filter-specific events:
- //
- //
- // Note that for EC_WMT_EVENT events the wmsdk-based filters use the following structure for
- // passing event parameters to the app:
- type
- PAMWMTEventData = ^TAMWMTEventData;
- AM_WMT_EVENT_DATA = record
- hrStatus : HResult; // status code
- pData : pointer; // event data
- end;
- {$EXTERNALSYM AM_WMT_EVENT_DATA}
- TAMWMTEventData = AM_WMT_EVENT_DATA;
-
- const
- EC_WMT_EVENT_BASE = $0251;
- {$EXTERNALSYM EC_WMT_EVENT_BASE}
- //
- EC_WMT_INDEX_EVENT = EC_WMT_EVENT_BASE;
- {$EXTERNALSYM EC_WMT_INDEX_EVENT}
- // WindowsMedia SDK-originated file indexing status, sent by WMSDK-based filters
- //
- // lParam1 is one of the enum WMT_STATUS messages listed below, sent by the WindowsMedia SDK
- // lParam2 is specific to the lParam event
- //
- // the following WMT_STATUS messages are sent for this event:
- // WMT_STARTED - lParam2 is 0
- // WMT_CLOSED - lParam2 is 0
- // WMT_INDEX_PROGRESS - lParam2 is a DWORD containing the progress percent complete
- //
- EC_WMT_EVENT = EC_WMT_EVENT_BASE+1;
- {$EXTERNALSYM EC_WMT_EVENT}
- // WindowsMedia SDK-originated event, sent by WMSDK-based filters
- //
- // lParam1 is one of the enum WMT_STATUS messages listed below, sent by the WindowsMedia SDK
- // lParam2 is a pointer an AM_WMT_EVENT_DATA structure where,
- // hrStatus is the status code sent by the wmsdk
- // pData is specific to the lParam1 event
- //
- // the following WMT_STATUS messages are sent by the WMSDK Reader filter for this event:
- // WMT_NO_RIGHTS - pData is a pointer to a WCHAR string containing a challenge URL
- // WMT_ACQUIRE_LICENSE - lParam2 is a pointer to a WM_GET_LICENSE_DATA struct
- // WMT_NO_RIGHTS_EX - lParam2 is a pointer to a WM_GET_LICENSE_DATA struct
- // WMT_NEEDS_INDIVIDUALIZATION - lParam2 is NULL
- // WMT_INDIVIDUALIZE - lParam2 is a pointer to a WM_INDIVIDUALIZE_STATUS struct
- // the WMSDK (V9) ASF Writer filter will send this event in response to a wmsdk-signaled error during file
- // writing, along with the wmsdk WMT_STATUS error as the lParam1 and hrStatus embedded in the
- // AM_WMT_EVENT_DATA struct pointed to by the lParam2 pointer.
- //
- // end WMSDK-originated events
- //-----------------------------------------
- EC_BUILT = $300;
- {$EXTERNALSYM EC_BUILT}
- // Sent to notify transition from unbuilt to built state
- EC_UNBUILT = $301;
- {$EXTERNALSYM EC_UNBUILT}
- // Sent to notify transtion from built to unbuilt state
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: uuids.h
- *
- ***************************************************************************)
- const
- // -- to allow consistent labeling of Media types and subtypes --
- // ?? GUID_NULL ??
- GUID_NULL: TGUID = (D1:$00000000;D2:$0000;D3:$0000;D4:($00,$00,$00,$00,$00,$00,$00,$00));
- MEDIATYPE_NULL: TGUID = (D1:$00000000;D2:$0000;D3:$0000;D4:($00,$00,$00,$00,$00,$00,$00,$00));
- MEDIASUBTYPE_NULL: TGUID = (D1:$00000000;D2:$0000;D3:$0000;D4:($00,$00,$00,$00,$00,$00,$00,$00));
- // -- Use this subtype if you don't have a use for a subtype for your type
- MEDIASUBTYPE_None: TGUID = (D1:$E436EB8E;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_None}
- // -- major types ---
- MEDIATYPE_Video: TGUID = (D1:$73646976;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_Video}
- MEDIATYPE_Audio: TGUID = (D1:$73647561;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_Audio}
- MEDIATYPE_Text: TGUID = (D1:$73747874;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_Text}
- MEDIATYPE_Midi: TGUID = (D1:$7364696D;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_Midi}
- MEDIATYPE_Stream: TGUID = (D1:$E436EB83;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIATYPE_Stream}
- MEDIATYPE_Interleaved: TGUID = (D1:$73766169;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_Interleaved}
- MEDIATYPE_File: TGUID = (D1:$656C6966;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_File}
- MEDIATYPE_ScriptCommand: TGUID = (D1:$73636D64;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIATYPE_ScriptCommand}
- MEDIATYPE_AUXLine21Data: TGUID = (D1:$670AEA80;D2:$3A82;D3:$11D0;D4:($B7,$9B,$00,$AA,$00,$37,$67,$A7));
- {$EXTERNALSYM MEDIATYPE_AUXLine21Data}
- MEDIATYPE_VBI : TGUID = '{F72A76E1-EB0A-11D0-ACE4-0000C0CC16BA}';
- {$EXTERNALSYM MEDIATYPE_VBI}
- MEDIATYPE_Timecode: TGUID = (D1:$0482DEE3;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIATYPE_Timecode}
- MEDIATYPE_LMRT : TGUID = (D1:$74726c6d;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIATYPE_LMRT}
- MEDIATYPE_URL_STREAM: TGUID = (D1:$736c7275;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIATYPE_URL_STREAM}
- // -- sub types ---
- MEDIASUBTYPE_CLPL: TGUID = (D1:$4C504C43;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_CLPL}
- MEDIASUBTYPE_YUYV: TGUID = (D1:$56595559;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_YUYV}
- MEDIASUBTYPE_IYUV: TGUID = (D1:$56555949;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_IYUV}
- MEDIASUBTYPE_YVU9: TGUID = (D1:$39555659;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_YVU9}
- MEDIASUBTYPE_Y411: TGUID = (D1:$31313459;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_Y411}
- MEDIASUBTYPE_Y41P: TGUID = (D1:$50313459;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_Y41P}
- MEDIASUBTYPE_YUY2: TGUID = (D1:$32595559;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_YUY2}
- MEDIASUBTYPE_YVYU: TGUID = (D1:$55595659;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_YVYU}
- MEDIASUBTYPE_UYVY: TGUID = (D1:$59565955;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_UYVY}
- MEDIASUBTYPE_Y211: TGUID = (D1:$31313259;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_Y211}
- MEDIASUBTYPE_CLJR: TGUID = (D1:$524A4C43;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_CLJR}
- MEDIASUBTYPE_IF09: TGUID = (D1:$39304649;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_IF09}
- MEDIASUBTYPE_CPLA: TGUID = (D1:$414C5043;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_CPLA}
- MEDIASUBTYPE_MJPG: TGUID = (D1:$47504A4D;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_MJPG}
- MEDIASUBTYPE_TVMJ: TGUID = (D1:$4A4D5654;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_TVMJ}
- MEDIASUBTYPE_WAKE: TGUID = (D1:$454B4157;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_WAKE}
- MEDIASUBTYPE_CFCC: TGUID = (D1:$43434643;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_CFCC}
- MEDIASUBTYPE_IJPG: TGUID = (D1:$47504A49;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_IJPG}
- MEDIASUBTYPE_Plum: TGUID = (D1:$6D756C50;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_Plum}
- MEDIASUBTYPE_DVCS: TGUID = (D1:$53435644;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_DVCS}
- MEDIASUBTYPE_DVSD: TGUID = (D1:$44535644;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_DVSD}
- MEDIASUBTYPE_MDVF: TGUID = (D1:$4656444D;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_MDVF}
- MEDIASUBTYPE_RGB1: TGUID = (D1:$E436EB78;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB1}
- MEDIASUBTYPE_RGB4: TGUID = (D1:$E436EB79;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB4}
- MEDIASUBTYPE_RGB8: TGUID = (D1:$E436EB7A;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB8}
- MEDIASUBTYPE_RGB565: TGUID = (D1:$E436EB7B;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB565}
- MEDIASUBTYPE_RGB555: TGUID = (D1:$E436EB7C;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB555}
- MEDIASUBTYPE_RGB24: TGUID = (D1:$E436EB7D;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB24}
- MEDIASUBTYPE_RGB32: TGUID = (D1:$E436EB7E;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_RGB32}
- MEDIASUBTYPE_ARGB1555 : TGUID = '{297C55AF-E209-4cb3-B757-C76D6B9C88A8}';
- {$EXTERNALSYM MEDIASUBTYPE_ARGB1555}
- MEDIASUBTYPE_ARGB4444 : TGUID = '{6E6415E6-5C24-425f-93CD-80102B3D1CCA}';
- {$EXTERNALSYM MEDIASUBTYPE_ARGB4444}
- MEDIASUBTYPE_ARGB32 : TGUID = (D1:$773c9ac0;D2:$3274;D3:$11d0;D4:($b7,$24,$00,$aa,$00,$6c,$1a,$1 ));
- {$EXTERNALSYM MEDIASUBTYPE_ARGB32}
- MEDIASUBTYPE_A2R10G10B10 : TGUID = '{2f8bb76d-b644-4550-acf3-d30caa65d5c5}';
- {$EXTERNALSYM MEDIASUBTYPE_A2R10G10B10}
- MEDIASUBTYPE_A2B10G10R10 : TGUID = '{576f7893-bdf6-48c4-875f-ae7b81834567}';
- {$EXTERNALSYM MEDIASUBTYPE_A2B10G10R10}
- MEDIASUBTYPE_AYUV : TGUID = '{56555941-0000-0010-8000-00AA00389B71}'; //'AYUV' == MEDIASUBTYPE_AYUV
- {$EXTERNALSYM MEDIASUBTYPE_AYUV}
- MEDIASUBTYPE_AI44 : TGUID = '{34344941-0000-0010-8000-00AA00389B71}'; //'AI44' == MEDIASUBTYPE_AI44
- {$EXTERNALSYM MEDIASUBTYPE_AI44}
- MEDIASUBTYPE_IA44 : TGUID = '{34344149-0000-0010-8000-00AA00389B71}'; //'IA44' == MEDIASUBTYPE_IA44
- {$EXTERNALSYM MEDIASUBTYPE_IA44}
- {$IFDEF ENABLEVMR7}
- //
- // DirectX7 D3D Render Target media subtypes.
- //
- MEDIASUBTYPE_RGB32_D3D_DX7_RT : TGUID = '{32335237-0000-0010-8000-00AA00389B71}'; //'7R32' == MEDIASUBTYPE_RGB32_D3D_DX7_RT
- {$EXTERNALSYM MEDIASUBTYPE_RGB32_D3D_DX7_RT}
- MEDIASUBTYPE_RGB16_D3D_DX7_RT : TGUID = '{36315237-0000-0010-8000-00AA00389B71}'; //'7R16' == MEDIASUBTYPE_RGB16_D3D_DX7_RT
- {$EXTERNALSYM MEDIASUBTYPE_RGB16_D3D_DX7_RT}
- MEDIASUBTYPE_ARGB32_D3D_DX7_RT : TGUID = '{38384137-0000-0010-8000-00AA00389B71}'; //'7A88' == MEDIASUBTYPE_ARGB32_D3D_DX7_RT
- {$EXTERNALSYM MEDIASUBTYPE_ARGB32_D3D_DX7_RT}
- MEDIASUBTYPE_ARGB4444_D3D_DX7_RT : TGUID = '{34344137-0000-0010-8000-00AA00389B71}'; //'7A44' == MEDIASUBTYPE_ARGB4444_D3D_DX7_RT
- {$EXTERNALSYM MEDIASUBTYPE_ARGB4444_D3D_DX7_RT}
- MEDIASUBTYPE_ARGB1555_D3D_DX7_RT : TGUID = '{35314137-0000-0010-8000-00AA00389B71}'; //'7A15' == MEDIASUBTYPE_ARGB1555_D3D_DX7_RT
- {$EXTERNALSYM MEDIASUBTYPE_ARGB1555_D3D_DX7_RT}
- {$ENDIF}
- //
- // DirectX9 D3D Render Target media subtypes.
- //
- MEDIASUBTYPE_RGB32_D3D_DX9_RT : TGUID = '{32335239-0000-0010-8000-00AA00389B71}'; // 9R32
- {$EXTERNALSYM MEDIASUBTYPE_RGB32_D3D_DX9_RT}
- MEDIASUBTYPE_RGB16_D3D_DX9_RT : TGUID = '{36315239-0000-0010-8000-00AA00389B71}'; // 9R16
- {$EXTERNALSYM MEDIASUBTYPE_RGB16_D3D_DX9_RT}
- MEDIASUBTYPE_ARGB32_D3D_DX9_RT : TGUID = '{38384139-0000-0010-8000-00AA00389B71}'; // 9A88
- {$EXTERNALSYM MEDIASUBTYPE_ARGB32_D3D_DX9_RT}
- MEDIASUBTYPE_ARGB4444_D3D_DX9_RT : TGUID = '{34344139-0000-0010-8000-00AA00389B71}'; // 9A44
- {$EXTERNALSYM MEDIASUBTYPE_ARGB4444_D3D_DX9_RT}
- MEDIASUBTYPE_ARGB1555_D3D_DX9_RT : TGUID = '{35314139-0000-0010-8000-00AA00389B71}'; // 9A15
- {$EXTERNALSYM MEDIASUBTYPE_ARGB1555_D3D_DX9_RT}
- {
- #define MEDIASUBTYPE_HASALPHA(mt) ( ((mt).subtype == MEDIASUBTYPE_ARGB4444) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB32) || \
- ((mt).subtype == MEDIASUBTYPE_AYUV) || \
- ((mt).subtype == MEDIASUBTYPE_AI44) || \
- ((mt).subtype == MEDIASUBTYPE_IA44) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB32_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB4444_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB32_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB4444_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555_D3D_DX9_RT) )
- #define MEDIASUBTYPE_HASALPHA7(mt) (((mt).subtype == MEDIASUBTYPE_ARGB32_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB4444_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555_D3D_DX7_RT) )
- #define MEDIASUBTYPE_D3D_DX7_RT(mt) (((mt).subtype == MEDIASUBTYPE_ARGB32_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB4444_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_RGB32_D3D_DX7_RT) || \
- ((mt).subtype == MEDIASUBTYPE_RGB16_D3D_DX7_RT))
- #define MEDIASUBTYPE_HASALPHA9(mt) (((mt).subtype == MEDIASUBTYPE_ARGB32_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB4444_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555_D3D_DX9_RT) )
- #define MEDIASUBTYPE_D3D_DX9_RT(mt) (((mt).subtype == MEDIASUBTYPE_ARGB32_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB4444_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_ARGB1555_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_RGB32_D3D_DX9_RT) || \
- ((mt).subtype == MEDIASUBTYPE_RGB16_D3D_DX9_RT))
- }
- // DX-VA uncompressed surface formats
- MEDIASUBTYPE_YV12 : TGUID = '{32315659-0000-0010-8000-00AA00389B71}'; // YV12
- {$EXTERNALSYM MEDIASUBTYPE_YV12}
- MEDIASUBTYPE_NV12 : TGUID = '{3231564E-0000-0010-8000-00AA00389B71}'; // NV12
- {$EXTERNALSYM MEDIASUBTYPE_NV12}
- MEDIASUBTYPE_IMC1 : TGUID = '{31434D49-0000-0010-8000-00AA00389B71}'; // IMC1
- {$EXTERNALSYM MEDIASUBTYPE_IMC1}
- MEDIASUBTYPE_IMC2 : TGUID = '{32434d49-0000-0010-8000-00AA00389B71}'; // IMC2
- {$EXTERNALSYM MEDIASUBTYPE_IMC2}
- MEDIASUBTYPE_IMC3 : TGUID = '{33434d49-0000-0010-8000-00AA00389B71}'; // IMC3
- {$EXTERNALSYM MEDIASUBTYPE_IMC3}
- MEDIASUBTYPE_IMC4 : TGUID = '{34434d49-0000-0010-8000-00AA00389B71}'; // IMC4
- {$EXTERNALSYM MEDIASUBTYPE_IMC4}
- MEDIASUBTYPE_S340 : TGUID = '{30343353-0000-0010-8000-00AA00389B71}'; // S340
- {$EXTERNALSYM MEDIASUBTYPE_S340}
- MEDIASUBTYPE_S342 : TGUID = '{32343353-0000-0010-8000-00AA00389B71}'; // S342
- {$EXTERNALSYM MEDIASUBTYPE_S342}
- MEDIASUBTYPE_Overlay: TGUID = (D1:$E436EB7F;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_Overlay}
- MEDIASUBTYPE_MPEG1Packet: TGUID = (D1:$E436EB80;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1Packet}
- MEDIASUBTYPE_MPEG1Payload: TGUID = (D1:$E436EB81;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1Payload}
- MEDIASUBTYPE_MPEG1AudioPayload: TGUID = (D1:$00000050;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1AudioPayload}
- MEDIATYPE_MPEG1SystemStream: TGUID = (D1:$E436EB82;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIATYPE_MPEG1SystemStream}
- MEDIASUBTYPE_MPEG1System: TGUID = (D1:$E436EB84;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1System}
- MEDIASUBTYPE_MPEG1VideoCD: TGUID = (D1:$E436EB85;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1VideoCD}
- MEDIASUBTYPE_MPEG1Video: TGUID = (D1:$E436EB86;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1Video}
- MEDIASUBTYPE_MPEG1Audio: TGUID = (D1:$E436EB87;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG1Audio}
- MEDIASUBTYPE_Avi: TGUID = (D1:$E436EB88;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_Avi}
- MEDIASUBTYPE_Asf: TGUID = (D1:$3db80f90;D2:$9412;D3:$11d1;D4:($ad,$ed,$00,$00,$f8,$75,$4b,$99));
- {$EXTERNALSYM MEDIASUBTYPE_Asf}
- MEDIASUBTYPE_QTMovie: TGUID = (D1:$E436EB89;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_QTMovie}
- MEDIASUBTYPE_QTRpza: TGUID = (D1:$617A7072;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_QTRpza}
- MEDIASUBTYPE_QTSmc: TGUID = (D1:$20636D73;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_QTSmc}
- MEDIASUBTYPE_QTRle: TGUID = (D1:$20656C72;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_QTRle}
- MEDIASUBTYPE_QTJpeg: TGUID = (D1:$6765706A;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_QTJpeg}
- MEDIASUBTYPE_PCMAudio_Obsolete: TGUID = (D1:$E436EB8A;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_PCMAudio_Obsolete}
- MEDIASUBTYPE_PCM: TGUID = (D1:$00000001;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_PCM}
- MEDIASUBTYPE_WAVE: TGUID = (D1:$E436EB8B;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_WAVE}
- MEDIASUBTYPE_AU: TGUID = (D1:$E436EB8C;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_AU}
- MEDIASUBTYPE_AIFF: TGUID = (D1:$E436EB8D;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM MEDIASUBTYPE_AIFF}
- MEDIASUBTYPE_dvsd_: TGUID = (D1:$64737664;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_dvsd_}
- MEDIASUBTYPE_dvhd: TGUID = (D1:$64687664;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_dvhd}
- MEDIASUBTYPE_dvsl : TGUID = (D1:$6C737664;D2:$0000;D3:$0010;D4:($80,$00,$00,$AA,$00,$38,$9B,$71));
- {$EXTERNALSYM MEDIASUBTYPE_dvsl}
- MEDIASUBTYPE_dv25 : TGUID = '{35327664-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM MEDIASUBTYPE_dv25}
- MEDIASUBTYPE_dv50 : TGUID = '{30357664-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM MEDIASUBTYPE_dv50}
- MEDIASUBTYPE_dvh1 : TGUID = '{31687664-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM MEDIASUBTYPE_dvh1}
- MEDIASUBTYPE_Line21_BytePair: TGUID = (D1:$6E8D4A22;D2:$310C;D3:$11D0;D4:($B7,$9A,$00,$AA,$00,$37,$67,$A7));
- {$EXTERNALSYM MEDIASUBTYPE_Line21_BytePair}
- MEDIASUBTYPE_Line21_GOPPacket: TGUID = (D1:$6E8D4A23;D2:$310C;D3:$11D0;D4:($B7,$9A,$00,$AA,$00,$37,$67,$A7));
- {$EXTERNALSYM MEDIASUBTYPE_Line21_GOPPacket}
- MEDIASUBTYPE_Line21_VBIRawData: TGUID = (D1:$6E8D4A24;D2:$310C;D3:$11D0;D4:($B7,$9A,$00,$AA,$00,$37,$67,$A7));
- {$EXTERNALSYM MEDIASUBTYPE_Line21_VBIRawData}
- MEDIASUBTYPE_TELETEXT : TGUID = '{F72A76E3-EB0A-11D0-ACE4-0000C0CC16BA}'; // MEDIASUBTYPE_TELETEXT
- {$EXTERNALSYM MEDIASUBTYPE_TELETEXT}
- MEDIASUBTYPE_WSS : TGUID = '{2791D576-8E7A-466F-9E90-5D3F3083738B}';
- {$EXTERNALSYM MEDIASUBTYPE_WSS}
- MEDIASUBTYPE_VPS : TGUID = '{A1B3F620-9792-4d8d-81A4-86AF25772090}';
- {$EXTERNALSYM MEDIASUBTYPE_VPS}
- MEDIASUBTYPE_DRM_Audio: TGUID = (D1:$00000009;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_DRM_Audio}
- MEDIASUBTYPE_IEEE_FLOAT: TGUID = (D1:$00000003;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_IEEE_FLOAT}
- MEDIASUBTYPE_DOLBY_AC3_SPDIF: TGUID = (D1:$00000092;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_DOLBY_AC3_SPDIF}
- MEDIASUBTYPE_RAW_SPORT: TGUID = (D1:$00000240;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_RAW_SPORT}
- MEDIASUBTYPE_SPDIF_TAG_241h: TGUID = (D1:$00000241;D2:$0000;D3:$0010;D4:($80,$00,$00,$aa,$00,$38,$9b,$71));
- {$EXTERNALSYM MEDIASUBTYPE_SPDIF_TAG_241h}
- // DirectShow DSS definitions
- MEDIASUBTYPE_DssVideo: TGUID = (D1:$A0AF4F81;D2:$E163;D3:$11D0;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM MEDIASUBTYPE_DssVideo}
- MEDIASUBTYPE_DssAudio: TGUID = (D1:$A0AF4F82;D2:$E163;D3:$11D0;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM MEDIASUBTYPE_DssAudio}
- MEDIASUBTYPE_VPVideo: TGUID = (D1:$5A9B6A40;D2:$1A22;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM MEDIASUBTYPE_VPVideo}
- MEDIASUBTYPE_VPVBI: TGUID = (D1:$5A9B6A41;D2:$1A22;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM MEDIASUBTYPE_VPVBI}
- //--- dxmedia (the cutlist source filter)
- CLSID_SimpleCutList: TGUID = (D1:$A5EA8D30;D2:$253D;D3:$11D1;D4:($B3,$F1,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM CLSID_SimpleCutList}
- CLSID_VideoFileClip: TGUID = (D1:$A5EA8D31;D2:$253D;D3:$11D1;D4:($B3,$F1,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM CLSID_VideoFileClip}
- CLSID_AudioFileClip: TGUID = (D1:$A5EA8D32;D2:$253D;D3:$11D1;D4:($B3,$F1,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM CLSID_AudioFileClip}
- CLSID_CutListCacheMemory: TGUID = (D1:$A5EA8D33;D2:$253D;D3:$11D1;D4:($B3,$F1,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM CLSID_CutListCacheMemory}
- //--- end cut list stuff
- CLSID_CaptureGraphBuilder: TGUID = (D1:$BF87B6E0;D2:$8C27;D3:$11D0;D4:($B3,$F0,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM CLSID_CaptureGraphBuilder}
- CLSID_CaptureGraphBuilder2: TGUID = (D1:$BF87B6E1;D2:$8C27;D3:$11d0;D4:($B3,$F0,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM CLSID_CaptureGraphBuilder2}
- CLSID_ProtoFilterGraph: TGUID = (D1:$E436EBB0;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_ProtoFilterGraph}
- CLSID_SystemClock: TGUID = (D1:$E436EBB1;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_SystemClock}
- CLSID_FilterMapper: TGUID = (D1:$E436EBB2;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_FilterMapper}
- CLSID_FilterGraph: TGUID = (D1:$E436EBB3;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_FilterGraph}
- CLSID_FilterGraphNoThread: TGUID = (D1:$E436EBB8;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_FilterGraphNoThread}
- CLSID_MPEG1Doc: TGUID = (D1:$E4BBD160;D2:$4269;D3:$11CE;D4:($83,$8D,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_MPEG1Doc}
- CLSID_FileSource: TGUID = (D1:$701722E0;D2:$8AE3;D3:$11CE;D4:($A8,$5C,$00,$AA,$00,$2F,$EA,$B5));
- {$EXTERNALSYM CLSID_FileSource}
- CLSID_MPEG1PacketPlayer: TGUID = (D1:$26C25940;D2:$4CA9;D3:$11CE;D4:($A8,$28,$00,$AA,$00,$2F,$EA,$B5));
- {$EXTERNALSYM CLSID_MPEG1PacketPlayer}
- CLSID_MPEG1Splitter: TGUID = (D1:$336475D0;D2:$942A;D3:$11CE;D4:($A8,$70,$00,$AA,$00,$2F,$EA,$B5));
- {$EXTERNALSYM CLSID_MPEG1Splitter}
- CLSID_CMpegVideoCodec: TGUID = (D1:$FEB50740;D2:$7BEF;D3:$11CE;D4:($9B,$D9,$00,$00,$E2,$02,$59,$9C));
- {$EXTERNALSYM CLSID_CMpegVideoCodec}
- CLSID_CMpegAudioCodec: TGUID = (D1:$4A2286E0;D2:$7BEF;D3:$11CE;D4:($9B,$D9,$00,$00,$E2,$02,$59,$9C));
- {$EXTERNALSYM CLSID_CMpegAudioCodec}
- CLSID_TextRender: TGUID = (D1:$E30629D3;D2:$27E5;D3:$11CE;D4:($87,$5D,$00,$60,$8C,$B7,$80,$66));
- {$EXTERNALSYM CLSID_TextRender}
- CLSID_InfTee: TGUID = (D1:$F8388A40;D2:$D5BB;D3:$11D0;D4:($BE,$5A,$00,$80,$C7,$06,$56,$8E));
- {$EXTERNALSYM CLSID_InfTee}
- CLSID_AviSplitter: TGUID = (D1:$1B544C20;D2:$FD0B;D3:$11CE;D4:($8C,$63,$00,$AA,$00,$44,$B5,$1E));
- {$EXTERNALSYM CLSID_AviSplitter}
- CLSID_AviReader: TGUID = (D1:$1B544C21;D2:$FD0B;D3:$11CE;D4:($8C,$63,$00,$AA,$00,$44,$B5,$1E));
- {$EXTERNALSYM CLSID_AviReader}
- CLSID_VfwCapture: TGUID = (D1:$1B544C22;D2:$FD0B;D3:$11CE;D4:($8C,$63,$00,$AA,$00,$44,$B5,$1E));
- {$EXTERNALSYM CLSID_VfwCapture}
- CLSID_CaptureProperties: TGUID = (D1:$1B544C22;D2:$FD0B;D3:$11CE;D4:($8C,$63,$00,$AA,$00,$44,$B5,$1F));
- {$EXTERNALSYM CLSID_CaptureProperties}
- CLSID_FGControl: TGUID = (D1:$E436EBB4;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_FGControl}
- CLSID_MOVReader: TGUID = (D1:$44584800;D2:$F8EE;D3:$11CE;D4:($B2,$D4,$00,$DD,$01,$10,$1B,$85));
- {$EXTERNALSYM CLSID_MOVReader}
- CLSID_QuickTimeParser: TGUID = (D1:$d51bd5a0;D2:$7548;D3:$11cf;D4:($a5,$20,$00,$80,$c7,$7e,$f5,$8a));
- {$EXTERNALSYM CLSID_QuickTimeParser}
- CLSID_QTDec: TGUID = (D1:$fdfe9681;D2:$74a3;D3:$11d0;D4:($af,$a7,$00,$aa,$00,$b6,$7a,$42));
- {$EXTERNALSYM CLSID_QTDec}
- CLSID_AVIDoc: TGUID = (D1:$D3588AB0;D2:$0781;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_AVIDoc}
- //---dxmedia
- CLSID_AVIDocWriter: TGUID = (D1:$D3588AB1;D2:$0781;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_AVIDocWriter}
- //---
- CLSID_VideoRenderer: TGUID = (D1:$70E102B0;D2:$5556;D3:$11CE;D4:($97,$C0,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_VideoRenderer}
- CLSID_Colour: TGUID = (D1:$1643E180;D2:$90F5;D3:$11CE;D4:($97,$D5,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_Colour}
- CLSID_Dither: TGUID = (D1:$1DA08500;D2:$9EDC;D3:$11CF;D4:($BC,$10,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM CLSID_Dither}
- CLSID_ModexRenderer: TGUID = (D1:$07167665;D2:$5011;D3:$11CF;D4:($BF,$33,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_ModexRenderer}
- CLSID_AudioRender: TGUID = (D1:$E30629D1;D2:$27E5;D3:$11CE;D4:($87,$5D,$00,$60,$8C,$B7,$80,$66));
- {$EXTERNALSYM CLSID_AudioRender}
- CLSID_AudioProperties: TGUID = (D1:$05589FAF;D2:$C356;D3:$11CE;D4:($BF,$01,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_AudioProperties}
- CLSID_DSoundRender: TGUID = (D1:$79376820;D2:$07D0;D3:$11CF;D4:($A2,$4D,$00,$20,$AF,$D7,$97,$67));
- {$EXTERNALSYM CLSID_DSoundRender}
- CLSID_AudioRecord: TGUID = (D1:$E30629D2;D2:$27E5;D3:$11CE;D4:($87,$5D,$00,$60,$8C,$B7,$80,$66));
- {$EXTERNALSYM CLSID_AudioRecord}
- CLSID_AudioInputMixerProperties: TGUID = (D1:$2ca8ca52;D2:$3c3f;D3:$11d2;D4:($b7,$3d,$00,$c0,$4f,$b6,$bd,$3d));
- {$EXTERNALSYM CLSID_AudioInputMixerProperties}
- CLSID_AVIDec: TGUID = (D1:$CF49D4E0;D2:$1115;D3:$11CE;D4:($B0,$3A,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_AVIDec}
- CLSID_AVIDraw: TGUID = (D1:$a888df60;D2:$1e90;D3:$11cf;D4:($ac,$98,$00,$aa,$00,$4c,$f,$a9));
- {$EXTERNALSYM CLSID_AVIDraw}
- CLSID_ACMWrapper: TGUID = (D1:$6A08CF80;D2:$0E18;D3:$11CF;D4:($A2,$4D,$00,$20,$AF,$D7,$97,$67));
- {$EXTERNALSYM CLSID_ACMWrapper}
- CLSID_AsyncReader: TGUID = (D1:$E436EBB5;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_AsyncReader}
- CLSID_URLReader: TGUID = (D1:$E436EBB6;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_URLReader}
- CLSID_PersistMonikerPID: TGUID = (D1:$E436EBB7;D2:$524F;D3:$11CE;D4:($9F,$53,$00,$20,$AF,$0B,$A7,$70));
- {$EXTERNALSYM CLSID_PersistMonikerPID}
- CLSID_AMovie: TGUID = (D1:$5F2759C0;D2:$7685;D3:$11CF;D4:($8B,$23,$00,$80,$5F,$6C,$EF,$60));
- {$EXTERNALSYM CLSID_AMovie}
- CLSID_AVICo: TGUID = (D1:$D76E2820;D2:$1563;D3:$11CF;D4:($AC,$98,$00,$AA,$00,$4C,$0F,$A9));
- {$EXTERNALSYM CLSID_AVICo}
- CLSID_FileWriter: TGUID = (D1:$8596E5F0;D2:$0DA5;D3:$11D0;D4:($BD,$21,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_FileWriter}
- CLSID_AviDest: TGUID = (D1:$E2510970;D2:$F137;D3:$11CE;D4:($8B,$67,$00,$AA,$00,$A3,$F1,$A6));
- {$EXTERNALSYM CLSID_AviDest}
- CLSID_AviMuxProptyPage: TGUID = (D1:$C647B5C0;D2:$157C;D3:$11D0;D4:($BD,$23,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_AviMuxProptyPage}
- CLSID_AviMuxProptyPage1: TGUID = (D1:$0A9AE910;D2:$85C0;D3:$11D0;D4:($BD,$42,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_AviMuxProptyPage1}
- CLSID_AVIMIDIRender: TGUID = (D1:$07B65360;D2:$C445;D3:$11CE;D4:($AF,$DE,$00,$AA,$00,$6C,$14,$F4));
- {$EXTERNALSYM CLSID_AVIMIDIRender}
- CLSID_WMAsfReader: TGUID = (D1:$187463a0;D2:$5bb7;D3:$11d3;D4:($ac,$be,$00,$80,$c7,$5e,$24,$6e));
- {$EXTERNALSYM CLSID_WMAsfReader}
- CLSID_WMAsfWriter: TGUID = (D1:$7c23220e;D2:$55bb;D3:$11d3;D4:($8b,$16,$00,$c0,$4f,$b6,$bd,$3d));
- {$EXTERNALSYM CLSID_WMAsfWriter}
- CLSID_MPEG2Demultiplexer: TGUID = (D1:$afb6c280;D2:$2c41;D3:$11d3;D4:($8a,$60,$00,$00,$f8,$1e,$0e,$4a));
- {$EXTERNALSYM CLSID_MPEG2Demultiplexer}
- CLSID_MMSPLITTER: TGUID = (D1:$3ae86b20;D2:$7be8;D3:$11d1;D4:($ab,$e6,$00,$a0,$c9,$05,$f3,$75));
- {$EXTERNALSYM CLSID_MMSPLITTER}
- CLSID_StreamBufferSink : TGUID = '{2DB47AE5-CF39-43c2-B4D6-0CD8D90946F4}';
- {$EXTERNALSYM CLSID_StreamBufferSink}
- CLSID_StreamBufferSource : TGUID = '{C9F5FE02-F851-4eb5-99EE-AD602AF1E619}';
- {$EXTERNALSYM CLSID_StreamBufferSource}
- CLSID_StreamBufferConfig : TGUID = '{FA8A68B2-C864-4ba2-AD53-D3876A87494B}';
- {$EXTERNALSYM CLSID_StreamBufferConfig}
- CLSID_Mpeg2VideoStreamAnalyzer : TGUID = '{6CFAD761-735D-4aa5-8AFC-AF91A7D61EBA}';
- {$EXTERNALSYM CLSID_Mpeg2VideoStreamAnalyzer}
- CLSID_StreamBufferRecordingAttributes : TGUID = '{CCAA63AC-1057-4778-AE92-1206AB9ACEE6}';
- {$EXTERNALSYM CLSID_StreamBufferRecordingAttributes}
- CLSID_StreamBufferComposeRecording : TGUID = '{D682C4BA-A90A-42fe-B9E1-03109849C423}';
- {$EXTERNALSYM CLSID_StreamBufferComposeRecording}
- CLSID_DVVideoCodec: TGUID = (D1:$B1B77C00;D2:$C3E4;D3:$11CF;D4:($AF,$79,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVVideoCodec}
- CLSID_DVVideoEnc: TGUID = (D1:$13AA3650;D2:$BB6F;D3:$11D0;D4:($AF,$B9,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVVideoEnc}
- CLSID_DVSplitter: TGUID = (D1:$4EB31670;D2:$9FC6;D3:$11CF;D4:($AF,$6E,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVSplitter}
- CLSID_DVMux: TGUID = (D1:$129D7E40;D2:$C10D;D3:$11D0;D4:($AF,$B9,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVMux}
- CLSID_SeekingPassThru: TGUID = (D1:$060AF76C;D2:$68DD;D3:$11D0;D4:($8F,$C1,$00,$C0,$4F,$D9,$18,$9D));
- {$EXTERNALSYM CLSID_SeekingPassThru}
- CLSID_Line21Decoder : TGUID = (D1:$6E8D4A20;D2:$310C;D3:$11D0;D4:($B7,$9A,$00,$AA,$00,$37,$67,$A7));
- {$EXTERNALSYM CLSID_Line21Decoder}
- CLSID_Line21Decoder2 : TGUID = '{E4206432-01A1-4BEE-B3E1-3702C8EDC574}'; //Line21 (CC) Decoder v2
- {$EXTERNALSYM CLSID_Line21Decoder2}
- CLSID_OverlayMixer: TGUID = (D1:$CD8743A1;D2:$3736;D3:$11D0;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM CLSID_OverlayMixer}
- CLSID_OverlayMixer2: TGUID = '{A0025E90-E45B-11D1-ABE9-00A0C905F375}'; //Overlay Mixer v2
- {$EXTERNALSYM CLSID_OverlayMixer2}
- CLSID_VBISurfaces: TGUID = (D1:$814B9800;D2:$1C88;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM CLSID_VBISurfaces}
- CLSID_WSTDecoder : TGUID = '{70BC06E0-5666-11d3-A184-00105AEF9F33}'; //WST Teletext Decoder
- {$EXTERNALSYM CLSID_WSTDecoder}
- CLSID_MjpegDec : TGUID = '{301056D0-6DFF-11d2-9EEB-006008039E37}';
- {$EXTERNALSYM CLSID_MjpegDec}
- CLSID_MJPGEnc : TGUID = '{B80AB0A0-7416-11d2-9EEB-006008039E37}';
- {$EXTERNALSYM CLSID_MJPGEnc}
- // pnp objects and categories
- CLSID_SystemDeviceEnum: TGUID = (D1:$62BE5D10;D2:$60EB;D3:$11D0;D4:($BD,$3B,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_SystemDeviceEnum}
- CLSID_CDeviceMoniker: TGUID = (D1:$4315D437;D2:$5B8C;D3:$11D0;D4:($BD,$3B,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CDeviceMoniker}
- CLSID_VideoInputDeviceCategory: TGUID = (D1:$860BB310;D2:$5D01;D3:$11D0;D4:($BD,$3B,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_VideoInputDeviceCategory}
- CLSID_CVidCapClassManager: TGUID = (D1:$860BB310;D2:$5D01;D3:$11D0;D4:($BD,$3B,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CVidCapClassManager}
- CLSID_LegacyAmFilterCategory: TGUID = (D1:$083863F1;D2:$70DE;D3:$11D0;D4:($BD,$40,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_LegacyAmFilterCategory}
- CLSID_CQzFilterClassManager: TGUID = (D1:$083863F1;D2:$70DE;D3:$11D0;D4:($BD,$40,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CQzFilterClassManager}
- CLSID_VideoCompressorCategory: TGUID = (D1:$33D9A760;D2:$90C8;D3:$11D0;D4:($BD,$43,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_VideoCompressorCategory}
- CLSID_CIcmCoClassManager: TGUID = (D1:$33D9A760;D2:$90C8;D3:$11D0;D4:($BD,$43,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CIcmCoClassManager}
- CLSID_AudioCompressorCategory: TGUID = (D1:$33D9A761;D2:$90C8;D3:$11D0;D4:($BD,$43,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_AudioCompressorCategory}
- CLSID_CAcmCoClassManager: TGUID = (D1:$33D9A761;D2:$90C8;D3:$11D0;D4:($BD,$43,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CAcmCoClassManager}
- CLSID_AudioInputDeviceCategory: TGUID = (D1:$33D9A762;D2:$90C8;D3:$11D0;D4:($BD,$43,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_AudioInputDeviceCategory}
- CLSID_CWaveinClassManager: TGUID = (D1:$33D9A762;D2:$90C8;D3:$11D0;D4:($BD,$43,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CWaveinClassManager}
- CLSID_AudioRendererCategory: TGUID = (D1:$E0F158E1;D2:$CB04;D3:$11D0;D4:($BD,$4E,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_AudioRendererCategory}
- CLSID_CWaveOutClassManager: TGUID = (D1:$E0F158E1;D2:$CB04;D3:$11D0;D4:($BD,$4E,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_CWaveOutClassManager}
- CLSID_MidiRendererCategory: TGUID = (D1:$4EFE2452;D2:$168A;D3:$11D1;D4:($BC,$76,$00,$C0,$4F,$B9,$45,$3B));
- {$EXTERNALSYM CLSID_MidiRendererCategory}
- CLSID_CMidiOutClassManager: TGUID = (D1:$4EFE2452;D2:$168A;D3:$11D1;D4:($BC,$76,$00,$C0,$4F,$B9,$45,$3B));
- {$EXTERNALSYM CLSID_CMidiOutClassManager}
- CLSID_TransmitCategory: TGUID = (D1:$cc7bfb41;D2:$f175;D3:$11d1;D4:($a3,$92,$00,$e0,$29,$1f,$39,$59));
- {$EXTERNALSYM CLSID_TransmitCategory}
- CLSID_DeviceControlCategory: TGUID = (D1:$cc7bfb46;D2:$f175;D3:$11d1;D4:($a3,$92,$00,$e0,$29,$1f,$39,$59));
- {$EXTERNALSYM CLSID_DeviceControlCategory}
- CLSID_ActiveMovieCategories: TGUID = (D1:$DA4E3DA0;D2:$D07D;D3:$11D0;D4:($BD,$50,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_ActiveMovieCategories}
- CLSID_DVDHWDecodersCategory: TGUID = (D1:$2721AE20;D2:$7E70;D3:$11D0;D4:($A5,$D6,$28,$DB,$04,$C1,$00,$00));
- {$EXTERNALSYM CLSID_DVDHWDecodersCategory}
- CLSID_MediaEncoderCategory : TGUID = '{7D22E920-5CA9-4787-8C2B-A6779BD11781}'; // Encoder API encoder category
- {$EXTERNALSYM CLSID_MediaEncoderCategory}
- CLSID_MediaMultiplexerCategory : TGUID = '{236C9559-ADCE-4736-BF72-BAB34E392196}'; // Encoder API multiplexer category
- {$EXTERNALSYM CLSID_MediaMultiplexerCategory}
- CLSID_FilterMapper2: TGUID = (D1:$CDA42200;D2:$BD88;D3:$11D0;D4:($BD,$4E,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_FilterMapper2}
- CLSID_MemoryAllocator: TGUID = (D1:$1E651CC0;D2:$B199;D3:$11D0;D4:($82,$12,$00,$C0,$4F,$C3,$2C,$45));
- {$EXTERNALSYM CLSID_MemoryAllocator}
- CLSID_MediaPropertyBag: TGUID = (D1:$CDBD8D00;D2:$C193;D3:$11D0;D4:($BD,$4E,$00,$A0,$C9,$11,$CE,$86));
- {$EXTERNALSYM CLSID_MediaPropertyBag}
- CLSID_DvdGraphBuilder: TGUID = (D1:$FCC152B7;D2:$F372;D3:$11D0;D4:($8E,$00,$00,$C0,$4F,$D7,$C0,$8B));
- {$EXTERNALSYM CLSID_DvdGraphBuilder}
- CLSID_DVDNavigator: TGUID = (D1:$9B8C4620;D2:$2C1A;D3:$11D0;D4:($84,$93,$00,$A0,$24,$38,$AD,$48));
- {$EXTERNALSYM CLSID_DVDNavigator}
- CLSID_DVDState: TGUID = (D1:$f963c5cf;D2:$a659;D3:$4a93;D4:($96,$38,$ca,$f3,$cd,$27,$7d,$13));
- {$EXTERNALSYM CLSID_DVDState}
- CLSID_SmartTee: TGUID = (D1:$cc58e280;D2:$8aa1;D3:$11d1;D4:($b3,$f1,$00,$aa,$00,$37,$61,$c5));
- {$EXTERNALSYM CLSID_SmartTee}
- // -- format types ---
- FORMAT_None: TGUID = (D1:$0F6417D6;D2:$C318;D3:$11D0;D4:($A4,$3F,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM FORMAT_None}
- FORMAT_VideoInfo: TGUID = (D1:$05589F80;D2:$C356;D3:$11CE;D4:($BF,$01,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM FORMAT_VideoInfo}
- FORMAT_VideoInfo2: TGUID = (D1:$F72A76A0;D2:$EB0A;D3:$11D0;D4:($AC,$E4,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM FORMAT_VideoInfo2}
- FORMAT_WaveFormatEx: TGUID = (D1:$05589F81;D2:$C356;D3:$11CE;D4:($BF,$01,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM FORMAT_WaveFormatEx}
- FORMAT_MPEGVideo: TGUID = (D1:$05589F82;D2:$C356;D3:$11CE;D4:($BF,$01,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM FORMAT_MPEGVideo}
- FORMAT_MPEGStreams: TGUID = (D1:$05589F83;D2:$C356;D3:$11CE;D4:($BF,$01,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM FORMAT_MPEGStreams}
- FORMAT_DvInfo: TGUID = (D1:$05589F84;D2:$C356;D3:$11CE;D4:($BF,$01,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM FORMAT_DvInfo}
- // -- Video related GUIDs ---
- CLSID_DirectDrawProperties: TGUID = (D1:$944D4C00;D2:$DD52;D3:$11CE;D4:($BF,$0E,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_DirectDrawProperties}
- CLSID_PerformanceProperties: TGUID = (D1:$59CE6880;D2:$ACF8;D3:$11CF;D4:($B5,$6E,$00,$80,$C7,$C4,$B6,$8A));
- {$EXTERNALSYM CLSID_PerformanceProperties}
- CLSID_QualityProperties: TGUID = (D1:$418AFB70;D2:$F8B8;D3:$11CE;D4:($AA,$C6,$00,$20,$AF,$0B,$99,$A3));
- {$EXTERNALSYM CLSID_QualityProperties}
- CLSID_VPObject: TGUID = (D1:$CE292861;D2:$FC88;D3:$11D0;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM CLSID_VPObject}
- IID_IVPObject: TGUID = (D1:$CE292862;D2:$FC88;D3:$11D0;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM IID_IVPObject}
- IID_IVPControl: TGUID = (D1:$25DF12C1;D2:$3DE0;D3:$11D1;D4:($9E,$69,$00,$C0,$4F,$D7,$C1,$5B));
- {$EXTERNALSYM IID_IVPControl}
- CLSID_VPVBIObject: TGUID = (D1:$814B9801;D2:$1C88;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM CLSID_VPVBIObject}
- IID_IVPVBIObject: TGUID = (D1:$814B9802;D2:$1C88;D3:$11D1;D4:($BA,$D9,$00,$60,$97,$44,$11,$1A));
- {$EXTERNALSYM IID_IVPVBIObject}
- CLSID_ModexProperties: TGUID = (D1:$0618AA30;D2:$6BC4;D3:$11CF;D4:($BF,$36,$00,$AA,$00,$55,$59,$5A));
- {$EXTERNALSYM CLSID_ModexProperties}
- // DV decoder property
- CLSID_DVDecPropertiesPage: TGUID = (D1:$101193C0;D2:$0BFE;D3:$11D0;D4:($AF,$91,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVDecPropertiesPage}
- // DV encoder property
- CLSID_DVEncPropertiesPage: TGUID = (D1:$4150F050;D2:$BB6F;D3:$11D0;D4:($AF,$B9,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVEncPropertiesPage}
- // DV Muxer property
- CLSID_DVMuxPropertyPage: TGUID = (D1:$4DB880E0;D2:$C10D;D3:$11D0;D4:($AF,$B9,$00,$AA,$00,$B6,$7A,$42));
- {$EXTERNALSYM CLSID_DVMuxPropertyPage}
- // -- Analog video related GUIDs ---
- // -- format types ---
- FORMAT_AnalogVideo : TGUID = (D1:$0482DDE0;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM FORMAT_AnalogVideo}
- MEDIATYPE_AnalogAudio : TGUID = '{0482DEE1-7817-11cf-8a03-00aa006ecb65}';
- {$EXTERNALSYM MEDIATYPE_AnalogAudio}
- MEDIATYPE_AnalogVideo : TGUID = (D1:$0482DDE1;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIATYPE_AnalogVideo}
- MEDIASUBTYPE_AnalogVideo_NTSC_M: TGUID = (D1:$0482DDE2;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_NTSC_M}
- MEDIASUBTYPE_AnalogVideo_PAL_B: TGUID = (D1:$0482DDE5;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_B}
- MEDIASUBTYPE_AnalogVideo_PAL_D: TGUID = (D1:$0482DDE6;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_D}
- MEDIASUBTYPE_AnalogVideo_PAL_G: TGUID = (D1:$0482DDE7;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_G}
- MEDIASUBTYPE_AnalogVideo_PAL_H: TGUID = (D1:$0482DDE8;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_H}
- MEDIASUBTYPE_AnalogVideo_PAL_I: TGUID = (D1:$0482DDE9;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_I}
- MEDIASUBTYPE_AnalogVideo_PAL_M: TGUID = (D1:$0482DDEA;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_M}
- MEDIASUBTYPE_AnalogVideo_PAL_N : TGUID = (D1:$0482DDEB;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_N}
- MEDIASUBTYPE_AnalogVideo_PAL_N_COMBO: TGUID = (D1:$482ddec;D2:$7817;D3:$11cf;D4:($8a,$3,$00,$aa,$00,$6e,$cb,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_PAL_N_COMBO}
- // -- Analog Video subtypes, SECAM
- MEDIASUBTYPE_AnalogVideo_SECAM_B: TGUID = (D1:$0482DDF0;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_B}
- MEDIASUBTYPE_AnalogVideo_SECAM_D: TGUID = (D1:$0482DDF1;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_D}
- MEDIASUBTYPE_AnalogVideo_SECAM_G: TGUID = (D1:$0482DDF2;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_G}
- MEDIASUBTYPE_AnalogVideo_SECAM_H: TGUID = (D1:$0482DDF3;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_H}
- MEDIASUBTYPE_AnalogVideo_SECAM_K: TGUID = (D1:$0482DDF4;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_K}
- MEDIASUBTYPE_AnalogVideo_SECAM_K1: TGUID = (D1:$0482DDF5;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_K1}
- MEDIASUBTYPE_AnalogVideo_SECAM_L: TGUID = (D1:$0482DDF6;D2:$7817;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM MEDIASUBTYPE_AnalogVideo_SECAM_L}
- // -- Well known time format GUIDs ---
- TIME_FORMAT_NONE: TGUID = (D1:$00000000;D2:$0000;D3:$0000;D4:($00,$00,$00,$00,$00,$00,$00,$00));
- {$EXTERNALSYM TIME_FORMAT_NONE}
- TIME_FORMAT_FRAME: TGUID = (D1:$7B785570;D2:$8C82;D3:$11CF;D4:($BC,$0C,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM TIME_FORMAT_FRAME}
- TIME_FORMAT_BYTE: TGUID = (D1:$7B785571;D2:$8C82;D3:$11CF;D4:($BC,$0C,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM TIME_FORMAT_BYTE}
- TIME_FORMAT_SAMPLE: TGUID = (D1:$7B785572;D2:$8C82;D3:$11CF;D4:($BC,$0C,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM TIME_FORMAT_SAMPLE}
- TIME_FORMAT_FIELD: TGUID = (D1:$7B785573;D2:$8C82;D3:$11CF;D4:($BC,$0C,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM TIME_FORMAT_FIELD}
- TIME_FORMAT_MEDIA_TIME: TGUID = (D1:$7B785574;D2:$8C82;D3:$11CF;D4:($BC,$0C,$00,$AA,$00,$AC,$74,$F6));
- {$EXTERNALSYM TIME_FORMAT_MEDIA_TIME}
- // for IKsPropertySet
- AMPROPSETID_Pin: TGUID = (D1:$9B00F101;D2:$1567;D3:$11D1;D4:($B3,$F1,$00,$AA,$00,$37,$61,$C5));
- {$EXTERNALSYM AMPROPSETID_Pin}
- PIN_CATEGORY_CAPTURE: TGUID = (D1:$FB6C4281;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_CAPTURE}
- PIN_CATEGORY_PREVIEW: TGUID = (D1:$FB6C4282;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_PREVIEW}
- PIN_CATEGORY_ANALOGVIDEOIN: TGUID = (D1:$FB6C4283;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_ANALOGVIDEOIN}
- PIN_CATEGORY_VBI: TGUID = (D1:$FB6C4284;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_VBI}
- PIN_CATEGORY_VIDEOPORT: TGUID = (D1:$FB6C4285;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_VIDEOPORT}
- PIN_CATEGORY_NABTS: TGUID = (D1:$FB6C4286;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_NABTS}
- PIN_CATEGORY_EDS: TGUID = (D1:$FB6C4287;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_EDS}
- PIN_CATEGORY_TELETEXT: TGUID = (D1:$FB6C4288;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_TELETEXT}
- PIN_CATEGORY_CC: TGUID = (D1:$FB6C4289;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_CC}
- PIN_CATEGORY_STILL: TGUID = (D1:$FB6C428A;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_STILL}
- PIN_CATEGORY_TIMECODE: TGUID = (D1:$FB6C428B;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_TIMECODE}
- PIN_CATEGORY_VIDEOPORT_VBI: TGUID = (D1:$FB6C428C;D2:$0353;D3:$11D1;D4:($90,$5F,$00,$00,$C0,$CC,$16,$BA));
- {$EXTERNALSYM PIN_CATEGORY_VIDEOPORT_VBI}
- // the following special GUIDS are used by ICaptureGraphBuilder::FindInterface
- LOOK_UPSTREAM_ONLY: TGUID = (D1:$ac798be0;D2:$98e3;D3:$11d1;D4:($b3,$f1,$0,$aa,$0,$37,$61,$c5));
- {$EXTERNALSYM LOOK_UPSTREAM_ONLY}
- LOOK_DOWNSTREAM_ONLY: TGUID = (D1:$ac798be1;D2:$98e3;D3:$11d1;D4:($b3,$f1,$0,$aa,$0,$37,$61,$c5));
- {$EXTERNALSYM LOOK_DOWNSTREAM_ONLY}
- // -------------------------------------------------------------------------
- // KSProxy GUIDS
- // -------------------------------------------------------------------------
- CLSID_TVTunerFilterPropertyPage: TGUID = (D1:$266EEE41;D2:$6C63;D3:$11CF;D4:($8A,$03,$00,$AA,$00,$6E,$CB,$65));
- {$EXTERNALSYM CLSID_TVTunerFilterPropertyPage}
- CLSID_CrossbarFilterPropertyPage: TGUID = (D1:$71F96461;D2:$78F3;D3:$11D0;D4:($A1,$8C,$00,$A0,$C9,$11,$89,$56));
- {$EXTERNALSYM CLSID_CrossbarFilterPropertyPage}
- CLSID_TVAudioFilterPropertyPage: TGUID = (D1:$71F96463;D2:$78F3;D3:$11D0;D4:($A1,$8C,$00,$A0,$C9,$11,$89,$56));
- {$EXTERNALSYM CLSID_TVAudioFilterPropertyPage}
- CLSID_VideoProcAmpPropertyPage: TGUID = (D1:$71F96464;D2:$78F3;D3:$11D0;D4:($A1,$8C,$00,$A0,$C9,$11,$89,$56));
- {$EXTERNALSYM CLSID_VideoProcAmpPropertyPage}
- CLSID_CameraControlPropertyPage: TGUID = (D1:$71F96465;D2:$78F3;D3:$11D0;D4:($A1,$8C,$00,$A0,$C9,$11,$89,$56));
- {$EXTERNALSYM CLSID_CameraControlPropertyPage}
- CLSID_AnalogVideoDecoderPropertyPage: TGUID = (D1:$71F96466;D2:$78F3;D3:$11D0;D4:($A1,$8C,$00,$A0,$C9,$11,$89,$56));
- {$EXTERNALSYM CLSID_AnalogVideoDecoderPropertyPage}
- CLSID_VideoStreamConfigPropertyPage: TGUID = (D1:$71F96467;D2:$78F3;D3:$11D0;D4:($A1,$8C,$00,$A0,$C9,$11,$89,$56));
- {$EXTERNALSYM CLSID_VideoStreamConfigPropertyPage}
- CLSID_AudioRendererAdvancedProperties: TGUID = (D1:$37e92a92;D2:$d9aa;D3:$11d2;D4:($bf,$84,$8e,$f2,$b1,$55,$5a,$ed));
- {$EXTERNALSYM CLSID_AudioRendererAdvancedProperties}
- // -------------------------------------------------------------------------
- // VMRender GUIDS DX8
- // -------------------------------------------------------------------------
- CLSID_VideoMixingRenderer : TGUID = (D1:$B87BEB7B;D2:$8D29;D3:$423f;D4:($AE,$4D,$65,$82,$C1,$01,$75,$AC));
- {$EXTERNALSYM CLSID_VideoMixingRenderer}
- CLSID_VideoRendererDefault : TGUID = '{6BC1CFFA-8FC1-4261-AC22-CFB4CC38DB50}';
- {$EXTERNALSYM CLSID_VideoRendererDefault}
- CLSID_AllocPresenter : TGUID = '{99d54f63-1a69-41ae-aa4d-c976eb3f0713}';
- {$EXTERNALSYM CLSID_AllocPresenter}
- CLSID_AllocPresenterDDXclMode : TGUID = '{4444ac9e-242e-471b-a3c7-45dcd46352bc}';
- {$EXTERNALSYM CLSID_AllocPresenterDDXclMode}
- CLSID_VideoPortManager : TGUID = '{6f26a6cd-967b-47fd-874a-7aed2c9d25a2}';
- {$EXTERNALSYM CLSID_VideoPortManager}
- CLSID_ImageSynchronization : TGUID = '{7D8AA343-6E63-4663-BE90-6B80F66540A3}';
- {$EXTERNALSYM CLSID_ImageSynchronization}
- CLSID_VideoMixer : TGUID = '{06b32aee-77da-484b-973b-5d64f47201b0}';
- {$EXTERNALSYM CLSID_VideoMixer}
- // -------------------------------------------------------------------------
- // VMR GUIDS for DX9
- // -------------------------------------------------------------------------
- CLSID_VideoMixingRenderer9 : TGUID = '{51b4abf3-748f-4e3b-a276-c828330e926a}';
- {$EXTERNALSYM CLSID_VideoMixingRenderer9}
- CLSID_AllocPresenter9 : TGUID = '{2D2E24CB-0CD5-458F-86EA-3E6FA22C8E64}'; // Found in Registry, Should'nt be used directly
- {$EXTERNALSYM CLSID_AllocPresenter9}
- CLSID_ImageSynchronization9 : TGUID = '{E4979309-7A32-495E-8A92-7B014AAD4961}'; // Found in Registry
- {$EXTERNALSYM CLSID_ImageSynchronization9}
- // -------------------------------------------------------------------------
- // BDA Network Provider GUIDS
- // -------------------------------------------------------------------------
- CLSID_ATSCNetworkProvider : TGUID = (D1:$0dad2fdd;D2:$5fd7;D3:$11d3;D4:($8f,$50,$00,$c0,$4f,$79,$71,$e2));
- {$EXTERNALSYM CLSID_ATSCNetworkProvider}
- CLSID_ATSCNetworkPropertyPage: TGUID = (D1:$e3444d16;D2:$5ac4;D3:$4386;D4:($88,$df,$13,$fd,$23,$0e,$1d,$da));
- {$EXTERNALSYM CLSID_ATSCNetworkPropertyPage}
- CLSID_DVBSNetworkProvider : TGUID = (D1:$fa4b375a;D2:$45b4;D3:$4d45;D4:($84,$40,$26,$39,$57,$b1,$16,$23));
- {$EXTERNALSYM CLSID_DVBSNetworkProvider}
- CLSID_DVBTNetworkProvider : TGUID = '{216C62DF-6D7F-4e9a-8571-05F14EDB766A}';
- {$EXTERNALSYM CLSID_DVBTNetworkProvider}
- CLSID_DVBCNetworkProvider : TGUID = '{DC0C0FE7-0485-4266-B93F-68FBF80ED834}';
- {$EXTERNALSYM CLSID_DVBCNetworkProvider}
- // --- WST Decoder interface GUID ---
- IID_IAMWstDecoder : TGUID = '{C056DE21-75C2-11d3-A184-00105AEF9F33}'; // IID_IAMWstDecoder
- {$EXTERNALSYM IID_IAMWstDecoder}
- // --- WST Decoder Property Page ---
- CLSID_WstDecoderPropertyPage : TGUID = '{04E27F80-91E4-11d3-A184-00105AEF9F33}'; // WST Decoder Property Page
- {$EXTERNALSYM CLSID_WstDecoderPropertyPage}
- // -------------------------------------------------------------------------
- // TVE Receiver filter guids
- // -------------------------------------------------------------------------
- // The CLSID used by the TVE Receiver filter
- CLSID_DShowTVEFilter : TGUID = '{05500280-FAA5-4DF9-8246-BFC23AC5CEA8}';
- {$EXTERNALSYM CLSID_DShowTVEFilter}
- CLSID_TVEFilterTuneProperties : TGUID = '{05500281-FAA5-4DF9-8246-BFC23AC5CEA8}';
- {$EXTERNALSYM CLSID_TVEFilterTuneProperties}
- CLSID_TVEFilterCCProperties : TGUID = '{05500282-FAA5-4DF9-8246-BFC23AC5CEA8}';
- {$EXTERNALSYM CLSID_TVEFilterCCProperties}
- CLSID_TVEFilterStatsProperties : TGUID = '{05500283-FAA5-4DF9-8246-BFC23AC5CEA8}';
- {$EXTERNALSYM CLSID_TVEFilterStatsProperties}
- // -------------------------------------------------------------------------
- // Defined ENCAPI parameter GUIDs
- // -------------------------------------------------------------------------
- // The CLSID for the original IVideoEncoder proxy plug-in
- CLSID_IVideoEncoderProxy : TGUID = '{B43C4EEC-8C32-4791-9102-508ADA5EE8E7}';
- {$EXTERNALSYM CLSID_IVideoEncoderProxy}
- // The CLSID for the ICodecAPI proxy plug-in
- CLSID_ICodecAPIProxy : TGUID = '{7ff0997a-1999-4286-a73c-622b8814e7eb}';
- {$EXTERNALSYM CLSID_ICodecAPIProxy}
- // The CLSID for the combination ICodecAPI/IVideoEncoder proxy plug-in
- CLSID_IVideoEncoderCodecAPIProxy : TGUID = '{b05dabd9-56e5-4fdc-afa4-8a47e91f1c9c}';
- {$EXTERNALSYM CLSID_IVideoEncoderCodecAPIProxy}
- ENCAPIPARAM_BITRATE : TGUID = '{49CC4C43-CA83-4ad4-A9AF-F3696AF666DF}';
- {$EXTERNALSYM ENCAPIPARAM_BITRATE}
- ENCAPIPARAM_PEAK_BITRATE : TGUID = '{703F16A9-3D48-44a1-B077-018DFF915D19}';
- {$EXTERNALSYM ENCAPIPARAM_PEAK_BITRATE}
- ENCAPIPARAM_BITRATE_MODE : TGUID = '{EE5FB25C-C713-40d1-9D58-C0D7241E250F}';
- {$EXTERNALSYM ENCAPIPARAM_BITRATE_MODE}
- // for kernel control
- CODECAPI_CHANGELISTS : TGUID = '{62b12acf-f6b0-47d9-9456-96f22c4e0b9d}';
- {$EXTERNALSYM CODECAPI_CHANGELISTS}
- CODECAPI_VIDEO_ENCODER : TGUID = '{7112e8e1-3d03-47ef-8e60-03f1cf537301}';
- {$EXTERNALSYM CODECAPI_VIDEO_ENCODER}
- CODECAPI_AUDIO_ENCODER : TGUID = '{b9d19a3e-f897-429c-bc46-8138b7272b2d}';
- {$EXTERNALSYM CODECAPI_AUDIO_ENCODER}
- CODECAPI_SETALLDEFAULTS : TGUID = '{6c5e6a7c-acf8-4f55-a999-1a628109051b}';
- {$EXTERNALSYM CODECAPI_SETALLDEFAULTS}
- CODECAPI_ALLSETTINGS : TGUID = '{6a577e92-83e1-4113-adc2-4fcec32f83a1}';
- {$EXTERNALSYM CODECAPI_ALLSETTINGS}
- CODECAPI_SUPPORTSEVENTS : TGUID = '{0581af97-7693-4dbd-9dca-3f9ebd6585a1}';
- {$EXTERNALSYM CODECAPI_SUPPORTSEVENTS}
- CODECAPI_CURRENTCHANGELIST : TGUID = '{1cb14e83-7d72-4657-83fd-47a2c5b9d13d}';
- {$EXTERNALSYM CODECAPI_CURRENTCHANGELIST}
- (*==========================================================================;
- *
- * Copyright (C) 1996-1997 Microsoft Corporation. All Rights Reserved.
- *
- * File: ksuuids.h
- *
- ***************************************************************************)
- // contains the GUIDs for the MediaType type, subtype fields and format types
- // for DVD/MPEG2 media types.
- const
- // --- MPEG 2 definitions ---
- MEDIATYPE_MPEG2_PACK: TGUID = (D1:$36523B13;D2:$8EE5;D3:$11d1;D4:($8C,$A3,$00,$60,$B0,$57,$66,$4A));
- {$EXTERNALSYM MEDIATYPE_MPEG2_PACK}
- MEDIATYPE_MPEG2_PES: TGUID = (D1:$e06d8020;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$5f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIATYPE_MPEG2_PES}
- MEDIATYPE_CONTROL: TGUID = (D1:$e06d8021;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$5f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIATYPE_CONTROL}
- MEDIASUBTYPE_MPEG2_VIDEO: TGUID = (D1:$e06d8026;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$5f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG2_VIDEO}
- MEDIATYPE_MPEG2_SECTIONS : TGUID = '{455f176c-4b06-47ce-9aef-8caef73df7b5}';
- {$EXTERNALSYM MEDIATYPE_MPEG2_SECTIONS}
- MEDIASUBTYPE_ATSC_SI : TGUID = '{b3c7397c-d303-414d-b33c-4ed2c9d29733}';
- {$EXTERNALSYM MEDIASUBTYPE_ATSC_SI}
- MEDIASUBTYPE_DVB_SI : TGUID = '{e9dd31a3-221d-4adb-8532-9af309c1a408}';
- {$EXTERNALSYM MEDIASUBTYPE_DVB_SI}
- MEDIASUBTYPE_MPEG2DATA : TGUID = '{C892E55B-252D-42b5-A316-D997E7A5D995}';
- {$EXTERNALSYM MEDIASUBTYPE_MPEG2DATA}
- // use MPEG2VIDEOINFO (defined below) with FORMAT_MPEG2_VIDEO
- FORMAT_MPEG2_VIDEO: TGUID = (D1:$e06d80e3;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$5f,$6c,$bb,$ea));
- {$EXTERNALSYM FORMAT_MPEG2_VIDEO}
- // MPEG2 Other subtypes
- MEDIASUBTYPE_MPEG2_PROGRAM: TGUID = (D1:$e06d8022;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$05f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG2_PROGRAM}
- MEDIASUBTYPE_MPEG2_TRANSPORT: TGUID = (D1:$e06d8023;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$05f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG2_TRANSPORT}
- MEDIASUBTYPE_MPEG2_AUDIO: TGUID = (D1:$E06D802B;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_MPEG2_AUDIO}
- MEDIASUBTYPE_DOLBY_AC3: TGUID = (D1:$E06D802C;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_DOLBY_AC3}
- MEDIASUBTYPE_DVD_SUBPICTURE: TGUID = (D1:$E06D802D;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_DVD_SUBPICTURE}
- MEDIASUBTYPE_DVD_LPCM_AUDIO: TGUID = (D1:$E06D8032;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_DVD_LPCM_AUDIO}
- MEDIASUBTYPE_DTS: TGUID = (D1:$e06d8033;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$5f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIASUBTYPE_DTS}
- MEDIASUBTYPE_SDDS: TGUID = (D1:$e06d8034;D2:$db46;D3:$11cf;D4:($b4,$d1,$00,$80,$5f,$6c,$bb,$ea));
- {$EXTERNALSYM MEDIASUBTYPE_SDDS}
- // DVD-related mediatypes
- MEDIATYPE_DVD_ENCRYPTED_PACK: TGUID = (D1:$ED0B916A;D2:$044D;D3:$11D1;D4:($AA,$78,$00,$C0,$004F,$C3,$1D,$60));
- {$EXTERNALSYM MEDIATYPE_DVD_ENCRYPTED_PACK}
- MEDIATYPE_DVD_NAVIGATION: TGUID = (D1:$E06D802E;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIATYPE_DVD_NAVIGATION}
- MEDIASUBTYPE_DVD_NAVIGATION_PCI: TGUID = (D1:$E06D802F;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_DVD_NAVIGATION_PCI}
- MEDIASUBTYPE_DVD_NAVIGATION_DSI: TGUID = (D1:$E06D8030;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_DVD_NAVIGATION_DSI}
- MEDIASUBTYPE_DVD_NAVIGATION_PROVIDER: TGUID = (D1:$E06D8031;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM MEDIASUBTYPE_DVD_NAVIGATION_PROVIDER}
- //
- // DVD - MPEG2/AC3-related Formats
- //
- FORMAT_MPEG2Video: TGUID = (D1:$E06D80E3;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM FORMAT_MPEG2Video}
- FORMAT_DolbyAC3: TGUID = (D1:$E06D80E4;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM FORMAT_DolbyAC3}
- FORMAT_MPEG2Audio: TGUID = (D1:$E06D80E5;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM FORMAT_MPEG2Audio}
- FORMAT_DVD_LPCMAudio: TGUID = (D1:$E06D80E6;D2:$DB46;D3:$11CF;D4:($B4,$D1,$00,$80,$005F,$6C,$BB,$EA));
- {$EXTERNALSYM FORMAT_DVD_LPCMAudio}
- //
- // KS Property Set Id (to communicate with the WDM Proxy filter) -- from
- // ksmedia.h of WDM DDK.
- //
- AM_KSPROPSETID_AC3: TGUID = (D1:$BFABE720;D2:$6E1F;D3:$11D0;D4:($BC,$F2,$44,$45,$53,$54,$00,$00));
- {$EXTERNALSYM AM_KSPROPSETID_AC3}
- AM_KSPROPSETID_DvdSubPic: TGUID = (D1:$AC390460;D2:$43AF;D3:$11D0;D4:($BD,$6A,$00,$35,$05,$C1,$03,$A9));
- {$EXTERNALSYM AM_KSPROPSETID_DvdSubPic}
- AM_KSPROPSETID_CopyProt: TGUID = (D1:$0E8A0A40;D2:$6AEF;D3:$11D0;D4:($9E,$D0,$00,$A0,$24,$CA,$19,$B3));
- {$EXTERNALSYM AM_KSPROPSETID_CopyProt}
- AM_KSPROPSETID_TSRateChange: TGUID = (D1:$A503C5C0;D2:$1D1D;D3:$11D1;D4:($AD,$80,$44,$45,$53,$54,$00,$00));
- {$EXTERNALSYM AM_KSPROPSETID_TSRateChange}
- AM_KSPROPSETID_DVD_RateChange: TGUID = (D1:$3577eb09;D2:$9582;D3:$477f;D4:($b2,$9c,$b0,$c4,$52,$a4,$ff,$9a));
- {$EXTERNALSYM AM_KSPROPSETID_DVD_RateChange}
- AM_KSPROPSETID_DvdKaraoke: TGUID = (D1:$ae4720ae;D2:$aa71;D3:$42d8;D4:($b8,$2a,$ff,$fd,$f5,$8b,$76,$fd));
- {$EXTERNALSYM AM_KSPROPSETID_DvdKaraoke}
- AM_KSPROPSETID_FrameStep: TGUID = (D1:$c830acbd;D2:$ab07;D3:$492f;D4:($88,$52,$45,$b6,$98,$7c,$29,$79));
- {$EXTERNALSYM AM_KSPROPSETID_FrameStep}
- //
- // KS categories from ks.h and ksmedia.h
- //
- //
- AM_KSCATEGORY_CAPTURE: TGUID = (D1:$65E8773D;D2:$8F56;D3:$11D0;D4:($A3,$B9,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM AM_KSCATEGORY_CAPTURE}
- AM_KSCATEGORY_RENDER: TGUID = (D1:$65E8773E;D2:$8F56;D3:$11D0;D4:($A3,$B9,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM AM_KSCATEGORY_RENDER}
- AM_KSCATEGORY_DATACOMPRESSOR: TGUID = (D1:$1E84C900;D2:$7E70;D3:$11D0;D4:($A5,$D6,$28,$DB,$04,$C1,$00,$00));
- {$EXTERNALSYM AM_KSCATEGORY_DATACOMPRESSOR}
- AM_KSCATEGORY_AUDIO: TGUID = (D1:$6994AD04;D2:$93EF;D3:$11D0;D4:($A3,$CC,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM AM_KSCATEGORY_AUDIO}
- AM_KSCATEGORY_VIDEO: TGUID = (D1:$6994AD05;D2:$93EF;D3:$11D0;D4:($A3,$CC,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM AM_KSCATEGORY_VIDEO}
- AM_KSCATEGORY_TVTUNER: TGUID = (D1:$A799A800;D2:$A46D;D3:$11D0;D4:($A1,$8C,$00,$A0,$24,$01,$DC,$D4));
- {$EXTERNALSYM AM_KSCATEGORY_TVTUNER}
- AM_KSCATEGORY_CROSSBAR: TGUID = (D1:$A799A801;D2:$A46D;D3:$11D0;D4:($A1,$8C,$00,$A0,$24,$01,$DC,$D4));
- {$EXTERNALSYM AM_KSCATEGORY_CROSSBAR}
- AM_KSCATEGORY_TVAUDIO: TGUID = (D1:$A799A802;D2:$A46D;D3:$11D0;D4:($A1,$8C,$00,$A0,$24,$01,$DC,$D4));
- {$EXTERNALSYM AM_KSCATEGORY_TVAUDIO}
- AM_KSCATEGORY_VBICODEC: TGUID = (D1:$07dad660;D2:$22f1;D3:$11d1;D4:($a9,$f4,$00,$c0,$4f,$bb,$de,$8f));
- {$EXTERNALSYM AM_KSCATEGORY_VBICODEC}
- AM_KSCATEGORY_SPLITTER: TGUID = (D1:$0A4252A0;D2:$7E70;D3:$11D0;D4:($A5,$D6,$28,$DB,$04,$C1,$00,$00));
- {$EXTERNALSYM AM_KSCATEGORY_SPLITTER}
- //
- // guids needed to support IKsPin interface
- //
- //
- IID_IKsInterfaceHandler: TGUID = (D1:$D3ABC7E0;D2:$9A61;D3:$11D0;D4:($A4,$0D,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsInterfaceHandler}
- STATIC_IID_IKsInterfaceHandler: TGUID = (D1:$D3ABC7E0;D2:$9A61;D3:$11D0;D4:($A4,$0D,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM STATIC_IID_IKsInterfaceHandler}
- IID_IKsDataTypeHandler: TGUID = (D1:$5FFBAA02;D2:$49A3;D3:$11D0;D4:($9F,$36,$00,$AA,$00,$A2,$16,$A1));
- {$EXTERNALSYM IID_IKsDataTypeHandler}
- STATIC_IID_IKsDataTypeHandler: TGUID = (D1:$5FFBAA02;D2:$49A3;D3:$11D0;D4:($9F,$36,$00,$AA,$00,$A2,$16,$A1));
- {$EXTERNALSYM STATIC_IID_IKsDataTypeHandler}
- IID_IKsPin: TGUID = (D1:$B61178D1;D2:$A2D9;D3:$11CF;D4:($9E,$53,$00,$AA,$00,$A2,$16,$A1));
- {$EXTERNALSYM IID_IKsPin}
- STATIC_IID_IKsPin: TGUID = (D1:$B61178D1;D2:$A2D9;D3:$11CF;D4:($9E,$53,$00,$AA,$00,$A2,$16,$A1));
- {$EXTERNALSYM STATIC_IID_IKsPin}
- IID_IKsControl: TGUID = (D1:$28F54685;D2:$06FD;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsControl}
- STATIC_IID_IKsControl : TGUID = (D1:$28F54685;D2:$06FD;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM STATIC_IID_IKsControl}
- IID_IKsPinFactory: TGUID = (D1:$CD5EBE6B;D2:$8B6E;D3:$11D1;D4:($8A,$E0,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsPinFactory}
- AM_INTERFACESETID_Standard: TGUID = (D1:$1A8766A0;D2:$62CE;D3:$11CF;D4:($A5,$D6,$28,$DB,$04,$C1,$00,$00));
- {$EXTERNALSYM AM_INTERFACESETID_Standard}
- //------------------------------------------------------------------------------
- // File: DXVA.h
- // Desc: DirectX Video Acceleration header file.
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- DXVA_ModeNone : TGUID = (D1:$1b81be00; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeNone}
- DXVA_ModeH261_A : TGUID = (D1:$1b81be01; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH261_A}
- DXVA_ModeH261_B : TGUID = (D1:$1b81be02; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH261_B}
- DXVA_ModeH263_A : TGUID = (D1:$1b81be03; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH263_A}
- DXVA_ModeH263_B : TGUID = (D1:$1b81be04; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH263_B}
- DXVA_ModeH263_C : TGUID = (D1:$1b81be05; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH263_C}
- DXVA_ModeH263_D : TGUID = (D1:$1b81be06; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH263_D}
- DXVA_ModeH263_E : TGUID = (D1:$1b81be07; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH263_E}
- DXVA_ModeH263_F : TGUID = (D1:$1b81be08; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeH263_F}
- DXVA_ModeMPEG1_A : TGUID = (D1:$1b81be09; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeMPEG1_A}
- DXVA_ModeMPEG2_A : TGUID = (D1:$1b81be0A; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeMPEG2_A}
- DXVA_ModeMPEG2_B : TGUID = (D1:$1b81be0B; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeMPEG2_B}
- DXVA_ModeMPEG2_C : TGUID = (D1:$1b81be0C; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeMPEG2_C}
- DXVA_ModeMPEG2_D : TGUID = (D1:$1b81be0D; D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeMPEG2_D}
- DXVA_ModeWMV8_A : TGUID = (D1:$1b81be80 ;D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeWMV8_A}
- DXVA_ModeWMV8_B : TGUID = (D1:$1b81be81 ;D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeWMV8_B}
- DXVA_ModeWMV9_A : TGUID = (D1:$1b81be90 ;D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeWMV9_A}
- DXVA_ModeWMV9_B : TGUID = (D1:$1b81be91 ;D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeWMV9_B}
- DXVA_ModeWMV9_Ai : TGUID = (D1:$1b81be92 ;D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeWMV9_Ai}
- DXVA_ModeWMV9_Bi : TGUID = (D1:$1b81be93 ;D2:$a0c7; D3:$11d3; D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_ModeWMV9_Bi}
- DXVA_NoEncrypt : TGUID = (D1:$1b81beD0;D2:$a0c7;D3:$11d3;D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- {$EXTERNALSYM DXVA_NoEncrypt}
- //DXVA_EncryptProt1 : TGUID = (D1:$1b81beD1;D2:$a0c7;D3:$11d3;D4:($b9,$84,$00,$c0,$4f,$2e,$73,$c5));
- DXVA_RESTRICTED_MODE_UNRESTRICTED = $FFFF;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_UNRESTRICTED}
- DXVA_RESTRICTED_MODE_H261_A = 1;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H261_A}
- DXVA_RESTRICTED_MODE_H261_B = 2;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H261_B}
- DXVA_RESTRICTED_MODE_H263_A = 3;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H263_A}
- DXVA_RESTRICTED_MODE_H263_B = 4;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H263_B}
- DXVA_RESTRICTED_MODE_H263_C = 5;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H263_C}
- DXVA_RESTRICTED_MODE_H263_D = 6;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H263_D}
- DXVA_RESTRICTED_MODE_H263_E = 7;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H263_E}
- DXVA_RESTRICTED_MODE_H263_F = 8;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_H263_F}
- DXVA_RESTRICTED_MODE_MPEG1_A = 9;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_MPEG1_A}
- DXVA_RESTRICTED_MODE_MPEG2_A = $A;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_MPEG2_A}
- DXVA_RESTRICTED_MODE_MPEG2_B = $B;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_MPEG2_B}
- DXVA_RESTRICTED_MODE_MPEG2_C = $C;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_MPEG2_C}
- DXVA_RESTRICTED_MODE_MPEG2_D = $D;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_MPEG2_D}
- DXVA_RESTRICTED_MODE_WMV8_A = $80;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_WMV8_A}
- DXVA_RESTRICTED_MODE_WMV8_B = $81;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_WMV8_B}
- DXVA_RESTRICTED_MODE_WMV9_A = $90;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_WMV9_A}
- DXVA_RESTRICTED_MODE_WMV9_B = $91;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_WMV9_B}
- DXVA_RESTRICTED_MODE_WMV9_Ai = $92;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_WMV9_Ai}
- DXVA_RESTRICTED_MODE_WMV9_Bi = $93;
- {$EXTERNALSYM DXVA_RESTRICTED_MODE_WMV9_Bi}
- DXVA_COMPBUFFER_TYPE_THAT_IS_NOT_USED = 0;
- {$EXTERNALSYM DXVA_COMPBUFFER_TYPE_THAT_IS_NOT_USED}
- DXVA_PICTURE_DECODE_BUFFER = 1;
- {$EXTERNALSYM DXVA_PICTURE_DECODE_BUFFER}
- DXVA_MACROBLOCK_CONTROL_BUFFER = 2;
- {$EXTERNALSYM DXVA_MACROBLOCK_CONTROL_BUFFER}
- DXVA_RESIDUAL_DIFFERENCE_BUFFER = 3;
- {$EXTERNALSYM DXVA_RESIDUAL_DIFFERENCE_BUFFER}
- DXVA_DEBLOCKING_CONTROL_BUFFER = 4;
- {$EXTERNALSYM DXVA_DEBLOCKING_CONTROL_BUFFER}
- DXVA_INVERSE_QUANTIZATION_MATRIX_BUFFER = 5;
- {$EXTERNALSYM DXVA_INVERSE_QUANTIZATION_MATRIX_BUFFER}
- DXVA_SLICE_CONTROL_BUFFER = 6;
- {$EXTERNALSYM DXVA_SLICE_CONTROL_BUFFER}
- DXVA_BITSTREAM_DATA_BUFFER = 7;
- {$EXTERNALSYM DXVA_BITSTREAM_DATA_BUFFER}
- DXVA_AYUV_BUFFER = 8;
- {$EXTERNALSYM DXVA_AYUV_BUFFER}
- DXVA_IA44_SURFACE_BUFFER = 9;
- {$EXTERNALSYM DXVA_IA44_SURFACE_BUFFER}
- DXVA_DPXD_SURFACE_BUFFER = 10;
- {$EXTERNALSYM DXVA_DPXD_SURFACE_BUFFER}
- DXVA_HIGHLIGHT_BUFFER = 11;
- {$EXTERNALSYM DXVA_HIGHLIGHT_BUFFER}
- DXVA_DCCMD_SURFACE_BUFFER = 12;
- {$EXTERNALSYM DXVA_DCCMD_SURFACE_BUFFER}
- DXVA_ALPHA_BLEND_COMBINATION_BUFFER = 13;
- {$EXTERNALSYM DXVA_ALPHA_BLEND_COMBINATION_BUFFER}
- DXVA_PICTURE_RESAMPLE_BUFFER = 14;
- {$EXTERNALSYM DXVA_PICTURE_RESAMPLE_BUFFER}
- DXVA_READ_BACK_BUFFER = 15;
- {$EXTERNALSYM DXVA_READ_BACK_BUFFER}
- DXVA_NUM_TYPES_COMP_BUFFERS = 16;
- {$EXTERNALSYM DXVA_NUM_TYPES_COMP_BUFFERS}
- // values for bDXVA_Func
- DXVA_PICTURE_DECODING_FUNCTION = 1;
- {$EXTERNALSYM DXVA_PICTURE_DECODING_FUNCTION}
- DXVA_ALPHA_BLEND_DATA_LOAD_FUNCTION = 2;
- {$EXTERNALSYM DXVA_ALPHA_BLEND_DATA_LOAD_FUNCTION}
- DXVA_ALPHA_BLEND_COMBINATION_FUNCTION = 3;
- {$EXTERNALSYM DXVA_ALPHA_BLEND_COMBINATION_FUNCTION}
- DXVA_PICTURE_RESAMPLE_FUNCTION = 4;
- {$EXTERNALSYM DXVA_PICTURE_RESAMPLE_FUNCTION}
- // values returned from Execute command in absence of read-back
- DXVA_EXECUTE_RETURN_OK = 0;
- {$EXTERNALSYM DXVA_EXECUTE_RETURN_OK}
- DXVA_EXECUTE_RETURN_DATA_ERROR_MINOR = 1;
- {$EXTERNALSYM DXVA_EXECUTE_RETURN_DATA_ERROR_MINOR}
- DXVA_EXECUTE_RETURN_DATA_ERROR_SIGNIF = 2;
- {$EXTERNALSYM DXVA_EXECUTE_RETURN_DATA_ERROR_SIGNIF}
- DXVA_EXECUTE_RETURN_DATA_ERROR_SEVERE = 3;
- {$EXTERNALSYM DXVA_EXECUTE_RETURN_DATA_ERROR_SEVERE}
- DXVA_EXECUTE_RETURN_OTHER_ERROR_SEVERE = 4;
- {$EXTERNALSYM DXVA_EXECUTE_RETURN_OTHER_ERROR_SEVERE}
- type
- PDXVAConnectMode = ^TDXVAConnectMode;
- _DXVA_ConnectMode = record
- guidMode : TGUID;
- wRestrictedMode : WORD;
- end;
- {$EXTERNALSYM _DXVA_ConnectMode}
- DXVA_ConnectMode = _DXVA_ConnectMode;
- {$EXTERNALSYM DXVA_ConnectMode}
- LPDXVA_ConnectMode = ^DXVA_ConnectMode;
- {$EXTERNALSYM LPDXVA_ConnectMode}
- TDXVAConnectMode = _DXVA_ConnectMode;
- DXVA_ConfigQueryOrReplyFunc = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD;
- {$EXTERNALSYM DXVA_ConfigQueryOrReplyFunc}
- LPDXVA_ConfigQueryOrReplyFunc = ^DXVA_ConfigQueryOrReplyFunc;
- {$EXTERNALSYM LPDXVA_ConfigQueryOrReplyFunc}
- const
- DXVA_QUERYORREPLYFUNCFLAG_DECODER_PROBE_QUERY = $FFFFF1;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_DECODER_PROBE_QUERY}
- DXVA_QUERYORREPLYFUNCFLAG_DECODER_LOCK_QUERY = $FFFFF5;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_DECODER_LOCK_QUERY}
- DXVA_QUERYORREPLYFUNCFLAG_ACCEL_PROBE_OK_COPY = $FFFFF8;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_ACCEL_PROBE_OK_COPY}
- DXVA_QUERYORREPLYFUNCFLAG_ACCEL_PROBE_OK_PLUS = $FFFFF9;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_ACCEL_PROBE_OK_PLUS}
- DXVA_QUERYORREPLYFUNCFLAG_ACCEL_LOCK_OK_COPY = $FFFFFC;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_ACCEL_LOCK_OK_COPY}
- DXVA_QUERYORREPLYFUNCFLAG_ACCEL_PROBE_FALSE_PLUS = $FFFFFB;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_ACCEL_PROBE_FALSE_PLUS}
- DXVA_QUERYORREPLYFUNCFLAG_ACCEL_LOCK_FALSE_PLUS = $FFFFFF;
- {$EXTERNALSYM DXVA_QUERYORREPLYFUNCFLAG_ACCEL_LOCK_FALSE_PLUS}
- {
- #define readDXVA_QueryOrReplyFuncFlag(ptr) ((*(ptr)) >> 8)
- #define readDXVA_QueryOrReplyFuncFlag_ACCEL(ptr) (((*(ptr)) >> 11) & 1)
- #define readDXVA_QueryOrReplyFuncFlag_LOCK(ptr) (((*(ptr)) >> 10) & 1)
- #define readDXVA_QueryOrReplyFuncFlag_BAD(ptr) (((*(ptr)) >> 9) & 1)
- #define readDXVA_QueryOrReplyFuncFlag_PLUS(ptr) (((*(ptr)) >> 8) & 1)
- #define readDXVA_QueryOrReplyFuncFunc(ptr) ((*(ptr)) & 0xFF)
- #define writeDXVA_QueryOrReplyFunc(ptr, flg, fnc) ((*(ptr)) = ((flg) << 8) | (fnc))
- #define setDXVA_QueryOrReplyFuncFlag(ptr, flg) ((*(ptr)) |= ((flg) << 8))
- #define setDXVA_QueryOrReplyFuncFunc(ptr, fnc) ((*(ptr)) |= (fnc));
- }
- type
- DXVA_EncryptProtocolFunc = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD;
- {$EXTERNALSYM DXVA_EncryptProtocolFunc}
- LPDXVA_EncryptProtocolFunc = ^DXVA_EncryptProtocolFunc;
- {$EXTERNALSYM LPDXVA_EncryptProtocolFunc}
- const
- DXVA_ENCRYPTPROTOCOLFUNCFLAG_HOST = $FFFF00;
- {$EXTERNALSYM DXVA_ENCRYPTPROTOCOLFUNCFLAG_HOST}
- DXVA_ENCRYPTPROTOCOLFUNCFLAG_ACCEL = $FFFF08;
- {$EXTERNALSYM DXVA_ENCRYPTPROTOCOLFUNCFLAG_ACCEL}
- {
- #define readDXVA_EncryptProtocolFuncFlag(ptr) ((*(ptr)) >> 8)
- #define readDXVA_EncryptProtocolFuncFlag_ACCEL(ptr) (((*(ptr)) >> 11) & 1)
- #define readDXVA_EncryptProtocolFuncFunc(ptr) ((*(ptr)) & 0xFF)
- #define writeDXVA_EncryptProtocolFunc(ptr, flg, fnc) ((*(ptr)) = ((flg) << 8) | (fnc))
- #define setDXVA_EncryptProtocolFuncFlag(ptr, flg) ((*(ptr)) |= ((flg) << 8))
- #define setDXVA_EncryptProtocolFuncFunc(ptr, fnc) ((*(ptr)) |= (fnc));
- }
- type
- PDXVAEncryptProtocolHeader = ^TDXVAEncryptProtocolHeader;
- _DXVA_EncryptProtocolHeader = record
- dwFunction : DXVA_EncryptProtocolFunc;
- ReservedBits : array [0..2] of LongWord;
- guidEncryptProtocol : TGUID;
- end;
- {$EXTERNALSYM _DXVA_EncryptProtocolHeader}
- DXVA_EncryptProtocolHeader = _DXVA_EncryptProtocolHeader;
- {$EXTERNALSYM DXVA_EncryptProtocolHeader}
- LPDXVA_EncryptProtocolHeader = ^DXVA_EncryptProtocolHeader;
- {$EXTERNALSYM LPDXVA_EncryptProtocolHeader}
- TDXVAEncryptProtocolHeader = _DXVA_EncryptProtocolHeader;
- PDXVAConfigPictureDecode = ^TDXVAConfigPictureDecode;
- _DXVA_ConfigPictureDecode = record
- // Operation Indicated
- dwFunction: DXVA_ConfigQueryOrReplyFunc;
- // Alignment
- dwReservedBits : array[0..2] of DWORD;
- // Encryption GUIDs
- guidConfigBitstreamEncryption : TGUID;
- guidConfigMBcontrolEncryption : TGUID;
- guidConfigResidDiffEncryption : TGUID;
- // Bitstream Processing Indicator
- bConfigBitstreamRaw : BYTE;
- // Macroblock Control Config
- bConfigMBcontrolRasterOrder : BYTE;
- // Host Resid Diff Config
- bConfigResidDiffHost : BYTE;
- bConfigSpatialResid8 : BYTE;
- bConfigResid8Subtraction : BYTE;
- bConfigSpatialHost8or9Clipping : BYTE;
- bConfigSpatialResidInterleaved : BYTE;
- bConfigIntraResidUnsigned : BYTE;
- // Accelerator Resid Diff Config
- bConfigResidDiffAccelerator : BYTE;
- bConfigHostInverseScan : BYTE;
- bConfigSpecificIDCT : BYTE;
- bConfig4GroupedCoefs : BYTE;
- end;
- {$EXTERNALSYM _DXVA_ConfigPictureDecode}
- DXVA_ConfigPictureDecode = _DXVA_ConfigPictureDecode;
- {$EXTERNALSYM DXVA_ConfigPictureDecode}
- LPDXVA_ConfigPictureDecode = ^DXVA_ConfigPictureDecode;
- {$EXTERNALSYM LPDXVA_ConfigPictureDecode}
- TDXVAConfigPictureDecode = _DXVA_ConfigPictureDecode;
- // Picture Decoding Parameters
- PDXVAPictureParameters = ^TDXVAPictureParameters;
- _DXVA_PictureParameters = record
- wDecodedPictureIndex : WORD;
- wDeblockedPictureIndex : WORD;
- wForwardRefPictureIndex : WORD;
- wBackwardRefPictureIndex : WORD;
- wPicWidthInMBminus1 : WORD;
- wPicHeightInMBminus1 : WORD;
- bMacroblockWidthMinus1 : BYTE;
- bMacroblockHeightMinus1 : BYTE;
- bBlockWidthMinus1 : BYTE;
- bBlockHeightMinus1 : BYTE;
- bBPPminus1 : BYTE;
- bPicStructure : BYTE;
- bSecondField : BYTE;
- bPicIntra : BYTE;
- bPicBackwardPrediction : BYTE;
- bBidirectionalAveragingMode : BYTE;
- bMVprecisionAndChromaRelation : BYTE;
- bChromaFormat : BYTE;
- bPicScanFixed : BYTE;
- bPicScanMethod : BYTE;
- bPicReadbackRequests : BYTE;
- bRcontrol : BYTE;
- bPicSpatialResid8 : BYTE;
- bPicOverflowBlocks : BYTE;
- bPicExtrapolation : BYTE;
- bPicDeblocked : BYTE;
- bPicDeblockConfined : BYTE;
- bPic4MVallowed : BYTE;
- bPicOBMC : BYTE;
- bPicBinPB : BYTE;
- bMV_RPS : BYTE;
- bReservedBits : BYTE;
- wBitstreamFcodes : WORD;
- wBitstreamPCEelements : WORD;
- bBitstreamConcealmentNeed : BYTE;
- bBitstreamConcealmentMethod : BYTE;
- end;
- {$EXTERNALSYM _DXVA_PictureParameters}
- DXVA_PictureParameters = _DXVA_PictureParameters;
- {$EXTERNALSYM DXVA_PictureParameters}
- LPDXVA_PictureParameters = ^DXVA_PictureParameters;
- {$EXTERNALSYM LPDXVA_PictureParameters}
- TDXVAPictureParameters = _DXVA_PictureParameters;
- // Picture Resampling
- PDXVAPicResample = ^TDXVAPicResample;
- _DXVA_PicResample = record
- wPicResampleSourcePicIndex : WORD;
- wPicResampleDestPicIndex : WORD;
- wPicResampleRcontrol : WORD;
- bPicResampleExtrapWidth : BYTE;
- bPicResampleExtrapHeight : BYTE;
- dwPicResampleSourceWidth : DWORD;
- dwPicResampleSourceHeight : DWORD;
- dwPicResampleDestWidth : DWORD;
- dwPicResampleDestHeight : DWORD;
- dwPicResampleFullDestWidth : DWORD;
- dwPicResampleFullDestHeight : DWORD;
- end;
- {$EXTERNALSYM _DXVA_PicResample}
- DXVA_PicResample = _DXVA_PicResample;
- {$EXTERNALSYM DXVA_PicResample}
- LPDXVA_PicResample = ^DXVA_PicResample;
- {$EXTERNALSYM LPDXVA_PicResample}
- TDXVAPicResample = _DXVA_PicResample;
- const
- DXVA_CHROMA_FORMAT_420 = 1;
- {$EXTERNALSYM DXVA_CHROMA_FORMAT_420}
- DXVA_CHROMA_FORMAT_422 = 2;
- {$EXTERNALSYM DXVA_CHROMA_FORMAT_422}
- DXVA_CHROMA_FORMAT_444 = 3;
- {$EXTERNALSYM DXVA_CHROMA_FORMAT_444}
- DXVA_PICTURE_STRUCTURE_TOP_FIELD = 1;
- {$EXTERNALSYM DXVA_PICTURE_STRUCTURE_TOP_FIELD}
- DXVA_PICTURE_STRUCTURE_BOTTOM_FIELD = 2;
- {$EXTERNALSYM DXVA_PICTURE_STRUCTURE_BOTTOM_FIELD}
- DXVA_PICTURE_STRUCTURE_FRAME = 3;
- {$EXTERNALSYM DXVA_PICTURE_STRUCTURE_FRAME}
- DXVA_BIDIRECTIONAL_AVERAGING_MPEG2_ROUND = 0;
- {$EXTERNALSYM DXVA_BIDIRECTIONAL_AVERAGING_MPEG2_ROUND}
- DXVA_BIDIRECTIONAL_AVERAGING_H263_TRUNC = 1;
- {$EXTERNALSYM DXVA_BIDIRECTIONAL_AVERAGING_H263_TRUNC}
- DXVA_MV_PRECISION_AND_CHROMA_RELATION_MPEG2 = 0;
- {$EXTERNALSYM DXVA_MV_PRECISION_AND_CHROMA_RELATION_MPEG2}
- DXVA_MV_PRECISION_AND_CHROMA_RELATION_H263 = 1;
- {$EXTERNALSYM DXVA_MV_PRECISION_AND_CHROMA_RELATION_H263}
- DXVA_MV_PRECISION_AND_CHROMA_RELATION_H261 = 2;
- {$EXTERNALSYM DXVA_MV_PRECISION_AND_CHROMA_RELATION_H261}
- DXVA_SCAN_METHOD_ZIG_ZAG = 0;
- {$EXTERNALSYM DXVA_SCAN_METHOD_ZIG_ZAG}
- DXVA_SCAN_METHOD_ALTERNATE_VERTICAL = 1;
- {$EXTERNALSYM DXVA_SCAN_METHOD_ALTERNATE_VERTICAL}
- DXVA_SCAN_METHOD_ALTERNATE_HORIZONTAL = 2;
- {$EXTERNALSYM DXVA_SCAN_METHOD_ALTERNATE_HORIZONTAL}
- DXVA_SCAN_METHOD_ARBITRARY = 3;
- {$EXTERNALSYM DXVA_SCAN_METHOD_ARBITRARY}
- DXVA_BITSTREAM_CONCEALMENT_NEED_UNLIKELY = 0;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_NEED_UNLIKELY}
- DXVA_BITSTREAM_CONCEALMENT_NEED_MILD = 1;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_NEED_MILD}
- DXVA_BITSTREAM_CONCEALMENT_NEED_LIKELY = 2;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_NEED_LIKELY}
- DXVA_BITSTREAM_CONCEALMENT_NEED_SEVERE = 3;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_NEED_SEVERE}
- DXVA_BITSTREAM_CONCEALMENT_METHOD_UNSPECIFIED = 0;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_METHOD_UNSPECIFIED}
- DXVA_BITSTREAM_CONCEALMENT_METHOD_INTRA = 1;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_METHOD_INTRA}
- DXVA_BITSTREAM_CONCEALMENT_METHOD_FORWARD = 2;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_METHOD_FORWARD}
- DXVA_BITSTREAM_CONCEALMENT_METHOD_BACKWARD = 3;
- {$EXTERNALSYM DXVA_BITSTREAM_CONCEALMENT_METHOD_BACKWARD}
- Type
- // Buffer Description Data
- PDXVABufferDescription = ^TDXVABufferDescription;
- _DXVA_BufferDescription = record
- dwTypeIndex : DWORD;
- dwBufferIndex : DWORD;
- dwDataOffset : DWORD;
- dwDataSize : DWORD;
- dwFirstMBaddress : DWORD;
- dwNumMBsInBuffer : DWORD;
- dwWidth : DWORD;
- dwHeight : DWORD;
- dwStride : DWORD;
- dwReservedBits : DWORD;
- end;
- {$EXTERNALSYM _DXVA_BufferDescription}
- DXVA_BufferDescription = _DXVA_BufferDescription;
- {$EXTERNALSYM DXVA_BufferDescription}
- LPDXVA_BufferDescription = ^DXVA_BufferDescription;
- {$EXTERNALSYM LPDXVA_BufferDescription}
- TDXVABufferDescription = _DXVA_BufferDescription;
- // Off-Host IDCT Coefficient Data Structures
- PDXVATCoef4Group = ^TDXVATCoef4Group;
- _DXVA_TCoef4Group = record
- TCoefIDX : array [0..3] of BYTE;
- TCoefValue : array [0..3] of smallint;
- end;
- {$EXTERNALSYM _DXVA_TCoef4Group}
- DXVA_TCoef4Group = _DXVA_TCoef4Group;
- {$EXTERNALSYM DXVA_TCoef4Group}
- LPDXVA_TCoef4Group = ^DXVA_TCoef4Group;
- {$EXTERNALSYM LPDXVA_TCoef4Group}
- TDXVATCoef4Group = _DXVA_TCoef4Group;
- PDXVATCoefSingle = ^TDXVATCoefSingle;
- _DXVA_TCoefSingle = record
- wIndexWithEOB : WORD;
- TCoefValue : smallint;
- end;
- {$EXTERNALSYM _DXVA_TCoefSingle}
- DXVA_TCoefSingle = _DXVA_TCoefSingle;
- {$EXTERNALSYM DXVA_TCoefSingle}
- LPDXVA_TCoefSingle = ^DXVA_TCoefSingle;
- {$EXTERNALSYM LPDXVA_TCoefSingle}
- TDXVATCoefSingle = _DXVA_TCoefSingle;
- // Macros for Reading EOB and Index Values
- {
- #define readDXVA_TCoefSingleIDX(ptr) ((ptr)->wIndexWithEOB >> 1)
- #define readDXVA_TCoefSingleEOB(ptr) ((ptr)->wIndexWithEOB & 1)
- }
- // Macro for Writing EOB and Index Values
- {
- #define writeDXVA_TCoefSingleIndexWithEOB(ptr, idx, eob) ((ptr)->wIndexWithEOB = ((idx) << 1) | (eob))
- #define setDXVA_TCoefSingleIDX(ptr, idx) ((ptr)->wIndexWithEOB |= ((idx) << 1))
- #define setDXVA_TCoefSingleEOB(ptr) ((ptr)->wIndexWithEOB |= 1)
- }
- const
- // Spatial-Domain Residual Difference Blocks
- DXVA_USUAL_BLOCK_WIDTH = 8;
- {$EXTERNALSYM DXVA_USUAL_BLOCK_WIDTH}
- DXVA_USUAL_BLOCK_HEIGHT = 8;
- {$EXTERNALSYM DXVA_USUAL_BLOCK_HEIGHT}
- DXVA_USUAL_BLOCK_SIZE = (DXVA_USUAL_BLOCK_WIDTH * DXVA_USUAL_BLOCK_HEIGHT);
- {$EXTERNALSYM DXVA_USUAL_BLOCK_SIZE}
- type
- DXVA_Sample16 = array[0..DXVA_USUAL_BLOCK_SIZE-1] of smallint;
- {$EXTERNALSYM DXVA_Sample16}
- DXVA_Sample8 = array[0..DXVA_USUAL_BLOCK_SIZE-1] of Shortint;
- {$EXTERNALSYM DXVA_Sample8}
- // Deblocking Filter Control Structure
- DXVA_DeblockingEdgeControl = {$IFDEF TYPE_IDENTITY}type {$ENDIF} BYTE;
- {$EXTERNALSYM DXVA_DeblockingEdgeControl}
- LPDXVA_DeblockingEdgeControl= ^DXVA_DeblockingEdgeControl;
- {$EXTERNALSYM LPDXVA_DeblockingEdgeControl}
- // Macros for Reading STRENGTH and FilterOn
- {
- #define readDXVA_EdgeFilterStrength(ptr) ((*(ptr)) >> 1)
- #define readDXVA_EdgeFilterOn(ptr) ((*(ptr)) & 1)
- }
- // Macro for Writing STRENGTH and FilterOn
- {
- #define writeDXVA_DeblockingEdgeControl(ptr, str, fon) ((*(ptr)) = ((str) << 1) | (fon))
- #define setDXVA_EdgeFilterStrength(ptr, str) ((*(ptr)) |= ((str) << 1))
- #define setDXVA_EdgeFilterOn(ptr) ((*(ptr)) |= 1)
- }
- // Macroblock Control Command Data Structures */
- PDXVAMVvalue = ^TDXVAMVvalue;
- _DXVA_MVvalue = record
- horz,vert : smallint;
- end;
- {$EXTERNALSYM _DXVA_MVvalue}
- DXVA_MVvalue = _DXVA_MVvalue;
- {$EXTERNALSYM DXVA_MVvalue}
- LPDXVA_MVvalue = ^DXVA_MVvalue;
- {$EXTERNALSYM LPDXVA_MVvalue}
- TDXVAMVvalue = _DXVA_MVvalue;
- // Inverse Quantization Matrices
- PDXVAQmatrixData = ^TDXVAQmatrixData;
- _DXVA_QmatrixData = record
- bNewQmatrix : array [0..3] of BYTE;
- // intra Y, inter Y, intra chroma, inter chroma
- Qmatrix : array [0..3,0..(DXVA_USUAL_BLOCK_WIDTH*DXVA_USUAL_BLOCK_HEIGHT)-1] of WORD;
- end;
- {$EXTERNALSYM _DXVA_QmatrixData}
- DXVA_QmatrixData = _DXVA_QmatrixData;
- {$EXTERNALSYM DXVA_QmatrixData}
- LPDXVA_QmatrixData = ^DXVA_QmatrixData;
- {$EXTERNALSYM LPDXVA_QmatrixData}
- TDXVAQmatrixData = _DXVA_QmatrixData;
- // Slice Control Buffer Data
- PDXVASliceInfo = ^TDXVASliceInfo;
- _DXVA_SliceInfo = record
- wHorizontalPosition : WORD;
- wVerticalPosition : WORD;
- dwSliceBitsInBuffer : LongWord;
- dwSliceDataLocation : LongWord;
- bStartCodeBitOffset : BYTE;
- bReservedBits : BYTE;
- wMBbitOffset : WORD;
- wNumberMBsInSlice : WORD;
- wQuantizerScaleCode : WORD;
- wBadSliceChopping : WORD;
- end;
- {$EXTERNALSYM _DXVA_SliceInfo}
- DXVA_SliceInfo = _DXVA_SliceInfo;
- {$EXTERNALSYM DXVA_SliceInfo}
- LPDXVA_SliceInfo = ^DXVA_SliceInfo;
- {$EXTERNALSYM LPDXVA_SliceInfo}
- TDXVASliceInfo = _DXVA_SliceInfo;
- const
- DXVA_NumMV_OBMC_off_BinPBwith4MV_off = 4;
- {$EXTERNALSYM DXVA_NumMV_OBMC_off_BinPBwith4MV_off}
- DXVA_NumMV_OBMC_off_BinPBwith4MV_on = (4+1);
- {$EXTERNALSYM DXVA_NumMV_OBMC_off_BinPBwith4MV_on}
- DXVA_NumMV_OBMC_on__BinPB_off = (10);
- {$EXTERNALSYM DXVA_NumMV_OBMC_on__BinPB_off}
- DXVA_NumMV_OBMC_on__BinPB_on = (11); // not current standards
- {$EXTERNALSYM DXVA_NumMV_OBMC_on__BinPB_on}
- DXVA_NumBlocksPerMB_420 = (4+2+0);
- {$EXTERNALSYM DXVA_NumBlocksPerMB_420}
- DXVA_NumBlocksPerMB_422 = (4+2+2);
- {$EXTERNALSYM DXVA_NumBlocksPerMB_422}
- DXVA_NumBlocksPerMB_444 = (4+4+4);
- {$EXTERNALSYM DXVA_NumBlocksPerMB_444}
- type
- // Basic form for I pictures
- // Host Residual Differences
- _DXVA_MBctrl_I_HostResidDiff_1 = record
- wMBaddress : WORD;
- wMBtype : WORD;
- dwMB_SNL : LongWord;
- wPatternCode : WORD;
- wPC_Overflow : WORD;
- // zero if not overflow format
- dwReservedBits2 : LongWord;
- end;
- {$EXTERNALSYM _DXVA_MBctrl_I_HostResidDiff_1}
- DXVA_MBctrl_I_HostResidDiff_1 = _DXVA_MBctrl_I_HostResidDiff_1;
- {$EXTERNALSYM DXVA_MBctrl_I_HostResidDiff_1}
- TDXVAMBctrlIHostResidDiff1 = _DXVA_MBctrl_I_HostResidDiff_1;
- // Basic form for I pictures
- // Off-Host IDCT, 4:2:0 sampling
- _DXVA_MBctrl_I_OffHostIDCT_1 = record
- wMBaddress : WORD;
- wMBtype : WORD;
- dwMB_SNL : LongWord;
- wPatternCode : WORD;
- bNumCoef : array [0..DXVA_NumBlocksPerMB_420-1] of BYTE;
- end;
- {$EXTERNALSYM _DXVA_MBctrl_I_OffHostIDCT_1}
- DXVA_MBctrl_I_OffHostIDCT_1 = _DXVA_MBctrl_I_OffHostIDCT_1;
- {$EXTERNALSYM DXVA_MBctrl_I_OffHostIDCT_1}
- TDXVAMBctrlIOffHostIDCT1 = _DXVA_MBctrl_I_OffHostIDCT_1;
- // Basic form for P and B pictures
- // Should also be used for concealment MVs in MPEG-2 I pictures
- // Without OBMC, without BinPB and 4MV together, without MV RPS
- // Host Residual Differences
- _DXVA_MBctrl_P_HostResidDiff_1 = record
- wMBaddress : WORD;
- wMBtype : WORD;
- dwMB_SNL : LongWord;
- wPatternCode : WORD;
- wPC_Overflow : WORD;
- // zero if not overflow format
- dwReservedBits2 : LongWord;
- MVector : array [0..DXVA_NumMV_OBMC_off_BinPBwith4MV_off-1] of TDXVAMVvalue;
- end;
- {$EXTERNALSYM _DXVA_MBctrl_P_HostResidDiff_1}
- DXVA_MBctrl_P_HostResidDiff_1 = _DXVA_MBctrl_P_HostResidDiff_1;
- {$EXTERNALSYM DXVA_MBctrl_P_HostResidDiff_1}
- TDXVAMBctrlPHostResidDiff1 = _DXVA_MBctrl_P_HostResidDiff_1;
- // Basic form for P and B pictures
- // Without OBMC, without BinPB and 4MV together, without MV RPS
- // Off-Host IDCT, 4:2:0 sampling
- _DXVA_MBctrl_P_OffHostIDCT_1 = record
- wMBaddress : WORD;
- wMBtype : WORD;
- dwMB_SNL : LongWord;
- wPatternCode : WORD;
- bNumCoef : array [0..DXVA_NumBlocksPerMB_420-1] of BYTE;
- MVector : array [0..DXVA_NumMV_OBMC_off_BinPBwith4MV_off-1] of TDXVAMVvalue;
- end;
- {$EXTERNALSYM _DXVA_MBctrl_P_OffHostIDCT_1}
- DXVA_MBctrl_P_OffHostIDCT_1 = _DXVA_MBctrl_P_OffHostIDCT_1;
- {$EXTERNALSYM DXVA_MBctrl_P_OffHostIDCT_1}
- TDXVAMBctrlPOffHostIDCT1 = _DXVA_MBctrl_P_OffHostIDCT_1;
- // How to load alpha blending graphic data
- PDXVAConfigAlphaLoad = ^TDXVAConfigAlphaLoad;
- _DXVA_ConfigAlphaLoad = record
- // Operation Indicated
- dwFunction: DXVA_ConfigQueryOrReplyFunc ;
- // Alignment
- dwReservedBits: array[0..2] of DWORD;
- bConfigDataType: BYTE;
- end;
- {$EXTERNALSYM _DXVA_ConfigAlphaLoad}
- DXVA_ConfigAlphaLoad = _DXVA_ConfigAlphaLoad;
- {$EXTERNALSYM DXVA_ConfigAlphaLoad}
- LPDXVA_ConfigAlphaLoad = ^DXVA_ConfigAlphaLoad;
- {$EXTERNALSYM LPDXVA_ConfigAlphaLoad}
- TDXVAConfigAlphaLoad = _DXVA_ConfigAlphaLoad;
- const
- DXVA_CONFIG_DATA_TYPE_IA44 = 0;
- {$EXTERNALSYM DXVA_CONFIG_DATA_TYPE_IA44}
- DXVA_CONFIG_DATA_TYPE_AI44 = 1;
- {$EXTERNALSYM DXVA_CONFIG_DATA_TYPE_AI44}
- DXVA_CONFIG_DATA_TYPE_DPXD = 2;
- {$EXTERNALSYM DXVA_CONFIG_DATA_TYPE_DPXD}
- DXVA_CONFIG_DATA_TYPE_AYUV = 3;
- {$EXTERNALSYM DXVA_CONFIG_DATA_TYPE_AYUV}
- // How to combine alpha blending graphic data
- type
- PDXVAConfigAlphaCombine = ^TDXVAConfigAlphaCombine;
- _DXVA_ConfigAlphaCombine = record
- // Operation Indicated
- dwFunction: DXVA_ConfigQueryOrReplyFunc;
- // Alignment
- dwReservedBits: array[0..2] of DWORD;
- bConfigBlendType: BYTE;
- bConfigPictureResizing: BYTE;
- bConfigOnlyUsePicDestRectArea: BYTE;
- bConfigGraphicResizing: BYTE;
- bConfigWholePlaneAlpha: BYTE;
- end;
- {$EXTERNALSYM _DXVA_ConfigAlphaCombine}
- DXVA_ConfigAlphaCombine = _DXVA_ConfigAlphaCombine;
- {$EXTERNALSYM DXVA_ConfigAlphaCombine}
- LPDXVA_ConfigAlphaCombine = ^DXVA_ConfigAlphaCombine;
- {$EXTERNALSYM LPDXVA_ConfigAlphaCombine}
- TDXVAConfigAlphaCombine = _DXVA_ConfigAlphaCombine;
- const
- DXVA_CONFIG_BLEND_TYPE_FRONT_BUFFER = 0;
- {$EXTERNALSYM DXVA_CONFIG_BLEND_TYPE_FRONT_BUFFER}
- DXVA_CONFIG_BLEND_TYPE_BACK_HARDWARE = 1;
- {$EXTERNALSYM DXVA_CONFIG_BLEND_TYPE_BACK_HARDWARE}
- // AYUV sample for 16-entry YUV palette or graphic surface
- type
- PDXVAAYUVsample2 = ^TDXVAAYUVsample2;
- _DXVA_AYUVsample2 = record
- bCrValue : BYTE;
- bCbValue : BYTE;
- bY_Value : BYTE;
- bSampleAlpha8 : BYTE;
- end;
- {$EXTERNALSYM _DXVA_AYUVsample2}
- DXVA_AYUVsample2 = _DXVA_AYUVsample2;
- {$EXTERNALSYM DXVA_AYUVsample2}
- LPDXVA_AYUVsample2 = ^DXVA_AYUVsample2;
- {$EXTERNALSYM LPDXVA_AYUVsample2}
- TDXVAAYUVsample2 = _DXVA_AYUVsample2;
- // Macros for IA44 alpha blending surface samples
- DXVA_AI44sample = {$IFDEF TYPE_IDENTITY}type {$ENDIF} BYTE;
- {$EXTERNALSYM DXVA_AI44sample}
- LPDXVA_AI44sample = ^DXVA_AI44sample;
- {$EXTERNALSYM LPDXVA_AI44sample}
- {
- #define readDXVA_AI44index(ptr) ((*(ptr)) & 0x0F)
- #define readDXVA_AI44alpha(ptr) (((*(ptr)) & 0xF0) >> 4)
- #define writeDXVA_AI44(ptr, idx, alpha) ((*(ptr)) = (((alpha) << 4) | (idx)))
- #define setDXVA_AI44index(ptr, idx) ((*(ptr)) |= (idx))
- #define setDXVA_AI44alpha(ptr, alpha) ((*(ptr)) |= ((alpha) << 4))
- }
- // Highlight data structure
- PDXVAHighlight = ^TDXVAHighlight;
- _DXVA_Highlight = record
- wHighlightActive : WORD;
- wHighlightIndices : WORD;
- wHighlightAlphas : WORD;
- HighlightRect : TRect;
- end;
- {$EXTERNALSYM _DXVA_Highlight}
- DXVA_Highlight = _DXVA_Highlight;
- {$EXTERNALSYM DXVA_Highlight}
- LPDXVA_Highlight = ^DXVA_Highlight;
- {$EXTERNALSYM LPDXVA_Highlight}
- TDXVAHighlight = _DXVA_Highlight;
- DXVA_DPXD = {$IFDEF TYPE_IDENTITY}type {$ENDIF} BYTE;
- {$EXTERNALSYM DXVA_DPXD}
- LPDXVA_DPXD = ^DXVA_DPXD;
- {$EXTERNALSYM LPDXVA_DPXD}
- DXVA_DCCMD = {$IFDEF TYPE_IDENTITY}type {$ENDIF} WORD;
- {$EXTERNALSYM DXVA_DCCMD}
- LPDXVA_DCCMD = ^DXVA_DCCMD;
- {$EXTERNALSYM LPDXVA_DCCMD}
- // Alpha blend combination
- PDXVABlendCombination = ^TDXVABlendCombination;
- _DXVA_BlendCombination = record
- wPictureSourceIndex : WORD;
- wBlendedDestinationIndex : WORD;
- PictureSourceRect16thPel : TRECT;
- PictureDestinationRect : TRECT;
- GraphicSourceRect : TRECT;
- GraphicDestinationRect : TRECT;
- wBlendDelay : WORD;
- bBlendOn : BYTE;
- bWholePlaneAlpha : BYTE;
- OutsideYUVcolor : TDXVAAYUVsample2;
- end;
- {$EXTERNALSYM _DXVA_BlendCombination}
- DXVA_BlendCombination = _DXVA_BlendCombination;
- {$EXTERNALSYM DXVA_BlendCombination}
- LPDXVA_BlendCombination = ^DXVA_BlendCombination;
- {$EXTERNALSYM LPDXVA_BlendCombination}
- TDXVABlendCombination = _DXVA_BlendCombination;
- LPDXVA_MBctrl_I_HostResidDiff_1 = ^DXVA_MBctrl_I_HostResidDiff_1;
- {$EXTERNALSYM LPDXVA_MBctrl_I_HostResidDiff_1}
- LPDXVA_MBctrl_I_OffHostIDCT_1 = ^DXVA_MBctrl_I_OffHostIDCT_1;
- {$EXTERNALSYM LPDXVA_MBctrl_I_OffHostIDCT_1}
- LPDXVA_MBctrl_P_HostResidDiff_1 = ^DXVA_MBctrl_P_HostResidDiff_1;
- {$EXTERNALSYM LPDXVA_MBctrl_P_HostResidDiff_1}
- LPDXVA_MBctrl_P_OffHostIDCT_1 = ^DXVA_MBctrl_P_OffHostIDCT_1;
- {$EXTERNALSYM LPDXVA_MBctrl_P_OffHostIDCT_1}
- //#pragma pack(pop)
- //
- // Other forms of pictures are constructed in the obvious way
- // from the above by adjusting the number of residual difference
- // blocks, the number of motion vectors per macroblock, etc.
- //
- {
- #define readDXVA_MBskipsFollowing(ptr) (((ptr)->dwMB_SNL & 0xFF000000) >> 24)
- #define readDXVA_MBdataLocation(ptr) (((ptr)->dwMB_SNL & 0x00FFFFFF))
- #define writeDXVA_MB_SNL(ptr, skips, dloc) ((ptr)->dwMB_SNL = (((skips) << 24) | (dloc)))
- #define setDXVA_MBskipsFollowing(ptr, skips) ((ptr)->dwMB_SNL |= ((skips) << 24))
- #define setDXVA_MBdataLocation(ptr, dloc) ((ptr)->dwMB_SNL |= (dloc))
- #define readDXVA_MvertFieldSel_3(ptr) (((ptr)->wMBtype & 0x8000) >> 15)
- #define readDXVA_MvertFieldSel_2(ptr) (((ptr)->wMBtype & 0x4000) >> 14)
- #define readDXVA_MvertFieldSel_1(ptr) (((ptr)->wMBtype & 0x2000) >> 13)
- #define readDXVA_MvertFieldSel_0(ptr) (((ptr)->wMBtype & 0x1000) >> 12)
- #define readDXVA_ReservedBits(ptr) (((ptr)->wMBtype & 0x0800) >> 11)
- #define readDXVA_HostResidDiff(ptr) (((ptr)->wMBtype & 0x0400) >> 10)
- #define readDXVA_MotionType(ptr) (((ptr)->wMBtype & 0x0300) >> 8)
- #define readDXVA_MBscanMethod(ptr) (((ptr)->wMBtype & 0x00C0) >> 6)
- #define readDXVA_FieldResidual(ptr) (((ptr)->wMBtype & 0x0020) >> 5)
- #define readDXVA_H261LoopFilter(ptr) (((ptr)->wMBtype & 0x0010) >> 4)
- #define readDXVA_Motion4MV(ptr) (((ptr)->wMBtype & 0x0008) >> 3)
- #define readDXVA_MotionBackward(ptr) (((ptr)->wMBtype & 0x0004) >> 2)
- #define readDXVA_MotionForward(ptr) (((ptr)->wMBtype & 0x0002) >> 1)
- #define readDXVA_IntraMacroblock(ptr) (((ptr)->wMBtype & 0x0001))
- #define setDXVA_MvertFieldSel_3(ptr) ((ptr)->wMBtype |= 0x8000)
- #define setDXVA_MvertFieldSel_2(ptr) ((ptr)->wMBtype |= 0x4000)
- #define setDXVA_MvertFieldSel_1(ptr) ((ptr)->wMBtype |= 0x2000)
- #define setDXVA_MvertFieldSel_0(ptr) ((ptr)->wMBtype |= 0x1000)
- #define setDXVA_ReservedBits(ptr) ((ptr)->wMBtype |= 0x0800)
- #define setDXVA_HostResidDiff(ptr) ((ptr)->wMBtype |= 0x0400)
- #define setDXVA_MotionType(ptr, value) ((ptr)->wMBtype |= ((value) << 8))
- #define setDXVA_MBscanMethod(ptr, value) ((ptr)->wMBtype |= ((value) << 6))
- #define setDXVA_FieldResidual(ptr) ((ptr)->wMBtype |= 0x0020)
- #define setDXVA_H261LoopFilter(ptr) ((ptr)->wMBtype |= 0x0010)
- #define setDXVA_Motion4MV(ptr) ((ptr)->wMBtype |= 0x0008)
- #define setDXVA_MotionBackward(ptr) ((ptr)->wMBtype |= 0x0004)
- #define setDXVA_MotionForward(ptr) ((ptr)->wMBtype |= 0x0002)
- #define setDXVA_IntraMacroblock(ptr) ((ptr)->wMBtype |= 0x0001)
- #define readDXVA_Y___0coded(ptr) (((ptr)->wPatternCode & 0x0800) >> 11)
- #define readDXVA_Y___1coded(ptr) (((ptr)->wPatternCode & 0x0400) >> 10)
- #define readDXVA_Y___2coded(ptr) (((ptr)->wPatternCode & 0x0200) >> 9)
- #define readDXVA_Y___3coded(ptr) (((ptr)->wPatternCode & 0x0100) >> 8)
- #define readDXVA_Cb__4coded(ptr) (((ptr)->wPatternCode & 0x0080) >> 7)
- #define readDXVA_Cr__5coded(ptr) (((ptr)->wPatternCode & 0x0040) >> 6)
- #define readDXVA_Cb__6coded(ptr) (((ptr)->wPatternCode & 0x0020) >> 5)
- #define readDXVA_Cr__7coded(ptr) (((ptr)->wPatternCode & 0x0010) >> 4)
- #define readDXVA_Cb__8coded(ptr) (((ptr)->wPatternCode & 0x0008) >> 3)
- #define readDXVA_Cb__9coded(ptr) (((ptr)->wPatternCode & 0x0004) >> 2)
- #define readDXVA_Cr_10coded(ptr) (((ptr)->wPatternCode & 0x0002) >> 1)
- #define readDXVA_Cr_11coded(ptr) (((ptr)->wPatternCode & 0x0001))
- #define readDXVA_Y___0oflow(ptr) (((ptr)->wPC_Overflow & 0x0800) >> 11)
- #define readDXVA_Y___1oflow(ptr) (((ptr)->wPC_Overflow & 0x0400) >> 10)
- #define readDXVA_Y___2oflow(ptr) (((ptr)->wPC_Overflow & 0x0200) >> 9)
- #define readDXVA_Y___3oflow(ptr) (((ptr)->wPC_Overflow & 0x0100) >> 8)
- #define readDXVA_Cb__4oflow(ptr) (((ptr)->wPC_Overflow & 0x0080) >> 7)
- #define readDXVA_Cr__5oflow(ptr) (((ptr)->wPC_Overflow & 0x0040) >> 6)
- #define readDXVA_Cb__6oflow(ptr) (((ptr)->wPC_Overflow & 0x0020) >> 5)
- #define readDXVA_Cr__7oflow(ptr) (((ptr)->wPC_Overflow & 0x0010) >> 4)
- #define readDXVA_Cb__8oflow(ptr) (((ptr)->wPC_Overflow & 0x0008) >> 3)
- #define readDXVA_Cb__9oflow(ptr) (((ptr)->wPC_Overflow & 0x0004) >> 2)
- #define readDXVA_Cr_10oflow(ptr) (((ptr)->wPC_Overflow & 0x0002) >> 1)
- #define readDXVA_Cr_11oflow(ptr) (((ptr)->wPC_Overflow & 0x0001))
- }
- // -------------------------------------------------------------------------
- //
- // D3DFORMAT describes a pixel memory layout, DXVA sample format contains
- // additional information that describes how the pixels should be interpreted.
- //
- // -------------------------------------------------------------------------
- //#define DXVABit(__x) (1 << __x)
- const
- DXVA_SampleFormatMask = $FF; // 8 bits used for DXVA Sample format
- {$EXTERNALSYM DXVA_SampleFormatMask}
- type
- DXVA_SampleFormat = (
- DXVA_SampleUnknown,
- DXVA_SamplePreviousFrame,
- DXVA_SampleProgressiveFrame,
- DXVA_SampleFieldInterleavedEvenFirst,
- DXVA_SampleFieldInterleavedOddFirst,
- DXVA_SampleFieldSingleEven,
- DXVA_SampleFieldSingleOdd,
- DXVA_SampleSubStream
- );
- {$EXTERNALSYM DXVA_SampleFormat}
- TDXVASampleFormat = DXVA_SampleFormat;
- //#define DXVA_ExtractSampleFormat(_sf) ((_sf) & (DXVA_SampleFormatMask))
- // -------------------------------------------------------------------------
- //
- // DXVA Extended color data - occupies the HIWORD of the SampleFormat DWORD
- // use the DXVA_ExtractExtColorData macro to extract the individual color
- // data fields.
- //
- // The packed form is:
- // VideoTransferFunction (bits 15..12)
- // VideoPrimaries (bits 11..8)
- // VideoLighting (bits 7..5)
- // VideoTransferMatrix (Y'Cb'Cr') OR VideoNominalRange (RGB images) (bits 4..2)
- // VideoChromaSubsampling (bits 1..0)
- //
- // -------------------------------------------------------------------------
- //#define DXVA_ExtractExtColorData(_sf, _Mask, _Shift) \
- // (((_sf) >> (_Shift)) & (_Mask))
- const
- DXVA_ExtColorData_ShiftBase = 16;
- {$EXTERNALSYM DXVA_ExtColorData_ShiftBase}
- DXVA_VideoTransFuncMask = (1 shl 15) or (1 shl 14) or (1 shl 13) or (1 shl 12);
- {$EXTERNALSYM DXVA_VideoTransFuncMask}
- DXVA_VideoTransFuncShift = (DXVA_ExtColorData_ShiftBase + 12);
- {$EXTERNALSYM DXVA_VideoTransFuncShift}
- type
- DXVA_VideoTransferFunction = (
- DXVA_VideoTransFunc_Unknown,
- DXVA_VideoTransFunc_10,
- DXVA_VideoTransFunc_18,
- DXVA_VideoTransFunc_20,
- DXVA_VideoTransFunc_22,
- DXVA_VideoTransFunc_22_8bit,
- DXVA_VideoTransFunc_22_8bit_240M,
- DXVA_VideoTransFunc_24_8bit_sRGB,
- DXVA_VideoTransFunc_28
- );
- {$EXTERNALSYM DXVA_VideoTransferFunction}
- TDXVAVideoTransferFunction = DXVA_VideoTransferFunction;
- const
- DXVA_VideoPrimariesMask = (1 shl 11)or (1 shl 10) or (1 shl 9) or (1 shl 8);
- {$EXTERNALSYM DXVA_VideoPrimariesMask}
- DXVA_VideoPrimariesShift = (DXVA_ExtColorData_ShiftBase + 8);
- {$EXTERNALSYM DXVA_VideoPrimariesShift}
- type
- DXVA_VideoPrimaries = (
- DXVA_VideoPrimaries_Unknown,
- DXVA_VideoPrimaries_BT601,
- DXVA_VideoPrimaries_BT709,
- DXVA_VideoPrimaries_BT470_2_SysM,
- DXVA_VideoPrimaries_BT470_2_SysBG,
- DXVA_VideoPrimaries_SMPTE170M,
- DXVA_VideoPrimaries_SMPTE240M,
- DXVA_VideoPrimaries_EBU3213,
- DXVA_VideoPrimaries_SMPTE_C
- );
- {$EXTERNALSYM DXVA_VideoPrimaries}
- TDXVAVideoPrimaries = DXVA_VideoPrimaries;
- const
- DXVA_VideoLightingMask = (1 shl 7)or (1 shl 6) or (1 shl 5);
- {$EXTERNALSYM DXVA_VideoLightingMask}
- DXVA_VideoLightingShift = (DXVA_ExtColorData_ShiftBase + 5);
- {$EXTERNALSYM DXVA_VideoLightingShift}
- type
- DXVA_VideoLighting = (
- DXVA_VideoLighting_Unknown,
- DXVA_VideoLighting_bright,
- DXVA_VideoLighting_office,
- DXVA_VideoLighting_dim,
- DXVA_VideoLighting_dark
- );
- {$EXTERNALSYM DXVA_VideoLighting}
- TDXVAVideoLighting = DXVA_VideoLighting;
- // -------------------------------------------------------------------------
- // Note:
- //
- // DXVA_NominalRange and DXVA_VideoTransferMatrix are unioned together.
- //
- // -------------------------------------------------------------------------
- //
- const
- DXVA_VideoTransferMatrixMask = (1 shl 4) or (1 shl 3) or (1 shl 2);
- {$EXTERNALSYM DXVA_VideoTransferMatrixMask}
- DXVA_VideoTransferMatrixShift = (DXVA_ExtColorData_ShiftBase + 2);
- {$EXTERNALSYM DXVA_VideoTransferMatrixShift}
- type
- DXVA_VideoTransferMatrix = (
- DXVA_VideoTransferMatrix_Unknown,
- DXVA_VideoTransferMatrix_BT709,
- DXVA_VideoTransferMatrix_BT601,
- DXVA_VideoTransferMatrix_SMPTE240M
- );
- {$EXTERNALSYM DXVA_VideoTransferMatrix}
- TDXVAVideoTransferMatrix = DXVA_VideoTransferMatrix;
- const
- DXVA_NominalRangeMask = (1 shl 4) or (1 shl 3) or (1 shl 2);
- {$EXTERNALSYM DXVA_NominalRangeMask}
- DXVA_NominalRangeShift = (DXVA_ExtColorData_ShiftBase + 2);
- {$EXTERNALSYM DXVA_NominalRangeShift}
- type
- DXVA_NominalRange = (
- DXVA_NominalRange_Normal,
- DXVA_NominalRange_Wide
- );
- {$EXTERNALSYM DXVA_NominalRange}
- TDXVANominalRange = DXVA_NominalRange;
- const
- DXVA_VideoChromaSubsamplingMask = (1 shl 1) or (1 shl 0);
- {$EXTERNALSYM DXVA_VideoChromaSubsamplingMask}
- DXVA_VideoChromaSubsamplingShift = (DXVA_ExtColorData_ShiftBase + 0);
- {$EXTERNALSYM DXVA_VideoChromaSubsamplingShift}
-
- type
- DXVA_VideoChromaSubsampling = (
- DXVA_VideoChromaSubsampling_Unknown,
- DXVA_VideoChromaSubsampling_non_cosited,
- DXVA_VideoChromaSubsampling_cosited
- );
- {$EXTERNALSYM DXVA_VideoChromaSubsampling}
- TDXVAVideoChromaSubsampling = DXVA_VideoChromaSubsampling;
- // -------------------------------------------------------------------------
- //
- // The definitions that follow describe the video de-interlace interface
- // between the VMR and the graphics device driver. This interface is not
- // accessable via the IAMVideoAccelerator interface.
- //
- // -------------------------------------------------------------------------
- //
- const
- DXVA_DeinterlaceBobDevice : TGUID = '{335aa36e-7884-43a4-9c91-7f87faf3e37e}';
- {$EXTERNALSYM DXVA_DeinterlaceBobDevice}
- DXVA_DeinterlaceContainerDevice : TGUID = '{0e85cb93-3046-4ff0-aecc-d58cb5f035fd}';
- {$EXTERNALSYM DXVA_DeinterlaceContainerDevice}
- type
- _DXVA_Frequency = record
- Numerator : DWORD;
- Denominator : DWORD;
- end;
- {$EXTERNALSYM _DXVA_Frequency}
- DXVA_Frequency = _DXVA_Frequency;
- {$EXTERNALSYM DXVA_Frequency}
- TDXVAFrequency = _DXVA_Frequency;
- PDXVAVideoDesc = ^TDXVAVideoDesc;
- _DXVA_VideoDesc = record
- Size : DWORD;
- SampleWidth : DWORD;
- SampleHeight : DWORD;
- SampleFormat : DWORD; // also contains extend color data
- d3dFormat : TD3DFORMAT;
- InputSampleFreq : TDXVAFrequency;
- OutputFrameFreq : TDXVAFrequency;
- end;
- {$EXTERNALSYM _DXVA_VideoDesc}
- DXVA_VideoDesc = _DXVA_VideoDesc;
- {$EXTERNALSYM DXVA_VideoDesc}
- LPDXVA_VideoDesc = ^DXVA_VideoDesc;
- {$EXTERNALSYM LPDXVA_VideoDesc}
- TDXVAVideoDesc = _DXVA_VideoDesc;
- DXVA_VideoProcessCaps = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXVA_VideoProcessCaps}
- const
- DXVA_VideoProcess_None = $0000;
- {$EXTERNALSYM DXVA_VideoProcess_None}
- DXVA_VideoProcess_YUV2RGB = $0001;
- {$EXTERNALSYM DXVA_VideoProcess_YUV2RGB}
- DXVA_VideoProcess_StretchX = $0002;
- {$EXTERNALSYM DXVA_VideoProcess_StretchX}
- DXVA_VideoProcess_StretchY = $0004;
- {$EXTERNALSYM DXVA_VideoProcess_StretchY}
- DXVA_VideoProcess_AlphaBlend = $0008;
- {$EXTERNALSYM DXVA_VideoProcess_AlphaBlend}
- DXVA_VideoProcess_SubRects = $0010;
- {$EXTERNALSYM DXVA_VideoProcess_SubRects}
- DXVA_VideoProcess_SubStreams = $0020;
- {$EXTERNALSYM DXVA_VideoProcess_SubStreams}
- DXVA_VideoProcess_SubStreamsExtended = $0040;
- {$EXTERNALSYM DXVA_VideoProcess_SubStreamsExtended}
- DXVA_VideoProcess_YUV2RGBExtended = $0080;
- {$EXTERNALSYM DXVA_VideoProcess_YUV2RGBExtended}
- DXVA_VideoProcess_AlphaBlendExtended = $0100;
- {$EXTERNALSYM DXVA_VideoProcess_AlphaBlendExtended}
- type
- DXVA_DeinterlaceTech = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXVA_DeinterlaceTech}
- const
- // the algorithm is unknown or proprietary
- DXVA_DeinterlaceTech_Unknown = $0000;
- {$EXTERNALSYM DXVA_DeinterlaceTech_Unknown}
- // the algorithm creates the missing lines by repeating
- // the line either above or below it - this method will look very jaggy and
- // isn't recommended
- DXVA_DeinterlaceTech_BOBLineReplicate = $0001;
- {$EXTERNALSYM DXVA_DeinterlaceTech_BOBLineReplicate}
- // The algorithm creates the missing lines by vertically stretching each
- // video field by a factor of two by averaging two lines
- DXVA_DeinterlaceTech_BOBVerticalStretch = $0002;
- {$EXTERNALSYM DXVA_DeinterlaceTech_BOBVerticalStretch}
- // or using a [-1, 9, 9, -1]/16 filter across four lines.
- DXVA_DeinterlaceTech_BOBVerticalStretch4Tap = $0100;
- {$EXTERNALSYM DXVA_DeinterlaceTech_BOBVerticalStretch4Tap}
- // the pixels in the missing line are recreated by a median filtering operation
- DXVA_DeinterlaceTech_MedianFiltering = $0004;
- {$EXTERNALSYM DXVA_DeinterlaceTech_MedianFiltering}
- // the pixels in the missing line are recreated by an edge filter.
- // In this process, spatial directional filters are applied to determine
- // the orientation of edges in the picture content, and missing
- // pixels are created by filtering along (rather than across) the
- // detected edges.
- DXVA_DeinterlaceTech_EdgeFiltering = $0010;
- {$EXTERNALSYM DXVA_DeinterlaceTech_EdgeFiltering}
- // the pixels in the missing line are recreated by switching on a field by
- // field basis between using either spatial or temporal interpolation
- // depending on the amount of motion.
- DXVA_DeinterlaceTech_FieldAdaptive = $0020;
- {$EXTERNALSYM DXVA_DeinterlaceTech_FieldAdaptive}
- // the pixels in the missing line are recreated by switching on a pixel by pixel
- // basis between using either spatial or temporal interpolation depending on
- // the amount of motion..
- DXVA_DeinterlaceTech_PixelAdaptive = $0040;
- {$EXTERNALSYM DXVA_DeinterlaceTech_PixelAdaptive}
- // Motion Vector Steering identifies objects within a sequence of video
- // fields. The missing pixels are recreated after first aligning the
- // movement axes of the individual objects in the scene to make them
- // parallel with the time axis.
- DXVA_DeinterlaceTech_MotionVectorSteered = $0080;
- {$EXTERNALSYM DXVA_DeinterlaceTech_MotionVectorSteered}
- type
- PDXVAVideoSample = ^TDXVAVideoSample;
- _DXVA_VideoSample = record
- rtStart : TReferenceTime;
- rtEnd : TReferenceTime;
- SampleFormat : TDXVASampleFormat; // only lower 8 bits used
- lpDDSSrcSurface : Pointer;
- end;
- {$EXTERNALSYM _DXVA_VideoSample}
- DXVA_VideoSample = _DXVA_VideoSample;
- {$EXTERNALSYM DXVA_VideoSample}
- LPDXVA_VideoSample = ^DXVA_VideoSample;
- {$EXTERNALSYM LPDXVA_VideoSample}
- TDXVAVideoSample = _DXVA_VideoSample;
- // -------------------------------------------------------------------------
- // DeinterlaceBltEx declarations
- // -------------------------------------------------------------------------
- //
- type
- DXVA_SampleFlags = LongWord;
- {$EXTERNALSYM DXVA_SampleFlags}
- const
- DXVA_SampleFlagsMask = (1 shl 3) or (1 shl 2) or (1 shl 1) or (1 shl 0);
- {$EXTERNALSYM DXVA_SampleFlagsMask}
- DXVA_SampleFlag_Palette_Changed = $0001;
- {$EXTERNALSYM DXVA_SampleFlag_Palette_Changed}
- DXVA_SampleFlag_SrcRect_Changed = $0002;
- {$EXTERNALSYM DXVA_SampleFlag_SrcRect_Changed}
- DXVA_SampleFlag_DstRect_Changed = $0004;
- {$EXTERNALSYM DXVA_SampleFlag_DstRect_Changed}
- DXVA_SampleFlag_ColorData_Changed = $0008;
- {$EXTERNALSYM DXVA_SampleFlag_ColorData_Changed}
- type
- DXVA_DestinationFlags = LongWord;
- const
- DXVA_DestinationFlagMask = (1 shl 3) or (1 shl 2) or (1 shl 1) or (1 shl 0);
- {$EXTERNALSYM DXVA_DestinationFlagMask}
- DXVA_DestinationFlag_Background_Changed = $0001;
- {$EXTERNALSYM DXVA_DestinationFlag_Background_Changed}
- DXVA_DestinationFlag_TargetRect_Changed = $0002;
- {$EXTERNALSYM DXVA_DestinationFlag_TargetRect_Changed}
- DXVA_DestinationFlag_ColorData_Changed = $0004;
- {$EXTERNALSYM DXVA_DestinationFlag_ColorData_Changed}
- DXVA_DestinationFlag_Alpha_Changed = $0008;
- {$EXTERNALSYM DXVA_DestinationFlag_Alpha_Changed}
- type
- PDXVAVideoSample2 = ^TDXVAVideoSample2;
- DXVA_VideoSample2 = record
- rtStart: REFERENCE_TIME;
- rtEnd: REFERENCE_TIME;
- SampleFormat: DWORD;
- SampleFlags: DWORD;
- lpDDSSrcSurface: Pointer;
- rcSrc: TRect;
- rcDst: TRect;
- Palette: array[0..15] of TDXVAAYUVsample2;
- end;
- {$EXTERNALSYM DXVA_VideoSample2}
- LPDXVA_VideoSample2 = ^DXVA_VideoSample2;
- {$EXTERNALSYM LPDXVA_VideoSample2}
- TDXVAVideoSample2 = DXVA_VideoSample2;
- PDXVADeinterlaceCaps = ^TDXVADeinterlaceCaps;
- _DXVA_DeinterlaceCaps = record
- Size : DWORD;
- NumPreviousOutputFrames : DWORD;
- InputPool : DWORD;
- NumForwardRefSamples : DWORD;
- NumBackwardRefSamples : DWORD;
- d3dOutputFormat : TD3DFORMAT;
- VideoProcessingCaps : DXVA_VideoProcessCaps;
- DeinterlaceTechnology : DXVA_DeinterlaceTech;
- end;
- {$EXTERNALSYM _DXVA_DeinterlaceCaps}
- DXVA_DeinterlaceCaps = _DXVA_DeinterlaceCaps;
- {$EXTERNALSYM DXVA_DeinterlaceCaps}
- LPDXVA_DeinterlaceCaps = ^DXVA_DeinterlaceCaps;
- {$EXTERNALSYM LPDXVA_DeinterlaceCaps}
- TDXVADeinterlaceCaps = _DXVA_DeinterlaceCaps;
- // -------------------------------------------------------------------------
- // Data types used with RenderMoComp in kernel mode
- // -------------------------------------------------------------------------
- const
- // Function codes for RenderMoComp
- MAX_DEINTERLACE_SURFACES = 32;
- {$EXTERNALSYM MAX_DEINTERLACE_SURFACES}
- type
- PDXVADeinterlaceBlt = ^TDXVADeinterlaceBlt;
- _DXVA_DeinterlaceBlt = record
- Size : DWORD;
- Reserved : DWORD;
- rtTarget : TReferenceTime;
- DstRect : TRECT;
- SrcRect : TRECT;
- NumSourceSurfaces : DWORD;
- Alpha : Single;
- Source: array[0..MAX_DEINTERLACE_SURFACES-1] of TDXVAVideoSample;
- end;
- {$EXTERNALSYM _DXVA_DeinterlaceBlt}
- DXVA_DeinterlaceBlt = _DXVA_DeinterlaceBlt;
- {$EXTERNALSYM DXVA_DeinterlaceBlt}
- TDXVADeinterlaceBlt = _DXVA_DeinterlaceBlt;
- const
- DXVA_DeinterlaceBltFnCode = $01;
- {$EXTERNALSYM DXVA_DeinterlaceBltFnCode}
- // lpInput => DXVA_DeinterlaceBlt*
- // lpOuput => NULL /* not currently used */
- type
- DXVA_DeinterlaceBltEx = record
- Size: DWORD;
- BackgroundColor : DXVA_AYUVsample2;
- rcTarget : TRect;
- rtTarget : REFERENCE_TIME;
- NumSourceSurfaces : DWORD;
- Alpha : Single;
- Source : array[0..MAX_DEINTERLACE_SURFACES-1] of DXVA_VideoSample2;
- DestinationFormat : DWORD;
- DestinationFlags : DWORD;
- end;
- {$EXTERNALSYM DXVA_DeinterlaceBltEx}
- const
- DXVA_DeinterlaceBltExFnCode = $02;
- {$EXTERNALSYM DXVA_DeinterlaceBltExFnCode}
- // lpInput => DXVA_DeinterlaceBltEx*
- // lpOuput => NULL /* not currently used */
- MAX_DEINTERLACE_DEVICE_GUIDS = 32;
- {$EXTERNALSYM MAX_DEINTERLACE_DEVICE_GUIDS}
- type
- PDXVADeinterlaceQueryAvailableModes = ^TDXVADeinterlaceQueryAvailableModes;
- _DXVA_DeinterlaceQueryAvailableModes = record
- Size : DWORD;
- NumGuids : DWORD;
- Guids: array[0..MAX_DEINTERLACE_DEVICE_GUIDS-1] of TGUID;
- end;
- {$EXTERNALSYM _DXVA_DeinterlaceQueryAvailableModes}
- DXVA_DeinterlaceQueryAvailableModes = _DXVA_DeinterlaceQueryAvailableModes;
- {$EXTERNALSYM DXVA_DeinterlaceQueryAvailableModes}
- TDXVADeinterlaceQueryAvailableModes = _DXVA_DeinterlaceQueryAvailableModes;
- const
- TDXVA_DeinterlaceQueryAvailableModesFnCode = $01;
- {$EXTERNALSYM TDXVA_DeinterlaceQueryAvailableModesFnCode}
- // lpInput => DXVA_VideoDesc*
- // lpOuput => DXVA_DeinterlaceQueryAvailableModes*
- type
- PDXVADeinterlaceQueryModeCaps = ^TDXVADeinterlaceQueryModeCaps;
- _DXVA_DeinterlaceQueryModeCaps = record
- Size : DWORD;
- Guid : TGUID;
- VideoDesc : TDXVAVideoDesc;
- end;
- {$EXTERNALSYM _DXVA_DeinterlaceQueryModeCaps}
- DXVA_DeinterlaceQueryModeCaps = _DXVA_DeinterlaceQueryModeCaps;
- {$EXTERNALSYM DXVA_DeinterlaceQueryModeCaps}
- TDXVADeinterlaceQueryModeCaps = _DXVA_DeinterlaceQueryModeCaps;
- const
- DXVA_DeinterlaceQueryModeCapsFnCode = $02;
- {$EXTERNALSYM DXVA_DeinterlaceQueryModeCapsFnCode}
- // lpInput => DXVA_DeinterlaceQueryModeCaps*
- // lpOuput => DXVA_DeinterlaceCaps*
- // -------------------------------------------------------------------------
- //
- // The definitions that follow describe the video ProcAmp interface
- // between the VMR and the graphics device driver. This interface is not
- // accessable via the IAMVideoAccelerator interface.
- //
- // -------------------------------------------------------------------------
- //
- const
- DXVA_ProcAmpControlDevice : TGUID = '{9f200913-2ffd-4056-9f1e-e1b508f22dcf}';
- {$EXTERNALSYM DXVA_ProcAmpControlDevice}
- type
- DXVA_ProcAmpControlProp = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXVA_ProcAmpControlProp}
- const
- DXVA_ProcAmp_None = $0000;
- {$EXTERNALSYM DXVA_ProcAmp_None}
- DXVA_ProcAmp_Brightness = $0001;
- {$EXTERNALSYM DXVA_ProcAmp_Brightness}
- DXVA_ProcAmp_Contrast = $0002;
- {$EXTERNALSYM DXVA_ProcAmp_Contrast}
- DXVA_ProcAmp_Hue = $0004;
- {$EXTERNALSYM DXVA_ProcAmp_Hue}
- DXVA_ProcAmp_Saturation = $0008;
- {$EXTERNALSYM DXVA_ProcAmp_Saturation}
- type
- PDXVAProcAmpControlCaps = ^TDXVAProcAmpControlCaps;
- _DXVA_ProcAmpControlCaps = record
- Size : DWORD;
- InputPool : DWORD;
- d3dOutputFormat : TD3DFORMAT;
- ProcAmpControlProps : DWORD; // see DXVA_ProcAmpControlProp
- VideoProcessingCaps : DWORD; // see DXVA_VideoProcessCaps
- end;
- {$EXTERNALSYM _DXVA_ProcAmpControlCaps}
- DXVA_ProcAmpControlCaps = _DXVA_ProcAmpControlCaps;
- {$EXTERNALSYM DXVA_ProcAmpControlCaps}
- LPDXVA_ProcAmpControlCaps = ^DXVA_ProcAmpControlCaps;
- {$EXTERNALSYM LPDXVA_ProcAmpControlCaps}
- TDXVAProcAmpControlCaps = _DXVA_ProcAmpControlCaps;
- const
- DXVA_ProcAmpControlQueryCapsFnCode = $03;
- {$EXTERNALSYM DXVA_ProcAmpControlQueryCapsFnCode}
- // lpInput => DXVA_VideoDesc*
- // lpOuput => DXVA_ProcAmpControlCaps*
- type
- PDXVAProcAmpControlQueryRange = ^TDXVAProcAmpControlQueryRange;
- _DXVA_ProcAmpControlQueryRange = record
- Size : DWORD;
- ProcAmpControlProp : DXVA_ProcAmpControlProp;
- VideoDesc : TDXVAVideoDesc;
- end;
- {$EXTERNALSYM _DXVA_ProcAmpControlQueryRange}
- DXVA_ProcAmpControlQueryRange = _DXVA_ProcAmpControlQueryRange;
- {$EXTERNALSYM DXVA_ProcAmpControlQueryRange}
- LPDXVA_ProcAmpControlQueryRange = ^DXVA_ProcAmpControlQueryRange;
- {$EXTERNALSYM LPDXVA_ProcAmpControlQueryRange}
- TDXVAProcAmpControlQueryRange = _DXVA_ProcAmpControlQueryRange;
- PDXVAVideoPropertyRange = ^TDXVAVideoPropertyRange;
- _DXVA_VideoPropertyRange = record
- MinValue : Single;
- MaxValue : Single;
- DefaultValue : Single;
- StepSize : Single;
- end;
- {$EXTERNALSYM _DXVA_VideoPropertyRange}
- DXVA_VideoPropertyRange = _DXVA_VideoPropertyRange;
- {$EXTERNALSYM DXVA_VideoPropertyRange}
- LPDXVA_VideoPropertyRange = ^DXVA_VideoPropertyRange;
- {$EXTERNALSYM LPDXVA_VideoPropertyRange}
- TDXVAVideoPropertyRange = _DXVA_VideoPropertyRange;
- const
- DXVA_ProcAmpControlQueryRangeFnCode = $04;
- {$EXTERNALSYM DXVA_ProcAmpControlQueryRangeFnCode}
- // lpInput => DXVA_ProcAmpControlQueryRange*
- // lpOuput => DXVA_VideoPropertyRange*
- type
- PDXVAProcAmpControlBlt = ^TDXVAProcAmpControlBlt;
- _DXVA_ProcAmpControlBlt = record
- Size : DWORD;
- DstRect : TRECT;
- SrcRect : TRECT;
- Alpha : Single;
- Brightness : Single;
- Contrast : Single;
- Hue : Single;
- Saturation : Single;
- end;
- {$EXTERNALSYM _DXVA_ProcAmpControlBlt}
- DXVA_ProcAmpControlBlt = _DXVA_ProcAmpControlBlt;
- {$EXTERNALSYM DXVA_ProcAmpControlBlt}
- TDXVAProcAmpControlBlt = _DXVA_ProcAmpControlBlt;
- const
- DXVA_ProcAmpControlBltFnCode = $01;
- {$EXTERNALSYM DXVA_ProcAmpControlBltFnCode}
- // lpInput => DXVA_ProcAmpControlBlt*
- // lpOuput => NULL /* not currently used */
- // -------------------------------------------------------------------------
- //
- // The definitions that follow describe the Certified Output Protection
- // Protocol between the VMR and the graphics device driver. This interface
- // is not accessable via the IAMVideoAccelerator interface.
- //
- // -------------------------------------------------------------------------
- //
- const
- DXVA_COPPDevice : TGUID = '{D2457ADD-8999-45ED-8A8A-D1AA047BA4D5}';
- {$EXTERNALSYM DXVA_COPPDevice}
- // -------------------------------------------------------------------------
- // COPPGetCertificateLength
- // -------------------------------------------------------------------------
- DXVA_COPPGetCertificateLengthFnCode = $01;
- {$EXTERNALSYM DXVA_COPPGetCertificateLengthFnCode}
- // lpInput => NULL
- // lpOuput => DWORD*
- // -------------------------------------------------------------------------
- // COPPKeyExchange
- // -------------------------------------------------------------------------
- DXVA_COPPKeyExchangeFnCode = $02;
- {$EXTERNALSYM DXVA_COPPKeyExchangeFnCode}
- // lpInputData => NULL
- // lpOuputData => GUID*
- // -------------------------------------------------------------------------
- // COPPSequenceStart
- // -------------------------------------------------------------------------
- type
- PDXVACOPPSignature = ^TDXVACOPPSignature;
- DXVA_COPPSignature = record
- Signature: array[0..255] of Char;
- end;
- {$EXTERNALSYM DXVA_COPPSignature}
- LPDXVA_COPPSignature = ^DXVA_COPPSignature;
- {$EXTERNALSYM LPDXVA_COPPSignature}
- TDXVACOPPSignature = DXVA_COPPSignature;
- const
- DXVA_COPPSequenceStartFnCode = $03;
- {$EXTERNALSYM DXVA_COPPSequenceStartFnCode}
- // lpInputData => DXVA_COPPSignature*
- // lpOuputData => NULL
- // -------------------------------------------------------------------------
- // COPPCommand
- // -------------------------------------------------------------------------
- type
- PDXVACOPPCommand = ^TDXVACOPPCommand;
- DXVA_COPPCommand = packed record
- macKDI: TGUID; // 16 bytes
- guidCommandID: TGUID; // 16 bytes
- dwSequence: ULONG; // 4 bytes
- cbSizeData: ULONG; // 4 bytes
- CommandData: array[0..4055] of Char; // 4056 bytes (4056+4+4+16+16 = 4096)
- end;
- {$EXTERNALSYM DXVA_COPPCommand}
- LPDXVA_COPPCommand = ^DXVA_COPPCommand;
- {$EXTERNALSYM LPDXVA_COPPCommand}
- TDXVACOPPCommand = DXVA_COPPCommand;
- const
- DXVA_COPPCommandFnCode = $04;
- {$EXTERNALSYM DXVA_COPPCommandFnCode}
- // lpInputData => DXVA_COPPCommand*
- // lpOuputData => NULL
- DXVA_COPPSetProtectionLevel : TGUID = '{9bb9327c-4eb5-4727-9f00-b42b0919c0da}';
- {$EXTERNALSYM DXVA_COPPSetProtectionLevel}
- type
- PDXVACOPPSetProtectionLevelCmdData = ^TDXVACOPPSetProtectionLevelCmdData;
- DXVA_COPPSetProtectionLevelCmdData = packed record
- ProtType: ULONG;
- ProtLevel: ULONG;
- TypeSpecificMask: ULONG;
- TypeSpecificInfo: ULONG;
- end;
- {$EXTERNALSYM DXVA_COPPSetProtectionLevelCmdData}
- TDXVACOPPSetProtectionLevelCmdData = DXVA_COPPSetProtectionLevelCmdData;
- // Set the HDCP protection level - (0 - 1 DWORD, 4 bytes)
- COPP_HDCP_Protection_Level = LongWord;
- {$EXTERNALSYM COPP_HDCP_Protection_Level}
- const
- COPP_HDCP_Level0 = 0;
- {$EXTERNALSYM COPP_HDCP_Level0}
- COPP_HDCP_LevelMin = COPP_HDCP_Level0;
- {$EXTERNALSYM COPP_HDCP_LevelMin}
- COPP_HDCP_Level1 = 1;
- {$EXTERNALSYM COPP_HDCP_Level1}
- COPP_HDCP_LevelMax = COPP_HDCP_Level1;
- {$EXTERNALSYM COPP_HDCP_LevelMax}
- COPP_HDCP_ForceDWORD = $7fffffff;
- {$EXTERNALSYM COPP_HDCP_ForceDWORD}
- type
- COPP_CGMSA_Protection_Level = LongWord;
- {$EXTERNALSYM COPP_CGMSA_Protection_Level}
- const
- COPP_CGMSA_CopyFreely = 0;
- {$EXTERNALSYM COPP_CGMSA_CopyFreely}
- COPP_CGMSA_LevelMin = COPP_CGMSA_CopyFreely;
- {$EXTERNALSYM COPP_CGMSA_LevelMin}
- COPP_CGMSA_CopyOneGeneration = 2;
- {$EXTERNALSYM COPP_CGMSA_CopyOneGeneration}
- COPP_CGMSA_CopyNever = 3;
- {$EXTERNALSYM COPP_CGMSA_CopyNever}
- COPP_CGMSA_RedistributionControlRequired = $04;
- {$EXTERNALSYM COPP_CGMSA_RedistributionControlRequired}
- COPP_CGMSA_LevelMax = (COPP_CGMSA_RedistributionControlRequired + COPP_CGMSA_CopyNever);
- {$EXTERNALSYM COPP_CGMSA_LevelMax}
- COPP_CGMSA_ForceDWORD = $7fffffff;
- {$EXTERNALSYM COPP_CGMSA_ForceDWORD}
- COPP_WSS_FLAG = $01; // used with DXVA_COPPSetProtectionLevelCmdData::TypeSpecificInfo
- {$EXTERNALSYM COPP_WSS_FLAG}
- type
- COPP_ACP_Protection_Level = LongWord;
- {$EXTERNALSYM COPP_ACP_Protection_Level}
- const
- COPP_ACP_Level0 = 0;
- {$EXTERNALSYM COPP_ACP_Level0}
- COPP_ACP_LevelMin = COPP_ACP_Level0;
- {$EXTERNALSYM COPP_ACP_LevelMin}
- COPP_ACP_Level1 = 1;
- {$EXTERNALSYM COPP_ACP_Level1}
- COPP_ACP_Level2 = 2;
- {$EXTERNALSYM COPP_ACP_Level2}
- COPP_ACP_Level3 = 3;
- {$EXTERNALSYM COPP_ACP_Level3}
- COPP_ACP_LevelMax = COPP_ACP_Level3;
- {$EXTERNALSYM COPP_ACP_LevelMax}
- COPP_ACP_ForceDWORD = $7fffffff;
- {$EXTERNALSYM COPP_ACP_ForceDWORD}
- COPP_NoProtectionLevelAvailable = -1;
- {$EXTERNALSYM COPP_NoProtectionLevelAvailable}
- COPP_DefaultProtectionLevel = 0;
- {$EXTERNALSYM COPP_DefaultProtectionLevel}
- //
- // Bit flags of possible protection types. Note that it is possible to apply
- // different protection settings to a single connector.
- //
- COPP_ProtectionType_Unknown = $80000000;
- {$EXTERNALSYM COPP_ProtectionType_Unknown}
- COPP_ProtectionType_None = $00000000;
- {$EXTERNALSYM COPP_ProtectionType_None}
- COPP_ProtectionType_HDCP = $00000001;
- {$EXTERNALSYM COPP_ProtectionType_HDCP}
- COPP_ProtectionType_ACP = $00000002;
- {$EXTERNALSYM COPP_ProtectionType_ACP}
- COPP_ProtectionType_CGMSA = $00000004;
- {$EXTERNALSYM COPP_ProtectionType_CGMSA}
- COPP_ProtectionType_Mask = $80000007;
- {$EXTERNALSYM COPP_ProtectionType_Mask}
- COPP_ProtectionType_Reserved = $7FFFFFF8;
- {$EXTERNALSYM COPP_ProtectionType_Reserved}
- // -------------------------------------------------------------------------
- // COPPQueryStatus
- // -------------------------------------------------------------------------
- type
- PDXVACOPPStatusInput = ^TDXVACOPPStatusInput;
- DXVA_COPPStatusInput = packed record
- rApp : TGUID; // 16 bytes
- guidStatusRequestID : TGUID; // 16 bytes
- dwSequence : ULONG; // 4 bytes
- cbSizeData : ULONG; // 4 bytes
- StatusData: array[0..4055] of char; // 4056 bytes (4056+4+4+16+16 = 4096)
- end;
- {$EXTERNALSYM DXVA_COPPStatusInput}
- LPDXVA_COPPStatusInput = ^DXVA_COPPStatusInput;
- {$EXTERNALSYM LPDXVA_COPPStatusInput}
- TDXVACOPPStatusInput = DXVA_COPPStatusInput;
- PDXVACOPPStatusOutput = ^TDXVACOPPStatusOutput;
- DXVA_COPPStatusOutput = packed record
- macKDI : TGUID; // 16 bytes
- cbSizeData : ULONG; // 4 bytes
- COPPStatus : array[0..4075] of Char; // 4076 bytes (4076+16+4 = 4096)
- end;
- {$EXTERNALSYM DXVA_COPPStatusOutput}
- LPDXVA_COPPStatusOutput = ^DXVA_COPPStatusOutput;
- {$EXTERNALSYM LPDXVA_COPPStatusOutput}
- TDXVACOPPStatusOutput = DXVA_COPPStatusOutput;
- type
- COPP_StatusFlags = (
- COPP_StatusNormal,
- COPP_LinkLost,
- COPP_RenegotiationRequired
- );
- {$EXTERNALSYM COPP_StatusFlags}
- TCOPPStatusFlags = COPP_StatusFlags;
- const
- COPP_StatusFlagsReserved = $FFFFFFFC;
- {$EXTERNALSYM COPP_StatusFlagsReserved}
-
- type
- PDXVACOPPStatusData = ^TDXVACOPPStatusData;
- DXVA_COPPStatusData = packed record
- rApp : TGUID;
- dwFlags : ULONG; // See COPP_StatusFlags above
- dwData : ULONG;
- TypeSpecificMask : ULONG;
- TypeSpecificInfo : ULONG;
- end;
- {$EXTERNALSYM DXVA_COPPStatusData}
- TDXVACOPPStatusData = DXVA_COPPStatusData;
- DXVA_COPPStatusDisplayData = packed record
- rApp: TGUID;
- dwFlags: ULONG; // See COPP_StatusFlags above
- DisplayWidth: ULONG;
- Displayheight: ULONG;
- Format: ULONG; // also contains extended color data
- d3dFormat: ULONG;
- FreqNumerator: ULONG;
- FreqDenominator: ULONG;
- end;
- {$EXTERNALSYM DXVA_COPPStatusDisplayData}
- COPP_StatusHDCPFlags = (
- COPP_HDCPReceiver,
- COPP_HDCPRepeater
- );
- {$EXTERNALSYM COPP_StatusHDCPFlags}
- TCOPPStatusHDCPFlags = COPP_StatusHDCPFlags;
- PDXVACOPPStatusHDCPKeyData = ^TDXVACOPPStatusHDCPKeyData;
- DXVA_COPPStatusHDCPKeyData = packed record
- rApp: TGUID;
- dwFlags: ULONG; // See COPP_StatusFlags above
- dwHDCPFlags: ULONG; // See COPP_StatusHDCPFlags above
- BKey: TGUID; // Lower 40 bits
- reserved1: TGUID;
- reserved2: TGUID;
- end;
- {$EXTERNALSYM DXVA_COPPStatusHDCPKeyData}
- TDXVACOPPStatusHDCPKeyData = DXVA_COPPStatusHDCPKeyData;
- const
- DXVA_COPPQueryStatusFnCode = $05;
- {$EXTERNALSYM DXVA_COPPQueryStatusFnCode}
- // lpInputData => DXVA_COPPStatusInput*
- // lpOuputData => DXVA_COPPStatusOutput*
- //
- // Status GUID and enumerations
- //
- DXVA_COPPQueryConnectorType: TGUID = '{81d0bfd5-6afe-48c2-99c0-95a08f97c5da}';
- {$EXTERNALSYM DXVA_COPPQueryConnectorType}
- const
- COPP_ConnectorType_Unknown = -1;
- {$EXTERNALSYM COPP_ConnectorType_Unknown}
- COPP_ConnectorType_Internal = $80000000; // can be combined with the other connector types
- {$EXTERNALSYM COPP_ConnectorType_Internal}
- type
- COPP_ConnectorType = (
- COPP_ConnectorType_VGA,
- COPP_ConnectorType_SVideo,
- COPP_ConnectorType_CompositeVideo,
- COPP_ConnectorType_ComponentVideo,
- COPP_ConnectorType_DVI,
- COPP_ConnectorType_HDMI,
- COPP_ConnectorType_LVDS,
- COPP_ConnectorType_TMDS,
- COPP_ConnectorType_D_JPN
- //COPP_ConnectorType_ForceDWORD = $7fffffff; (* force 32-bit size enum *)
- );
- {$EXTERNALSYM COPP_ConnectorType}
- TCOPPConnectorType = COPP_ConnectorType;
-
- const
- DXVA_COPPQueryProtectionType : TGUID = '{38f2a801-9a6c-48bb-9107-b6696e6f1797}';
- {$EXTERNALSYM DXVA_COPPQueryProtectionType}
- DXVA_COPPQueryLocalProtectionLevel : TGUID = '{b2075857-3eda-4d5d-88db-748f8c1a0549}';
- {$EXTERNALSYM DXVA_COPPQueryLocalProtectionLevel}
- DXVA_COPPQueryGlobalProtectionLevel : TGUID = '{1957210a-7766-452a-b99a-d27aed54f03a}';
- {$EXTERNALSYM DXVA_COPPQueryGlobalProtectionLevel}
- DXVA_COPPQueryDisplayData : TGUID = '{d7bf1ba3-ad13-4f8e-af98-0dcb3ca204cc}';
- {$EXTERNALSYM DXVA_COPPQueryDisplayData}
- DXVA_COPPQueryHDCPKeyData : TGUID = '{0db59d74-a992-492e-a0bd-c23fda564e00}';
- {$EXTERNALSYM DXVA_COPPQueryHDCPKeyData}
- DXVA_COPPQueryBusData : TGUID = '{c6f4d673-6174-4184-8e35-f6db5200bcba}';
- {$EXTERNALSYM DXVA_COPPQueryBusData}
- COPP_BusType_Integrated = $80000000; // can be combined with the other bus types
- {$EXTERNALSYM COPP_BusType_Integrated}
- type
- COPP_BusType = (
- COPP_BusType_Unknown,
- COPP_BusType_PCI,
- COPP_BusType_PCIX,
- COPP_BusType_PCIExpress,
- COPP_BusType_AGP
- //COPP_BusType_ForceDWORD = 0x7fffffff /* force 32-bit size enum */
- );
- {$EXTERNALSYM COPP_BusType}
- TCOPPBusType = COPP_BusType;
- //------------------------------------------------------------------------------
- // File: AMVA.h
- // Desc: DirectShowMotionComp include file.
- // Copyright (c) 1997 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- AMVA_TYPEINDEX_OUTPUTFRAME = $FFFFFFFF;
- {$EXTERNALSYM AMVA_TYPEINDEX_OUTPUTFRAME}
- // Flags for QueryRenderStatus
- AMVA_QUERYRENDERSTATUSF_READ = $00000001; // Query for read
- {$EXTERNALSYM AMVA_QUERYRENDERSTATUSF_READ}
- // set this bit to 0
- // if query for update
- type
- PAMVAUncompBufferInfo = ^TAMVAUncompBufferInfo;
- _tag_AMVAUncompBufferInfo = record
- dwMinNumSurfaces : DWORD ; // IN min number of surfaces to be allocated
- dwMaxNumSurfaces : DWORD ; // IN max number of surfaces to be allocated
- ddUncompPixelFormat : TDDPixelFormat ; // IN pixel format of surfaces to be allocated
- end;
- {$EXTERNALSYM _tag_AMVAUncompBufferInfo}
- AMVAUncompBufferInfo = _tag_AMVAUncompBufferInfo;
- {$EXTERNALSYM AMVAUncompBufferInfo}
- LPAMVAUncompBufferInfo = ^AMVAUncompBufferInfo;
- {$EXTERNALSYM LPAMVAUncompBufferInfo}
- TAMVAUncompBufferInfo = _tag_AMVAUncompBufferInfo;
- PAMVAUncompDataInfo = ^TAMVAUncompDataInfo;
- _tag_AMVAUncompDataInfo = record
- dwUncompWidth : DWORD ; // [in] width of uncompressed data
- dwUncompHeight : DWORD ; // [in] height of uncompressed data
- ddUncompPixelFormat : TDDPixelFormat ; // [in] pixel-format of uncompressed data
- end;
- {$EXTERNALSYM _tag_AMVAUncompDataInfo}
- AMVAUncompDataInfo = _tag_AMVAUncompDataInfo;
- {$EXTERNALSYM AMVAUncompDataInfo}
- LPAMVAUncompDataInfo = ^AMVAUncompDataInfo;
- {$EXTERNALSYM LPAMVAUncompDataInfo}
- TAMVAUncompDataInfo = _tag_AMVAUncompDataInfo;
- PAMVAInternalMemInfo = ^TAMVAInternalMemInfo;
- _tag_AMVAInternalMemInfo = record
- dwScratchMemAlloc : DWORD ; // [out] amount of scratch memory will the hal allocate for its private use
- end;
- {$EXTERNALSYM _tag_AMVAInternalMemInfo}
- AMVAInternalMemInfo = _tag_AMVAInternalMemInfo;
- {$EXTERNALSYM AMVAInternalMemInfo}
- LPAMVAInternalMemInfo = ^AMVAInternalMemInfo;
- {$EXTERNALSYM LPAMVAInternalMemInfo}
- TAMVAInternalMemInfo = _tag_AMVAInternalMemInfo;
- PAMVACompBufferInfo = ^TAMVACompBufferInfo;
- _tag_AMVACompBufferInfo = record
- dwNumCompBuffers : DWORD ; // [out] number of buffers reqd for compressed data
- dwWidthToCreate : DWORD ; // [out] Width of surface to create
- dwHeightToCreate : DWORD ; // [out] Height of surface to create
- dwBytesToAllocate : DWORD ; // [out] Total number of bytes used by each surface
- ddCompCaps : TDDSCAPS2 ; // [out] caps to create surfaces to store compressed data
- ddPixelFormat : TDDPixelFormat; // [out] fourcc to create surfaces to store compressed data
- end;
- {$EXTERNALSYM _tag_AMVACompBufferInfo}
- AMVACompBufferInfo = _tag_AMVACompBufferInfo;
- {$EXTERNALSYM AMVACompBufferInfo}
- LPAMVACompBufferInfo = ^AMVACompBufferInfo;
- {$EXTERNALSYM LPAMVACompBufferInfo}
- TAMVACompBufferInfo = _tag_AMVACompBufferInfo;
- // Note that you are NOT allowed to store any pointer in pMiscData
- PAMVABeginFrameInfo = ^TAMVABeginFrameInfo;
- _tag_AMVABeginFrameInfo = record
- dwDestSurfaceIndex : DWORD ; // IN destination buffer in which to decoding this frame
- pInputData : pointer ; // IN pointer to misc data
- dwSizeInputData : DWORD ; // IN size of other misc data to begin frame
- pOutputData : pointer ; // OUT pointer to data which the VGA is going to fill
- dwSizeOutputData : DWORD ; // IN size of data which the VGA is going to fill
- end;
- {$EXTERNALSYM _tag_AMVABeginFrameInfo}
- AMVABeginFrameInfo = _tag_AMVABeginFrameInfo;
- {$EXTERNALSYM AMVABeginFrameInfo}
- LPAMVABeginFrameInfo = ^AMVABeginFrameInfo;
- {$EXTERNALSYM LPAMVABeginFrameInfo}
- TAMVABeginFrameInfo = _tag_AMVABeginFrameInfo;
- // Note that you are NOT allowed to store any pointer in pMiscData
- PAMVAEndFrameInfo = ^TAMVAEndFrameInfo;
- _tag_AMVAEndFrameInfo = record
- dwSizeMiscData : DWORD ; // [in] size of other misc data to begin frame
- pMiscData : pointer; // [in] pointer to misc data
- end;
- {$EXTERNALSYM _tag_AMVAEndFrameInfo}
- AMVAEndFrameInfo = _tag_AMVAEndFrameInfo;
- {$EXTERNALSYM AMVAEndFrameInfo}
- LPAMVAEndFrameInfo = ^AMVAEndFrameInfo;
- {$EXTERNALSYM LPAMVAEndFrameInfo}
- TAMVAEndFrameInfo = _tag_AMVAEndFrameInfo;
- PAMVABufferInfo = ^TAMVABufferInfo;
- _tag_AMVABUFFERINFO = record
- dwTypeIndex : DWORD; // [in] Type of buffer
- dwBufferIndex : DWORD; // [in] Buffer index
- dwDataOffset : DWORD; // [in] offset of relevant data from the beginning of buffer
- dwDataSize : DWORD; // [in] size of relevant data
- end;
- {$EXTERNALSYM _tag_AMVABUFFERINFO}
- AMVABUFFERINFO = _tag_AMVABUFFERINFO;
- {$EXTERNALSYM AMVABUFFERINFO}
- LPAMVABUFFERINFO = ^AMVABUFFERINFO;
- {$EXTERNALSYM LPAMVABUFFERINFO}
- TAMVABufferInfo = _tag_AMVABUFFERINFO;
-
- //------------------------------------------------------------------------------
- // File: videoacc.h
- // Desc: DirectX Video Acceleration interfaces
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_IAMVideoAcceleratorNotify : TGUID = '{256A6A21-FBAD-11d1-82BF-00A0C9696C8F}';
- {$EXTERNALSYM IID_IAMVideoAcceleratorNotify}
- IID_IAMVideoAccelerator : TGUID = '{256A6A22-FBAD-11d1-82BF-00A0C9696C8F}';
- {$EXTERNALSYM IID_IAMVideoAccelerator}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVideoAcceleratorNotify> _di_IAMVideoAcceleratorNotify;'}
- {$EXTERNALSYM IAMVideoAcceleratorNotify}
- IAMVideoAcceleratorNotify = interface(IUnknown)
- ['{256A6A21-FBAD-11d1-82BF-00A0C9696C8F}']
- (*** IAMVideoAcceleratorNotify methods ***)
- function GetUncompSurfacesInfo(const pGuid: TGUID; var pUncompBufferInfo: PAMVAUncompBufferInfo): HResult; stdcall;
- function SetUncompSurfacesInfo(dwActualUncompSurfacesAllocated: DWORD): HResult; stdcall;
- function GetCreateVideoAcceleratorData(const pGuid: TGUID; out pdwSizeMiscData: PDWORD; out ppMiscData: pointer): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMVideoAccelerator> _di_IAMVideoAccelerator;'}
- {$EXTERNALSYM IAMVideoAccelerator}
- IAMVideoAccelerator = interface(IUnknown)
- ['{256A6A22-FBAD-11d1-82BF-00A0C9696C8F}']
- (*** IAMVideoAccelerator methods ***)
- function GetVideoAcceleratorGUIDs(var pdwNumGuidsSupported: PDWORD; var pGuidsSupported: PGUID): HResult; stdcall;
- function GetUncompFormatsSupported(const pGuid: TGUID; var pdwNumFormatsSupported: PDWORD;
- var pFormatsSupported: PDDPixelFormat): HResult; stdcall;
- function GetInternalMemInfo(const pGuid: TGUID; const pamvaUncompDataInfo: TAMVAUncompDataInfo;
- var pamvaInternalMemInfo: PAMVAInternalMemInfo): HResult; stdcall;
- function GetCompBufferInfo(const pGuid: TGUID; const pamvaUncompDataInfo: TAMVAUncompDataInfo ;
- var pdwNumTypesCompBuffers: PDWORD; out pamvaCompBufferInfo: PAMVACompBufferInfo): HResult; stdcall;
- function GetInternalCompBufferInfo(var pdwNumTypesCompBuffers: PDWORD; out pamvaCompBufferInfo: PAMVACompBufferInfo): HResult; stdcall;
- function BeginFrame(const amvaBeginFrameInfo: TAMVABeginFrameInfo): HResult; stdcall;
- function EndFrame(const pEndFrameInfo: TAMVAEndFrameInfo): HResult; stdcall;
- function GetBuffer(dwTypeIndex, dwBufferIndex: DWORD; bReadOnly: BOOL; out ppBuffer; out lpStride: LONGINT): HResult; stdcall;
- function ReleaseBuffer(dwTypeIndex, dwBufferIndex: DWORD): HResult; stdcall;
- function Execute(dwFunction: DWORD; lpPrivateInputData : pointer; cbPrivateInputData: DWORD;
- lpPrivateOutputDat: pointer; cbPrivateOutputData, dwNumBuffers: DWORD;
- const pamvaBufferInfo: TAMVABUFFERINFO): HResult; stdcall;
- function QueryRenderStatus(dwTypeIndex, dwBufferIndex, dwFlags: DWORD): HResult; stdcall;
- function DisplayFrame(dwFlipToIndex: DWORD; pMediaSample: IMediaSample): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: BDATypes.h
- //
- // Desc: Typedefs and enums needed by both the WDM drivers and the user mode
- // COM interfaces.
- //
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- // Utility Macros
- const
- MIN_DIMENSION = 1;
- {$EXTERNALSYM MIN_DIMENSION}
- NATURAL = 4;
- {$EXTERNALSYM NATURAL}
- CACHE_LINE = 128;
- {$EXTERNALSYM CACHE_LINE}
- PAGE = 4096;
- {$EXTERNALSYM PAGE}
- //#define ALIGN( pointer, size) (((ULONG)(pointer) + (ULONG)(size) - 1) & ~((ULONG)(size) - 1))
- //#define BDA_STRING_CONST(x) {sizeof(L##x)-2, sizeof(L##x), L##x}
- //===========================================================================
- //
- // BDA Topology Structures
- //
- //===========================================================================
- type
- PBDATemplateConnection = ^TBDATemplateConnection;
- _BDA_TEMPLATE_CONNECTION = record
- FromNodeType : ULONG;
- FromNodePinType : ULONG;
- ToNodeType : ULONG;
- ToNodePinType : ULONG;
- end;
- {$EXTERNALSYM _BDA_TEMPLATE_CONNECTION}
- BDA_TEMPLATE_CONNECTION = _BDA_TEMPLATE_CONNECTION;
- {$EXTERNALSYM BDA_TEMPLATE_CONNECTION}
- PBDA_TEMPLATE_CONNECTION = ^BDA_TEMPLATE_CONNECTION;
- {$EXTERNALSYM PBDA_TEMPLATE_CONNECTION}
- TBDATemplateConnection = _BDA_TEMPLATE_CONNECTION;
- PBDATemplatePinJoint = ^TBDATemplatePinJoint;
- _BDA_TEMPLATE_PIN_JOINT = record
- uliTemplateConnection : ULONG;
- ulcInstancesMax : ULONG;
- end;
- {$EXTERNALSYM _BDA_TEMPLATE_PIN_JOINT}
- BDA_TEMPLATE_PIN_JOINT = _BDA_TEMPLATE_PIN_JOINT;
- {$EXTERNALSYM BDA_TEMPLATE_PIN_JOINT}
- PBDA_TEMPLATE_PIN_JOINT = ^BDA_TEMPLATE_PIN_JOINT;
- {$EXTERNALSYM PBDA_TEMPLATE_PIN_JOINT}
- TBDATemplatePinJoint = _BDA_TEMPLATE_PIN_JOINT;
- //===========================================================================
- // BDA Events
- //===========================================================================
- // In-band Event IDs
- PBDAEventID = ^TBDAEventID;
- BDA_EVENT_ID = (
- BDA_EVENT_SIGNAL_LOSS,
- BDA_EVENT_SIGNAL_LOCK,
- BDA_EVENT_DATA_START,
- BDA_EVENT_DATA_STOP,
- BDA_EVENT_CHANNEL_ACQUIRED,
- BDA_EVENT_CHANNEL_LOST,
- BDA_EVENT_CHANNEL_SOURCE_CHANGED,
- BDA_EVENT_CHANNEL_ACTIVATED,
- BDA_EVENT_CHANNEL_DEACTIVATED,
- BDA_EVENT_SUBCHANNEL_ACQUIRED,
- BDA_EVENT_SUBCHANNEL_LOST,
- BDA_EVENT_SUBCHANNEL_SOURCE_CHANGED,
- BDA_EVENT_SUBCHANNEL_ACTIVATED,
- BDA_EVENT_SUBCHANNEL_DEACTIVATED,
- BDA_EVENT_ACCESS_GRANTED,
- BDA_EVENT_ACCESS_DENIED,
- BDA_EVENT_OFFER_EXTENDED,
- BDA_EVENT_PURCHASE_COMPLETED,
- BDA_EVENT_SMART_CARD_INSERTED,
- BDA_EVENT_SMART_CARD_REMOVED
- );
- {$EXTERNALSYM BDA_EVENT_ID}
- PBDA_EVENT_ID = ^BDA_EVENT_ID;
- {$EXTERNALSYM PBDA_EVENT_ID}
- TBDAEventID = BDA_EVENT_ID;
- //===========================================================================
- //
- // KSSTREAM_HEADER extensions for BDA
- //
- //===========================================================================
- PKSBDAFrameInfo = ^TKSBDAFrameInfo;
- tagKS_BDA_FRAME_INFO = record
- ExtendedHeaderSize : ULONG; // Size of this extended header
- dwFrameFlags : DWORD;
- ulEvent : ULONG;
- ulChannelNumber : ULONG;
- ulSubchannelNumber : ULONG;
- ulReason : ULONG;
- end;
- {$EXTERNALSYM tagKS_BDA_FRAME_INFO}
- KS_BDA_FRAME_INFO = tagKS_BDA_FRAME_INFO;
- {$EXTERNALSYM KS_BDA_FRAME_INFO}
- PKS_BDA_FRAME_INFO = ^KS_BDA_FRAME_INFO;
- {$EXTERNALSYM PKS_BDA_FRAME_INFO}
- TKSBDAFrameInfo = tagKS_BDA_FRAME_INFO;
- //------------------------------------------------------------
- // BDA Network Ethernet Filter Property Set
- // {71985F43-1CA1-11d3-9CC8-00C04F7971E0}
- PBDAEthernetAddress = ^TBDAEthernetAddress;
- _BDA_ETHERNET_ADDRESS = record
- rgbAddress : array[0..5] of BYTE;
- end;
- {$EXTERNALSYM _BDA_ETHERNET_ADDRESS}
- BDA_ETHERNET_ADDRESS = _BDA_ETHERNET_ADDRESS;
- {$EXTERNALSYM BDA_ETHERNET_ADDRESS}
- PBDA_ETHERNET_ADDRESS = ^BDA_ETHERNET_ADDRESS;
- {$EXTERNALSYM PBDA_ETHERNET_ADDRESS}
- TBDAEthernetAddress = _BDA_ETHERNET_ADDRESS;
- PBDAEthernetAddressList = ^TBDAEthernetAddressList;
- _BDA_ETHERNET_ADDRESS_LIST = record
- ulcAddresses : ULONG;
- rgAddressl : array[0..MIN_DIMENSION-1] of TBDAEthernetAddress;
- end;
- {$EXTERNALSYM _BDA_ETHERNET_ADDRESS_LIST}
- BDA_ETHERNET_ADDRESS_LIST = _BDA_ETHERNET_ADDRESS_LIST;
- {$EXTERNALSYM BDA_ETHERNET_ADDRESS_LIST}
- PBDA_ETHERNET_ADDRESS_LIST = ^BDA_ETHERNET_ADDRESS_LIST;
- {$EXTERNALSYM PBDA_ETHERNET_ADDRESS_LIST}
- TBDAEthernetAddressList = _BDA_ETHERNET_ADDRESS_LIST;
- PBDAMulticastMode = ^TBDAMulticastMode;
- BDA_MULTICAST_MODE = (
- BDA_PROMISCUOUS_MULTICAST,
- BDA_FILTERED_MULTICAST,
- BDA_NO_MULTICAST
- );
- {$EXTERNALSYM BDA_MULTICAST_MODE}
- PBDA_MULTICAST_MODE = ^BDA_MULTICAST_MODE;
- {$EXTERNALSYM PBDA_MULTICAST_MODE}
- TBDAMulticastMode = BDA_MULTICAST_MODE;
- //------------------------------------------------------------
- // BDA Network IPv4 Filter Property Set
- // {71985F44-1CA1-11d3-9CC8-00C04F7971E0}
- PBDAIPv4Address = ^TBDAIPv4Address;
- _BDA_IPv4_ADDRESS = record
- rgbAddress : array[0..3] of BYTE;
- end;
- {$EXTERNALSYM _BDA_IPv4_ADDRESS}
- BDA_IPv4_ADDRESS = _BDA_IPv4_ADDRESS;
- {$EXTERNALSYM BDA_IPv4_ADDRESS}
- PBDA_IPv4_ADDRESS = ^BDA_IPv4_ADDRESS;
- {$EXTERNALSYM PBDA_IPv4_ADDRESS}
- TBDAIPv4Address = _BDA_IPv4_ADDRESS;
- PBDAIPv4AddressList = ^TBDAIPv4AddressList;
- _BDA_IPv4_ADDRESS_LIST = record
- ulcAddresses : ULONG;
- rgAddressl : array[0..MIN_DIMENSION-1] of TBDAIPv4Address;
- end;
- {$EXTERNALSYM _BDA_IPv4_ADDRESS_LIST}
- BDA_IPv4_ADDRESS_LIST = _BDA_IPv4_ADDRESS_LIST;
- {$EXTERNALSYM BDA_IPv4_ADDRESS_LIST}
- PBDA_IPv4_ADDRESS_LIST = ^BDA_IPv4_ADDRESS_LIST;
- {$EXTERNALSYM PBDA_IPv4_ADDRESS_LIST}
- TBDAIPv4AddressList = _BDA_IPv4_ADDRESS_LIST;
- //------------------------------------------------------------
- // BDA Network IPv4 Filter Property Set
- // {E1785A74-2A23-4fb3-9245-A8F88017EF33}
- PBDAIPv6Address = ^TBDAIPv6Address;
- _BDA_IPv6_ADDRESS = record
- rgbAddress : array[0..5] of BYTE;
- end;
- {$EXTERNALSYM _BDA_IPv6_ADDRESS}
- BDA_IPv6_ADDRESS = _BDA_IPv6_ADDRESS;
- {$EXTERNALSYM BDA_IPv6_ADDRESS}
- PBDA_IPv6_ADDRESS = ^BDA_IPv6_ADDRESS;
- {$EXTERNALSYM PBDA_IPv6_ADDRESS}
- TBDAIPv6Address = _BDA_IPv6_ADDRESS;
- PBDAIPv6AddressList = ^TBDAIPv6AddressList;
- _BDA_IPv6_ADDRESS_LIST = record
- ulcAddresses : ULONG;
- rgAddressl : array [0..MIN_DIMENSION-1] of TBDAIPv6Address;
- end;
- {$EXTERNALSYM _BDA_IPv6_ADDRESS_LIST}
- BDA_IPv6_ADDRESS_LIST = _BDA_IPv6_ADDRESS_LIST;
- {$EXTERNALSYM BDA_IPv6_ADDRESS_LIST}
- PBDA_IPv6_ADDRESS_LIST = ^BDA_IPv6_ADDRESS_LIST;
- {$EXTERNALSYM PBDA_IPv6_ADDRESS_LIST}
- TBDAIPv6AddressList = _BDA_IPv6_ADDRESS_LIST;
- //------------------------------------------------------------
- // BDA Signal Property Set
- // {D2F1644B-B409-11d2-BC69-00A0C9EE9E16}
- PBDASignalState = ^TBDASignalState;
- BDA_SIGNAL_STATE = (
- BDA_SIGNAL_UNAVAILABLE,
- BDA_SIGNAL_INACTIVE,
- BDA_SIGNAL_ACTIVE
- );
- {$EXTERNALSYM BDA_SIGNAL_STATE}
- PBDA_SIGNAL_STATE = ^BDA_SIGNAL_STATE;
- {$EXTERNALSYM PBDA_SIGNAL_STATE}
- TBDASignalState = BDA_SIGNAL_STATE;
- //------------------------------------------------------------
- // BDA Change Sync Method Set
- // {FD0A5AF3-B41D-11d2-9C95-00C04F7971E0}
- PBDAChangeState = ^TBDAChangeState;
- BDA_CHANGE_STATE = (
- BDA_CHANGES_COMPLETE,
- BDA_CHANGES_PENDING
- );
- {$EXTERNALSYM BDA_CHANGE_STATE}
- PBDA_CHANGE_STATE = ^BDA_CHANGE_STATE;
- TBDAChangeState = BDA_CHANGE_STATE;
- //------------------------------------------------------------
- // BDA Device Configuration Method Set
- // {71985F45-1CA1-11d3-9CC8-00C04F7971E0}
- //------------------------------------------------------------
- // BDA Topology Property Set
- // {A14EE835-0A23-11d3-9CC7-00C04F7971E0}
- PBDANodeDescriptor = ^TBDANodeDescriptor;
- _BDANODE_DESCRIPTOR = record
- ulBdaNodeType : ULONG; // The node type as it is used
- // in the BDA template topology
- guidFunction : TGUID; // GUID from BdaMedia.h describing
- // the node's function (e.g.
- // KSNODE_BDA_RF_TUNER)
- guidName : TGUID; // GUID that can be use to look up
- // a displayable name for the node.
- end;
- {$EXTERNALSYM _BDANODE_DESCRIPTOR}
- BDANODE_DESCRIPTOR = _BDANODE_DESCRIPTOR;
- {$EXTERNALSYM BDANODE_DESCRIPTOR}
- PBDANODE_DESCRIPTOR = ^BDANODE_DESCRIPTOR;
- {$EXTERNALSYM PBDANODE_DESCRIPTOR}
- TBDANodeDescriptor = _BDANODE_DESCRIPTOR;
- //------------------------------------------------------------
- // BDA Void Transform Property Set
- // {71985F46-1CA1-11d3-9CC8-00C04F7971E0}
- //------------------------------------------------------------
- // BDA Null Transform Property Set
- // {DDF15B0D-BD25-11d2-9CA0-00C04F7971E0}
- //------------------------------------------------------------
- // BDA Frequency Filter Property Set
- // {71985F47-1CA1-11d3-9CC8-00C04F7971E0}
- //------------------------------------------------------------
- // BDA Autodemodulate Property Set
- // {DDF15B12-BD25-11d2-9CA0-00C04F7971E0}
- //------------------------------------------------------------
- // BDA Table Section Property Set
- // {516B99C5-971C-4aaf-B3F3-D9FDA8A15E16}
- PBDATableSection = ^TBDATableSection;
- _BDA_TABLE_SECTION = record
- ulPrimarySectionId : ULONG;
- ulSecondarySectionId : ULONG;
- ulcbSectionLength : ULONG;
- argbSectionData : array[0..MIN_DIMENSION-1] of ULONG;
- end;
- {$EXTERNALSYM _BDA_TABLE_SECTION}
- BDA_TABLE_SECTION = _BDA_TABLE_SECTION;
- {$EXTERNALSYM BDA_TABLE_SECTION}
- PBDA_TABLE_SECTION = ^BDA_TABLE_SECTION;
- {$EXTERNALSYM PBDA_TABLE_SECTION}
- TBDATableSection = _BDA_TABLE_SECTION;
- //------------------------------------------------------------
- // BDA PID Filter Property Set
- // {D0A67D65-08DF-4fec-8533-E5B550410B85}
- //---------------------------------------------------------------------
- // From IEnumPIDMap interface
- //---------------------------------------------------------------------
- MEDIA_SAMPLE_CONTENT = (
- MEDIA_TRANSPORT_PACKET, // complete TS packet e.g. pass-through mode
- MEDIA_ELEMENTARY_STREAM, // PES payloads; audio/video only
- MEDIA_MPEG2_PSI, // PAT, PMT, CAT, Private
- MEDIA_TRANSPORT_PAYLOAD // gathered TS packet payloads (PES packets, etc...)
- );
- {$EXTERNALSYM MEDIA_SAMPLE_CONTENT}
- TMediaSampleContent = MEDIA_SAMPLE_CONTENT;
- PID_MAP = record
- ulPID : ULONG;
- MediaSampleContent : TMediaSampleContent;
- end;
- {$EXTERNALSYM PID_MAP}
- TPIDMap = PID_MAP;
- PBDAPIDMap = ^TBDAPIDMap;
- _BDA_PID_MAP = record
- MediaSampleContent : TMediaSampleContent;
- ulcPIDs : ULONG;
- aulPIDs : array[0..MIN_DIMENSION-1] of ULONG;
- end;
- {$EXTERNALSYM _BDA_PID_MAP}
- BDA_PID_MAP = _BDA_PID_MAP;
- {$EXTERNALSYM BDA_PID_MAP}
- PBDA_PID_MAP = ^BDA_PID_MAP;
- TBDAPIDMap = _BDA_PID_MAP;
- PBDAPIDUnmap = ^TBDAPIDUnmap;
- _BDA_PID_UNMAP = record
- ulcPIDs : ULONG;
- aulPIDs : array[0..MIN_DIMENSION-1] of ULONG;
- end;
- {$EXTERNALSYM _BDA_PID_UNMAP}
- BDA_PID_UNMAP = _BDA_PID_UNMAP;
- {$EXTERNALSYM BDA_PID_UNMAP}
- PBDA_PID_UNMAP = ^BDA_PID_UNMAP;
- {$EXTERNALSYM PBDA_PID_UNMAP}
- TBDAPIDUnmap = _BDA_PID_UNMAP;
- //------------------------------------------------------------
- // BDA CA Property Set
- // {B0693766-5278-4ec6-B9E1-3CE40560EF5A}
- PBDACAModuleUI = ^TBDACAModuleUI;
- _BDA_CA_MODULE_UI = record
- ulFormat : ULONG;
- ulbcDesc : ULONG;
- ulDesc : array[0..MIN_DIMENSION-1] of ULONG;
- end;
- {$EXTERNALSYM _BDA_CA_MODULE_UI}
- BDA_CA_MODULE_UI = _BDA_CA_MODULE_UI;
- {$EXTERNALSYM BDA_CA_MODULE_UI}
- PBDA_CA_MODULE_UI = ^BDA_CA_MODULE_UI;
- {$EXTERNALSYM PBDA_CA_MODULE_UI}
- TBDACAModuleUI = _BDA_CA_MODULE_UI;
- PBDAProgramPIDList = ^TBDAProgramPIDList;
- _BDA_PROGRAM_PID_LIST = record
- ulProgramNumber : ULONG;
- ulcPIDs : ULONG;
- ulPID : array[0..MIN_DIMENSION-1] of ULONG;
- end;
- {$EXTERNALSYM _BDA_PROGRAM_PID_LIST}
- BDA_PROGRAM_PID_LIST = _BDA_PROGRAM_PID_LIST;
- {$EXTERNALSYM BDA_PROGRAM_PID_LIST}
- PBDA_PROGRAM_PID_LIST = ^BDA_PROGRAM_PID_LIST;
- {$EXTERNALSYM PBDA_PROGRAM_PID_LIST}
- TBDAProgramPIDList = _BDA_PROGRAM_PID_LIST;
- //------------------------------------------------------------
- // BDA CA Event Set
- // {488C4CCC-B768-4129-8EB1-B00A071F9068}
- //=============================================================
- //
- //
- // BDA Tuning Model enumerations
- //
- //
- //=============================================================
- // system type for particular DVB Tuning Space instance
- DVBSystemType = (
- DVB_Cable,
- DVB_Terrestrial,
- DVB_Satellite
- );
- {$EXTERNALSYM DVBSystemType}
- TDVBSystemType = DVBSystemType;
-
- //------------------------------------------------------------
- // BDA Channel Tune Request
- const
- BDA_UNDEFINED_CHANNEL = -1;
- {$EXTERNALSYM BDA_UNDEFINED_CHANNEL}
- //------------------------------------------------------------
- // BDA Component(substream)
- type
- ComponentCategory = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM ComponentCategory}
- const
- CategoryNotSet = -1;
- {$EXTERNALSYM CategoryNotSet}
- CategoryOther = 0;
- {$EXTERNALSYM CategoryOther}
- CategoryVideo = 1;
- {$EXTERNALSYM CategoryVideo}
- CategoryAudio = 2;
- {$EXTERNALSYM CategoryAudio}
- CategoryText = 3;
- {$EXTERNALSYM CategoryText}
- CategoryData = 4;
- {$EXTERNALSYM CategoryData}
- // Component Status
- type
- ComponentStatus = (
- StatusActive,
- StatusInactive,
- StatusUnavailable
- );
- {$EXTERNALSYM ComponentStatus}
- TComponentStatus = ComponentStatus;
- //------------------------------------------------------------
- //
- // BDA MPEG2 Component Type
- //
- // from the MPEG2 specification
- MPEG2StreamType = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM MPEG2StreamType}
- const
- BDA_UNITIALIZED_MPEG2STREAMTYPE = -1;
- {$EXTERNALSYM BDA_UNITIALIZED_MPEG2STREAMTYPE}
- Reserved1 = $0;
- {$NODEFINE Reserved1}
- ISO_IEC_11172_2_VIDEO = Reserved1 + 1;
- {$EXTERNALSYM ISO_IEC_11172_2_VIDEO}
- ISO_IEC_13818_2_VIDEO = ISO_IEC_11172_2_VIDEO + 1;
- {$EXTERNALSYM ISO_IEC_13818_2_VIDEO}
- ISO_IEC_11172_3_AUDIO = ISO_IEC_13818_2_VIDEO + 1;
- {$EXTERNALSYM ISO_IEC_11172_3_AUDIO}
- ISO_IEC_13818_3_AUDIO = ISO_IEC_11172_3_AUDIO + 1;
- {$EXTERNALSYM ISO_IEC_13818_3_AUDIO}
- ISO_IEC_13818_1_PRIVATE_SECTION = ISO_IEC_13818_3_AUDIO + 1;
- {$EXTERNALSYM ISO_IEC_13818_1_PRIVATE_SECTION}
- ISO_IEC_13818_1_PES = ISO_IEC_13818_1_PRIVATE_SECTION + 1;
- {$EXTERNALSYM ISO_IEC_13818_1_PES}
- ISO_IEC_13522_MHEG = ISO_IEC_13818_1_PES + 1;
- {$EXTERNALSYM ISO_IEC_13522_MHEG}
- ANNEX_A_DSM_CC = ISO_IEC_13522_MHEG + 1;
- {$EXTERNALSYM ANNEX_A_DSM_CC}
- ITU_T_REC_H_222_1 = ANNEX_A_DSM_CC + 1;
- {$EXTERNALSYM ITU_T_REC_H_222_1}
- ISO_IEC_13818_6_TYPE_A = ITU_T_REC_H_222_1 + 1;
- {$EXTERNALSYM ISO_IEC_13818_6_TYPE_A}
- ISO_IEC_13818_6_TYPE_B = ISO_IEC_13818_6_TYPE_A + 1;
- {$EXTERNALSYM ISO_IEC_13818_6_TYPE_B}
- ISO_IEC_13818_6_TYPE_C = ISO_IEC_13818_6_TYPE_B + 1;
- {$EXTERNALSYM ISO_IEC_13818_6_TYPE_C}
- ISO_IEC_13818_6_TYPE_D = ISO_IEC_13818_6_TYPE_C + 1;
- {$EXTERNALSYM ISO_IEC_13818_6_TYPE_D}
- ISO_IEC_13818_1_AUXILIARY = ISO_IEC_13818_6_TYPE_D + 1;
- {$EXTERNALSYM ISO_IEC_13818_1_AUXILIARY}
- ISO_IEC_13818_1_RESERVED = ISO_IEC_13818_1_AUXILIARY + 1;
- {$EXTERNALSYM ISO_IEC_13818_1_RESERVED}
- USER_PRIVATE = ISO_IEC_13818_1_RESERVED + 1;
- {$EXTERNALSYM USER_PRIVATE}
- //------------------------------------------------------------
- //
- // mpeg-2 transport stride format block; associated with media
- // types MEDIATYPE_Stream/MEDIASUBTYPE_MPEG2_TRANSPORT_STRIDE;
- // *all* format blocks associated with above media type *must*
- // start with the MPEG2_TRANSPORT_STRIDE structure
- //
- type
- PMPEG2TransportStride = ^TMPEG2TransportStride;
- _MPEG2_TRANSPORT_STRIDE = record
- dwOffset : DWORD;
- dwPacketLength : DWORD;
- dwStride : DWORD;
- end;
- {$EXTERNALSYM _MPEG2_TRANSPORT_STRIDE}
- MPEG2_TRANSPORT_STRIDE = _MPEG2_TRANSPORT_STRIDE;
- {$EXTERNALSYM MPEG2_TRANSPORT_STRIDE}
- PMPEG2_TRANSPORT_STRIDE = ^MPEG2_TRANSPORT_STRIDE;
- {$EXTERNALSYM PMPEG2_TRANSPORT_STRIDE}
- TMPEG2TransportStride = _MPEG2_TRANSPORT_STRIDE;
- //------------------------------------------------------------
- //
- // BDA ATSC Component Type
- //
- //
- // ATSC made AC3 Audio a descriptor instead of
- // defining a user private stream type.
- //enum ATSCComponentTypeFlags {
- // bit flags for various component type properties
- const
- ATSCCT_AC3 = $00000001;
- {$EXTERNALSYM ATSCCT_AC3}
- //------------------------------------------------------------
- // BDA Locators
- type
- BinaryConvolutionCodeRate = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM BinaryConvolutionCodeRate}
- const
- BDA_BCC_RATE_NOT_SET = -1;
- {$EXTERNALSYM BDA_BCC_RATE_NOT_SET}
- BDA_BCC_RATE_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_BCC_RATE_NOT_DEFINED}
- BDA_BCC_RATE_1_2 = 1; // 1/2
- {$EXTERNALSYM BDA_BCC_RATE_1_2}
- BDA_BCC_RATE_2_3 = 2; // 2/3
- {$EXTERNALSYM BDA_BCC_RATE_2_3}
- BDA_BCC_RATE_3_4 = 3; // 3/4
- {$EXTERNALSYM BDA_BCC_RATE_3_4}
- BDA_BCC_RATE_3_5 = 4;
- {$EXTERNALSYM BDA_BCC_RATE_3_5}
- BDA_BCC_RATE_4_5 = 5;
- {$EXTERNALSYM BDA_BCC_RATE_4_5}
- BDA_BCC_RATE_5_6 = 6; // 5/6
- {$EXTERNALSYM BDA_BCC_RATE_5_6}
- BDA_BCC_RATE_5_11 = 7;
- {$EXTERNALSYM BDA_BCC_RATE_5_11}
- BDA_BCC_RATE_7_8 = 8; // 7/8
- {$EXTERNALSYM BDA_BCC_RATE_7_8}
- BDA_BCC_RATE_MAX = 9;
- {$EXTERNALSYM BDA_BCC_RATE_MAX}
- type
- FECMethod = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM FECMethod}
- const
- BDA_FEC_METHOD_NOT_SET = -1;
- {$EXTERNALSYM BDA_FEC_METHOD_NOT_SET}
- BDA_FEC_METHOD_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_FEC_METHOD_NOT_DEFINED}
- BDA_FEC_VITERBI = 1; // FEC is a Viterbi Binary Convolution.
- {$EXTERNALSYM BDA_FEC_VITERBI}
- BDA_FEC_RS_204_188 = 2; // The FEC is Reed-Solomon 204/188 (outer FEC)
- {$EXTERNALSYM BDA_FEC_RS_204_188}
- BDA_FEC_MAX = 3;
- {$EXTERNALSYM BDA_FEC_MAX}
- type
- ModulationType = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM ModulationType}
- const
- BDA_MOD_NOT_SET = -1;
- {$EXTERNALSYM BDA_MOD_NOT_SET}
- BDA_MOD_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_MOD_NOT_DEFINED}
- BDA_MOD_16QAM = 1;
- {$EXTERNALSYM BDA_MOD_16QAM}
- BDA_MOD_32QAM = 2;
- {$EXTERNALSYM BDA_MOD_32QAM}
- BDA_MOD_64QAM = 3;
- {$EXTERNALSYM BDA_MOD_64QAM}
- BDA_MOD_80QAM = 4;
- {$EXTERNALSYM BDA_MOD_80QAM}
- BDA_MOD_96QAM = 5;
- {$EXTERNALSYM BDA_MOD_96QAM}
- BDA_MOD_112QAM = 6;
- {$EXTERNALSYM BDA_MOD_112QAM}
- BDA_MOD_128QAM = 7;
- {$EXTERNALSYM BDA_MOD_128QAM}
- BDA_MOD_160QAM = 8;
- {$EXTERNALSYM BDA_MOD_160QAM}
- BDA_MOD_192QAM = 9;
- {$EXTERNALSYM BDA_MOD_192QAM}
- BDA_MOD_224QAM = 10;
- {$EXTERNALSYM BDA_MOD_224QAM}
- BDA_MOD_256QAM = 11;
- {$EXTERNALSYM BDA_MOD_256QAM}
- BDA_MOD_320QAM = 12;
- {$EXTERNALSYM BDA_MOD_320QAM}
- BDA_MOD_384QAM = 13;
- {$EXTERNALSYM BDA_MOD_384QAM}
- BDA_MOD_448QAM = 14;
- {$EXTERNALSYM BDA_MOD_448QAM}
- BDA_MOD_512QAM = 15;
- {$EXTERNALSYM BDA_MOD_512QAM}
- BDA_MOD_640QAM = 16;
- {$EXTERNALSYM BDA_MOD_640QAM}
- BDA_MOD_768QAM = 17;
- {$EXTERNALSYM BDA_MOD_768QAM}
- BDA_MOD_896QAM = 18;
- {$EXTERNALSYM BDA_MOD_896QAM}
- BDA_MOD_1024QAM = 19;
- {$EXTERNALSYM BDA_MOD_1024QAM}
- BDA_MOD_QPSK = 20;
- {$EXTERNALSYM BDA_MOD_QPSK}
- BDA_MOD_BPSK = 21;
- {$EXTERNALSYM BDA_MOD_BPSK}
- BDA_MOD_OQPSK = 22;
- {$EXTERNALSYM BDA_MOD_OQPSK}
- BDA_MOD_8VSB = 23;
- {$EXTERNALSYM BDA_MOD_8VSB}
- BDA_MOD_16VSB = 24;
- {$EXTERNALSYM BDA_MOD_16VSB}
- BDA_MOD_ANALOG_AMPLITUDE = 25; // std am
- {$EXTERNALSYM BDA_MOD_ANALOG_AMPLITUDE}
- BDA_MOD_ANALOG_FREQUENCY = 26; // std fm
- {$EXTERNALSYM BDA_MOD_ANALOG_FREQUENCY}
- BDA_MOD_MAX = 27;
- {$EXTERNALSYM BDA_MOD_MAX}
- Type
- SpectralInversion = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM SpectralInversion}
- const
- BDA_SPECTRAL_INVERSION_NOT_SET = -1;
- {$EXTERNALSYM BDA_SPECTRAL_INVERSION_NOT_SET}
- BDA_SPECTRAL_INVERSION_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_SPECTRAL_INVERSION_NOT_DEFINED}
- BDA_SPECTRAL_INVERSION_AUTOMATIC = 1;
- {$EXTERNALSYM BDA_SPECTRAL_INVERSION_AUTOMATIC}
- BDA_SPECTRAL_INVERSION_NORMAL = 2;
- {$EXTERNALSYM BDA_SPECTRAL_INVERSION_NORMAL}
- BDA_SPECTRAL_INVERSION_INVERTED = 3;
- {$EXTERNALSYM BDA_SPECTRAL_INVERSION_INVERTED}
- BDA_SPECTRAL_INVERSION_MAX = 4;
- {$EXTERNALSYM BDA_SPECTRAL_INVERSION_MAX}
- Type
- Polarisation = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM Polarisation}
- const
- BDA_POLARISATION_NOT_SET = -1;
- {$EXTERNALSYM BDA_POLARISATION_NOT_SET}
- BDA_POLARISATION_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_POLARISATION_NOT_DEFINED}
- BDA_POLARISATION_LINEAR_H = 1; // Linear horizontal polarisation
- {$EXTERNALSYM BDA_POLARISATION_LINEAR_H}
- BDA_POLARISATION_LINEAR_V = 2; // Linear vertical polarisation
- {$EXTERNALSYM BDA_POLARISATION_LINEAR_V}
- BDA_POLARISATION_CIRCULAR_L = 3; // Circular left polarisation
- {$EXTERNALSYM BDA_POLARISATION_CIRCULAR_L}
- BDA_POLARISATION_CIRCULAR_R = 4; // Circular right polarisation
- {$EXTERNALSYM BDA_POLARISATION_CIRCULAR_R}
- BDA_POLARISATION_MAX = 5;
- {$EXTERNALSYM BDA_POLARISATION_MAX}
- type
- GuardInterval = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM GuardInterval}
- const
- BDA_GUARD_NOT_SET = -1;
- {$EXTERNALSYM BDA_GUARD_NOT_SET}
- BDA_GUARD_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_GUARD_NOT_DEFINED}
- BDA_GUARD_1_32 = 1; // Guard interval is 1/32
- {$EXTERNALSYM BDA_GUARD_1_32}
- BDA_GUARD_1_16 = 2; // Guard interval is 1/16
- {$EXTERNALSYM BDA_GUARD_1_16}
- BDA_GUARD_1_8 = 3; // Guard interval is 1/8
- {$EXTERNALSYM BDA_GUARD_1_8}
- BDA_GUARD_1_4 = 4; // Guard interval is 1/4
- {$EXTERNALSYM BDA_GUARD_1_4}
- BDA_GUARD_MAX = 5;
- {$EXTERNALSYM BDA_GUARD_MAX}
- type
- HierarchyAlpha = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM HierarchyAlpha}
- const
- BDA_HALPHA_NOT_SET = -1;
- {$EXTERNALSYM BDA_HALPHA_NOT_SET}
- BDA_HALPHA_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_HALPHA_NOT_DEFINED}
- BDA_HALPHA_1 = 1; // Hierarchy alpha is 1.
- {$EXTERNALSYM BDA_HALPHA_1}
- BDA_HALPHA_2 = 2; // Hierarchy alpha is 2.
- {$EXTERNALSYM BDA_HALPHA_2}
- BDA_HALPHA_4 = 3; // Hierarchy alpha is 4.
- {$EXTERNALSYM BDA_HALPHA_4}
- BDA_HALPHA_MAX = 4;
- {$EXTERNALSYM BDA_HALPHA_MAX}
- type
- TransmissionMode = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM TransmissionMode}
- const
- BDA_XMIT_MODE_NOT_SET = -1;
- {$EXTERNALSYM BDA_XMIT_MODE_NOT_SET}
- BDA_XMIT_MODE_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_XMIT_MODE_NOT_DEFINED}
- BDA_XMIT_MODE_2K = 1; // Transmission uses 1705 carriers (use a 2K FFT)
- {$EXTERNALSYM BDA_XMIT_MODE_2K}
- BDA_XMIT_MODE_8K = 2; // Transmission uses 6817 carriers (use an 8K FFT)
- {$EXTERNALSYM BDA_XMIT_MODE_8K}
- BDA_XMIT_MODE_MAX = 3;
- {$EXTERNALSYM BDA_XMIT_MODE_MAX}
- // Settings for Tuner Frequency
- //
- BDA_FREQUENCY_NOT_SET = -1;
- {$EXTERNALSYM BDA_FREQUENCY_NOT_SET}
- BDA_FREQUENCY_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_FREQUENCY_NOT_DEFINED}
- // Settings for Tuner Range
- //
- // Tuner range refers to the setting of LNB High/Low as well as the
- // selection of a satellite on a multiple satellite switch.
- //
- BDA_RANGE_NOT_SET = -1;
- {$EXTERNALSYM BDA_RANGE_NOT_SET}
- BDA_RANGE_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_RANGE_NOT_DEFINED}
- // Settings for Tuner Channel Bandwidth
- //
- BDA_CHAN_BANDWITH_NOT_SET = -1;
- {$EXTERNALSYM BDA_CHAN_BANDWITH_NOT_SET}
- BDA_CHAN_BANDWITH_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_CHAN_BANDWITH_NOT_DEFINED}
- // Settings for Tuner Frequency Multiplier
- //
- BDA_FREQUENCY_MULTIPLIER_NOT_SET = -1;
- {$EXTERNALSYM BDA_FREQUENCY_MULTIPLIER_NOT_SET}
- BDA_FREQUENCY_MULTIPLIER_NOT_DEFINED = 0;
- {$EXTERNALSYM BDA_FREQUENCY_MULTIPLIER_NOT_DEFINED}
- //------------------------------------------------------------------------------
- // File: Regbag.h
- // Desc: part of Tuner library
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_ICreatePropBagOnRegKey : TGUID = '{8A674B48-1F63-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM IID_ICreatePropBagOnRegKey}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<ICreatePropBagOnRegKey> _di_ICreatePropBagOnRegKey;'}
- {$EXTERNALSYM ICreatePropBagOnRegKey}
- ICreatePropBagOnRegKey = interface(IUnknown)
- ['{8A674B48-1F63-11d3-B64C-00C04F79498E}']
- (*** ICreatePropBagOnRegKey methods ***)
- function Create(hkey: HKEY; subkey: POleStr; ulOptions, samDesired: DWORD;
- const iid: TGUID; out ppBag): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: Tuner.h
- // Desc: Tuner library
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_ITuningSpaces : TGUID = '{901284E4-33FE-4b69-8D63-634A596F3756}';
- {$EXTERNALSYM IID_ITuningSpaces}
- IID_ITuningSpaceContainer : TGUID = '{5B692E84-E2F1-11d2-9493-00C04F72D980}';
- {$EXTERNALSYM IID_ITuningSpaceContainer}
- IID_ITuningSpace : TGUID = '{061C6E30-E622-11d2-9493-00C04F72D980}';
- {$EXTERNALSYM IID_ITuningSpace}
- IID_IEnumTuningSpaces : TGUID = '{8B8EB248-FC2B-11d2-9D8C-00C04F72D980}';
- {$EXTERNALSYM IID_IEnumTuningSpaces}
- IID_IDVBTuningSpace : TGUID = '{ADA0B268-3B19-4e5b-ACC4-49F852BE13BA}';
- {$EXTERNALSYM IID_IDVBTuningSpace}
- IID_IAnalogTVTuningSpace : TGUID = '{2A6E293C-2595-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM IID_IAnalogTVTuningSpace}
- IID_IATSCTuningSpace : TGUID = '{0369B4E2-45B6-11d3-B650-00C04F79498E}';
- {$EXTERNALSYM IID_IATSCTuningSpace}
- IID_IAnalogRadioTuningSpace : TGUID = '{2A6E293B-2595-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM IID_IAnalogRadioTuningSpace}
- IID_ITuneRequest : TGUID = '{07DDC146-FC3D-11d2-9D8C-00C04F72D980}';
- {$EXTERNALSYM IID_ITuneRequest}
- IID_IChannelTuneRequest : TGUID = '{0369B4E0-45B6-11d3-B650-00C04F79498E}';
- {$EXTERNALSYM IID_IChannelTuneRequest}
- IID_IATSCChannelTuneRequest : TGUID = '{0369B4E1-45B6-11d3-B650-00C04F79498E}';
- {$EXTERNALSYM IID_IATSCChannelTuneRequest}
- IID_IDVBTuneRequest : TGUID = '{0D6F567E-A636-42bb-83BA-CE4C1704AFA2}';
- {$EXTERNALSYM IID_IDVBTuneRequest}
- IID_ITuner : TGUID = '{28C52640-018A-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_ITuner}
- IID_IScanningTuner : TGUID = '{1DFD0A5C-0284-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_IScanningTuner}
- IID_ITunerEvents : TGUID = '{68481420-0280-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_ITunerEvents}
- IID_ISignalEvents : TGUID = '{85E2439E-0E23-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_ISignalEvents}
- IID_IComponentType : TGUID = '{6A340DC0-0311-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_IComponentType}
- IID_ILanguageComponentType : TGUID = '{B874C8BA-0FA2-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_ILanguageComponentType}
- IID_IMPEG2ComponentType : TGUID = '{2C073D84-B51C-48c9-AA9F-68971E1F6E38}';
- {$EXTERNALSYM IID_IMPEG2ComponentType}
- IID_IATSCComponentType : TGUID = '{FC189E4D-7BD4-4125-B3B3-3A76A332CC96}';
- {$EXTERNALSYM IID_IATSCComponentType}
- IID_IEnumComponentTypes : TGUID = '{8A674B4A-1F63-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM IID_IEnumComponentTypes}
- IID_IComponentTypes : TGUID = '{0DC13D4A-0313-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_IComponentTypes}
- IID_IComponent : TGUID = '{1A5576FC-0E19-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_IComponent}
- IID_IMPEG2Component : TGUID = '{1493E353-1EB6-473c-802D-8E6B8EC9D2A9}';
- {$EXTERNALSYM IID_IMPEG2Component}
- IID_IEnumComponents : TGUID = '{2A6E2939-2595-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM IID_IEnumComponents}
- IID_IComponents : TGUID = '{FCD01846-0E19-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM IID_IComponents}
- IID_ILocator : TGUID = '{286D7F89-760C-4F89-80C4-66841D2507AA}';
- {$EXTERNALSYM IID_ILocator}
- IID_IATSCLocator : TGUID = '{BF8D986F-8C2B-4131-94D7-4D3D9FCC21EF}';
- {$EXTERNALSYM IID_IATSCLocator}
- IID_IDVBTLocator : TGUID = '{8664DA16-DDA2-42ac-926A-C18F9127C302}';
- {$EXTERNALSYM IID_IDVBTLocator}
- IID_IDVBSLocator : TGUID = '{3D7C353C-0D04-45f1-A742-F97CC1188DC8}';
- {$EXTERNALSYM IID_IDVBSLocator}
- IID_IDVBCLocator : TGUID = '{6E42F36E-1DD2-43c4-9F78-69D25AE39034}';
- {$EXTERNALSYM IID_IDVBCLocator}
- IID_IDVBTuningSpace2 : TGUID = '{843188B4-CE62-43db-966B-8145A094E040}';
- {$EXTERNALSYM IID_IDVBTuningSpace2}
- IID_IDVBSTuningSpace : TGUID = '{CDF7BE60-D954-42fd-A972-78971958E470}';
- {$EXTERNALSYM IID_IDVBSTuningSpace}
- IID_IMPEG2TuneRequest : TGUID = '{EB7D987F-8A01-42AD-B8AE-574DEEE44D1A}';
- {$EXTERNALSYM IID_IMPEG2TuneRequest}
- IID_IMPEG2TuneRequestFactory : TGUID = '{14E11ABD-EE37-4893-9EA1-6964DE933E39}';
- {$EXTERNALSYM IID_IMPEG2TuneRequestFactory}
- IID_IMPEG2TuneRequestSupport : TGUID = '{1B9D5FC3-5BBC-4b6c-BB18-B9D10E3EEEBF}';
- {$EXTERNALSYM IID_IMPEG2TuneRequestSupport}
- IID_IBroadcastEvent : TGUID = '{3B21263F-26E8-489d-AAC4-924F7EFD9511}';
- {$EXTERNALSYM IID_IBroadcastEvent}
- IID_IAuxInTuningSpace : TGUID = '{E48244B8-7E17-4f76-A763-5090FF1E2F30}'; // DX9
- {$EXTERNALSYM IID_IAuxInTuningSpace}
- CLSID_SystemTuningSpaces : TGUID = '{D02AAC50-027E-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM CLSID_SystemTuningSpaces}
- CLSID_TuningSpace : TGUID = '{5FFDC5E6-B83A-4b55-B6E8-C69E765FE9DB}';
- {$EXTERNALSYM CLSID_TuningSpace}
- CLSID_ATSCTuningSpace : TGUID = '{A2E30750-6C3D-11d3-B653-00C04F79498E}';
- {$EXTERNALSYM CLSID_ATSCTuningSpace}
- CLSID_AnalogRadioTuningSpace : TGUID = '{8A674B4C-1F63-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM CLSID_AnalogRadioTuningSpace}
- CLSID_AnalogTVTuningSpace : TGUID = '{8A674B4D-1F63-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM CLSID_AnalogTVTuningSpace}
- CLSID_DVBTuningSpace : TGUID = '{C6B14B32-76AA-4a86-A7AC-5C79AAF58DA7}';
- {$EXTERNALSYM CLSID_DVBTuningSpace}
- CLSID_ComponentTypes : TGUID = '{A1A2B1C4-0E3A-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM CLSID_ComponentTypes}
- CLSID_ComponentType : TGUID = '{823535A0-0318-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM CLSID_ComponentType}
- CLSID_LanguageComponentType : TGUID = '{1BE49F30-0E1B-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM CLSID_LanguageComponentType}
- CLSID_MPEG2ComponentType : TGUID = '{418008F3-CF67-4668-9628-10DC52BE1D08}';
- {$EXTERNALSYM CLSID_MPEG2ComponentType}
- CLSID_ATSCComponentType : TGUID = '{A8DCF3D5-0780-4ef4-8A83-2CFFAACB8ACE}';
- {$EXTERNALSYM CLSID_ATSCComponentType}
- CLSID_Components : TGUID = '{809B6661-94C4-49e6-B6EC-3F0F862215AA}';
- {$EXTERNALSYM CLSID_Components}
- CLSID_Component : TGUID = '{59DC47A8-116C-11d3-9D8E-00C04F72D980}';
- {$EXTERNALSYM CLSID_Component}
- CLSID_MPEG2Component : TGUID = '{055CB2D7-2969-45cd-914B-76890722F112}';
- {$EXTERNALSYM CLSID_MPEG2Component}
- CLSID_TuneRequest : TGUID = '{B46E0D38-AB35-4a06-A137-70576B01B39F}';
- {$EXTERNALSYM CLSID_TuneRequest}
- CLSID_ChannelTuneRequest : TGUID = '{0369B4E5-45B6-11d3-B650-00C04F79498E}';
- {$EXTERNALSYM CLSID_ChannelTuneRequest}
- CLSID_ATSCChannelTuneRequest : TGUID = '{0369B4E6-45B6-11d3-B650-00C04F79498E}';
- {$EXTERNALSYM CLSID_ATSCChannelTuneRequest}
- CLSID_Locator : TGUID = '{0888C883-AC4F-4943-B516-2C38D9B34562}';
- {$EXTERNALSYM CLSID_Locator}
- CLSID_ATSCLocator : TGUID = '{8872FF1B-98FA-4d7a-8D93-C9F1055F85BB}';
- {$EXTERNALSYM CLSID_ATSCLocator}
- CLSID_DVBTLocator : TGUID = '{9CD64701-BDF3-4d14-8E03-F12983D86664}';
- {$EXTERNALSYM CLSID_DVBTLocator}
- CLSID_DVBSLocator : TGUID = '{1DF7D126-4050-47f0-A7CF-4C4CA9241333}';
- {$EXTERNALSYM CLSID_DVBSLocator}
- CLSID_DVBCLocator : TGUID = '{C531D9FD-9685-4028-8B68-6E1232079F1E}';
- {$EXTERNALSYM CLSID_DVBCLocator}
- CLSID_DVBTuneRequest : TGUID = '{15D6504A-5494-499c-886C-973C9E53B9F1}';
- {$EXTERNALSYM CLSID_DVBTuneRequest}
- CLSID_CreatePropBagOnRegKey : TGUID = '{8A674B49-1F63-11d3-B64C-00C04F79498E}';
- {$EXTERNALSYM CLSID_CreatePropBagOnRegKey}
- CLSID_DVBSTuningSpace : TGUID = '{B64016F3-C9A2-4066-96F0-BD9563314726}';
- {$EXTERNALSYM CLSID_DVBSTuningSpace}
- CLSID_MPEG2TuneRequest : TGUID = '{0955AC62-BF2E-4CBA-A2B9-A63F772D46CF}';
- {$EXTERNALSYM CLSID_MPEG2TuneRequest}
- CLSID_BroadcastEventService : TGUID = '{0B3FFB92-0919-4934-9D5B-619C719D0202}';
- {$EXTERNALSYM CLSID_BroadcastEventService}
- CLSID_MPEG2TuneRequestFactory: TGUID = '{2C63E4EB-4CEA-41B8-919C-E947EA19A77C}';
- {$EXTERNALSYM CLSID_MPEG2TuneRequestFactory}
- CLSID_AuxInTuningSpace : TGUID = '{F9769A06-7ACA-4e39-9CFB-97BB35F0E77E}';
- {$EXTERNALSYM CLSID_AuxInTuningSpace}
- DISPID_TUNER_TS_UNIQUENAME = 1;
- {$EXTERNALSYM DISPID_TUNER_TS_UNIQUENAME}
- DISPID_TUNER_TS_FRIENDLYNAME = 2;
- {$EXTERNALSYM DISPID_TUNER_TS_FRIENDLYNAME}
- DISPID_TUNER_TS_CLSID = 3;
- {$EXTERNALSYM DISPID_TUNER_TS_CLSID}
- DISPID_TUNER_TS_NETWORKTYPE = 4;
- {$EXTERNALSYM DISPID_TUNER_TS_NETWORKTYPE}
- DISPID_TUNER_TS__NETWORKTYPE = 5;
- {$EXTERNALSYM DISPID_TUNER_TS__NETWORKTYPE}
- DISPID_TUNER_TS_CREATETUNEREQUEST = 6;
- {$EXTERNALSYM DISPID_TUNER_TS_CREATETUNEREQUEST}
- DISPID_TUNER_TS_ENUMCATEGORYGUIDS = 7;
- {$EXTERNALSYM DISPID_TUNER_TS_ENUMCATEGORYGUIDS}
- DISPID_TUNER_TS_ENUMDEVICEMONIKERS = 8;
- {$EXTERNALSYM DISPID_TUNER_TS_ENUMDEVICEMONIKERS}
- DISPID_TUNER_TS_DEFAULTPREFERREDCOMPONENTTYPES = 9;
- {$EXTERNALSYM DISPID_TUNER_TS_DEFAULTPREFERREDCOMPONENTTYPES}
- DISPID_TUNER_TS_FREQMAP = 10;
- {$EXTERNALSYM DISPID_TUNER_TS_FREQMAP}
- DISPID_TUNER_TS_DEFLOCATOR = 11;
- {$EXTERNALSYM DISPID_TUNER_TS_DEFLOCATOR}
- DISPID_TUNER_TS_CLONE = 12;
- {$EXTERNALSYM DISPID_TUNER_TS_CLONE}
- // DISPIDs for ITuneRequest interface
- DISPID_TUNER_TR_TUNINGSPACE = 1;
- {$EXTERNALSYM DISPID_TUNER_TR_TUNINGSPACE}
- DISPID_TUNER_TR_COMPONENTS = 2;
- {$EXTERNALSYM DISPID_TUNER_TR_COMPONENTS}
- DISPID_TUNER_TR_CLONE = 3;
- {$EXTERNALSYM DISPID_TUNER_TR_CLONE}
- DISPID_TUNER_TR_LOCATOR = 4;
- {$EXTERNALSYM DISPID_TUNER_TR_LOCATOR}
- // DISPID for IComponentType interface
- DISPID_TUNER_CT_CATEGORY = 1;
- {$EXTERNALSYM DISPID_TUNER_CT_CATEGORY}
- DISPID_TUNER_CT_MEDIAMAJORTYPE = 2;
- {$EXTERNALSYM DISPID_TUNER_CT_MEDIAMAJORTYPE}
- DISPID_TUNER_CT__MEDIAMAJORTYPE = 3;
- {$EXTERNALSYM DISPID_TUNER_CT__MEDIAMAJORTYPE}
- DISPID_TUNER_CT_MEDIASUBTYPE = 4;
- {$EXTERNALSYM DISPID_TUNER_CT_MEDIASUBTYPE}
- DISPID_TUNER_CT__MEDIASUBTYPE = 5;
- {$EXTERNALSYM DISPID_TUNER_CT__MEDIASUBTYPE}
- DISPID_TUNER_CT_MEDIAFORMATTYPE = 6;
- {$EXTERNALSYM DISPID_TUNER_CT_MEDIAFORMATTYPE}
- DISPID_TUNER_CT__MEDIAFORMATTYPE = 7;
- {$EXTERNALSYM DISPID_TUNER_CT__MEDIAFORMATTYPE}
- DISPID_TUNER_CT_MEDIATYPE = 8;
- {$EXTERNALSYM DISPID_TUNER_CT_MEDIATYPE}
- DISPID_TUNER_CT_CLONE = 9;
- {$EXTERNALSYM DISPID_TUNER_CT_CLONE}
- // DISPID for ILanguageComponentType interface
- DISPID_TUNER_LCT_LANGID = 100;
- {$EXTERNALSYM DISPID_TUNER_LCT_LANGID}
- // DISPID for IMPEG2ComponentType interface
- DISPID_TUNER_MP2CT_TYPE = 200;
- {$EXTERNALSYM DISPID_TUNER_MP2CT_TYPE}
- // DISPID for IATSCComponentType interface
- DISPID_TUNER_ATSCCT_FLAGS = 300;
- {$EXTERNALSYM DISPID_TUNER_ATSCCT_FLAGS}
- // DISPID for ILocator interface
- DISPID_TUNER_L_CARRFREQ = 1;
- {$EXTERNALSYM DISPID_TUNER_L_CARRFREQ}
- DISPID_TUNER_L_INNERFECMETHOD = 2;
- {$EXTERNALSYM DISPID_TUNER_L_INNERFECMETHOD}
- DISPID_TUNER_L_INNERFECRATE = 3;
- {$EXTERNALSYM DISPID_TUNER_L_INNERFECRATE}
- DISPID_TUNER_L_OUTERFECMETHOD = 4;
- {$EXTERNALSYM DISPID_TUNER_L_OUTERFECMETHOD}
- DISPID_TUNER_L_OUTERFECRATE = 5;
- {$EXTERNALSYM DISPID_TUNER_L_OUTERFECRATE}
- DISPID_TUNER_L_MOD = 6;
- {$EXTERNALSYM DISPID_TUNER_L_MOD}
- DISPID_TUNER_L_SYMRATE = 7;
- {$EXTERNALSYM DISPID_TUNER_L_SYMRATE}
- DISPID_TUNER_L_CLONE = 8;
- {$EXTERNALSYM DISPID_TUNER_L_CLONE}
- // DISPID for IATSCLocator interface
- DISPID_TUNER_L_ATSC_PHYS_CHANNEL = 201;
- {$EXTERNALSYM DISPID_TUNER_L_ATSC_PHYS_CHANNEL}
- DISPID_TUNER_L_ATSC_TSID = 202;
- {$EXTERNALSYM DISPID_TUNER_L_ATSC_TSID}
- // DISPID for IDVBTLocator interface
- DISPID_TUNER_L_DVBT_BANDWIDTH = 301;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_BANDWIDTH}
- DISPID_TUNER_L_DVBT_LPINNERFECMETHOD = 302;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_LPINNERFECMETHOD}
- DISPID_TUNER_L_DVBT_LPINNERFECRATE = 303;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_LPINNERFECRATE}
- DISPID_TUNER_L_DVBT_GUARDINTERVAL = 304;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_GUARDINTERVAL}
- DISPID_TUNER_L_DVBT_HALPHA = 305;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_HALPHA}
- DISPID_TUNER_L_DVBT_TRANSMISSIONMODE = 306;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_TRANSMISSIONMODE}
- DISPID_TUNER_L_DVBT_INUSE = 307;
- {$EXTERNALSYM DISPID_TUNER_L_DVBT_INUSE}
- // DISPID for IDVBSLocator interface
- DISPID_TUNER_L_DVBS_POLARISATION = 401;
- {$EXTERNALSYM DISPID_TUNER_L_DVBS_POLARISATION}
- DISPID_TUNER_L_DVBS_WEST = 402;
- {$EXTERNALSYM DISPID_TUNER_L_DVBS_WEST}
- DISPID_TUNER_L_DVBS_ORBITAL = 403;
- {$EXTERNALSYM DISPID_TUNER_L_DVBS_ORBITAL}
- DISPID_TUNER_L_DVBS_AZIMUTH = 404;
- {$EXTERNALSYM DISPID_TUNER_L_DVBS_AZIMUTH}
- DISPID_TUNER_L_DVBS_ELEVATION = 405;
- {$EXTERNALSYM DISPID_TUNER_L_DVBS_ELEVATION}
- // DISPID for IDVBCLocator interface
- // DISPIDs for IComponent interface
- DISPID_TUNER_C_TYPE = 1;
- {$EXTERNALSYM DISPID_TUNER_C_TYPE}
- DISPID_TUNER_C_STATUS = 2;
- {$EXTERNALSYM DISPID_TUNER_C_STATUS}
- DISPID_TUNER_C_LANGID = 3;
- {$EXTERNALSYM DISPID_TUNER_C_LANGID}
- DISPID_TUNER_C_DESCRIPTION = 4;
- {$EXTERNALSYM DISPID_TUNER_C_DESCRIPTION}
- DISPID_TUNER_C_CLONE = 5;
- {$EXTERNALSYM DISPID_TUNER_C_CLONE}
- // DISPIDs for IMPEG2Component interface
- DISPID_TUNER_C_MP2_PID = 101;
- {$EXTERNALSYM DISPID_TUNER_C_MP2_PID}
- DISPID_TUNER_C_MP2_PCRPID = 102;
- {$EXTERNALSYM DISPID_TUNER_C_MP2_PCRPID}
- DISPID_TUNER_C_MP2_PROGNO = 103;
- {$EXTERNALSYM DISPID_TUNER_C_MP2_PROGNO}
- DISPID_TUNER_TS_DVB_SYSTEMTYPE = 101;
- {$EXTERNALSYM DISPID_TUNER_TS_DVB_SYSTEMTYPE}
- // DISPIDs for IDVBTuningSpace2 interface
- DISPID_TUNER_TS_DVB2_NETWORK_ID = 102;
- {$EXTERNALSYM DISPID_TUNER_TS_DVB2_NETWORK_ID}
- // DISPIDs for IDVBSTuningSpace interface
- DISPID_TUNER_TS_DVBS_LOW_OSC_FREQ = 1001;
- {$EXTERNALSYM DISPID_TUNER_TS_DVBS_LOW_OSC_FREQ}
- DISPID_TUNER_TS_DVBS_HI_OSC_FREQ = 1002;
- {$EXTERNALSYM DISPID_TUNER_TS_DVBS_HI_OSC_FREQ}
- DISPID_TUNER_TS_DVBS_LNB_SWITCH_FREQ = 1003;
- {$EXTERNALSYM DISPID_TUNER_TS_DVBS_LNB_SWITCH_FREQ}
- DISPID_TUNER_TS_DVBS_INPUT_RANGE = 1004;
- {$EXTERNALSYM DISPID_TUNER_TS_DVBS_INPUT_RANGE}
- DISPID_TUNER_TS_DVBS_SPECTRAL_INVERSION = 1005;
- {$EXTERNALSYM DISPID_TUNER_TS_DVBS_SPECTRAL_INVERSION}
- // DISPIDs for IAnalogRadioTuningSpace interface
- DISPID_TUNER_TS_AR_MINFREQUENCY = 101;
- {$EXTERNALSYM DISPID_TUNER_TS_AR_MINFREQUENCY}
- DISPID_TUNER_TS_AR_MAXFREQUENCY = 102;
- {$EXTERNALSYM DISPID_TUNER_TS_AR_MAXFREQUENCY}
- DISPID_TUNER_TS_AR_STEP = 103;
- {$EXTERNALSYM DISPID_TUNER_TS_AR_STEP}
- // DISPIDs for IAnalogTVTuningSpace interface
- DISPID_TUNER_TS_ATV_MINCHANNEL = 101;
- {$EXTERNALSYM DISPID_TUNER_TS_ATV_MINCHANNEL}
- DISPID_TUNER_TS_ATV_MAXCHANNEL = 102;
- {$EXTERNALSYM DISPID_TUNER_TS_ATV_MAXCHANNEL}
- DISPID_TUNER_TS_ATV_INPUTTYPE = 103;
- {$EXTERNALSYM DISPID_TUNER_TS_ATV_INPUTTYPE}
- DISPID_TUNER_TS_ATV_COUNTRYCODE = 104;
- {$EXTERNALSYM DISPID_TUNER_TS_ATV_COUNTRYCODE}
- // DISPIDs for IATSCTuningSpace interface
- DISPID_TUNER_TS_ATSC_MINMINORCHANNEL = 201;
- {$EXTERNALSYM DISPID_TUNER_TS_ATSC_MINMINORCHANNEL}
- DISPID_TUNER_TS_ATSC_MAXMINORCHANNEL = 202;
- {$EXTERNALSYM DISPID_TUNER_TS_ATSC_MAXMINORCHANNEL}
- DISPID_TUNER_TS_ATSC_MINPHYSCHANNEL = 203;
- {$EXTERNALSYM DISPID_TUNER_TS_ATSC_MINPHYSCHANNEL}
- DISPID_TUNER_TS_ATSC_MAXPHYSCHANNEL = 204;
- {$EXTERNALSYM DISPID_TUNER_TS_ATSC_MAXPHYSCHANNEL}
- // DISPID for IAnalogTVAudioComponent interface
- DISPID_CHTUNER_ATVAC_CHANNEL = 101;
- {$EXTERNALSYM DISPID_CHTUNER_ATVAC_CHANNEL}
- // DISPIDs for IAnalogTVDataComponent interface
- DISPID_CHTUNER_ATVDC_SYSTEM = 101;
- {$EXTERNALSYM DISPID_CHTUNER_ATVDC_SYSTEM}
- DISPID_CHTUNER_ATVDC_CONTENT = 102;
- {$EXTERNALSYM DISPID_CHTUNER_ATVDC_CONTENT}
- // DISPID for IChannelTuneRequest interface
- DISPID_CHTUNER_CTR_CHANNEL = 101;
- {$EXTERNALSYM DISPID_CHTUNER_CTR_CHANNEL}
- // DISPID IATSCChannelTuneRequest
- DISPID_CHTUNER_ACTR_MINOR_CHANNEL = 201;
- {$EXTERNALSYM DISPID_CHTUNER_ACTR_MINOR_CHANNEL}
- // DISPIDs for IDVBComponent interface
- DISPID_DVBTUNER_DVBC_ATTRIBUTESVALID = 101;
- {$EXTERNALSYM DISPID_DVBTUNER_DVBC_ATTRIBUTESVALID}
- DISPID_DVBTUNER_DVBC_PID = 102;
- {$EXTERNALSYM DISPID_DVBTUNER_DVBC_PID}
- DISPID_DVBTUNER_DVBC_TAG = 103;
- {$EXTERNALSYM DISPID_DVBTUNER_DVBC_TAG}
- DISPID_DVBTUNER_DVBC_COMPONENTTYPE = 104;
- {$EXTERNALSYM DISPID_DVBTUNER_DVBC_COMPONENTTYPE}
- // DISPIDs for IDVBTuneRequest interface
- DISPID_DVBTUNER_ONID = 101;
- {$EXTERNALSYM DISPID_DVBTUNER_ONID}
- DISPID_DVBTUNER_TSID = 102;
- {$EXTERNALSYM DISPID_DVBTUNER_TSID}
- DISPID_DVBTUNER_SID = 103;
- {$EXTERNALSYM DISPID_DVBTUNER_SID}
- // DISPIDs for IMPEG2TuneRequest interface
- DISPID_MP2TUNER_TSID = 101;
- {$EXTERNALSYM DISPID_MP2TUNER_TSID}
- DISPID_MP2TUNER_PROGNO = 102;
- {$EXTERNALSYM DISPID_MP2TUNER_PROGNO}
- // DISPIDs for IMPEG2TuneRequestFactory interface
- DISPID_MP2TUNERFACTORY_CREATETUNEREQUEST = 1;
- {$EXTERNALSYM DISPID_MP2TUNERFACTORY_CREATETUNEREQUEST}
- type
- ITuningSpace = interface;
- IEnumTuningSpaces = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<ITuningSpaces> _di_ITuningSpaces;'}
- {$EXTERNALSYM ITuningSpaces}
- ITuningSpaces = interface(IDispatch)
- ['{901284E4-33FE-4b69-8D63-634A596F3756}']
- (*** ITuningSpaces methods ***)
- function get_Count(out Count: longint): HResult; stdcall;
- function get__NewEnum(out NewEnum: IEnumVARIANT): HResult; stdcall;
- function get_Item(varIndex: OLEVARIANT; out TuningSpace: ITuningSpace): HResult; stdcall;
- function get_EnumTuningSpaces(out NewEnum: IEnumTuningSpaces): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ITuningSpaceContainer> _di_ITuningSpaceContainer;'}
- {$EXTERNALSYM ITuningSpaceContainer}
- ITuningSpaceContainer = interface(IDispatch)
- ['{5B692E84-E2F1-11d2-9493-00C04F72D980}']
- (*** ITuningSpaceContainer methods ***)
- function get_Count(out Count: longint): HResult; stdcall;
- function get__NewEnum(out NewEnum: IEnumVARIANT): HResult; stdcall;
- function get_Item(varIndex: OLEVARIANT; out TuningSpace: ITuningSpace): HResult; stdcall;
- function put_Item(varIndex: OLEVARIANT; TuningSpace: ITuningSpace): HResult; stdcall;
- function TuningSpacesForCLSID(SpaceCLSID: widestring; out NewColl: ITuningSpaces): HResult; stdcall;
- function _TuningSpacesForCLSID(const SpaceCLSID: TGUID; out NewColl: ITuningSpaces): HResult; stdcall;
- function TuningSpacesForName(Name: WideString; out NewColl: ITuningSpaces): HResult; stdcall;
- function FindID(TuningSpace: ITuningSpace; out ID: longint): HResult; stdcall;
- function Add(TuningSpace: ITuningSpace; out NewIndex: OLEVARIANT): HResult; stdcall;
- function get_EnumTuningSpaces(out ppEnum: IEnumTuningSpaces): HResult; stdcall;
- function Remove(Index: OLEVARIANT): HResult; stdcall;
- function get_MaxCount(out MaxCount: longint): HResult; stdcall;
- function put_MaxCount(MaxCount: longint): HResult; stdcall;
- end;
- ITuneRequest = interface;
- IComponentTypes = interface;
- ILocator = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<ITuningSpace> _di_ITuningSpace;'}
- {$EXTERNALSYM ITuningSpace}
- ITuningSpace = interface(IDispatch)
- ['{061C6E30-E622-11d2-9493-00C04F72D980}']
- (*** ITuningSpace methods ***)
- function get_UniqueName(out Name: WideString): HResult; stdcall;
- function put_UniqueName(Name: WideString): HResult; stdcall;
- function get_FriendlyName(out Name: WideString): HResult; stdcall;
- function put_FriendlyName: HResult; stdcall;
- function get_CLSID(out SpaceCLSID: WideString): HResult; stdcall;
- function get_NetworkType(out NetworkTypeGuid: WideString): HResult; stdcall;
- function put_NetworkType(NetworkTypeGuid: WideString): HResult; stdcall;
- function get__NetworkType(out NetworkTypeGuid: WideString): HResult; stdcall;
- function put__NetworkType(const NetworkTypeGuid: WideString): HResult; stdcall;
- // this method creates the "best" kind of tune request for this tuning space.
- // the tuning space may support other kinds of tune requests created via
- // other factory mechanisms(for example, see mpeg2tunerequestfactory). but,
- // this method is the preferred way to get a tune request as it always returns
- // the optimal type of tune request for this space.
- function CreateTuneRequest(out TuneRequest: ITuneRequest): HResult; stdcall;
- function EnumCategoryGUIDs(out ppEnum: IEnumGUID): HResult; stdcall;
- function EnumDeviceMonikers(out ppEnum: IEnumMoniker): HResult; stdcall;
- function get_DefaultPreferredComponentTypes(out ComponentTypes: IComponentTypes): HResult; stdcall;
- function put_DefaultPreferredComponentTypes(NewComponentTypes: IComponentTypes): HResult; stdcall;
- function get_FrequencyMapping(out pMapping: WideString): HResult; stdcall;
- function put_FrequencyMapping(Mapping: WideString): HResult; stdcall;
- function get_DefaultLocator(out LocatorVal: ILocator): HResult; stdcall;
- function put_DefaultLocator(LocatorVal: ILocator): HResult; stdcall;
- function Clone(out NewTS: ITuningSpace): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumTuningSpaces> _di_IEnumTuningSpaces;'}
- {$EXTERNALSYM IEnumTuningSpaces}
- IEnumTuningSpaces = interface(IUnknown)
- ['{8B8EB248-FC2B-11d2-9D8C-00C04F72D980}']
- (*** IEnumTuningSpaces methods ***)
- function Next(celt: ULONG; out rgelt: ITuningSpace; out pceltFetched: ULONG): HResult; stdcall;
- function Skip(celt: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumTuningSpaces): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBTuningSpace> _di_IDVBTuningSpace;'}
- {$EXTERNALSYM IDVBTuningSpace}
- IDVBTuningSpace = interface(ITuningSpace)
- ['{ADA0B268-3B19-4e5b-ACC4-49F852BE13BA}']
- (*** IDVBTuningSpace methods ***)
- function get_SystemType(out SysType: TDVBSystemType): HResult; stdcall;
- function put_SystemType(SysType: TDVBSystemType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBTuningSpace2> _di_IDVBTuningSpace2;'}
- {$EXTERNALSYM IDVBTuningSpace2}
- IDVBTuningSpace2 = interface(IDVBTuningSpace)
- ['{843188B4-CE62-43db-966B-8145A094E040}']
- (*** IDVBTuningSpace2 methods ***)
- function get_NetworkID(out NetworkID: longint): HResult; stdcall;
- function put_NetworkID(NetworkID: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBSTuningSpace> _di_IDVBSTuningSpace;'}
- {$EXTERNALSYM IDVBSTuningSpace}
- IDVBSTuningSpace = interface(IDVBTuningSpace2)
- ['{CDF7BE60-D954-42FD-A972-78971958E470}']
- (*** IDVBSTuningSpace methods ***)
- function get_LowOscillator(out LowOscillator: longint): HResult; stdcall;
- function put_LowOscillator(LowOscillator: longint): HResult; stdcall;
- function get_HighOscillator(out HighOscillator: longint): HResult; stdcall;
- function put_HighOscillator(HighOscillator: longint): HResult; stdcall;
- function get_LNBSwitch(out LNBSwitch: longint): HResult; stdcall;
- function put_LNBSwitch(LNBSwitch: longint): HResult; stdcall;
- function get_InputRange(out InputRange: WideString): HResult; stdcall;
- function put_InputRange(const InputRange: WideString): HResult; stdcall;
- function get_SpectralInversion(out SpectralInversionVal: SpectralInversion): HResult; stdcall;
- function put_SpectralInversion(SpectralInversionVal: SpectralInversion): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAuxInTuningSpace> _di_IAuxInTuningSpace;'}
- {$EXTERNALSYM IAuxInTuningSpace}
- IAuxInTuningSpace = interface(ITuningSpace)
- ['{E48244B8-7E17-4f76-A763-5090FF1E2F30}']
- (*** IAuxInTuningSpace methods ***)
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAnalogTVTuningSpace> _di_IAnalogTVTuningSpace;'}
- {$EXTERNALSYM IAnalogTVTuningSpace}
- IAnalogTVTuningSpace = interface(ITuningSpace)
- ['{2A6E293C-2595-11d3-B64C-00C04F79498E}']
- (*** IAnalogTVTuningSpace methods ***)
- function get_MinChannel(out MinChannelVal: longint): HResult; stdcall;
- function put_MinChannel(NewMinChannelVal: longint): HResult; stdcall;
- function get_MaxChannel(out MaxChannelVal: longint): HResult; stdcall;
- function put_MaxChannel(NewMaxChannelVal: longint): HResult; stdcall;
- function get_InputType(out InputTypeVal: TTunerInputType): HResult; stdcall;
- function put_InputType(NewInputTypeVal: TTunerInputType): HResult; stdcall;
- function get_CountryCode(out CountryCodeVal: longint): HResult; stdcall;
- function put_CountryCode(NewCountryCodeVal: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IATSCTuningSpace> _di_IATSCTuningSpace;'}
- {$EXTERNALSYM IATSCTuningSpace}
- IATSCTuningSpace = interface(IAnalogTVTuningSpace)
- ['{0369B4E2-45B6-11d3-B650-00C04F79498E}']
- (*** IATSCTuningSpace methods ***)
- function get_MinMinorChannel(out MinMinorChannelVal: longint): HResult; stdcall;
- function put_MinMinorChannel(NewMinMinorChannelVal: longint): HResult; stdcall;
- function get_MaxMinorChannel(out MaxMinorChannelVal: longint): HResult; stdcall;
- function put_MaxMinorChannel(NewMaxMinorChannelVal: longint): HResult; stdcall;
- function get_MinPhysicalChannel(out MinPhysicalChannelVal: longint): HResult; stdcall;
- function put_MinPhysicalChannel(NewMinPhysicalChannelVal: longint): HResult; stdcall;
- function get_MaxPhysicalChannel(out MaxPhysicalChannelVal: longint): HResult; stdcall;
- function put_MaxPhysicalChannel(NewMaxPhysicalChannelVal: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAnalogRadioTuningSpace> _di_IAnalogRadioTuningSpace;'}
- {$EXTERNALSYM IAnalogRadioTuningSpace}
- IAnalogRadioTuningSpace = interface(ITuningSpace)
- ['{2A6E293B-2595-11d3-B64C-00C04F79498E}']
- (*** IAnalogRadioTuningSpace methods ***)
- function get_MinFrequency(out MinFrequencyVal: longint): HResult; stdcall;
- function put_MinFrequency(NewMinFrequencyVal: longint): HResult; stdcall;
- function get_MaxFrequency(out MaxFrequencyVal: longint): HResult; stdcall;
- function put_MaxFrequency(NewMaxFrequencyVal: longint): HResult; stdcall;
- function get_Step(out StepVal: longint): HResult; stdcall;
- function put_Step(NewStepVal: longint): HResult; stdcall;
- end;
- IComponents = interface;
- //////////////////////////////////////////////////////////////////////////////////////
- // Tune Request Interfaces
- //////////////////////////////////////////////////////////////////////////////////////
- // tune requests(of any kind) can only be obtained from tune request factories such as
- // ITuningSpace::CreateTuneRequest. one reason for this is that we always want to be
- // certain that a tune request is bound to the right tuning space. this means we don't
- // have to perform consistency checks all over the place.
- {$HPPEMIT 'typedef System::DelphiInterface<ITuneRequest> _di_ITuneRequest;'}
- {$EXTERNALSYM ITuneRequest}
- ITuneRequest = interface(IDispatch)
- ['{07DDC146-FC3D-11d2-9D8C-00C04F72D980}']
- (*** ITuneRequest methods ***)
- function get_TuningSpace(out TuningSpace: ITuningSpace): HResult; stdcall;
- function get_Components(out Components: IComponents): HResult; stdcall;
- function Clone(out NewTuneRequest: ITuneRequest): HResult; stdcall;
- function get_Locator(out Locator: ILocator): HResult; stdcall;
- function put_Locator(Locator: ILocator): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IChannelTuneRequest> _di_IChannelTuneRequest;'}
- {$EXTERNALSYM IChannelTuneRequest}
- IChannelTuneRequest = interface(ITuneRequest)
- ['{0369B4E0-45B6-11d3-B650-00C04F79498E}']
- (*** IChannelTuneRequest methods ***)
- function get_Channel(out Channel: longint): HResult; stdcall;
- function put_Channel(Channel: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IATSCChannelTuneRequest> _di_IATSCChannelTuneRequest;'}
- {$EXTERNALSYM IATSCChannelTuneRequest}
- IATSCChannelTuneRequest = interface(IChannelTuneRequest)
- ['{0369B4E1-45B6-11d3-B650-00C04F79498E}']
- (*** IATSCChannelTuneRequest methods ***)
- function get_MinorChannel(out MinorChannel: longint): HResult; stdcall;
- function put_MinorChannel(MinorChannel: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBTuneRequest> _di_IDVBTuneRequest;'}
- {$EXTERNALSYM IDVBTuneRequest}
- IDVBTuneRequest = interface(ITuneRequest)
- ['{0D6F567E-A636-42bb-83BA-CE4C1704AFA2}']
- (*** IDVBTuneRequest methods ***)
- function get_ONID(out ONID: longint): HResult; stdcall;
- function put_ONID(ONID: longint): HResult; stdcall;
- function get_TSID(out TSID: longint): HResult; stdcall;
- function put_TSID(TSID: longint): HResult; stdcall;
- function get_SID(out SID: longint): HResult; stdcall;
- function put_SID(SID: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2TuneRequest> _di_IMPEG2TuneRequest;'}
- {$EXTERNALSYM IMPEG2TuneRequest}
- IMPEG2TuneRequest = interface(ITuneRequest)
- ['{EB7D987F-8A01-42AD-B8AE-574DEEE44D1A}']
- (*** IMPEG2TuneRequest methods ***)
- function get_TSID: HResult; stdcall;
- function put_TSID(TSID: longint): HResult; stdcall;
- function get_ProgNo: HResult; stdcall;
- function put_ProgNo(ProgNo: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2TuneRequestFactory> _di_IMPEG2TuneRequestFactory;'}
- {$EXTERNALSYM IMPEG2TuneRequestFactory}
- IMPEG2TuneRequestFactory = interface(IDispatch)
- ['{14E11ABD-EE37-4893-9EA1-6964DE933E39}']
- (*** IMPEG2TuneRequestFactory methods ***)
- function CreateTuneRequest(TuningSpace: ITuningSpace;
- out TuneRequest: IMPEG2TuneRequest): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2TuneRequestSupport> _di_IMPEG2TuneRequestSupport;'}
- {$EXTERNALSYM IMPEG2TuneRequestSupport}
- IMPEG2TuneRequestSupport = interface(IUnknown)
- ['{1B9D5FC3-5BBC-4b6c-BB18-B9D10E3EEEBF}']
- (*** IMPEG2TuneRequestSupport methods ***)
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ITuner> _di_ITuner;'}
- {$EXTERNALSYM ITuner}
- ITuner = interface(IUnknown)
- ['{28C52640-018A-11d3-9D8E-00C04F72D980}']
- (*** ITuner methods ***)
- function get_TuningSpace(out TuningSpace: ITuningSpace): HResult; stdcall;
- function put_TuningSpace(TuningSpace: ITuningSpace): HResult; stdcall;
- function EnumTuningSpaces(out ppEnum: IEnumTuningSpaces): HResult; stdcall;
- function get_TuneRequest(out TuneRequest: ITuneRequest): HResult; stdcall;
- function put_TuneRequest(TuneRequest: ITuneRequest): HResult; stdcall;
- function Validate(TuneRequest: ITuneRequest): HResult; stdcall;
- function get_PreferredComponentTypes(out ComponentTypes: IComponentTypes): HResult; stdcall;
- function put_PreferredComponentTypes(ComponentTypes: IComponentTypes): HResult; stdcall;
- function get_SignalStrength(out Strength: longint): HResult; stdcall;
- function TriggerSignalEvents(Interval: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IScanningTuner> _di_IScanningTuner;'}
- {$EXTERNALSYM IScanningTuner}
- IScanningTuner = interface(ITuner)
- ['{1DFD0A5C-0284-11d3-9D8E-00C04F72D980}']
- (*** IScanningTuner methods ***)
- function SeekUp: HResult; stdcall;
- function SeekDown: HResult; stdcall;
- function ScanUp(MillisecondsPause: longint): HResult; stdcall;
- function ScanDown(MillisecondsPause: longint): HResult; stdcall;
- function AutoProgram: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IComponentType> _di_IComponentType;'}
- {$EXTERNALSYM IComponentType}
- IComponentType = interface(IDispatch)
- ['{6A340DC0-0311-11d3-9D8E-00C04F72D980}']
- (*** IComponentType methods ***)
- function get_Category(out Category: ComponentCategory): HResult; stdcall;
- function put_Category(Category: ComponentCategory): HResult; stdcall;
- function get_MediaMajorType(out MediaMajorType: WideString): HResult; stdcall;
- function put_MediaMajorType(MediaMajorType: WideString): HResult; stdcall;
- function get__MediaMajorType(out MediaMajorTypeGuid: TGUID): HResult; stdcall;
- function put__MediaMajorType(const MediaMajorTypeGuid: TGUID): HResult; stdcall;
- function get_MediaSubType(out MediaSubType: WideString): HResult; stdcall;
- function put_MediaSubType(MediaSubType: WideString): HResult; stdcall;
- function get__MediaSubType(out MediaSubTypeGuid: TGUID): HResult; stdcall;
- function put__MediaSubType(const MediaSubTypeGuid: TGUID): HResult; stdcall;
- function get_MediaFormatType(out MediaFormatType: WideString): HResult; stdcall;
- function put_MediaFormatType(MediaFormatType: WideString): HResult; stdcall;
- function get__MediaFormatType(out MediaFormatTypeGuid: TGUID): HResult; stdcall;
- function put__MediaFormatType(const MediaFormatTypeGuid: TGUID): HResult; stdcall;
- function get_MediaType(out MediaType: TAMMediaType): HResult; stdcall;
- function put_MediaType(MediaType: TAMMediaType): HResult; stdcall;
- function Clone(out NewCT: IComponentType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ILanguageComponentType> _di_ILanguageComponentType;'}
- {$EXTERNALSYM ILanguageComponentType}
- ILanguageComponentType = interface(IComponentType)
- ['{B874C8BA-0FA2-11d3-9D8E-00C04F72D980}']
- (*** ILanguageComponentType methods ***)
- function get_LangID(out LangID: longint): HResult; stdcall;
- function put_LangID(LangID: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2ComponentType> _di_IMPEG2ComponentType;'}
- {$EXTERNALSYM IMPEG2ComponentType}
- IMPEG2ComponentType = interface(ILanguageComponentType)
- ['{2C073D84-B51C-48c9-AA9F-68971E1F6E38}']
- (*** IMPEG2ComponentType methods ***)
- function get_StreamType(out MP2StreamType: MPEG2StreamType): HResult; stdcall;
- function put_StreamType(MP2StreamType: MPEG2StreamType): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IATSCComponentType> _di_IATSCComponentType;'}
- {$EXTERNALSYM IATSCComponentType}
- IATSCComponentType = interface(IMPEG2ComponentType)
- ['{FC189E4D-7BD4-4125-B3B3-3A76A332CC96}']
- (*** IATSCComponentType methods ***)
- function get_Flags(out Flags: longint): HResult; stdcall;
- function put_Flags(Flags: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumComponentTypes> _di_IEnumComponentTypes;'}
- {$EXTERNALSYM IEnumComponentTypes}
- IEnumComponentTypes = interface(IUnknown)
- ['{8A674B4A-1F63-11d3-B64C-00C04F79498E}']
- (*** IEnumComponentTypes methods ***)
- function Next(celt: ULONG; out rgelt: IComponentType; out pceltFetched: ULONG): HResult; stdcall;
- function Skip(celt: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumComponentTypes): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IComponentTypes> _di_IComponentTypes;'}
- {$EXTERNALSYM IComponentTypes}
- IComponentTypes = interface(IDispatch)
- ['{0DC13D4A-0313-11d3-9D8E-00C04F72D980}']
- (*** IComponentTypes methods ***)
- function get_Count(out Count: longint): HResult; stdcall;
- function get__NewEnum(out ppNewEnum: IEnumVARIANT): HResult; stdcall;
- function EnumComponentTypes(out ppNewEnum: IEnumComponentTypes): HResult; stdcall;
- function get_Item(Index: OLEVARIANT; out ComponentType: IComponentType): HResult; stdcall;
- function put_Item(Index: OLEVARIANT; ComponentType: IComponentType): HResult; stdcall;
- function Add(ComponentType: IComponentType; out NewIndex: OLEVARIANT): HResult; stdcall;
- function Remove(Index: OLEVARIANT): HResult; stdcall;
- function Clone(out NewList: IComponentTypes): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IComponent> _di_IComponent;'}
- {$EXTERNALSYM IComponent}
- IComponent = interface(IDispatch)
- ['{1A5576FC-0E19-11d3-9D8E-00C04F72D980}']
- (*** IComponent methods ***)
- function get_Type(out CT: IComponentType): HResult; stdcall;
- function put_Type(CT: IComponentType): HResult; stdcall;
- function get_DescLangID(out LangID: longint): HResult; stdcall;
- function put_DescLangID(LangID: longint): HResult; stdcall;
- function get_Status(out Status: TComponentStatus): HResult; stdcall;
- function put_Status(Status: TComponentStatus): HResult; stdcall;
- function get_Description(out Description: WideString): HResult; stdcall;
- function put_Description(Description: WideString): HResult; stdcall;
- function Clone(out NewComponent: IComponent): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2Component> _di_IMPEG2Component;'}
- {$EXTERNALSYM IMPEG2Component}
- IMPEG2Component = interface(IComponent)
- ['{1493E353-1EB6-473c-802D-8E6B8EC9D2A9}']
- (*** IMPEG2Component methods ***)
- function get_PID(out PID: longint): HResult; stdcall;
- function put_PID(PID: longint): HResult; stdcall;
- function get_PCRPID(out PCRPID: longint): HResult; stdcall;
- function put_PCRPID(PCRPID: longint): HResult; stdcall;
- function get_ProgramNumber(out ProgramNumber: longint): HResult; stdcall;
- function put_ProgramNumber(ProgramNumber: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumComponents> _di_IEnumComponents;'}
- {$EXTERNALSYM IEnumComponents}
- IEnumComponents = interface(IUnknown)
- ['{2A6E2939-2595-11d3-B64C-00C04F79498E}']
- (*** IEnumComponents methods ***)
- function Next(celt: ULONG; out rgelt: IComponent; out pceltFetched: ULONG): HResult; stdcall;
- function Skip(celt: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumComponents): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IComponents> _di_IComponents;'}
- {$EXTERNALSYM IComponents}
- IComponents = interface(IDispatch)
- ['{FCD01846-0E19-11d3-9D8E-00C04F72D980}']
- (*** IComponents methods ***)
- function get_Count(out Count: longint): HResult; stdcall;
- function get__NewEnum(out ppNewEnum: IEnumVARIANT): HResult; stdcall;
- function EnumComponents(out ppNewEnum: IEnumComponents): HResult; stdcall;
- function get_Item(Index: OLEVARIANT; out ppComponent: IComponent): HResult; stdcall;
- function Add(Component: IComponent; out NewIndex: OLEVARIANT): HResult; stdcall;
- function Remove(Index: OLEVARIANT): HResult; stdcall;
- function Clone(out NewList: IComponents): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ILocator> _di_ILocator;'}
- {$EXTERNALSYM ILocator}
- ILocator = interface(IDispatch)
- ['{286D7F89-760C-4F89-80C4-66841D2507AA}']
- (*** ILocator methods ***)
- function get_CarrierFrequency(out Frequency: longint): HResult; stdcall;
- function put_CarrierFrequency(Frequency: longint): HResult; stdcall;
- function get_InnerFEC(out FEC: FECMethod): HResult; stdcall;
- function put_InnerFEC(FEC: FECMethod): HResult; stdcall;
- function get_InnerFECRate(out FEC: BinaryConvolutionCodeRate): HResult; stdcall;
- function put_InnerFECRate(FEC: BinaryConvolutionCodeRate): HResult; stdcall;
- function get_OuterFEC(out FEC: FECMethod): HResult; stdcall;
- function put_OuterFEC(FEC: FECMethod): HResult; stdcall;
- function get_OuterFECRate(out FEC: BinaryConvolutionCodeRate): HResult; stdcall;
- function put_OuterFECRate(FEC: BinaryConvolutionCodeRate): HResult; stdcall;
- function get_Modulation(out Modulation: ModulationType): HResult; stdcall;
- function put_Modulation(Modulation: ModulationType): HResult; stdcall;
- function get_SymbolRate(out Rate: longint): HResult; stdcall;
- function put_SymbolRate(Rate: longint): HResult; stdcall;
- function Clone(out NewLocator: ILocator): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IATSCLocator> _di_IATSCLocator;'}
- {$EXTERNALSYM IATSCLocator}
- IATSCLocator = interface(ILocator)
- ['{BF8D986F-8C2B-4131-94D7-4D3D9FCC21EF}']
- (*** IATSCLocator methods ***)
- function get_PhysicalChannel(out PhysicalChannel: longint): HResult; stdcall;
- function put_PhysicalChannel(PhysicalChannel: longint): HResult; stdcall;
- function get_TSID(out TSID: longint): HResult; stdcall;
- function put_TSID(TSID: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBTLocator> _di_IDVBTLocator;'}
- {$EXTERNALSYM IDVBTLocator}
- IDVBTLocator = interface(ILocator)
- ['{8664DA16-DDA2-42ac-926A-C18F9127C302}']
- (*** IDVBTLocator methods ***)
- function get_Bandwidth(out BandWidthVal: longint): HResult; stdcall;
- function put_Bandwidth(BandwidthVal: longint): HResult; stdcall;
- function get_LPInnerFEC(out FEC: FECMethod): HResult; stdcall;
- function put_LPInnerFEC(FEC: FECMethod): HResult; stdcall;
- function get_LPInnerFECRate(out FEC: BinaryConvolutionCodeRate): HResult; stdcall;
- function put_LPInnerFECRate(FEC: BinaryConvolutionCodeRate): HResult; stdcall;
- function get_HAlpha(out Alpha: HierarchyAlpha): HResult; stdcall;
- function put_HAlpha(Alpha: HierarchyAlpha): HResult; stdcall;
- function get_Guard(out GI: GuardInterval): HResult; stdcall;
- function put_Guard(GI: GuardInterval): HResult; stdcall;
- function get_Mode(out mode: TransmissionMode): HResult; stdcall;
- function put_Mode(mode: TransmissionMode): HResult; stdcall;
- function get_OtherFrequencyInUse(out OtherFrequencyInUseVal: WordBool): HResult; stdcall;
- function put_OtherFrequencyInUse(OtherFrequencyInUseVal: WordBool): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBSLocator> _di_IDVBSLocator;'}
- {$EXTERNALSYM IDVBSLocator}
- IDVBSLocator = interface(ILocator)
- ['{3D7C353C-0D04-45f1-A742-F97CC1188DC8}']
- (*** IDVBSLocator methods ***)
- function get_SignalPolarisation(out PolarisationVal: Polarisation): HResult; stdcall;
- function put_SignalPolarisation(PolarisationVal: Polarisation): HResult; stdcall;
- function get_WestPosition(out WestLongitude: WordBool): HResult; stdcall;
- function put_WestPosition(WestLongitude: WordBool): HResult; stdcall;
- function get_OrbitalPosition(out longitude: longint): HResult; stdcall;
- function put_OrbitalPosition(longitude: longint): HResult; stdcall;
- function get_Azimuth(out Azimuth: longint): HResult; stdcall;
- function put_Azimuth(Azimuth: longint): HResult; stdcall;
- function get_Elevation(out Elevation: longint): HResult; stdcall;
- function put_Elevation(Elevation: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDVBCLocator> _di_IDVBCLocator;'}
- {$EXTERNALSYM IDVBCLocator}
- IDVBCLocator = interface(ILocator)
- ['{6E42F36E-1DD2-43c4-9F78-69D25AE39034}']
- (*** IDVBCLocator methods ***)
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBroadcastEvent> _di_IBroadcastEvent;'}
- {$EXTERNALSYM IBroadcastEvent}
- IBroadcastEvent = interface(IUnknown)
- ['{3B21263F-26E8-489d-AAC4-924F7EFD9511}']
- (*** IBroadcastEvent methods ***)
- function Fire(EventID: TGUID): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: DXTrans.h
- // Desc: DirectX Transform library
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- LIBID_DXTRANSLib : TGUID = '{54314D1D-35FE-11D1-81A1-0000F87557DB}';
- {$EXTERNALSYM LIBID_DXTRANSLib}
- IID_IDXBaseObject : TGUID = '{17B59B2B-9CC8-11D1-9053-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXBaseObject}
- IID_IDXTransformFactory : TGUID = '{6A950B2B-A971-11D1-81C8-0000F87557DB}';
- {$EXTERNALSYM IID_IDXTransformFactory}
- IID_IDXTransform : TGUID = '{30A5FB78-E11F-11D1-9064-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXTransform}
- IID_IDXSurfacePick : TGUID = '{30A5FB79-E11F-11d1-9064-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXSurfacePick}
- IID_IDXTBindHost : TGUID = '{D26BCE55-E9DC-11d1-9066-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXTBindHost}
- IID_IDXTaskManager : TGUID = '{254DBBC1-F922-11D0-883A-3C8B00C10000}';
- {$EXTERNALSYM IID_IDXTaskManager}
- IID_IDXSurfaceFactory : TGUID = '{144946F5-C4D4-11D1-81D1-0000F87557DB}';
- {$EXTERNALSYM IID_IDXSurfaceFactory}
- IID_IDXSurfaceModifier : TGUID = '{9EA3B637-C37D-11D1-905E-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXSurfaceModifier}
- IID_IDXSurface : TGUID = '{B39FD73F-E139-11D1-9065-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXSurface}
- IID_IDXSurfaceInit : TGUID = '{9EA3B639-C37D-11d1-905E-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXSurfaceInit}
- IID_IDXARGBSurfaceInit : TGUID = '{9EA3B63A-C37D-11d1-905E-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXARGBSurfaceInit}
- IID_IDXARGBReadPtr : TGUID = '{EAAAC2D6-C290-11d1-905D-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXARGBReadPtr}
- IID_IDXARGBReadWritePtr : TGUID = '{EAAAC2D7-C290-11d1-905D-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXARGBReadWritePtr}
- IID_IDXDCLock : TGUID = '{0F619456-CF39-11D1-905E-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXDCLock}
- IID_IDXTScaleOutput : TGUID = '{B2024B50-EE77-11D1-9066-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXTScaleOutput}
- IID_IDXGradient : TGUID = '{B2024B51-EE77-11D1-9066-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXGradient}
- IID_IDXTScale : TGUID = '{B39FD742-E139-11D1-9065-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXTScale}
- IID_IDXEffect : TGUID = '{E31FB81B-1335-11d1-8189-0000F87557DB}';
- {$EXTERNALSYM IID_IDXEffect}
- IID_IDXLookupTable : TGUID = '{01BAFC7F-9E63-11D1-9053-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXLookupTable}
- IID_IDXRawSurface : TGUID = '{09756C8A-D96A-11d1-9062-00C04FD9189D}';
- {$EXTERNALSYM IID_IDXRawSurface}
- IID_IHTMLDXTransform : TGUID = '{30E2AB7D-4FDD-4159-B7EA-DC722BF4ADE5}';
- {$EXTERNALSYM IID_IHTMLDXTransform}
- CLSID_DXTransformFactory : TGUID = '{D1FE6762-FC48-11D0-883A-3C8B00C10000}';
- {$EXTERNALSYM CLSID_DXTransformFactory}
- CLSID_DXTaskManager : TGUID = '{4CB26C03-FF93-11D0-817E-0000F87557DB}';
- {$EXTERNALSYM CLSID_DXTaskManager}
- CLSID_DXTScale : TGUID = '{555278E2-05DB-11D1-883A-3C8B00C10000}';
- {$EXTERNALSYM CLSID_DXTScale}
- CLSID_DXSurface : TGUID = '{0E890F83-5F79-11D1-9043-00C04FD9189D}';
- {$EXTERNALSYM CLSID_DXSurface}
- CLSID_DXSurfaceModifier : TGUID = '{3E669F1D-9C23-11D1-9053-00C04FD9189D}';
- {$EXTERNALSYM CLSID_DXSurfaceModifier}
- CLSID_DXGradient : TGUID = '{C6365470-F667-11D1-9067-00C04FD9189D}';
- {$EXTERNALSYM CLSID_DXGradient}
- //
- // Pixel format definitions
- //
- DDPF_RGB1 : TGUID = '{e436eb78-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB1}
- DDPF_RGB2 : TGUID = '{BBF7D3F3-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_RGB2}
- DDPF_RGB4 : TGUID = '{e436eb79-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB4}
- DDPF_RGB8 : TGUID = '{e436eb7a-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB8}
- DDPF_RGB332 : TGUID = '{BBF7D3F6-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_RGB332}
- DDPF_ARGB4444 : TGUID = '{BBF7D3F7-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_ARGB4444}
- DDPF_RGB565 : TGUID = '{e436eb7b-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB565}
- DDPF_BGR565 : TGUID = '{BBF7D3F9-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_BGR565}
- DDPF_RGB555 : TGUID = '{e436eb7c-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB555}
- DDPF_ARGB1555 : TGUID = '{BBF7D3FB-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_ARGB1555}
- DDPF_RGB24 : TGUID = '{e436eb7d-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB24}
- DDPF_BGR24 : TGUID = '{BBF7D3FD-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_BGR24}
- DDPF_RGB32 : TGUID = '{e436eb7e-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM DDPF_RGB32}
- DDPF_BGR32 : TGUID = '{BBF7D3FF-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_BGR32}
- DDPF_ABGR32 : TGUID = '{BBF7D401-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_ABGR32}
- DDPF_ARGB32 : TGUID = '{773c9ac0-3274-11d0-B724-00aa006c1A01}';
- {$EXTERNALSYM DDPF_ARGB32}
- DDPF_PMARGB32 : TGUID = '{BBF7D403-143F-11d1-B50A-0000F8756A10}';
- {$EXTERNALSYM DDPF_PMARGB32}
- DDPF_A1 : TGUID = '{7846F94E-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_A1}
- DDPF_A2 : TGUID = '{7846F94F-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_A2}
- DDPF_A4 : TGUID = '{7846F950-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_A4}
- DDPF_A8 : TGUID = '{7846F951-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_A8}
- DDPF_Z8 : TGUID = '{7846F952-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_Z8}
- DDPF_Z16 : TGUID = '{7846F953-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_Z16}
- DDPF_Z24 : TGUID = '{7846F954-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_Z24}
- DDPF_Z32 : TGUID = '{7846F955-3915-11d1-99AA-0000F8756A10}';
- {$EXTERNALSYM DDPF_Z32}
- //
- // Component categories
- //
- CATID_DXImageTransform : TGUID = '{C501EDBE-9E70-11d1-9053-00C04FD9189D}';
- {$EXTERNALSYM CATID_DXImageTransform}
- CATID_DX3DTransform : TGUID = '{C501EDBF-9E70-11d1-9053-00C04FD9189D}';
- {$EXTERNALSYM CATID_DX3DTransform}
- CATID_DXAuthoringTransform : TGUID = '{ACAC94FC-E5CF-11d1-9066-00C04FD9189D}';
- {$EXTERNALSYM CATID_DXAuthoringTransform}
- CATID_DXSurface : TGUID = '{52BA7097-B52C-11d1-81CB-0000F87557DB}';
- {$EXTERNALSYM CATID_DXSurface}
- //
- // Service IDs.
- //
- SID_SDirectDraw : TGUID = (D1:$618f8ad4;D2:$8b7a;D3:$11d0;D4:($8f,$cc,$0,$c0,$4f,$d9,$18,$9d));
- {$EXTERNALSYM SID_SDirectDraw}
- SID_SDirect3DRM : TGUID = (D1:$2bc49361;D2:$8327;D3:$11cf;D4:($ac,$4a,$0,$0,$c0,$38,$25,$a1));
- {$EXTERNALSYM SID_SDirect3DRM}
- SID_SDXTaskManager : TGUID = '{4CB26C03-FF93-11D0-817E-0000F87557DB}';
- {$EXTERNALSYM SID_SDXTaskManager}
- SID_SDXSurfaceFactory : TGUID = '{144946F5-C4D4-11D1-81D1-0000F87557DB}';
- {$EXTERNALSYM SID_SDXSurfaceFactory}
- SID_SDXTransformFactory : TGUID = '{6A950B2B-A971-11D1-81C8-0000F87557DB}';
- {$EXTERNALSYM SID_SDXTransformFactory}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDXBaseObject> _di_IDXBaseObject;'}
- {$EXTERNALSYM IDXBaseObject}
- IDXBaseObject = interface(IUnknown)
- ['{17B59B2B-9CC8-11D1-9053-00C04FD9189D}']
- (*** IDXBaseObject methods ***)
- function GetGenerationId(out pID: ULONG): HResult; stdcall;
- function IncrementGenerationId(bRefresh: BOOL): HResult; stdcall;
- function GetObjectSize(out pcbSize: ULONG): HResult; stdcall;
- end;
- DXBNDID = (
- DXB_X,
- DXB_Y,
- DXB_Z,
- DXB_T
- );
- {$EXTERNALSYM DXBNDID}
- TDXBNDID = DXBNDID;
- DXBNDTYPE = (
- DXBT_DISCRETE,
- DXBT_DISCRETE64,
- DXBT_CONTINUOUS,
- DXBT_CONTINUOUS64
- );
- {$EXTERNALSYM DXBNDTYPE}
- TDXBNDType = DXBNDTYPE;
- DXDBND = record
- Min: longint;
- Max: longint;
- end;
- {$EXTERNALSYM DXDBND}
- TDXDBND = DXDBND;
- DXDBNDS = array[0..3] of TDXDBND;
- {$EXTERNALSYM DXDBNDS}
- DXDBND64 = record
- Min: int64;
- Max: int64;
- end;
- {$EXTERNALSYM DXDBND64}
- TDXDBND64 = DXDBND64;
- DXDBNDS64 = array [0..3] of TDXDBND64;
- {$EXTERNALSYM DXDBNDS64}
- DXCBND = record
- {$EXTERNALSYM DXCBND}
- Min: single;
- Max: single;
- end;
- TDXCBND = DXCBND;
- DXCBNDS = array[0..3] of TDXCBND;
- {$EXTERNALSYM DXCBNDS}
- DXCBND64 = record
- Min: double;
- Max: double;
- end;
- {$EXTERNALSYM DXCBND64}
- TDXCBND64 = DXCBND64;
- DXCBNDS64 = array[0..3] of TDXCBND64;
- {$EXTERNALSYM DXCBNDS64}
- DXBNDS = record
- {$EXTERNALSYM DXBNDS}
- eType: TDXBNDTYPE;
- case Integer of
- 0: (D: array[0..3] of TDXDBND);
- 1: (LD: array[0..3] of TDXDBND64);
- 2: (C: array[0..3] of TDXCBND);
- 3: (LC: array[0..3] of TDXCBND64);
- end;
- TDXBNDS = DXBNDS;
- DXDVEC = array[0..3] of longint;
- {$EXTERNALSYM DXDVEC}
- DXDVEC64 = array[0..3] of int64;
- {$EXTERNALSYM DXDVEC64}
- DXCVEC = array[0..3] of single;
- {$EXTERNALSYM DXCVEC}
- DXCVEC64 = array[0..3] of double;
- {$EXTERNALSYM DXCVEC64}
- DXVEC = record
- eType: TDXBNDTYPE;
- case Integer of
- 0: (D: array[0..3] of Longint);
- 1: (LD: array[0..3] of Int64);
- 2: (C: array[0..3] of Single);
- 3: (LC: array[0..3] of Double);
- end;
- {$EXTERNALSYM DXVEC}
- TDXVEC = DXVEC;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXTransform> _di_IDXTransform;'}
- {$EXTERNALSYM IDXTransform}
- IDXTransform = interface(IDXBaseObject)
- ['{30A5FB78-E11F-11D1-9064-00C04FD9189D}']
- (*** IDXTransform methods ***)
- function Setup(punkInputs: IUnknown; ulNumInputs: ULONG; punkOutputs: IUnknown;
- ulNumOutputs: ULONG; dwFlags: DWORD): HResult; stdcall;
- function Execute(const pRequestID: TGUID; var pClipBnds: TDXBNDS; var pPlacement: TDXVEC): HResult; stdcall;
- function MapBoundsIn2Out(var pInBounds: TDXBNDS; ulNumInBnds: ULONG; ulOutIndex: ULONG;
- out pOutBounds: TDXBNDS): HResult; stdcall;
- function MapBoundsOut2In(ulOutIndex: ULONG; var pOutBounds: TDXBNDS; ulInIndex: ULONG;
- out pInBounds: TDXBNDS): HResult; stdcall;
- function SetMiscFlags(dwMiscFlags: DWORD): HResult; stdcall;
- function GetMiscFlags(out pdwMiscFlags: DWORD): HResult; stdcall;
- function GetInOutInfo(bIsOutput: BOOL; ulIndex: ULONG; out pdwFlags: DWORD;
- out pIDs: TGUID; var pcIDs: ULONG; out ppUnkCurrentObject: IUnknown): HResult; stdcall;
- function SetQuality(fQuality: Single): HResult; stdcall;
- function GetQuality(out fQuality: Single): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXTransformFactory> _di_IDXTransformFactory;'}
- {$EXTERNALSYM IDXTransformFactory}
- IDXTransformFactory = interface(IServiceProvider)
- ['{6A950B2B-A971-11D1-81C8-0000F87557DB}']
- (*** IDXTransformFactory methods ***)
- function SetService(const guidService: TGUID; pUnkService: IUnknown;
- bWeakReference: BOOL): HResult; stdcall;
- function CreateTransform(punkInputs: IUnknown; ulNumInputs: ULONG;
- punkOutputs: IUnknown; ulNumOutputs: ULONG;
- pInitProps: IPropertyBag; pErrLog: IErrorLog;
- const TransCLSID: TGUID; const TransIID: TGUID; out ppTransform: Pointer): HResult; stdcall;
- function InitializeTransform(pTransform: IDXTransform; punkInputs: IUnknown;
- ulNumInputs: ULONG; punkOutputs: IUnknown;
- ulNumOutputs: ULONG; pInitProps: IPropertyBag;
- pErrLog: IErrorLog): HResult; stdcall;
- end;
- DXTMISCFLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXTMISCFLAGS}
- const
- DXTMF_BLEND_WITH_OUTPUT = 1 shl 0;
- {$EXTERNALSYM DXTMF_BLEND_WITH_OUTPUT}
- DXTMF_DITHER_OUTPUT = 1 shl 1;
- {$EXTERNALSYM DXTMF_DITHER_OUTPUT}
- DXTMF_OPTION_MASK = $ffff;
- {$EXTERNALSYM DXTMF_OPTION_MASK}
- DXTMF_VALID_OPTIONS = DXTMF_BLEND_WITH_OUTPUT or DXTMF_DITHER_OUTPUT;
- {$EXTERNALSYM DXTMF_VALID_OPTIONS}
- DXTMF_BLEND_SUPPORTED = 1 shl 16;
- {$EXTERNALSYM DXTMF_BLEND_SUPPORTED}
- DXTMF_DITHER_SUPPORTED = 1 shl 17;
- {$EXTERNALSYM DXTMF_DITHER_SUPPORTED}
- DXTMF_INPLACE_OPERATION = 1 shl 24;
- {$EXTERNALSYM DXTMF_INPLACE_OPERATION}
- DXTMF_BOUNDS_SUPPORTED = 1 shl 25;
- {$EXTERNALSYM DXTMF_BOUNDS_SUPPORTED}
- DXTMF_PLACEMENT_SUPPORTED= 1 shl 26;
- {$EXTERNALSYM DXTMF_PLACEMENT_SUPPORTED}
- DXTMF_QUALITY_SUPPORTED = 1 shl 27;
- {$EXTERNALSYM DXTMF_QUALITY_SUPPORTED}
- DXTMF_OPAQUE_RESULT = 1 shl 28;
- {$EXTERNALSYM DXTMF_OPAQUE_RESULT}
- type
- DXINOUTINFOFLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXINOUTINFOFLAGS}
- const
- DXINOUTF_OPTIONAL = 1 shl 0;
- {$EXTERNALSYM DXINOUTF_OPTIONAL}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDXSurfacePick> _di_IDXSurfacePick;'}
- {$EXTERNALSYM IDXSurfacePick}
- IDXSurfacePick = interface(IUnknown)
- ['{30A5FB79-E11F-11d1-9064-00C04FD9189D}']
- (*** IDXSurfacePick methods ***)
- function PointPick(var pPoint: TDXVEC; out pulInputSurfaceIndex: ULONG;
- out pInputPoint: TDXVEC): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXTBindHost> _di_IDXTBindHost;'}
- {$EXTERNALSYM IDXTBindHost}
- IDXTBindHost = interface(IUnknown)
- ['{D26BCE55-E9DC-11d1-9066-00C04FD9189D}']
- (*** IDXTBindHost methods ***)
- function SetBindHost(pBindHost: IBindHost): HResult; stdcall;
- end;
- DXTASKPROC = procedure(var pTaskData: pointer; var pbContinueProcessing: BOOL); stdcall;
- {$EXTERNALSYM DXTASKPROC}
- PFNDXTASKPROC = ^DXTASKPROC;
- {$EXTERNALSYM PFNDXTASKPROC}
- DXAPCPROC = procedure(dwData: DWORD);stdcall;
- {$EXTERNALSYM DXAPCPROC}
- PFNDXAPCPROC = ^DXAPCPROC;
- {$EXTERNALSYM PFNDXAPCPROC}
- DXTMTASKINFO = record
- pfnTaskProc: PFNDXTASKPROC;
- pTaskData: Pointer;
- pfnCompletionAPC: PFNDXAPCPROC;
- dwCompletionData: DWORD;
- pRequestID: PGUID;
- end;
- {$EXTERNALSYM DXTMTASKINFO}
- TDXTMTaskInfo = DXTMTASKINFO;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXTaskManager> _di_IDXTaskManager;'}
- {$EXTERNALSYM IDXTaskManager}
- IDXTaskManager = interface(IUnknown)
- ['{254DBBC1-F922-11D0-883A-3C8B00C10000}']
- (*** IDXTaskManager methods ***)
- function QueryNumProcessors(out pulNumProc: ULONG): HResult; stdcall;
- function SetThreadPoolSize(ulNumThreads: ULONG): HResult; stdcall;
- function GetThreadPoolSize(out pulNumThreads: ULONG): HResult; stdcall;
- function SetConcurrencyLimit(ulNumThreads: ULONG): HResult; stdcall;
- function GetConcurrencyLimit(out pulNumThreads: ULONG): HResult; stdcall;
- function ScheduleTasks(var TaskInfo: TDXTMTASKINFO; Events: PHANDLE;
- out TaskIDs: DWORD; ulNumTasks: ULONG; ulWaitPeriod: ULONG): HResult; stdcall;
- function TerminateTasks(var TaskIDs: DWORD; ulCount: ULONG; ulTimeOut: ULONG): HResult; stdcall;
- function TerminateRequest(const RequestID: TGUID; ulTimeOut: ULONG): HResult; stdcall;
- end;
- DXBASESAMPLE = record
- Blue : Byte;
- Green : Byte;
- Red : Byte;
- Alpha : Byte;
- end;
- {$EXTERNALSYM DXBASESAMPLE}
- TDXBaseSample = DXBASESAMPLE;
- DXSAMPLE = record
- Blue : Byte;
- Green : Byte;
- Red : Byte;
- Alpha : Byte;
- end;
- {$EXTERNALSYM DXSAMPLE}
- TDXSample = DXSAMPLE;
- DXPMSAMPLE = record
- Blue : Byte;
- Green : Byte;
- Red : Byte;
- Alpha : Byte;
- end;
- {$EXTERNALSYM DXPMSAMPLE}
- TDXPMSample = DXPMSAMPLE;
- DXRUNTYPE = (
- DXRUNTYPE_CLEAR,
- DXRUNTYPE_OPAQUE,
- DXRUNTYPE_TRANS,
- DXRUNTYPE_UNKNOWN
- );
- {$EXTERNALSYM DXRUNTYPE}
- TDXRunType = DXRUNTYPE;
- const
- DX_MAX_RUN_INFO_COUNT = 128;
- {$EXTERNALSYM DX_MAX_RUN_INFO_COUNT}
- type
- // 2 : Type ; // Type
- // 30 : Count ; // Number of samples in run
- PDXRunInfo = ^TDXRunInfo;
- DXRUNINFO = record
- Bitfields : ULONG;
- end;
- {$EXTERNALSYM DXRUNINFO}
- TDXRunInfo = DXRUNINFO;
- DXSFCREATE = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXSFCREATE}
- const
- DXSF_FORMAT_IS_CLSID = 1 shl 0;
- {$EXTERNALSYM DXSF_FORMAT_IS_CLSID}
- DXSF_NO_LAZY_DDRAW_LOCK = 1 shl 1;
- {$EXTERNALSYM DXSF_NO_LAZY_DDRAW_LOCK}
- type
- DXBLTOPTIONS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXBLTOPTIONS}
- const
- DXBOF_DO_OVER = 1 shl 0;
- {$EXTERNALSYM DXBOF_DO_OVER}
- DXBOF_DITHER = 1 shl 1;
- {$EXTERNALSYM DXBOF_DITHER}
- type
- DXSAMPLEFORMATENUM = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXSAMPLEFORMATENUM}
- const
- DXPF_FLAGSMASK = $FFFF0000;
- {$EXTERNALSYM DXPF_FLAGSMASK}
- DXPF_NONPREMULT = $00010000;
- {$EXTERNALSYM DXPF_NONPREMULT}
- DXPF_TRANSPARENCY = $00020000;
- {$EXTERNALSYM DXPF_TRANSPARENCY}
- DXPF_TRANSLUCENCY = $00040000;
- {$EXTERNALSYM DXPF_TRANSLUCENCY}
- DXPF_2BITERROR = $00200000;
- {$EXTERNALSYM DXPF_2BITERROR}
- DXPF_3BITERROR = $00300000;
- {$EXTERNALSYM DXPF_3BITERROR}
- DXPF_4BITERROR = $00400000;
- {$EXTERNALSYM DXPF_4BITERROR}
- DXPF_5BITERROR = $00500000;
- {$EXTERNALSYM DXPF_5BITERROR}
- DXPF_ERRORMASK = $00700000;
- {$EXTERNALSYM DXPF_ERRORMASK}
- DXPF_NONSTANDARD = $00000000;
- {$EXTERNALSYM DXPF_NONSTANDARD}
- DXPF_PMARGB32 = $00060001;
- {$EXTERNALSYM DXPF_PMARGB32}
- DXPF_ARGB32 = $00070002;
- {$EXTERNALSYM DXPF_ARGB32}
- DXPF_ARGB4444 = $00470003;
- {$EXTERNALSYM DXPF_ARGB4444}
- DXPF_A8 = $00060004;
- {$EXTERNALSYM DXPF_A8}
- DXPF_RGB32 = $00000005;
- {$EXTERNALSYM DXPF_RGB32}
- DXPF_RGB24 = $00000006;
- {$EXTERNALSYM DXPF_RGB24}
- DXPF_RGB565 = $00300007;
- {$EXTERNALSYM DXPF_RGB565}
- DXPF_RGB555 = $00300008;
- {$EXTERNALSYM DXPF_RGB555}
- DXPF_RGB8 = $00500009;
- {$EXTERNALSYM DXPF_RGB8}
- DXPF_ARGB1555 = $0032000A;
- {$EXTERNALSYM DXPF_ARGB1555}
- DXPF_RGB32_CK = $00020005;
- {$EXTERNALSYM DXPF_RGB32_CK}
- DXPF_RGB24_CK = $00020006;
- {$EXTERNALSYM DXPF_RGB24_CK}
- DXPF_RGB555_CK = $00320008;
- {$EXTERNALSYM DXPF_RGB555_CK}
- DXPF_RGB565_CK = $00320007;
- {$EXTERNALSYM DXPF_RGB565_CK}
- DXPF_RGB8_CK = $00520009;
- {$EXTERNALSYM DXPF_RGB8_CK}
- type
- DXLOCKSURF = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXLOCKSURF}
- const
- DXLOCKF_READ = 0;
- {$EXTERNALSYM DXLOCKF_READ}
- DXLOCKF_READWRITE = 1 shl 0;
- {$EXTERNALSYM DXLOCKF_READWRITE}
- DXLOCKF_EXISTINGINFOONLY = 1 shl 1;
- {$EXTERNALSYM DXLOCKF_EXISTINGINFOONLY}
- DXLOCKF_WANTRUNINFO = 1 shl 2;
- {$EXTERNALSYM DXLOCKF_WANTRUNINFO}
- DXLOCKF_NONPREMULT = 1 shl 16;
- {$EXTERNALSYM DXLOCKF_NONPREMULT}
- DXLOCKF_VALIDFLAGS = (DXLOCKF_READWRITE or DXLOCKF_EXISTINGINFOONLY or DXLOCKF_WANTRUNINFO or DXLOCKF_NONPREMULT);
- {$EXTERNALSYM DXLOCKF_VALIDFLAGS}
- Type
- DXSURFSTATUS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXSURFSTATUS}
- const
- DXSURF_TRANSIENT = 1 shl 0;
- {$EXTERNALSYM DXSURF_TRANSIENT}
- DXSURF_READONLY = 1 shl 1;
- {$EXTERNALSYM DXSURF_READONLY}
- DXSURF_VALIDFLAGS = (DXSURF_TRANSIENT or DXSURF_READONLY);
- {$EXTERNALSYM DXSURF_VALIDFLAGS}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDXDCLock> _di_IDXDCLock;'}
- {$EXTERNALSYM IDXDCLock}
- IDXDCLock = interface(IUnknown)
- ['{0F619456-CF39-11D1-905E-00C04FD9189D}']
- (*** IDXDCLock methods ***)
- function GetDC: HDC; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXSurface> _di_IDXSurface;'}
- {$EXTERNALSYM IDXSurface}
- IDXSurface = interface(IDXBaseObject)
- ['{B39FD73F-E139-11D1-9065-00C04FD9189D}']
- (*** IDXSurface methods ***)
- function GetPixelFormat(out pFormatID: TGUID; out pSampleFormatEnum: DXSAMPLEFORMATENUM): HResult; stdcall;
- function GetBounds(out pBounds: TDXBNDS): HResult; stdcall;
- function GetStatusFlags(out pdwStatusFlags: DWORD): HResult; stdcall;
- function SetStatusFlags(dwStatusFlags: DWORD): HResult; stdcall;
- function LockSurface(var pBounds: TDXBNDS; ulTimeOut: ULONG; dwFlags: DWORD;
- const riid: TGUID; out ppPointer: Pointer; out pulGenerationId: ULONG): HResult; stdcall;
- function GetDirectDrawSurface(const riid: TGUID; out ppSurface: Pointer): HResult; stdcall;
- function GetColorKey(var pColorKey: TDXSAMPLE): HResult; stdcall;
- function SetColorKey(ColorKey: TDXSAMPLE): HResult; stdcall;
- function LockSurfaceDC(var pBounds: TDXBNDS; ulTimeOut: ULONG; dwFlags: DWORD;
- out ppDCLock: IDXDCLock): HResult; stdcall;
- function SetAppData(dwAppData: DWORD): HResult; stdcall;
- function GetAppData(var pdwAppData: DWORD): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXSurfaceFactory> _di_IDXSurfaceFactory;'}
- {$EXTERNALSYM IDXSurfaceFactory}
- IDXSurfaceFactory = interface(IUnknown)
- ['{144946F5-C4D4-11D1-81D1-0000F87557DB}']
- (*** IDXSurfaceFactory methods ***)
- function CreateSurface(pDirectDraw: IUnknown; var pDDSurfaceDesc: PDDSurfaceDesc;
- const pFormatID: TGUID; var pBounds: TDXBNDS; dwFlags: DWORD;
- punkOuter: IUnknown; const riid: TGUID; out ppDXSurface: Pointer): HResult; stdcall;
- function CreateFromDDSurface(pDDrawSurface: IUnknown; const pFormatID: TGUID;
- dwFlags: DWORD; punkOuter: IUnknown; const riid: TGUID;
- out ppDXSurface: Pointer): HResult; stdcall;
- function LoadImage(pszFileName: PWideChar; pDirectDraw: IUnknown;
- pDDSurfaceDesc: PDDSURFACEDESC; const pFormatID: TGUID; const riid: TGUID;
- out ppDXSurface: Pointer): HResult; stdcall;
- function LoadImageFromStream(pStream: IStream; pDirectDraw: IUnknown;
- pDDSurfaceDesc: PDDSURFACEDESC; const pFormatID: TGUID;
- const riid: TGUID; out ppDXSurface: Pointer): HResult; stdcall;
- function CopySurfaceToNewFormat(pSrc: IDXSurface; pDirectDraw: IUnknown;
- pDDSurfaceDesc: PDDSURFACEDESC; const pDestFormatID: TGUID;
- out ppNewSurface: IDXSurface): HResult; stdcall;
- function CreateD3DRMTexture(pSrc: IDXSurface; pDirectDraw: IUnknown;
- pD3DRM3: IUnknown; const riid: TGUID; out ppTexture3: Pointer): HResult; stdcall;
- function BitBlt(pDest: IDXSurface; var pPlacement: TDXVEC; pSrc: IDXSurface;
- var pClipBounds: TDXBNDS; dwFlags: DWORD): HResult; stdcall;
- end;
- //convenient type declaration for IDXLookupTable
- LUT = array[0..255] of Byte;
- {$EXTERNALSYM LUT}
- {$HPPEMIT 'typedef System::DelphiInterface<IDXLookupTable> _di_IDXLookupTable;'}
- {$EXTERNALSYM IDXLookupTable}
- IDXLookupTable = interface(IDXBaseObject)
- ['{01BAFC7F-9E63-11D1-9053-00C04FD9189D}']
- (*** IDXLookupTable methods ***)
- function GetTables(RedLUT: LUT; GreenLUT: LUT; BlueLUT: LUT; AlphaLUT: LUT): HResult; stdcall;
- function IsChannelIdentity(out pSampleBools: TDXBASESAMPLE): HResult; stdcall;
- function GetIndexValues(Index: ULONG; out pSample: TDXBASESAMPLE): HResult; stdcall;
- function ApplyTables(var pSamples: TDXSAMPLE; cSamples: ULONG): HResult; stdcall;
- end;
- DXSURFMODCOMPOP = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXSURFMODCOMPOP}
- const
- DXSURFMOD_COMP_OVER = 0;
- {$EXTERNALSYM DXSURFMOD_COMP_OVER}
- DXSURFMOD_COMP_ALPHA_MASK = 1;
- {$EXTERNALSYM DXSURFMOD_COMP_ALPHA_MASK}
- DXSURFMOD_COMP_MAX_VALID = 1;
- {$EXTERNALSYM DXSURFMOD_COMP_MAX_VALID}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDXSurfaceModifier> _di_IDXSurfaceModifier;'}
- {$EXTERNALSYM IDXSurfaceModifier}
- IDXSurfaceModifier = interface(IUnknown)
- ['{9EA3B637-C37D-11D1-905E-00C04FD9189D}']
- (*** IDXSurfaceModifier methods ***)
- function SetFillColor(Color: TDXSAMPLE): HResult; stdcall;
- function GetFillColor(out pColor: TDXSAMPLE): HResult; stdcall;
- function SetBounds(var pBounds: TDXBNDS): HResult; stdcall;
- function SetBackground(pSurface: IDXSurface): HResult; stdcall;
- function GetBackground(out ppSurface: IDXSurface): HResult; stdcall;
- function SetCompositeOperation(CompOp: DXSURFMODCOMPOP): HResult; stdcall;
- function GetCompositeOperation(out pCompOp: DXSURFMODCOMPOP): HResult; stdcall;
- function SetForeground(pSurface: IDXSurface; bTile: BOOL; var pOrigin: TPOINT): HResult; stdcall;
- function GetForeground(out ppSurface: IDXSurface; out pbTile: BOOL; out pOrigin: TPOINT): HResult; stdcall;
- function SetOpacity(Opacity: Single): HResult; stdcall;
- function GetOpacity(out pOpacity: Single): HResult; stdcall;
- function SetLookup(pLookupTable: IDXLookupTable): HResult; stdcall;
- function GetLookup(out ppLookupTable: IDXLookupTable): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXSurfaceInit> _di_IDXSurfaceInit;'}
- {$EXTERNALSYM IDXSurfaceInit}
- IDXSurfaceInit = interface(IUnknown)
- ['{9EA3B639-C37D-11d1-905E-00C04FD9189D}']
- (*** IDXSurfaceInit methods ***)
- function InitSurface(pDirectDraw: IUnknown; var pDDSurfaceDesc: TDDSURFACEDESC;
- const pFormatID: TGUID; var pBounds: TDXBNDS; dwFlags: DWORD): HResult; stdcall;
- end;
- DXRAWSURFACEINFO = record
- pFirstByte : PBYTE;
- lPitch : LongInt;
- Width : ULONG;
- Height : ULONG;
- pPixelFormat : PGUID;
- hdc : HDC;
- dwColorKey : DWORD;
- pPalette : ^TDXBASESAMPLE;
- end;
- {$EXTERNALSYM DXRAWSURFACEINFO}
- TDXRawSurfaceInfo = DXRAWSURFACEINFO;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXRawSurface> _di_IDXRawSurface;'}
- {$EXTERNALSYM IDXRawSurface}
- IDXRawSurface = interface(IUnknown)
- ['{09756C8A-D96A-11d1-9062-00C04FD9189D}']
- (*** IDXRawSurface methods ***)
- function GetSurfaceInfo(var pSurfaceInfo: TDXRawSurfaceInfo): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXARGBSurfaceInit> _di_IDXARGBSurfaceInit;'}
- {$EXTERNALSYM IDXARGBSurfaceInit}
- IDXARGBSurfaceInit = interface(IDXSurfaceInit)
- ['{9EA3B63A-C37D-11d1-905E-00C04FD9189D}']
- (*** IDXARGBSurfaceInit methods ***)
- function InitFromDDSurface(pDDrawSurface: IUnknown; const pFormatID: TGUID;
- dwFlags: DWORD): HResult; stdcall;
- function InitFromRawSurface(pRawSurface: IDXRawSurface): HResult; stdcall;
- end;
- DXNATIVETYPEINFO = record
- pCurrentData : ^BYTE;
- pFirstByte : ^PBYTE;
- lPitch : LongInt;
- dwColorKey : DWORD;
- end;
- {$EXTERNALSYM DXNATIVETYPEINFO}
- TDXNativeTypeInfo = DXNATIVETYPEINFO;
- DXPACKEDRECTDESC = record
- pSamples : ^TDXBASESAMPLE;
- bPremult : BOOL;
- rect : TRECT;
- lRowPadding : LongInt;
- end;
- {$EXTERNALSYM DXPACKEDRECTDESC}
- TDXPackedRectDesc = DXPACKEDRECTDESC;
- DXOVERSAMPLEDESC = record
- p : TPOINT;
- Color : TDXPMSAMPLE;
- end;
- {$EXTERNALSYM DXOVERSAMPLEDESC}
- TDXOverSampleDesc = DXOVERSAMPLEDESC;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXARGBReadPtr> _di_IDXARGBReadPtr;'}
- {$EXTERNALSYM IDXARGBReadPtr}
- IDXARGBReadPtr = interface(IUnknown)
- ['{EAAAC2D6-C290-11d1-905D-00C04FD9189D}']
- (*** IDXARGBReadPtr methods ***)
- function GetSurface(const riid: TGUID; out ppSurface: pointer): HResult; stdcall;
- function GetNativeType(out pInfo: TDXNativeTypeInfo): DXSAMPLEFORMATENUM; stdcall;
- procedure Move(cSamples: LongInt); stdcall;
- procedure MoveToRow(y: ULONG); stdcall;
- procedure MoveToXY(x, y: ULONG); stdcall;
- function MoveAndGetRunInfo(Row: ULONG; out ppInfo: PDXRUNINFO): ULONG; stdcall;
- function Unpack(var pSamples: TDXSAMPLE; cSamples: ULONG; bMove: BOOL): TDXSAMPLE; stdcall;
- function UnpackPremult(var pSamples: TDXPMSAMPLE; cSamples: ULONG; bMove: BOOL): TDXPMSAMPLE; stdcall;
- procedure UnpackRect(var pRectDesc: TDXPackedRectDesc); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXARGBReadWritePtr> _di_IDXARGBReadWritePtr;'}
- {$EXTERNALSYM IDXARGBReadWritePtr}
- IDXARGBReadWritePtr = interface(IDXARGBReadPtr)
- ['{EAAAC2D7-C290-11d1-905D-00C04FD9189D}']
- (*** IDXARGBReadWritePtr methods ***)
- procedure PackAndMove(var pSamples: TDXSAMPLE; cSamples: ULONG); stdcall;
- procedure PackPremultAndMove(var pSamples: TDXPMSAMPLE; cSamples: ULONG); stdcall;
- procedure PackRect(var pRectDesc: TDXPackedRectDesc); stdcall;
- procedure CopyAndMoveBoth(var pScratchBuffer: TDXBASESAMPLE; pSrc: IDXARGBReadPtr;
- cSamples: ULONG; bIsOpaque: BOOL); stdcall;
- procedure CopyRect(var pScratchBuffer: TDXBASESAMPLE; var pDestRect: TRECT;
- pSrc: IDXARGBReadPtr; var pSrcOrigin: TPOINT; bIsOpaque: BOOL); stdcall;
- procedure FillAndMove(var pScratchBuffer: TDXBASESAMPLE; SampVal: TDXPMSAMPLE;
- cSamples: ULONG; bDoOver: BOOL); stdcall;
- procedure FillRect(var pRect: TRECT; SampVal: TDXPMSAMPLE; bDoOver: BOOL); stdcall;
- procedure OverSample(var pOverDesc: TDXOverSampleDesc); stdcall;
- procedure OverArrayAndMove(var pScratchBuffer: TDXBASESAMPLE; var pSrc: TDXPMSAMPLE;
- cSamples: ULONG); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXTScaleOutput> _di_IDXTScaleOutput;'}
- {$EXTERNALSYM IDXTScaleOutput}
- IDXTScaleOutput = interface(IUnknown)
- ['{B2024B50-EE77-11D1-9066-00C04FD9189D}']
- (*** IDXTScaleOutput methods ***)
- function SetOutputSize(const OutSize: SIZE; bMaintainAspect: BOOL): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDXGradient> _di_IDXGradient;'}
- {$EXTERNALSYM IDXGradient}
- IDXGradient = interface(IDXTScaleOutput)
- ['{B2024B51-EE77-11D1-9066-00C04FD9189D}']
- (*** IDXGradient methods ***)
- function SetGradient(StartColor: TDXSAMPLE; EndColor: TDXSAMPLE; bHorizontal: BOOL): HResult; stdcall;
- function GetOutputSize(out pOutSize: SIZE): HResult; stdcall;
- end;
- Scales = array[0..1] of Single;
- {$EXTERNALSYM Scales}
- {$HPPEMIT 'typedef System::DelphiInterface<IDXTScale> _di_IDXTScale;'}
- {$EXTERNALSYM IDXTScale}
- IDXTScale = interface(IUnknown)
- ['{B39FD742-E139-11D1-9065-00C04FD9189D}']
- (*** IDXTScale methods ***)
- function SetScales(var Scales: Scales): HResult; stdcall;
- function GetScales(out Scales: Scales): HResult; stdcall;
- function ScaleFitToSize(var pClipBounds: TDXBNDS; FitToSize: SIZE; bMaintainAspect: BOOL): HResult; stdcall;
- end;
- DISPIDDXEFFECT = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DISPIDDXEFFECT}
- const
- DISPID_DXECAPABILITIES = 10000;
- {$EXTERNALSYM DISPID_DXECAPABILITIES}
- DISPID_DXEPROGRESS = DISPID_DXECAPABILITIES + 1;
- {$EXTERNALSYM DISPID_DXEPROGRESS}
- DISPID_DXESTEP = DISPID_DXEPROGRESS + 1;
- {$EXTERNALSYM DISPID_DXESTEP}
- DISPID_DXEDURATION = DISPID_DXESTEP + 1;
- {$EXTERNALSYM DISPID_DXEDURATION}
- DISPID_DXE_NEXT_ID = DISPID_DXEDURATION + 1;
- {$EXTERNALSYM DISPID_DXE_NEXT_ID}
- type
- DXEFFECTTYPE = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM DXEFFECTTYPE}
- const
- DXTET_PERIODIC = 1 shl 0;
- {$EXTERNALSYM DXTET_PERIODIC}
- DXTET_MORPH = 1 shl 1;
- {$EXTERNALSYM DXTET_MORPH}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDXEffect> _di_IDXEffect;'}
- {$EXTERNALSYM IDXEffect}
- IDXEffect = interface(IDispatch)
- ['{E31FB81B-1335-11d1-8189-0000F87557DB}']
- (*** IDXEffect methods ***)
- function get_Capabilities(out pVal: LongInt): HResult; stdcall;
- function get_Progress(out pVal: Single): HResult; stdcall;
- function put_Progress(newVal: Single): HResult; stdcall;
- function get_StepResolution(out pVal: Single): HResult; stdcall;
- function get_Duration(out pVal: Single): HResult; stdcall;
- function put_Duration(newVal: Single): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IHTMLDXTransform> _di_IHTMLDXTransform;'}
- {$EXTERNALSYM IHTMLDXTransform}
- IHTMLDXTransform = interface(IUnknown)
- ['{30E2AB7D-4FDD-4159-B7EA-DC722BF4ADE5}']
- (*** IHTMLDXTransform methods ***)
- function SetHostUrl(bstrHostUrl: WideString): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: QEdit.h
- // Desc: Dexter library (DES)
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- LIBID_DexterLib: TGUID = '{78530B68-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM LIBID_DexterLib}
- IID_IPropertySetter : TGUID = '{AE9472BD-B0C3-11D2-8D24-00A0C9441E20}';
- {$EXTERNALSYM IID_IPropertySetter}
- IID_IDxtCompositor : TGUID = '{BB44391E-6ABD-422F-9E2E-385C9DFF51FC}';
- {$EXTERNALSYM IID_IDxtCompositor}
- IID_IDxtAlphaSetter : TGUID = '{4EE9EAD9-DA4D-43D0-9383-06B90C08B12B}';
- {$EXTERNALSYM IID_IDxtAlphaSetter}
- IID_IDxtJpeg : TGUID = '{DE75D011-7A65-11D2-8CEA-00A0C9441E20}';
- {$EXTERNALSYM IID_IDxtJpeg}
- IID_IDxtKey : TGUID = '{3255DE56-38FB-4901-B980-94B438010D7B}';
- {$EXTERNALSYM IID_IDxtKey}
- IID_IMediaLocator : TGUID = '{288581E0-66CE-11D2-918F-00C0DF10D434}';
- {$EXTERNALSYM IID_IMediaLocator}
- IID_IMediaDet : TGUID = '{65BD0710-24D2-4FF7-9324-ED2E5D3ABAFA}';
- {$EXTERNALSYM IID_IMediaDet}
- IID_IGrfCache : TGUID = '{AE9472BE-B0C3-11D2-8D24-00A0C9441E20}';
- {$EXTERNALSYM IID_IGrfCache}
- IID_IRenderEngine : TGUID = '{6BEE3A81-66C9-11D2-918F-00C0DF10D434}';
- {$EXTERNALSYM IID_IRenderEngine}
- IID_IRenderEngine2 : TGUID = '{6BEE3A82-66C9-11d2-918F-00C0DF10D434}';
- {$EXTERNALSYM IID_IRenderEngine2}
- IID_IFindCompressorCB : TGUID = '{F03FA8DE-879A-4D59-9B2C-26BB1CF83461}';
- {$EXTERNALSYM IID_IFindCompressorCB}
- IID_ISmartRenderEngine : TGUID = '{F03FA8CE-879A-4D59-9B2C-26BB1CF83461}';
- {$EXTERNALSYM IID_ISmartRenderEngine}
- IID_IAMTimelineObj : TGUID = '{78530B77-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineObj}
- IID_IAMTimelineEffectable : TGUID = '{EAE58537-622E-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineEffectable}
- IID_IAMTimelineEffect : TGUID = '{BCE0C264-622D-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineEffect}
- IID_IAMTimelineTransable : TGUID = '{378FA386-622E-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineTransable}
- IID_IAMTimelineSplittable : TGUID = '{A0F840A0-D590-11D2-8D55-00A0C9441E20}';
- {$EXTERNALSYM IID_IAMTimelineSplittable}
- IID_IAMTimelineTrans : TGUID = '{BCE0C265-622D-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineTrans}
- IID_IAMTimelineSrc : TGUID = '{78530B79-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineSrc}
- IID_IAMTimelineTrack : TGUID = '{EAE58538-622E-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineTrack}
- IID_IAMTimelineVirtualTrack : TGUID = '{A8ED5F80-C2C7-11D2-8D39-00A0C9441E20}';
- {$EXTERNALSYM IID_IAMTimelineVirtualTrack}
- IID_IAMTimelineComp : TGUID = '{EAE58536-622E-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimelineComp}
- IID_IAMTimelineGroup : TGUID = '{9EED4F00-B8A6-11D2-8023-00C0DF10D434}';
- {$EXTERNALSYM IID_IAMTimelineGroup}
- IID_IAMTimeline : TGUID = '{78530B74-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM IID_IAMTimeline}
- IID_IXml2Dex : TGUID = '{18C628ED-962A-11D2-8D08-00A0C9441E20}';
- {$EXTERNALSYM IID_IXml2Dex}
- IID_IAMErrorLog : TGUID = '{E43E73A2-0EFA-11D3-9601-00A0C9441E20}';
- {$EXTERNALSYM IID_IAMErrorLog}
- IID_IAMSetErrorLog : TGUID = '{963566DA-BE21-4EAF-88E9-35704F8F52A1}';
- {$EXTERNALSYM IID_IAMSetErrorLog}
- IID_ISampleGrabberCB : TGUID = '{0579154A-2B53-4994-B0D0-E773148EFF85}';
- {$EXTERNALSYM IID_ISampleGrabberCB}
- IID_ISampleGrabber : TGUID = '{6B652FFF-11FE-4FCE-92AD-0266B5D7C78F}';
- {$EXTERNALSYM IID_ISampleGrabber}
- IID_IResize : TGUID = '{4ada63a0-72d5-11d2-952a-0060081840bc}';
- {$EXTERNALSYM IID_IResize}
- CLSID_AMTimeline : TGUID = '{78530B75-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM CLSID_AMTimeline}
- CLSID_AMTimelineObj : TGUID = '{78530B78-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM CLSID_AMTimelineObj}
- CLSID_AMTimelineSrc : TGUID = '{78530B7A-61F9-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM CLSID_AMTimelineSrc}
- CLSID_AMTimelineTrack : TGUID = '{8F6C3C50-897B-11D2-8CFB-00A0C9441E20}';
- {$EXTERNALSYM CLSID_AMTimelineTrack}
- CLSID_AMTimelineComp : TGUID = '{74D2EC80-6233-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM CLSID_AMTimelineComp}
- CLSID_AMTimelineGroup : TGUID = '{F6D371E1-B8A6-11D2-8023-00C0DF10D434}';
- {$EXTERNALSYM CLSID_AMTimelineGroup}
- CLSID_AMTimelineTrans : TGUID = '{74D2EC81-6233-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM CLSID_AMTimelineTrans}
- CLSID_AMTimelineEffect : TGUID = '{74D2EC82-6233-11D2-8CAD-00A024580902}';
- {$EXTERNALSYM CLSID_AMTimelineEffect}
- CLSID_RenderEngine : TGUID = '{64D8A8E0-80A2-11D2-8CF3-00A0C9441E20}';
- {$EXTERNALSYM CLSID_RenderEngine}
- CLSID_SmartRenderEngine : TGUID = '{498B0949-BBE9-4072-98BE-6CCAEB79DC6F}';
- {$EXTERNALSYM CLSID_SmartRenderEngine}
- CLSID_AudMixer : TGUID = '{036A9790-C153-11D2-9EF7-006008039E37}';
- {$EXTERNALSYM CLSID_AudMixer}
- CLSID_Xml2Dex : TGUID = '{18C628EE-962A-11D2-8D08-00A0C9441E20}';
- {$EXTERNALSYM CLSID_Xml2Dex}
- CLSID_MediaLocator : TGUID = '{CC1101F2-79DC-11D2-8CE6-00A0C9441E20}';
- {$EXTERNALSYM CLSID_MediaLocator}
- CLSID_PropertySetter : TGUID = '{ADF95821-DED7-11D2-ACBE-0080C75E246E}';
- {$EXTERNALSYM CLSID_PropertySetter}
- CLSID_MediaDet : TGUID = '{65BD0711-24D2-4FF7-9324-ED2E5D3ABAFA}';
- {$EXTERNALSYM CLSID_MediaDet}
- CLSID_SampleGrabber : TGUID = '{C1F400A0-3F08-11D3-9F0B-006008039E37}';
- {$EXTERNALSYM CLSID_SampleGrabber}
- CLSID_NullRenderer : TGUID = '{C1F400A4-3F08-11D3-9F0B-006008039E37}';
- {$EXTERNALSYM CLSID_NullRenderer}
- CLSID_DxtCompositor : TGUID = '{BB44391D-6ABD-422F-9E2E-385C9DFF51FC}';
- {$EXTERNALSYM CLSID_DxtCompositor}
- CLSID_DxtAlphaSetter : TGUID = '{506D89AE-909A-44F7-9444-ABD575896E35}';
- {$EXTERNALSYM CLSID_DxtAlphaSetter}
- CLSID_DxtJpeg : TGUID = '{DE75D012-7A65-11D2-8CEA-00A0C9441E20}';
- {$EXTERNALSYM CLSID_DxtJpeg}
- CLSID_ColorSource : TGUID = '{0CFDD070-581A-11D2-9EE6-006008039E37}';
- {$EXTERNALSYM CLSID_ColorSource}
- CLSID_DxtKey : TGUID = '{C5B19592-145E-11D3-9F04-006008039E37}';
- {$EXTERNALSYM CLSID_DxtKey}
- type
- // used by DEXTER_VALUE's dwInterp var
- DEXTERF = (
- DEXTERF_JUMP,
- DEXTERF_INTERPOLATE
- );
- {$EXTERNALSYM DEXTERF}
- TDexterF = DEXTERF;
- // used to set values on the property setter
- PDexterParam = ^TDexterParam;
- DEXTER_PARAM = record
- Name : WideString ;
- dispID : longint;
- nValues : longint;
- end;
- {$EXTERNALSYM DEXTER_PARAM}
- TDexterParam = DEXTER_PARAM;
- // used to set values on the property setter
- PDexterValue = ^TDexterValue;
- DEXTER_VALUE = record
- v : OLEVARIANT ;
- rt : TReferenceTime ;
- dwInterp : DWORD ;
- end;
- {$EXTERNALSYM DEXTER_VALUE}
- TDexterValue = DEXTER_VALUE;
- const
- // used by bMethod directly below
- DEXTER_AUDIO_JUMP = 0;
- {$EXTERNALSYM DEXTER_AUDIO_JUMP}
- DEXTER_AUDIO_INTERPOLATE = DEXTER_AUDIO_JUMP + 1;
- {$EXTERNALSYM DEXTER_AUDIO_INTERPOLATE}
- type
- // used to set volumes on the mixer and mixer pins
- DEXTER_AUDIO_VOLUMEENVELOPE = record
- rtEnd : TReferenceTime ;
- dLevel : double ;
- bMethod : BOOL ;
- end;
- {$EXTERNALSYM DEXTER_AUDIO_VOLUMEENVELOPE}
- TDexterAudioVolumeEnvelope = DEXTER_AUDIO_VOLUMEENVELOPE;
- const
- // used in IAMTimeline::Get(Set)InsertMode
- TIMELINE_INSERT_MODE_INSERT = 1;
- {$EXTERNALSYM TIMELINE_INSERT_MODE_INSERT}
- TIMELINE_INSERT_MODE_OVERLAY = 2;
- {$EXTERNALSYM TIMELINE_INSERT_MODE_OVERLAY}
- // define what main 'things' can be put into the timeline tree.
- // these values are used quite a bit with timeline access
- // (bitmap mask flags)
- // TIMELINE_MAJOR_TYPE
- TIMELINE_MAJOR_TYPE_COMPOSITE = 1;
- {$EXTERNALSYM TIMELINE_MAJOR_TYPE_COMPOSITE}
- TIMELINE_MAJOR_TYPE_TRACK = 2;
- {$EXTERNALSYM TIMELINE_MAJOR_TYPE_TRACK}
- TIMELINE_MAJOR_TYPE_SOURCE = 4;
- {$EXTERNALSYM TIMELINE_MAJOR_TYPE_SOURCE}
- TIMELINE_MAJOR_TYPE_TRANSITION = 8;
- {$EXTERNALSYM TIMELINE_MAJOR_TYPE_TRANSITION}
- TIMELINE_MAJOR_TYPE_EFFECT = 16;
- {$EXTERNALSYM TIMELINE_MAJOR_TYPE_EFFECT}
- TIMELINE_MAJOR_TYPE_GROUP = 128;
- {$EXTERNALSYM TIMELINE_MAJOR_TYPE_GROUP}
- // used in various IAMTimelineXXX "search" functions. Look in this
- // file for "SearchDirection" to see where it's used. I didn't want
- // to use an enum as an interface param type, so I used a long. Probably
- // silly of me.
- // DEXTERF_TRACK_SEARCH_FLAGS
- DEXTERF_BOUNDING = -1;
- {$EXTERNALSYM DEXTERF_BOUNDING}
- DEXTERF_EXACTLY_AT = 0;
- {$EXTERNALSYM DEXTERF_EXACTLY_AT}
- DEXTERF_FORWARDS = 1;
- {$EXTERNALSYM DEXTERF_FORWARDS}
- type
- // right now, the media type in the group contains enough information about
- // how we want to recompress. This might not be enough information in the
- // future, so we define a structure we can get and set to the group.
- _SCompFmt0 = record
- nFormatId : longint ;
- MediaType : TAMMediaType ;
- end;
- {$EXTERNALSYM _SCompFmt0}
- SCompFmt0 = _SCompFmt0;
- {$EXTERNALSYM SCompFmt0}
- TSCompFmt0 = _SCompFmt0;
- const
- // used in IAMTimelineSrc::Get(Set)StretchMode
- RESIZEF_STRETCH = 0;
- {$EXTERNALSYM RESIZEF_STRETCH}
- RESIZEF_CROP = RESIZEF_STRETCH + 1;
- {$EXTERNALSYM RESIZEF_CROP}
- RESIZEF_PRESERVEASPECTRATIO = RESIZEF_CROP + 1;
- {$EXTERNALSYM RESIZEF_PRESERVEASPECTRATIO}
- RESIZEF_PRESERVEASPECTRATIO_NOLETTERBOX = RESIZEF_PRESERVEASPECTRATIO + 1;
- {$EXTERNALSYM RESIZEF_PRESERVEASPECTRATIO_NOLETTERBOX}
- // used in IRenderEngine::SetDynamicReconnectLevel
- // (bitmap mask flags)
- CONNECTF_DYNAMIC_NONE = 0;
- {$EXTERNALSYM CONNECTF_DYNAMIC_NONE}
- CONNECTF_DYNAMIC_SOURCES = $1;
- {$EXTERNALSYM CONNECTF_DYNAMIC_SOURCES}
- CONNECTF_DYNAMIC_EFFECTS = $2;
- {$EXTERNALSYM CONNECTF_DYNAMIC_EFFECTS}
- // used in
- // IMediaLocator::FindMediaFile
- // IRenderEngine::SetSourceNameValidation
- // IAMTimeline::ValidateSourceNames
- // (bitmap mask flags)
- SFN_VALIDATEF_CHECK = $1;
- {$EXTERNALSYM SFN_VALIDATEF_CHECK}
- SFN_VALIDATEF_POPUP = $2;
- {$EXTERNALSYM SFN_VALIDATEF_POPUP}
- SFN_VALIDATEF_TELLME = $4;
- {$EXTERNALSYM SFN_VALIDATEF_TELLME}
- SFN_VALIDATEF_REPLACE = $8;
- {$EXTERNALSYM SFN_VALIDATEF_REPLACE}
- SFN_VALIDATEF_USELOCAL = $10;
- {$EXTERNALSYM SFN_VALIDATEF_USELOCAL}
- SFN_VALIDATEF_NOFIND = $20;
- {$EXTERNALSYM SFN_VALIDATEF_NOFIND}
- SFN_VALIDATEF_IGNOREMUTED = $40;
- {$EXTERNALSYM SFN_VALIDATEF_IGNOREMUTED}
- SFN_VALIDATEF_END = SFN_VALIDATEF_IGNOREMUTED + 1;
- {$EXTERNALSYM SFN_VALIDATEF_END}
- // key transitions types
- DXTKEY_RGB = 0;
- {$EXTERNALSYM DXTKEY_RGB}
- DXTKEY_NONRED = DXTKEY_RGB + 1;
- {$EXTERNALSYM DXTKEY_NONRED}
- DXTKEY_LUMINANCE = DXTKEY_NONRED + 1;
- {$EXTERNALSYM DXTKEY_LUMINANCE}
- DXTKEY_ALPHA = DXTKEY_LUMINANCE + 1;
- {$EXTERNALSYM DXTKEY_ALPHA}
- DXTKEY_HUE = DXTKEY_ALPHA + 1;
- {$EXTERNALSYM DXTKEY_HUE}
- type
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- // New Property setting Interfaces
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- {$HPPEMIT 'typedef System::DelphiInterface<IPropertySetter> _di_IPropertySetter;'}
- {$EXTERNALSYM IPropertySetter}
- IPropertySetter = interface(IUnknown)
- ['{AE9472BD-B0C3-11D2-8D24-00A0C9441E20}']
- (*** IPropertySetter methods ***)
- // for loading and saving through XML
- function LoadXML(pxml: IUnknown): HResult; stdcall;
- // !!! doesn't work HResult LoadXML([in] IXMLElement * pxml);
- function PrintXML(out pszXML: pchar; cbXML: integer; out pcbPrinted: pinteger; indent: integer): HResult; stdcall;
- // for cloning a portion of the props when splitting the object
- function CloneProps(out ppSetter: IPropertySetter; rtStart, rtStop: TReferenceTime): HResult; stdcall;
- // for loading and saving programmatically
- // caller must call this in pre-sorted order, this time must be > all
- // previous times
- function AddProp(Param: TDexterParam; var paValue: TDexterValue): HResult; stdcall;
- function GetProps(out pcParams: longint; out paParam: PDexterParam; out paValue: PDexterValue): HResult; stdcall;
- // after calling GetProps, you must call FreeProps to free resources
- function FreeProps(cParams: longint; var paParam: TDexterParam; var paValue: TDexterValue): HResult; stdcall;
- // to empty to property setter, so you can start over again
- function ClearProps: HResult; stdcall;
- // for persisting
- function SaveToBlob(out pcSize: longint; out ppb: pbyte): HResult; stdcall;
- //
- function LoadFromBlob(cSize: longint; var pb: Byte): HResult; stdcall;
- // to program the object that supports IDispatch with the props
- // call with rtNow == -1 to set Static Props when your object instantiates
- // errors will be logged, if a log is provided
- function SetProps(pTarget: IUnknown; rtNow: TReferenceTime): HResult; stdcall;
- // unicode version
- function PrintXMLW({out}pszXML: PWideChar; cchXML: integer; out pcchPrinted: integer; indent: integer): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDxtCompositor> _di_IDxtCompositor;'}
- {$EXTERNALSYM IDxtCompositor}
- IDxtCompositor = interface(IDXEffect)
- ['{BB44391E-6ABD-422F-9E2E-385C9DFF51FC}']
- (*** IDxtCompositor methods ***)
- function get_OffsetX(out pVal: longint): HResult; stdcall;
- function put_OffsetX(newVal: longint): HResult; stdcall;
- function get_OffsetY(out pVal: longint): HResult; stdcall;
- function put_OffsetY(newVal: longint): HResult; stdcall;
- function get_Width(out pVal: longint): HResult; stdcall;
- function put_Width(newVal: longint): HResult; stdcall;
- function get_Height(out pVal: longint): HResult; stdcall;
- function put_Height(newVal: longint): HResult; stdcall;
- function get_SrcOffsetX(out pVal: longint): HResult; stdcall;
- function put_SrcOffsetX(newVal: longint): HResult; stdcall;
- function get_SrcOffsetY(out pVal: longint): HResult; stdcall;
- function put_SrcOffsetY(newVal: longint): HResult; stdcall;
- function get_SrcWidth(out pVal: longint): HResult; stdcall;
- function put_SrcWidth(newVal: longint): HResult; stdcall;
- function get_SrcHeight(out pVal: longint): HResult; stdcall;
- function put_SrcHeight(newVal: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDxtAlphaSetter> _di_IDxtAlphaSetter;'}
- {$EXTERNALSYM IDxtAlphaSetter}
- IDxtAlphaSetter = interface(IDXEffect)
- ['{4EE9EAD9-DA4D-43D0-9383-06B90C08B12B}']
- (*** IDxtAlphaSetter methods ***)
- function get_Alpha(out pVal: longint): HResult; stdcall;
- function put_Alpha(newVal: longint): HResult; stdcall;
- function get_AlphaRamp(out pVal: Double): HResult; stdcall;
- function put_AlphaRamp(newVal: Double): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDxtJpeg> _di_IDxtJpeg;'}
- {$EXTERNALSYM IDxtJpeg}
- IDxtJpeg = interface(IDXEffect)
- ['{DE75D011-7A65-11D2-8CEA-00A0C9441E20}']
- (*** IDxtJpeg methods ***)
- function get_MaskNum(out pVal: longint): HResult; stdcall;
- function put_MaskNum(newVal: longint): HResult; stdcall;
- function get_MaskName(out pVal: WideString): HResult; stdcall;
- function put_MaskName(newVal: WideString): HResult; stdcall;
- function get_ScaleX(out pVal: Double): HResult; stdcall;
- function put_ScaleX(newVal: Double): HResult; stdcall;
- function get_ScaleY(out pVal: Double): HResult; stdcall;
- function put_ScaleY(newVal: Double): HResult; stdcall;
- function get_OffsetX(out pVal: longint): HResult; stdcall;
- function put_OffsetX(newVal: longint): HResult; stdcall;
- function get_OffsetY(out pVal: longint): HResult; stdcall;
- function put_OffsetY(newVal: longint): HResult; stdcall;
- function get_ReplicateX(out pVal: longint): HResult; stdcall;
- function put_ReplicateX(newVal: longint): HResult; stdcall;
- function get_ReplicateY(out pVal: longint): HResult; stdcall;
- function put_ReplicateY(newVal: longint): HResult; stdcall;
- function get_BorderColor(out pVal: longint): HResult; stdcall;
- function put_BorderColor(newVal: longint): HResult; stdcall;
- function get_BorderWidth(out pVal: longint): HResult; stdcall;
- function put_BorderWidth(newVal: longint): HResult; stdcall;
- function get_BorderSoftness(out pVal: longint): HResult; stdcall;
- function put_BorderSoftness(newVal: longint): HResult; stdcall;
- function ApplyChanges: HResult; stdcall;
- function LoadDefSettings: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IDxtKey> _di_IDxtKey;'}
- {$EXTERNALSYM IDxtKey}
- IDxtKey = interface(IDXEffect)
- ['{3255DE56-38FB-4901-B980-94B438010D7B}']
- (*** IDxtKey methods ***)
- function get_KeyType(out pVal: integer): HResult; stdcall;
- function put_KeyType(newVal: integer): HResult; stdcall;
- function get_Hue(out pVal: integer): HResult; stdcall;
- function put_Hue(newVal: integer): HResult; stdcall;
- function get_Luminance(out pVal: integer): HResult; stdcall;
- function put_Luminance(newVal: integer): HResult; stdcall;
- function get_RGB(out pVal: DWORD): HResult; stdcall;
- function put_RGB(newVal: DWORD): HResult; stdcall;
- function get_Similarity(out pVal: integer): HResult; stdcall;
- function put_Similarity(newVal: integer): HResult; stdcall;
- function get_Invert(out pVal: BOOL): HResult; stdcall;
- function put_Invert(newVal: BOOL): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // This little COM interface will look 'around' for the closest
- // path match for a given file. If the file already exists, then
- // this interface should hardly do anything. If it's not found,
- // it will go look for it and if successful, return S_FALSE. If it
- // cannot find the file, it will call the hook, if set and return
- // it's return code. if the hook is not set, it is in a type of
- // error condition. The Dexter-provided MediaLocator will bring up
- // a dialog box asking you to browse for your file. Other COM
- // objects may do something else.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaLocator> _di_IMediaLocator;'}
- {$EXTERNALSYM IMediaLocator}
- IMediaLocator = interface(IUnknown)
- ['{288581E0-66CE-11D2-918F-00C0DF10D434}']
- (*** IMediaLocator methods ***)
- function FindMediaFile(Input: TBSTR; FilterString: TBSTR;
- out pOutput: TBSTR; Flags: longint): HResult; stdcall;
- function AddFoundLocation(DirectoryName: TBSTR): HResult; stdcall;
- end;
- ISampleGrabber = interface;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // This object provides caching of duration and stream type
- // information for files that would produce a directshow source
- // filter. It takes too long to figure this out in DShow right
- // now, so this is one way around it. The way it works is that
- // you first fill out the Filename property, then call and
- // ask how many streams it has, or, set the CurrentStream prop
- // and then ask for the per-stream properties, StreamType or
- // StreamLength. They both reference the CurrentStream prop that
- // you set. I also allowed you (for convenience) to just give
- // it a IUnknown Filter that represents an IBaseFilter source
- // filter that is NOT currently in a graph. It will use that
- // instead. When using this, though, you will not get cached
- // values. The cached values are stored in the system's ini file
- // called DCBC2A70-70D8-4459-BFFA-E0D61DEA3FDF.INI. Nice, huh? :-)
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaDet> _di_IMediaDet;'}
- {$EXTERNALSYM IMediaDet}
- IMediaDet = interface(IUnknown)
- ['{65BD0710-24D2-4FF7-9324-ED2E5D3ABAFA}']
- (*** IMediaDet methods ***)
- function get_Filter(out pVal: IUnknown): HResult; stdcall;
- function put_Filter(newVal: IUnknown): HResult; stdcall;
- function get_OutputStreams(out pVal: longint): HResult; stdcall;
- function get_CurrentStream(out pVal: longint): HResult; stdcall;
- function put_CurrentStream(newVal: longint): HResult; stdcall;
- function get_StreamType(out pVal: TGUID): HResult; stdcall;
- function get_StreamTypeB(out pVal: WideString): HResult; stdcall;
- function get_StreamLength(out pVal: Double): HResult; stdcall;
- function get_Filename(out pVal: WideString): HResult; stdcall;
- function put_Filename(pVal: WideString): HResult; stdcall;
- function GetBitmapBits(streamTime: Double; pBufferSize: Plongint; pBuffer: PByte;
- Width: longint; Height: longint): HResult; stdcall;
- function WriteBitmapBits(streamTime: Double; Width: longint; Height: longint;
- Filename: WideString): HResult; stdcall;
- function get_StreamMediaType(out pVal: TAMMediaType): HResult; stdcall;
- function GetSampleGrabber(out ppVal: ISampleGrabber): HResult; stdcall;
- function get_FrameRate(out pVal: Double): HResult; stdcall;
- function EnterBitmapGrabMode(SeekTime: Double): HResult; stdcall;
- end;
- // useless interface, don't use it!
- {$HPPEMIT 'typedef System::DelphiInterface<IGrfCache> _di_IGrfCache;'}
- {$EXTERNALSYM IGrfCache}
- IGrfCache = interface(IDispatch)
- ['{AE9472BE-B0C3-11D2-8D24-00A0C9441E20}']
- (*** IGrfCache methods ***)
- function AddFilter(ChainedCache: IGrfCache; Id: Int64; const pFilter: IBaseFilter;
- pName: PWideChar): HResult; stdcall;
- function ConnectPins(ChainedCache: IGrfCache; PinID1: Int64; const pPin1: IPin;
- PinID2: Int64; const pPin2: IPin): HResult; stdcall;
- function SetGraph(const pGraph: IGraphBuilder): HResult; stdcall;
- function DoConnectionsNow: HResult; stdcall;
- end;
- IAMTimeline = interface;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // The RenderEngin builds a graph from the timeline and gives
- // you some simple positional commands.
- // explained methods:
- // SetTimelineObject - tell the render engine who to parse
- // ConnectEverything - build up a graph based on the timeline
- // ScrapIt - throw away graph and everything
- // GetFilterGraph - get the graph that's built up, if any
- // SetFilterGraph - allows you to preset the graph that's built up.
- // cannot call this if there already is a graph.
- // !!! the following methods are unused/not implemented
- // SetInterestRange - discard COM objects and memory outside of this
- // range, if possible. Used for scrubbing on a long timeline and
- // freeing up resources
- // SetRenderRange - pretend like a portion of the timeline IS the timeline
- // and don't connect anything in the graph outside of that range.
- // Commit - allocate what's necessary and get prepared to run
- // Decommit - free anything possible
- // GetCaps - find out some info about the render engine
- // DoSmartRecompression - connect compressed sources if
- // possible
- // in the graph, this will RenderPin( ) on every switcher
- // rendering pin.
- // SetSourceNameValidation - allows you to set some flags which
- // determine how source files are found, if they need to be found.
- // FilterString is a list of extensions to find for the media
- // files (see OPENFILENAME filters)
- // pOverride is a media locator you would like to use instead
- // of the built in one
- // The flags are defined in the struct immediately below.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IRenderEngine> _di_IRenderEngine;'}
- {$EXTERNALSYM IRenderEngine}
- IRenderEngine = interface(IUnknown)
- ['{6BEE3A81-66C9-11D2-918F-00C0DF10D434}']
- (*** IRenderEngine methods ***)
- function SetTimelineObject(pTimeline: IAMTimeline): HResult; stdcall;
- function GetTimelineObject(out ppTimeline: IAMTimeline): HResult; stdcall;
- function GetFilterGraph(out ppFG: IGraphBuilder): HResult; stdcall;
- function SetFilterGraph(pFG: IGraphBuilder): HResult; stdcall;
- function SetInterestRange(Start, Stop: TReferenceTime): HResult; stdcall;
- function SetInterestRange2(Start, Stop: Double): HResult; stdcall;
- function SetRenderRange(Start, Stop: TReferenceTime): HResult; stdcall;
- function SetRenderRange2(Start, Stop: Double): HResult; stdcall;
- function GetGroupOutputPin(Group: longint; out ppRenderPin: IPin): HResult; stdcall;
- function ScrapIt: HResult; stdcall;
- function RenderOutputPins: HResult; stdcall;
- function GetVendorString(out pVendorID: WideString): HResult; stdcall;
- function ConnectFrontEnd: HResult; stdcall;
- function SetSourceConnectCallback(pCallback: IGrfCache): HResult; stdcall;
- function SetDynamicReconnectLevel(Level: longint): HResult; stdcall;
- function DoSmartRecompression: HResult; stdcall;
- function UseInSmartRecompressionGraph: HResult; stdcall;
- function SetSourceNameValidation(const FilterString: WideString;
- pOverride: IMediaLocator; Flags: longint): HResult; stdcall;
- function Commit: HResult; stdcall;
- function Decommit: HResult; stdcall;
- function GetCaps(Index: longint; var pReturn: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IRenderEngine2> _di_IRenderEngine2;'}
- {$EXTERNALSYM IRenderEngine2}
- IRenderEngine2 = interface(IUnknown)
- ['{6BEE3A82-66C9-11d2-918F-00C0DF10D434}']
- (*** IRenderEngine2 methods ***)
- function SetResizerGUID(const ResizerGuid: TGUID): HResult;
- end;
- // used for the smart render engine when it needs to find a compressor
- {$HPPEMIT 'typedef System::DelphiInterface<IFindCompressorCB> _di_IFindCompressorCB;'}
- {$EXTERNALSYM IFindCompressorCB}
- IFindCompressorCB = interface(IUnknown)
- ['{F03FA8DE-879A-4D59-9B2C-26BB1CF83461}']
- (*** IFindCompressorCB methods ***)
- function GetCompressor(var pType: TAMMediaType; var pCompType: TAMMediaType;
- out ppFilter: IBaseFilter): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ISmartRenderEngine> _di_ISmartRenderEngine;'}
- {$EXTERNALSYM ISmartRenderEngine}
- ISmartRenderEngine = interface(IUnknown)
- ['{F03FA8CE-879A-4D59-9B2C-26BB1CF83461}']
- (*** ISmartRenderEngine methods ***)
- function SetGroupCompressor(Group: longint; pCompressor: IBaseFilter): HResult; stdcall;
- function GetGroupCompressor(Group: longint; var pCompressor: IBaseFilter): HResult; stdcall;
- function SetFindCompressorCB(pCallback: IFindCompressorCB): HResult; stdcall;
- end;
- IAMTimelineGroup = interface;
-
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- // TIMELINE TIMELINE TIMELINE TIMELINE TIMELINE TIMELINE
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Every object on the timeline supports at least this interface.
- // explained methods:
- // Get/SetStartStop - the timeline times at which this object is
- // active. Groups and Tracks have start times of zero.
- // FixTimes - used by the render engine. Rounds the input times
- // to the nearest FPS of the parent Group, for use in setting
- // up the big switch.
- // GetSubObject - get the sub-object which is associated with this
- // timeline object. Each timeline object can carry around a
- // pointer to 'something else'. For our Render Engine, this is
- // a pointer to a filter that gets put into a graph.
- // NOTE: Getting the subobject will FORCE it to load if it's possible
- // to force this. If you don't want it to do this, don't call
- // this function.
- // SetSubObject - see GetSubObject
- // SetSubObjectGUID - instead of giving the node a pointer, you can
- // instead give it a GUID and see if this works instead. The
- // sub-object will attempt to be instantiated when 'necessary'
- // which is really when it's asked for with GetSubObject./
- // !!! a better way to do this perhaps?
- // GetSubObjectLoaded - ask if the sub-object pointer is set
- // Get/SetTimelineType - return the major type which is stored here,
- // used by the API user and the render engine.
- // Get/SetTimelineSubType - see above
- // Get/SetUserID - get and set a number, any number
- // GetGenID - every created object has a unique number to it. Used
- // by the render engine.
- // Get/SetUserName - a storable name, for users of the API
- // Get/SetPropertySetter - the object that will set properties for this
- // object (it will support IPropertySetter and it is created by
- // CPropertySetter)
- // Get/SetUserData - gets the persistant data used by the user of
- // the API.
- // Get/SetMuted - set whether this object should be active or not.
- // Setting a parent of other objects off also turns off the
- // sub-objects.
- // Get/SetLocked - set whether you can edit this object or not.
- // Note: the timeline doesn't enforce this, it just stores
- // a value for convenience.
- // Get/SetDirtyRange -
- // RemoveAll - remove this object, and if in the tree already, all it's
- // sub objects, including children
- // Remove - remove this object, and if in the tree already, all it's
- // sub objects, but not kids
- // GetTimelineNoRef - called internally by the timeline.
- // GetGroupIBelongTo - called internally by the timeline.
- // GetEmbedDepth - find out how many tracks we are a part of
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineObj> _di_IAMTimelineObj;'}
- {$EXTERNALSYM IAMTimelineObj}
- IAMTimelineObj = interface(IUnknown)
- ['{78530B77-61F9-11D2-8CAD-00A024580902}']
- (*** IAMTimelineObj methods ***)
- function GetStartStop(var pStart, pStop: TReferenceTime): HResult; stdcall;
- function GetStartStop2(var pStart, pStop: TREFTIME): HResult; stdcall;
- function FixTimes(var pStart, pStop: TReferenceTime): HResult; stdcall;
- function FixTimes2(var pStart, pStop: TREFTIME): HResult; stdcall;
- function SetStartStop(Start, Stop: TReferenceTime): HResult; stdcall;
- function SetStartStop2(Start, Stop: TREFTIME): HResult; stdcall;
- function GetPropertySetter(out pVal: IPropertySetter): HResult; stdcall;
- function SetPropertySetter(newVal: IPropertySetter): HResult; stdcall;
- function GetSubObject(out pVal: IUnknown): HResult; stdcall;
- function SetSubObject(newVal: IUnknown): HResult; stdcall;
- function SetSubObjectGUID(newVal: TGUID): HResult; stdcall;
- function SetSubObjectGUIDB(const newVal: WideString): HResult; stdcall;
- function GetSubObjectGUID(var pVal: TGUID): HResult; stdcall;
- function GetSubObjectGUIDB(out pVal: WideString): HResult; stdcall;
- function GetSubObjectLoaded(var pVal: BOOL): HResult; stdcall;
- function GetTimelineType(var pVal: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function SetTimelineType(newVal: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function GetUserID(var pVal: longint): HResult; stdcall;
- function SetUserID(newVal: longint): HResult; stdcall;
- function GetGenID(var pVal: longint): HResult; stdcall;
- function GetUserName(out pVal: WideString): HResult; stdcall;
- function SetUserName(const newVal: WideString): HResult; stdcall;
- function GetUserData(var pData: PByte; var pSize: Integer): HResult; stdcall;
- function SetUserData(var pData: Byte; Size: Integer): HResult; stdcall;
- function GetMuted(var pVal: BOOL): HResult; stdcall;
- function SetMuted(newVal: BOOL): HResult; stdcall;
- function GetLocked(var pVal: BOOL): HResult; stdcall;
- function SetLocked(newVal: BOOL): HResult; stdcall;
- function GetDirtyRange(var pStart, pStop: TReferenceTime): HResult; stdcall;
- function GetDirtyRange2(var pStart, pStop: TREFTIME): HResult; stdcall;
- function SetDirtyRange(Start, Stop: TReferenceTime): HResult; stdcall;
- function SetDirtyRange2(Start, Stop: TREFTIME): HResult; stdcall;
- function ClearDirty: HResult; stdcall;
- function Remove: HResult; stdcall;
- function RemoveAll: HResult; stdcall;
- function GetTimelineNoRef(var ppResult: IAMTimeline): HResult; stdcall;
- function GetGroupIBelongTo(out ppGroup: IAMTimelineGroup): HResult; stdcall;
- function GetEmbedDepth(var pVal: longint): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Any object on the timeline that can have an effect put on it
- // implements this interface. This includes sources, tracks, and
- // compositions.
- // explained methods:
- // EffectInsBefore - insert an effect at the given priority onto
- // this object. The effect's times will be clipped within
- // this object's bounds. Use -1 to specify 'at the end' for priority.
- // You cannot have two effects at the same priority.
- // EffectSwapPriorities - swaparoo two effects. Makes undo easier to
- // implement.
- // EffectGetCount - get how many effects are applied to this object.
- // GetEffect - get the nth effect applied to this object
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineEffectable> _di_IAMTimelineEffectable;'}
- {$EXTERNALSYM IAMTimelineEffectable}
- IAMTimelineEffectable = interface(IUnknown)
- ['{EAE58537-622E-11D2-8CAD-00A024580902}']
- (*** IAMTimelineEffectable methods ***)
- function EffectInsBefore(pFX: IAMTimelineObj; priority: longint): HResult; stdcall;
- function EffectSwapPriorities(PriorityA, PriorityB: longint): HResult; stdcall;
- function EffectGetCount(var pCount: longint): HResult; stdcall;
- function GetEffect(out ppFx: IAMTimelineObj; Which: longint): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Any effect on the timeline will support at least this interface.
- // NOTE: The Start/Stop times on this object are RELATIVE to their
- // parent's, as are all start/stop times.
- // explained methods:
- // EffectGetPriority - finds out this effect's priority related to the others.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineEffect> _di_IAMTimelineEffect;'}
- {$EXTERNALSYM IAMTimelineEffect}
- IAMTimelineEffect = interface(IUnknown)
- ['{BCE0C264-622D-11D2-8CAD-00A024580902}']
- (*** IAMTimelineEffect methods ***)
- function EffectGetPriority(var pVal: longint): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Any object on the timeline that can have a transition put on it
- // implements this interface
- // explained methods:
- // TransAdd - add a transition on this object. Multiple trans's on
- // the same object cannot overlap in time. Transitions' times
- // must lie within the bounds of their parent.
- // TransGetCount - get how many transitions are applied to this
- // object.
- // GetNextTrans - given a time, get the next transition that happens
- // on this object after that time. On exit, the input time is
- // set to the start time of the transition.
- // GetTransAtTime - find a transition forwards or backwards from
- // a given spot. See DEXTERF_TRACK_SEARCH_FLAGS enum.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineTransable> _di_IAMTimelineTransable;'}
- {$EXTERNALSYM IAMTimelineTransable}
- IAMTimelineTransable = interface(IUnknown)
- ['{378FA386-622E-11D2-8CAD-00A024580902}']
- (*** IAMTimelineTransable methods ***)
- function TransAdd(pTrans: IAMTimelineObj): HResult; stdcall;
- function TransGetCount(var pCount: longint): HResult; stdcall;
- function GetNextTrans(out ppTrans: IAMTimelineObj; var pInOut: TReferenceTime): HResult; stdcall;
- function GetNextTrans2(out ppTrans: IAMTimelineObj; var pInOut: TREFTIME): HResult; stdcall;
- function GetTransAtTime(out ppObj: IAMTimelineObj; Time: TReferenceTime; SearchDirection: longint): HResult; stdcall;
- function GetTransAtTime2(out ppObj: IAMTimelineObj; Time: TREFTIME; SearchDirection: longint): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Any object on the timeline that can be split into two will
- // implement this interface. Namely, source, effects, and transitions
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineSplittable> _di_IAMTimelineSplittable;'}
- {$EXTERNALSYM IAMTimelineSplittable}
- IAMTimelineSplittable = interface(IUnknown)
- ['{A0F840A0-D590-11D2-8D55-00A0C9441E20}']
- (*** IAMTimelineSplittable methods ***)
- function SplitAt(Time: TReferenceTime): HResult; stdcall;
- function SplitAt2(Time: TREFTIME): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Any trans on the timeline will support at least this interface.
- // NOTE: The Start/Stop times on this object are RELATIVE to their
- // parent's, as are all start/stop times.
- // explained methods:
- // GetCutPoint - get where this transition should cut from A to B
- // if the transition were not applied.
- // GetA2B - get if this transition is to go from A->B or B->A.
- // GetBackwards - get if this transition should run backwards.
- // GetCutsOnly - force no transition, force doing a cut
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineTrans> _di_IAMTimelineTrans;'}
- {$EXTERNALSYM IAMTimelineTrans}
- IAMTimelineTrans = interface(IUnknown)
- ['{BCE0C265-622D-11D2-8CAD-00A024580902}']
- (*** IAMTimelineTrans methods ***)
- function GetCutPoint(var pTLTime: TReferenceTime): HResult; stdcall;
- function GetCutPoint2(var pTLTime: TREFTIME): HResult; stdcall;
- function SetCutPoint(TLTime: TReferenceTime): HResult; stdcall;
- function SetCutPoint2(TLTime: TREFTIME): HResult; stdcall;
- function GetSwapInputs(var pVal: BOOL): HResult; stdcall;
- function SetSwapInputs(pVal: BOOL): HResult; stdcall;
- function GetCutsOnly(var pVal: BOOL): HResult; stdcall;
- function SetCutsOnly(pVal: BOOL): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Sources represent any source media object on the timeline.
- // They extend an IAMTimelineObj to include media start and stop
- // times, a media name (which could represent darned near anything),
- // and a StreamNumber, which defines which stream out of a potential
- // many this stream represents from a source clip.
- // explained methods:
- // ModifyStopTime - like calling SetStartStop, but this method just
- // adjusts the tail end of the clip.
- // FixMediaTimes - called by the render engine to round times to
- // this source clip's parent group's FPS.
- // SpliceWithNext - if the next clip after this is the same source
- // and this's stop time matches next's start time, the two
- // will be joined.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineSrc> _di_IAMTimelineSrc;'}
- {$EXTERNALSYM IAMTimelineSrc}
- IAMTimelineSrc = interface(IUnknown)
- ['{78530B79-61F9-11D2-8CAD-00A024580902}']
- (*** IAMTimelineSrc methods ***)
- function GetMediaTimes(var pStart, pStop: TReferenceTime): HResult; stdcall;
- function GetMediaTimes2(var pStart, pStop: TREFTIME): HResult; stdcall;
- function ModifyStopTime(Stop: TReferenceTime): HResult; stdcall;
- function ModifyStopTime2(Stop: TREFTIME): HResult; stdcall;
- function FixMediaTimes(var pStart, pStop: TReferenceTime): HResult; stdcall;
- function FixMediaTimes2(var pStart, pStop: TREFTIME): HResult; stdcall;
- function SetMediaTimes(Start, Stop: TReferenceTime): HResult; stdcall;
- function SetMediaTimes2(Start, Stop: TREFTIME): HResult; stdcall;
- function SetMediaLength(Length: TReferenceTime): HResult; stdcall;
- function SetMediaLength2(Length: TREFTIME): HResult; stdcall;
- function GetMediaLength(var pLength: TReferenceTime): HResult; stdcall;
- function GetMediaLength2(var pLength: TREFTIME): HResult; stdcall;
- function GetMediaName(out pVal: WideString): HResult; stdcall;
- function SetMediaName(const newVal: WideString): HResult; stdcall;
- function SpliceWithNext(pNext: IAMTimelineObj): HResult; stdcall;
- function GetStreamNumber(var pVal: longint): HResult; stdcall;
- function SetStreamNumber(Val: longint): HResult; stdcall;
- function IsNormalRate(var pVal: BOOL): HResult; stdcall;
- // If a source can't figure out its frames per second, this number
- // will be used (eg: Dib sequences). AVI, MPEG, etc. will not need this
- // Use 0 fps to prevent a filename like "ski4.jpg" from using a dib seq
- function GetDefaultFPS(var pFPS: Double): HResult; stdcall;
- function SetDefaultFPS(FPS: Double): HResult; stdcall;
- // !!! This is video specific.. new interface?
- // what kind of stretching? Stretch, crop, or preserve aspect ratio?
- function GetStretchMode(var pnStretchMode: integer): HResult; stdcall;
- function SetStretchMode(nStretchMode: integer): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Tracks are things that can contain media in them. You can add
- // and remove sources, effects, and transitions from them. Sources
- // are added according to the current insert mode of the timeline.
- // If in OVERLAY mode, moving or adding a source to a time that's
- // already occupied by another source will wipe out any overlapping
- // portion of the underlying source. In InsertMode, everything at
- // the insert point is moved down in time to make room for the
- // new source.
- // explained methods:
- // SrcAdd - add the source to this track. The source's start/stop
- // times must be set up first.
- // GetNextSrc - pass a time in at which you wish to find a source
- // and it will return the first source which occurs after the
- // given time.
- // MoveEverythingBy - bump a bunch of objects a certain direction
- // on the track by a given time.
- // GetSourcesCount - how many sources are on this track?
- // AreYouBlank - do you contain anything at all?
- // GetSrcAtTime - find a source at a given time. SearchDirection
- // is which way to search. -1 = backwards, 1 = forwards
- // MakeSpace - !!! what does this do, anyhow?
- // RemoveSlice - !!! what does this do, anyhow?
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineTrack> _di_IAMTimelineTrack;'}
- {$EXTERNALSYM IAMTimelineTrack}
- IAMTimelineTrack = interface(IUnknown)
- ['{EAE58538-622E-11D2-8CAD-00A024580902}']
- (*** IAMTimelineTrack methods ***)
- function SrcAdd(pSource: IAMTimelineObj): HResult; stdcall;
- function GetNextSrc(out ppSrc: IAMTimelineObj; var pInOut: TReferenceTime): HResult; stdcall;
- function GetNextSrc2(out ppSrc: IAMTimelineObj; var pInOut: TREFTIME): HResult; stdcall;
- function MoveEverythingBy(Start, MoveBy: TReferenceTime): HResult; stdcall;
- function MoveEverythingBy2(Start, MoveBy: TREFTIME): HResult; stdcall;
- function GetSourcesCount(var pVal: longint): HResult; stdcall;
- function AreYouBlank(var pVal: longint): HResult; stdcall;
- function GetSrcAtTime(out ppSrc: IAMTimelineObj; Time: TReferenceTime; SearchDirection: longint): HResult; stdcall;
- function GetSrcAtTime2(out ppSrc: IAMTimelineObj; Time: TREFTIME; SearchDirection: longint): HResult; stdcall;
- function InsertSpace(rtStart, rtEnd: TReferenceTime): HResult; stdcall;
- function InsertSpace2(rtStart, rtEnd: TREFTIME): HResult; stdcall;
- function ZeroBetween(rtStart, rtEnd: TReferenceTime): HResult; stdcall;
- function ZeroBetween2(rtStart, rtEnd: TREFTIME): HResult; stdcall;
- function GetNextSrcEx(pLast: IAMTimelineObj; out ppNext: IAMTimelineObj): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // This virtual track interface is shared by both the compositions
- // and tracks (and groups).
- // explained methods:
- // TrackGetPriority - used by rendering objects which need to know this.
- // SetTrackDirty - !!! not sure if this is useful.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineVirtualTrack> _di_IAMTimelineVirtualTrack;'}
- {$EXTERNALSYM IAMTimelineVirtualTrack}
- IAMTimelineVirtualTrack = interface(IUnknown)
- ['{A8ED5F80-C2C7-11D2-8D39-00A0C9441E20}']
- (*** IAMTimelineVirtualTrack methods ***)
- function TrackGetPriority(var pPriority: longint): HResult; stdcall;
- function SetTrackDirty: HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Compositions are like tracks in the sense that they also
- // implement IAMVirtualTrack and you can put transitions and effects
- // on them, but they really are the SUM of those tracks that they
- // contain. They are "embedded" compositions. They should only contain
- // media of one particular type (like all video or all audio), but
- // this is not enforced. You can add a composition to another
- // composition with VTrackInsBefore, just like you can add a track.
- // The very top composition to which all other comps and tracks belong
- // is a Group, which supports I-AMTimelineGroup as well as I-AMTimelineComp.
- // explained methods:
- // VTrackInsBefore - does NOT mean VideoTrack. Means Virtual Track.
- // Adds a virtual track to a composition at a given priority.
- // use -1 to mean "at the end"
- // VTrackSwapPriorities - switch two vtracks around.
- // VTrackGetCount - get how many vtracks this comp contains.
- // GetVTrack - you get the idea
- // GetCountOfType - Get the total number of these objects this comp
- // and all it's vtracks (recursively) contains. !!! this may be dead.
- // GetRecursiveLayerOfType - given a number, returns a given track. This
- // is done recursively. You need to pass in a pointer to the number,
- // and it will be modified upon exit to an unknown value. DO NOT
- // CALL THE VERSION WITH THE POINTER!
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineComp> _di_IAMTimelineComp;'}
- {$EXTERNALSYM IAMTimelineComp}
- IAMTimelineComp = interface(IUnknown)
- ['{EAE58536-622E-11D2-8CAD-00A024580902}']
- (*** IAMTimelineComp methods ***)
- function VTrackInsBefore(pVirtualTrack: IAMTimelineObj; priority: longint): HResult; stdcall;
- function VTrackSwapPriorities(VirtualTrackA, VirtualTrackB: longint): HResult; stdcall;
- function VTrackGetCount(var pVal: longint): HResult; stdcall;
- function GetVTrack(out ppVirtualTrack: IAMTimelineObj; Which: longint): HResult; stdcall;
- function GetCountOfType(var pVal, pValWithComps: longint; majortype: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function GetRecursiveLayerOfType(out ppVirtualTrack: IAMTimelineObj; WhichLayer: longint;
- Type_: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function GetRecursiveLayerOfTypeI(out ppVirtualTrack: IAMTimelineObj;
- var pWhichLayer: longint; Type_: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function GetNextVTrack(pVirtualTrack: IAMTimelineObj; out ppNextVirtualTrack: IAMTimelineObj): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // Groups represent the topmost composition in a timeline. Every
- // group should contain media of only one major type (like all video).
- // The timeline can contain multiple groups, see it's interface for
- // this. Each group has a particular "media type" that you can get/set
- // which help identify it. Each group has an associated FPS which
- // is used by the render engine in setting up the big switch. All
- // cuts on the timeline will happen rounded to this nearest FPS for
- // this particular group. Each group has a priority which enables
- // writing out multiple-stream files with 1 or more streams of the
- // same type. (Like a 2 video stream AVI file).
- // explained methods:
- // SetTimeline - this is called internally when the group is added.
- // Do not call this.
- // GetTimeline - get the timeline this group belongs to.
- // GetPriority - get this group's priority
- // Get/SetOutputFPS - explained above
- // SetMediaTypeForVB - method for VB. Pass in 0 for video, 1 for audio
- // SetRecompFormatFromSource - set the recompress format based on the
- // source that's loaded or set in the IAMTimelineSrc
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimelineGroup> _di_IAMTimelineGroup;'}
- {$EXTERNALSYM IAMTimelineGroup}
- IAMTimelineGroup = interface(IUnknown)
- ['{9EED4F00-B8A6-11D2-8023-00C0DF10D434}']
- (*** IAMTimelineGroup methods ***)
- function SetTimeline(pTimeline: IAMTimeline): HResult; stdcall;
- function GetTimeline(out ppTimeline: IAMTimeline): HResult; stdcall;
- function GetPriority(var pPriority: longint): HResult; stdcall;
- function GetMediaType(out value: TAMMediaType): HResult; stdcall;
- function SetMediaType(value: PAMMediaType): HResult; stdcall;
- function SetOutputFPS(FPS: Double): HResult; stdcall;
- function GetOutputFPS(var pFPS: Double): HResult; stdcall;
- function SetGroupName(const pGroupName: WideString): HResult; stdcall;
- function GetGroupName(out pGroupName: WideString): HResult; stdcall;
- function SetPreviewMode(fPreview: BOOL): HResult; stdcall;
- function GetPreviewMode(var pfPreview: BOOL): HResult; stdcall;
- function SetMediaTypeForVB(Val: longint): HResult; stdcall;
- function GetOutputBuffering(out pnBuffer: integer): HResult; stdcall;
- function SetOutputBuffering(nBuffer: integer): HResult; stdcall;
- function SetSmartRecompressFormat(var pFormat: longint): HResult; stdcall;
- function GetSmartRecompressFormat(ppFormat: Plongint): HResult; stdcall;
- function IsSmartRecompressFormatSet(var pVal: BOOL): HResult; stdcall;
- function IsRecompressFormatDirty(var pVal: BOOL): HResult; stdcall;
- function ClearRecompressFormatDirty: HResult; stdcall;
- function SetRecompFormatFromSource(pSource: IAMTimelineSrc): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // The main timeline. This is the base object you use to set
- // properties of the timeline as a whole, and to create blank
- // objects for use within the timeline. You cannot create the
- // objects using COM methods, you must go through the timeline to
- // create this. That's because certain information is set before
- // handing the object back to you. Every object created by the
- // timeline will support at LEAST IAMTimelineObj. For any timeline,
- // it can have one or more "groups" that it knows about. Each group
- // has the capability to hold a complete sub-tree containing media
- // that is all of one type. This logical seperation is used for the
- // rendering engine, but is not strictly enforced.
- // explained methods:
- // CreateEmptyNode - pass in a mid type and it will pass back
- // an object of the type you requested.
- // AddGroup - add a created group to the tree
- // RemGroupFromList - make sure timeline no longer knows about this group.
- // does NOT do anything to the group itself. Normally the user
- // does not want to call this, it's called from the Group's Remove( ) method.
- // GetGroup - get a certain group
- // GetGroupCount - get how many groups
- // ClearAllGroups - clear everything
- // GetInsertMode - ask what the insert mode is, overlay or insert
- // SetInsertMode - set whether to insert or overlay
- // EnableTransitions - turn transitions on or off as a whole
- // EnableEffects - same deal.
- // SetIntererstRange - discard sub-objects outside of a given
- // time range, to save memory/resources
- // Get/SetDefaultFPS - set the 'default' FPS for this timeline,
- // the RenderEngine reads this information for setting itself up
- // by default.
- // GetCountOfType - ask for how many of a given thing are in a given
- // group. !!! this may be a useless function.
- // !!! not implemented
- // IsDirty - asks if anything in the timeline needs to be redrawn
- // GetDirtyRange - same deal
- // ValidateSourceNames - make sure the filenames in the sources
- // really exist. Use the same enum flags as the render engine
- // uses for SetSourceNameValidation. Source's filenames will be
- // changed to those of the found ones in the timeline.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IAMTimeline> _di_IAMTimeline;'}
- {$EXTERNALSYM IAMTimeline}
- IAMTimeline = interface(IUnknown)
- ['{78530B74-61F9-11D2-8CAD-00A024580902}']
- (*** IAMTimeline methods ***)
- function CreateEmptyNode(out ppObj: IAMTimelineObj; Type_: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function AddGroup(pGroup: IAMTimelineObj): HResult; stdcall;
- function RemGroupFromList(pGroup: IAMTimelineObj): HResult; stdcall;
- function GetGroup(out ppGroup: IAMTimelineObj; WhichGroup: longint): HResult; stdcall;
- function GetGroupCount(var pCount: longint): HResult; stdcall;
- function ClearAllGroups: HResult; stdcall;
- function GetInsertMode(var pMode: longint): HResult; stdcall;
- function SetInsertMode(Mode: longint): HResult; stdcall;
- function EnableTransitions(fEnabled: BOOL): HResult; stdcall;
- function TransitionsEnabled(var pfEnabled: BOOL): HResult; stdcall;
- function EnableEffects(fEnabled: BOOL): HResult; stdcall;
- function EffectsEnabled(var pfEnabled: BOOL): HResult; stdcall;
- function SetInterestRange(Start, Stop: TReferenceTime): HResult; stdcall;
- function GetDuration(var pDuration: TReferenceTime): HResult; stdcall;
- function GetDuration2(var pDuration: Double): HResult; stdcall;
- function SetDefaultFPS(FPS: Double): HResult; stdcall;
- function GetDefaultFPS(var pFPS: Double): HResult; stdcall;
- function IsDirty(var pDirty: BOOL): HResult; stdcall;
- function GetDirtyRange(var pStart, pStop: TReferenceTime): HResult; stdcall;
- function GetCountOfType(Group: longint; var pVal, pValWithComps: longint;
- majortype: integer): HResult; stdcall; // TIMELINE_MAJOR_TYPE
- function ValidateSourceNames(ValidateFlags: longint; pOverride: IMediaLocator;
- NotifyEventHandle: integer): HResult; stdcall;
- function SetDefaultTransition(const pGuid: TGUID): HResult; stdcall;
- function GetDefaultTransition(var pGuid: TGUID): HResult; stdcall;
- function SetDefaultEffect(const pGuid: TGUID): HResult; stdcall;
- function GetDefaultEffect(var pGuid: TGUID): HResult; stdcall;
- function SetDefaultTransitionB(const pGuid: WideString): HResult; stdcall;
- function GetDefaultTransitionB(out pGuid: WideString): HResult; stdcall;
- function SetDefaultEffectB(const pGuid: WideString): HResult; stdcall;
- function GetDefaultEffectB(out pGuid: WideString): HResult; stdcall;
- end;
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- // XML STUFF --- XML STUFF --- XML STUFF --- XML STUFF --- XML
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- // Xml2Dex - converts back and forth between XML and a dexter project
- //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-
- {$HPPEMIT 'typedef System::DelphiInterface<IXml2Dex> _di_IXml2Dex;'}
- {$EXTERNALSYM IXml2Dex}
- IXml2Dex = interface(IDispatch)
- ['{18C628ED-962A-11D2-8D08-00A0C9441E20}']
- (*** IXml2Dex methods ***)
- function CreateGraphFromFile(out ppGraph: IUnknown; pTimeline: IUnknown;
- const Filename: WideString): HResult; stdcall;
- function WriteGrfFile(pGraph: IUnknown; const Filename: WideString): HResult; stdcall;
- function WriteXMLFile(pTimeline: IUnknown; const Filename: WideString): HResult; stdcall;
- function ReadXMLFile(pTimeline: IUnknown; const XMLName: WideString): HResult; stdcall;
- function Delete(pTimeline: IUnknown; dStart, dEnd: Double): HResult; stdcall;
- function WriteXMLPart(pTimeline: IUnknown; dStart, dEnd: Double;
- const Filename: WideString): HResult; stdcall;
- function PasteXMLFile(pTimeline: IUnknown; dStart: Double; const Filename: WideString): HResult; stdcall;
- function CopyXML(pTimeline: IUnknown; dStart, dEnd: Double): HResult; stdcall;
- function PasteXML(pTimeline: IUnknown; dStart: Double): HResult; stdcall;
- function Reset: HResult; stdcall;
- function ReadXML(pTimeline: IUnknown; pxml: IUnknown): HResult; stdcall;
- function WriteXML(pTimeline: IUnknown; var pbstrXML: WideString): HResult; stdcall;
- end;
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- // USEFUL HELPER INTERFACES
- ////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////
- //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- // IAMErrorLog - an interface that receives error information from
- // a timeline or a render engine.
- //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- {$HPPEMIT 'typedef System::DelphiInterface<IAMErrorLog> _di_IAMErrorLog;'}
- {$EXTERNALSYM IAMErrorLog}
- IAMErrorLog = interface(IUnknown)
- ['{E43E73A2-0EFA-11D3-9601-00A0C9441E20}']
- (*** IAMErrorLog methods ***)
- function LogError(Severity: longint; const pErrorString: WideString; ErrorCode: longint;
- HResult: longint; var pExtraInfo: OleVariant): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IAMSetErrorLog> _di_IAMSetErrorLog;'}
- {$EXTERNALSYM IAMSetErrorLog}
- IAMSetErrorLog = interface(IUnknown)
- ['{963566DA-BE21-4EAF-88E9-35704F8F52A1}']
- (*** IAMSetErrorLog methods ***)
- function get_ErrorLog(out pVal: IAMErrorLog): HResult; stdcall;
- function put_ErrorLog(pVal: IAMErrorLog): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<ISampleGrabberCB> _di_ISampleGrabberCB;'}
- {$EXTERNALSYM ISampleGrabberCB}
- ISampleGrabberCB = interface(IUnknown)
- ['{0579154A-2B53-4994-B0D0-E773148EFF85}']
- (*** ISampleGrabberCB methods ***)
- function SampleCB(SampleTime: Double; pSample: IMediaSample): HResult; stdcall;
- function BufferCB(SampleTime: Double; pBuffer: PByte; BufferLen: longint): HResult; stdcall;
- end;
-
- {$HPPEMIT 'typedef System::DelphiInterface<ISampleGrabber> _di_ISampleGrabber;'}
- {$EXTERNALSYM ISampleGrabber}
- ISampleGrabber = interface(IUnknown)
- ['{6B652FFF-11FE-4FCE-92AD-0266B5D7C78F}']
- (*** ISampleGrabber methods ***)
- // set this to have the filter immediate stop after
- // garnishing a sample
- function SetOneShot(OneShot: BOOL): HResult; stdcall;
- // set what media type we connect to. It can be partially
- // specified by setting only the major type, OR the major and
- // subtype, OR major, subtype, and the formattype.
- function SetMediaType(var pType: TAMMediaType): HResult; stdcall;
- // after something's connected to this filter, find out
- // what it is
- function GetConnectedMediaType(out pType: TAMMediaType): HResult; stdcall;
- // call this to buffer incoming samples, so the next two methods will work
- // If this is not called, the next two methods will return
- // E_INVALIDARG
- function SetBufferSamples(BufferThem: BOOL): HResult; stdcall;
- // pass in NULL for pBuffer to get out the buffer size you need to
- // allocate. This will NOT return a pointer to a compressed dib
- // any longer! It will return the IMediaSample's GetPointer buffer.
- function GetCurrentBuffer(var pBufferSize: longint; pBuffer: Pointer): HResult; stdcall;
- // return the currently buffered sample
- function GetCurrentSample(out ppSample: IMediaSample): HResult; stdcall;
- // if this callback is set, then it will be called for
- // every sample passing through the filter. Do not take a long time
- // in the callback for smooth playback (obviously!)
- function SetCallback(pCallback: ISampleGrabberCB; WhichMethodToCallback: longint): HResult; stdcall;
- end;
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- // resize the input video to an output size, for uniformity within DES.
- // DES will set the output media type and probably also put_Size. By setting
- // the output media type, DES is stating the resizer must produce only that
- // media type on the output pin, unless it is succeeded by a put_Size call.
- // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- {$HPPEMIT 'typedef System::DelphiInterface<IResize> _di_IResize;'}
- {$EXTERNALSYM IResize}
- IResize = interface(IUnknown)
- ['{4ada63a0-72d5-11d2-952a-0060081840bc}']
- (*** IResize methods ***)
- function get_Size(out piHeight, piWidth: Integer; out pFlag: LongInt): HResult; stdcall;
- function get_InputSize(out piHeight, piWidth: Integer): HResult; stdcall;
- function put_Size(Height, Width: Integer; Flag: LongInt): HResult; stdcall;
- function get_MediaType(out pmt: TAMMediaType): HResult; stdcall;
- function put_MediaType(pmt: PAMMediaType): HResult; stdcall;
- end;
- const
- E_NOTINTREE = HResult($80040400);
- {$EXTERNALSYM E_NOTINTREE}
- E_RENDER_ENGINE_IS_BROKEN = HResult($80040401);
- {$EXTERNALSYM E_RENDER_ENGINE_IS_BROKEN}
- E_MUST_INIT_RENDERER = HResult($80040402);
- {$EXTERNALSYM E_MUST_INIT_RENDERER}
- E_NOTDETERMINED = HResult($80040403);
- {$EXTERNALSYM E_NOTDETERMINED}
- E_NO_TIMELINE = HResult($80040404);
- {$EXTERNALSYM E_NO_TIMELINE}
- S_WARN_OUTPUTRESET = 40404;
- {$EXTERNALSYM S_WARN_OUTPUTRESET}
- // These codes are given to the app in IAMErrorLog to help identify what went wrong
- // Filename doesn't exist, or DShow doesn't recognize the filetype
- // EXTRA - filename
- DEX_IDS_BAD_SOURCE_NAME = 1400;
- {$EXTERNALSYM DEX_IDS_BAD_SOURCE_NAME}
- // Filename doesn't exist or contains unknown data
- // EXTRA - filename (maybe no codec?)
- DEX_IDS_BAD_SOURCE_NAME2 = 1401;
- {$EXTERNALSYM DEX_IDS_BAD_SOURCE_NAME2}
- // filename was required, but wasn't given
- DEX_IDS_MISSING_SOURCE_NAME = 1402;
- {$EXTERNALSYM DEX_IDS_MISSING_SOURCE_NAME}
- // cannot parse data provided by this source
- // !!! what source?
- DEX_IDS_UNKNOWN_SOURCE = 1403;
- {$EXTERNALSYM DEX_IDS_UNKNOWN_SOURCE}
- // unexpected error - some DShow component not installed correctly
- DEX_IDS_INSTALL_PROBLEM = 1404;
- {$EXTERNALSYM DEX_IDS_INSTALL_PROBLEM}
- // Source filter does not accept filenames
- // !!! What source?
- DEX_IDS_NO_SOURCE_NAMES = 1405;
- {$EXTERNALSYM DEX_IDS_NO_SOURCE_NAMES}
- // The group's mediatype is not supported
- // EXTRA - gives you an integer group number
- DEX_IDS_BAD_MEDIATYPE = 1406;
- {$EXTERNALSYM DEX_IDS_BAD_MEDIATYPE}
- // Invalid stream number for a source
- // EXTRA - gives the stream number !!! should identify which source!
- DEX_IDS_STREAM_NUMBER = 1407;
- {$EXTERNALSYM DEX_IDS_STREAM_NUMBER}
- // You ran out of memory
- DEX_IDS_OUTOFMEMORY = 1408;
- {$EXTERNALSYM DEX_IDS_OUTOFMEMORY}
- // One bitmap in a sequence was not the same type as the others
- // EXTRA - gives the bitmap name
- DEX_IDS_DIBSEQ_NOTALLSAME = 1409;
- {$EXTERNALSYM DEX_IDS_DIBSEQ_NOTALLSAME}
- // Clip's mediatimes are invalid, or DibSeq too short, or a previous error caused this
- // !!! Needs to give the clip name
- DEX_IDS_CLIPTOOSHORT = 1410;
- {$EXTERNALSYM DEX_IDS_CLIPTOOSHORT}
- // Clsid of FX/Transition is not a DirectX Transform
- // EXTRA - gives the CLSID
- DEX_IDS_INVALID_DXT = 1411;
- {$EXTERNALSYM DEX_IDS_INVALID_DXT}
- // Default FX/Transition Clsid is not a DirectX Transform"
- // EXTRA - gives the CLSID
- DEX_IDS_INVALID_DEFAULT_DXT = 1412;
- {$EXTERNALSYM DEX_IDS_INVALID_DEFAULT_DXT}
- // Your version of DX doesn't support 3D transforms"
- // EXTRA - gives the CLSID of the 3D transform you tried to use
- DEX_IDS_NO_3D = 1413;
- {$EXTERNALSYM DEX_IDS_NO_3D}
- // This DirectX Transform is not the right kind, or is broken
- // EXTRA - gives the CLSID of the broken transform
- DEX_IDS_BROKEN_DXT = 1414;
- {$EXTERNALSYM DEX_IDS_BROKEN_DXT}
- // No such property exists on an object
- // EXTRA - gives the name of the property (if given as a string)
- DEX_IDS_NO_SUCH_PROPERTY = 1415;
- {$EXTERNALSYM DEX_IDS_NO_SUCH_PROPERTY}
- // Illegal value for a property
- // EXTRA - gives the VARIANT value that was illegal
- DEX_IDS_ILLEGAL_PROPERTY_VAL = 1416;
- {$EXTERNALSYM DEX_IDS_ILLEGAL_PROPERTY_VAL}
- // Syntax error in XML file at line:
- // EXTRA - gives I4 line number, if available
- DEX_IDS_INVALID_XML = 1417;
- {$EXTERNALSYM DEX_IDS_INVALID_XML}
- // Can't find filter specified in XML by Category and Instance
- // EXTRA - gives friendly name (instance)
- DEX_IDS_CANT_FIND_FILTER = 1418;
- {$EXTERNALSYM DEX_IDS_CANT_FIND_FILTER}
- // Disk error writing XML file
- DEX_IDS_DISK_WRITE_ERROR = 1419;
- {$EXTERNALSYM DEX_IDS_DISK_WRITE_ERROR}
- // Clsid not a valid DShow audio effect filter
- // EXTRA - gives the CLSID
- DEX_IDS_INVALID_AUDIO_FX = 1420;
- {$EXTERNALSYM DEX_IDS_INVALID_AUDIO_FX}
- // Cannot find compressor for smart recompression type
- DEX_IDS_CANT_FIND_COMPRESSOR = 1421;
- {$EXTERNALSYM DEX_IDS_CANT_FIND_COMPRESSOR}
- // !!! Here go problems hooking up sources or finding codecs
- // THE FOLLOWING SHOULD NEVER HAPPEN - please call me if they do
- // Unexpected error in parsing the timeline
- DEX_IDS_TIMELINE_PARSE = 1426;
- {$EXTERNALSYM DEX_IDS_TIMELINE_PARSE}
- // Unexpected error building the filtergraph
- DEX_IDS_GRAPH_ERROR = 1427;
- {$EXTERNALSYM DEX_IDS_GRAPH_ERROR}
- // Unexpected error with the internal grid
- DEX_IDS_GRID_ERROR = 1428;
- {$EXTERNALSYM DEX_IDS_GRID_ERROR}
- // Unexpected error getting an interface
- DEX_IDS_INTERFACE_ERROR = 1429;
- {$EXTERNALSYM DEX_IDS_INTERFACE_ERROR}
- // these are the enumeration categories for effects
- //
- CLSID_VideoEffects1Category : TGUID = '{CC7BFB42-F175-11d1-A392-00E0291F3959}';
- {$EXTERNALSYM CLSID_VideoEffects1Category}
- CLSID_VideoEffects2Category : TGUID = '{CC7BFB43-F175-11d1-A392-00E0291F3959}';
- {$EXTERNALSYM CLSID_VideoEffects2Category}
- CLSID_AudioEffects1Category : TGUID = '{cc7bfb44-f175-11d1-a392-00e0291f3959}';
- {$EXTERNALSYM CLSID_AudioEffects1Category}
- CLSID_AudioEffects2Category : TGUID = '{cc7bfb45-f175-11d1-a392-00e0291f3959}';
- {$EXTERNALSYM CLSID_AudioEffects2Category}
- {**************************************************************************}
- {* Module Name: mpeguids.h *}
- {* This file was inadvertently left out of the DirectX by Microsoft *}
- {* Universal ID's for the mpeg decoder property pages. *}
- {* *}
- {* Copyright (c) 1995 - 1997 Microsoft Corporation. All Rights Reserved.*}
- {**************************************************************************}
- IID_IMpegVideoDecoder : TGUID = '{EB1BB270-F71F-11CE-8E85-02608C9BABA2}';
- CLSID_MpegAudioDecodePropertyPage : TGUID = '{CC785860-B2CA-11ce-8D2B-0000E202599C}';
- CLSID_MpegVideoDecodePropertyPage : TGUID = '{E5B4EAA0-B2CA-11ce-8D2B-0000E202599C}';
- CLSID_MMMpeg1VideoCodec : TGUID = '{eafd3a00-a2c7-11d0-b0ac-006097707a2c}';
- VIDEO_DECODER_CLSID : TGUID = '{eafd3a00-a2c7-11d0-b0ac-006097707a2c}';
- CLSID_MMMpeg1AudioCodec : TGUID = '{2cd28f20-a2c8-11d0-b0ac-006097707a2c}';
- AUDIO_DECODER_CLSID : TGUID = '{2cd28f20-a2c8-11d0-b0ac-006097707a2c}';
- type
- // Structure to describe the caps of the mpeg video decoder.
- MPEGVideoDecoderCaps = record
- VideoMaxBitRate: DWORD
- end;
- TMPEGVideoDecoderCaps = MPEGVideoDecoderCaps;
- // --------------------------------------------------------------------------------------
- // Structure to hold the contents of an Mpeg 1 sequence header. //
- // This structure come from mpgvideo.h in DXMedia SDK!! //
- // --------------------------------------------------------------------------------------
- SeqHdrInfo = record //
- Width : LongInt; // Native Width in pixels //
- Height : LongInt; // Native Height in pixels //
- vbv : LongInt; // vbv //
- PictureTime : TReferenceTime; // Time per picture in 100ns units //
- TimePerFrame : LongInt; // Time per picture in MPEG units //
- BitRate : LongInt; // Bits per second //
- XPelsPerMeter : LongInt; // Pel aspect ratio //
- YPelsPerMeter : LongInt; // Pel aspect ratio //
- StartTimeCode : DWORD; // First GOP time code (or -1) //
- ActualHeaderLen : LongInt; // Length of valid bytes in raw seq hdr //
- RawHeader : array[0..139] of Byte; // The real sequence header //
- end; //
- TSeqHdrInfo = SeqHdrInfo;
- // --------------------------------------------------------------------------------------
- // IMpegVideoDecoder not documented...
- IMpegVideoDecoder = interface(IUnknown)
- ['{EB1BB270-F71F-11CE-8E85-02608C9BABA2}']
- (*** IMpegVideoDecoder methods ***)
- procedure get_CurrentDecoderOption(out pOptions: DWORD); stdcall;
- procedure set_CurrentDecoderOption(Options: DWORD); stdcall;
- procedure get_DefaultDecoderOption(out pOptions: DWORD); stdcall;
- procedure set_DefaultDecoderOption(Options: DWORD); stdcall;
- procedure get_QualityMsgProcessing(out pfIgnore: BOOL); stdcall;
- procedure set_QualityMsgProcessing(fIgnore: BOOL); stdcall;
- procedure get_GreyScaleOutput(out pfGrey: BOOL); stdcall;
- procedure set_GreyScaleOutput(fGrey: BOOL); stdcall;
- procedure get_SequenceHeader(out pSeqHdrInfo: TSeqHdrInfo); stdcall;
- procedure get_OutputFormat(out pOutputFormat: DWORD); stdcall;
- procedure get_FrameStatistics(out pIFramesDecoded, pPFramesDecoded, stdcall;
- pBFramesDecoded, pIFramesSkipped, pPFramesSkipped, pBFramesSkipped: DWORD);
- procedure ResetFrameStatistics; stdcall;
- procedure get_DecoderPaletteInfo(lpdwFirstEntry, lpdwLastEntry: PDWORD); stdcall;
- procedure get_DecoderPaletteEntries(dwStartEntry, dwNumEntries: DWORD;
- lppe: PPALETTEENTRY); stdcall;
- procedure get_EncryptionKey(out dwEncrptionKey: DWORD); stdcall;
- procedure put_EncryptionKey(dwEncrptionKey: DWORD); stdcall;
- procedure get_DecoderCaps(out pCaps: TMPEGVideoDecoderCaps); stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: DShowASF.h
- //
- // Copyright (c) 1992-2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_IConfigAsfWriter : TGUID = (D1:$45086030;D2:$F7E4;D3:$486a;D4:($B5,$04,$82,$6B,$B5,$79,$2A,$3B));
- {$EXTERNALSYM IID_IConfigAsfWriter}
- // IID_IWMProfile : TGUID = (D1:$96406bdb;D2:$2b2b;D3:$11d3;D4:($b3,$6b,$00,$c0,$4f,$61,$08,$ff));
- type
- // Interface to control the ASF writer
- {$HPPEMIT 'typedef System::DelphiInterface<IConfigAsfWriter> _di_IConfigAsfWriter;'}
- {$EXTERNALSYM IConfigAsfWriter}
- IConfigAsfWriter = interface(IUnknown)
- ['{45086030-F7E4-486a-B504-826BB5792A3B}']
- (*** IConfigAsfWriter methods ***)
- // The user is expected to enumerate profiles using the wmsdk IWMProfileManager
- // method and then pass the desired profile index to the ASF Writer filter via this
- // method. The filter will then try to configure itself for the selected profile.
- //
- // NOTE: These 2 XXXProfileId methods are now obsolete because they assume
- // version 4.0 WMSDK profiles. To configure the filter for later profile
- // versions using a profile index, use the XXXProfile methods which take
- // the IWMProfile* directly.
- function ConfigureFilterUsingProfileId(dwProfileId: DWORD): HResult; stdcall;
- function GetCurrentProfileId(out pdwProfileId: DWORD): HResult; stdcall;
- // configure using a pre-defined wmsdk profile guid
- function ConfigureFilterUsingProfileGuid(const guidProfile: TGUID): HResult; stdcall;
- function GetCurrentProfileGuid(out pProfileGuid: TGUID): HResult; stdcall;
- // Use these methods when a custom profile setup is preferred
- function ConfigureFilterUsingProfile(pProfile: IUnKnown): HResult; stdcall; // IWMProfile in Window Media Format SDK
- function GetCurrentProfile(out ppProfile: IUnKnown): HResult; stdcall; // IWMProfile in Window Media Format SDK
- // allow app to control whether or not to index file
- function SetIndexMode(bIndexFile: BOOL): HResult; stdcall;
- function GetIndexMode(out pbIndexFile: BOOL): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: AMParse.h
- //
- // Desc: Interface to the parser to get current time. This is useful for
- // multifile playback.
- //
- // Copyright (c) 1996 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_IAMParse : TGUID = (D1:$c47a3420;D2:$005c;D3:$11d2;D4:($90,$38,$00,$a0,$c9,$69,$72,$98));
- {$EXTERNALSYM IID_IAMParse}
- type
- // Parser interface - supported by MPEG-2 splitter filter
- {$HPPEMIT 'typedef System::DelphiInterface<IAMParse> _di_IAMParse;'}
- {$EXTERNALSYM IAMParse}
- IAMParse = interface(IUnknown)
- ['{c47a3420-005c-11d2-9038-00a0c9697298}']
- (*** IAMParse methods ***)
- function GetParseTime(out prtCurrent: TReferenceTime): HResult; stdcall;
- function SetParseTime(rtCurrent: TReferenceTime): HResult; stdcall;
- function Flush: HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: AudEvCod.h
- //
- // Desc: List of Audio device error event codes and the expected params.
- //
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- EC_SND_DEVICE_ERROR_BASE = $0200;
- {$EXTERNALSYM EC_SND_DEVICE_ERROR_BASE}
- type
- _tagSND_DEVICE_ERROR = (
- {$IFNDEF COMPILER6_UP}
- SNDDEV_ERROR_INVALID_0,
- SNDDEV_ERROR_Open,
- {$ELSE}
- SNDDEV_ERROR_Open = 1,
- {$ENDIF}
- SNDDEV_ERROR_Close,
- SNDDEV_ERROR_GetCaps,
- SNDDEV_ERROR_PrepareHeader,
- SNDDEV_ERROR_UnprepareHeader,
- SNDDEV_ERROR_Reset,
- SNDDEV_ERROR_Restart,
- SNDDEV_ERROR_GetPosition,
- SNDDEV_ERROR_Write,
- SNDDEV_ERROR_Pause,
- SNDDEV_ERROR_Stop,
- SNDDEV_ERROR_Start,
- SNDDEV_ERROR_AddBuffer,
- SNDDEV_ERROR_Query
- );
- {$EXTERNALSYM _tagSND_DEVICE_ERROR}
- SNDDEV_ERR = _tagSND_DEVICE_ERROR;
- {$EXTERNALSYM SNDDEV_ERR}
- TSndDevErr = SNDDEV_ERR;
- // Sound device error event codes
- // ==============================
- //
- // All audio device error events are always passed on to the application, and are
- // never processed by the filter graph
- const
- EC_SNDDEV_IN_ERROR = EC_SND_DEVICE_ERROR_BASE + $00;
- {$EXTERNALSYM EC_SNDDEV_IN_ERROR}
- EC_SNDDEV_OUT_ERROR = EC_SND_DEVICE_ERROR_BASE + $01;
- {$EXTERNALSYM EC_SNDDEV_OUT_ERROR}
- // Parameters: ( DWORD, DWORD)
- // lParam1 is an enum SND_DEVICE_ERROR which notifies the app how the device was
- // being accessed when the failure occurred.
- //
- // lParam2 is the error returned from the sound device call.
- //------------------------------------------------------------------------------
- // File: ATSMedia.h
- //
- // Desc: Broadcast Driver Architecture Media Definitions for ATSC
- //
- // Copyright (c) 1996 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- //===========================================================================
- //
- // ATSC Network Type
- //
- //===========================================================================
- const
- BDANETWORKTYPE_ATSC : TGUID = '{71985F51-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM BDANETWORKTYPE_ATSC}
- //------------------------------------------------------------------------------
- // File: MediaErr.h
- //
- // Desc: Shell error codes
- //
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- DMO_E_INVALIDSTREAMINDEX = HResult($80040201);
- {$EXTERNALSYM DMO_E_INVALIDSTREAMINDEX}
- DMO_E_INVALIDTYPE = HResult($80040202);
- {$EXTERNALSYM DMO_E_INVALIDTYPE}
- DMO_E_TYPE_NOT_SET = HResult($80040203);
- {$EXTERNALSYM DMO_E_TYPE_NOT_SET}
- DMO_E_NOTACCEPTING = HResult($80040204);
- {$EXTERNALSYM DMO_E_NOTACCEPTING}
- DMO_E_TYPE_NOT_ACCEPTED = HResult($80040205);
- {$EXTERNALSYM DMO_E_TYPE_NOT_ACCEPTED}
- DMO_E_NO_MORE_ITEMS = HResult($80040206);
- {$EXTERNALSYM DMO_E_NO_MORE_ITEMS}
- //------------------------------------------------------------------------------
- // File: MedParam.h
- // Desc: Definition of the IMediaParams and associated interfaces. These
- // interfaces are designed to allow communication of curve-following
- // behaviors for parameters of objects which require dynamic changes
- // to their parameters at run time. All changes are specified by
- // timestamp and curve type to ensure the parameters can be set
- // at sufficient accuracy with predictable behavior on subsequent
- // playback of the same curves.
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_IMediaParamInfo : TGUID = '{6d6cbb60-a223-44aa-842f-a2f06750be6d}';
- {$EXTERNALSYM IID_IMediaParamInfo}
- IID_IMediaParams : TGUID = '{6d6cbb61-a223-44aa-842f-a2f06750be6e}';
- {$EXTERNALSYM IID_IMediaParams}
- GUID_TIME_REFERENCE : TGUID = (D1:$93ad712b;D2:$daa0;D3:$4ffe;D4:($bc,$81,$b0,$ce,$50,$f ,$cd,$d9));
- {$EXTERNALSYM GUID_TIME_REFERENCE}
- GUID_TIME_MUSIC : TGUID = (D1:$574c49d ;D2:$5b04;D3:$4b15;D4:($a5,$42,$ae,$28,$20,$30,$11,$7b));
- {$EXTERNALSYM GUID_TIME_MUSIC}
- GUID_TIME_SAMPLES : TGUID = (D1:$a8593d05;D2:$c43 ;D3:$4984;D4:($9a,$63,$97,$af,$9e,$2 ,$c4,$c0));
- {$EXTERNALSYM GUID_TIME_SAMPLES}
- type
- MP_DATA = {$IFDEF TYPE_IDENTITY}type {$ENDIF} Single;
- {$EXTERNALSYM MP_DATA}
- MPData = MP_DATA;
-
- _MP_Type = (
- MPT_INT,
- MPT_FLOAT,
- MPT_BOOL,
- MPT_ENUM,
- MPT_MAX
- );
- {$EXTERNALSYM _MP_Type}
- MP_TYPE = _MP_Type;
- {$EXTERNALSYM MP_TYPE}
- TMPTYPE = MP_TYPE;
- const
- MPBOOL_TRUE = 1;
- {$EXTERNALSYM MPBOOL_TRUE}
- MPBOOL_FALSE = 0;
- {$EXTERNALSYM MPBOOL_FALSE}
- type
- MP_CURVE_TYPE = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM MP_CURVE_TYPE}
- MPCurveType = MP_CURVE_TYPE;
- const
- MP_CURVE_JUMP = $1;
- {$EXTERNALSYM MP_CURVE_JUMP}
- MP_CURVE_LINEAR = $2;
- {$EXTERNALSYM MP_CURVE_LINEAR}
- MP_CURVE_SQUARE = $4;
- {$EXTERNALSYM MP_CURVE_SQUARE}
- MP_CURVE_INVSQUARE = $8;
- {$EXTERNALSYM MP_CURVE_INVSQUARE}
- MP_CURVE_SINE = $10;
- {$EXTERNALSYM MP_CURVE_SINE}
- type
- MP_CAPS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD;
- {$EXTERNALSYM MP_CAPS}
- MPCaps = MP_CAPS;
- const
- MP_CAPS_CURVE_JUMP = MP_CURVE_JUMP;
- {$EXTERNALSYM MP_CAPS_CURVE_JUMP}
- MP_CAPS_CURVE_LINEAR = MP_CURVE_LINEAR;
- {$EXTERNALSYM MP_CAPS_CURVE_LINEAR}
- MP_CAPS_CURVE_SQUARE = MP_CURVE_SQUARE;
- {$EXTERNALSYM MP_CAPS_CURVE_SQUARE}
- MP_CAPS_CURVE_INVSQUARE = MP_CURVE_INVSQUARE;
- {$EXTERNALSYM MP_CAPS_CURVE_INVSQUARE}
- MP_CAPS_CURVE_SINE = MP_CURVE_SINE;
- {$EXTERNALSYM MP_CAPS_CURVE_SINE}
- type
- _MP_PARAMINFO = record
- mpType : TMPType;
- mopCaps : MPCaps;
- mpdMinValue : MPData;
- mpdMaxValue : MPData;
- mpdNeutralValue : MPData;
- szUnitText : array[0..31] of WCHAR;
- szLabel : array[0..31] of WCHAR;
- end;
- {$EXTERNALSYM _MP_PARAMINFO}
- MP_PARAMINFO = _MP_PARAMINFO;
- {$EXTERNALSYM MP_PARAMINFO}
- TMPParamInfo = _MP_PARAMINFO;
- const
- DWORD_ALLPARAMS = -1;
- {$EXTERNALSYM DWORD_ALLPARAMS}
- type
- MP_TIMEDATA = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD;
- {$EXTERNALSYM MP_TIMEDATA}
- MPTimeData = MP_TIMEDATA;
- MP_FLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD;
- {$EXTERNALSYM MP_FLAGS}
- MPFlags = MP_FLAGS;
- const
- MPF_ENVLP_STANDARD = $0;
- {$EXTERNALSYM MPF_ENVLP_STANDARD}
- MPF_ENVLP_BEGIN_CURRENTVAL = $1;
- {$EXTERNALSYM MPF_ENVLP_BEGIN_CURRENTVAL}
- MPF_ENVLP_BEGIN_NEUTRALVAL = $2;
- {$EXTERNALSYM MPF_ENVLP_BEGIN_NEUTRALVAL}
- type
- _MP_ENVELOPE_SEGMENT = record
- rtStart : TReferenceTime;
- rtEnd : TReferenceTime;
- valStart : MPData;
- valEnd : MPData;
- iCurve : MPCURVETYPE;
- flags : MPFlags;
- end;
- {$EXTERNALSYM _MP_ENVELOPE_SEGMENT}
- MP_ENVELOPE_SEGMENT = _MP_ENVELOPE_SEGMENT;
- {$EXTERNALSYM MP_ENVELOPE_SEGMENT}
- TMPEnvelopeSegment = _MP_ENVELOPE_SEGMENT;
-
- const
- MPF_PUNCHIN_REFTIME = $0;
- {$EXTERNALSYM MPF_PUNCHIN_REFTIME}
- MPF_PUNCHIN_NOW = $1;
- {$EXTERNALSYM MPF_PUNCHIN_NOW}
- MPF_PUNCHIN_STOPPED = $2;
- {$EXTERNALSYM MPF_PUNCHIN_STOPPED}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaParamInfo> _di_IMediaParamInfo;'}
- {$EXTERNALSYM IMediaParamInfo}
- IMediaParamInfo = interface(IUnknown)
- ['{6d6cbb60-a223-44aa-842f-a2f06750be6d}']
- (*** IMediaParamInfo methods ***)
- function GetParamCount(out pdwParams: DWORD): HResult; stdcall;
- function GetParamInfo(dwParamIndex: DWORD; out pInfo: TMPPARAMINFO): HResult; stdcall;
- function GetParamText(dwParamIndex: DWORD; out ppwchText: PWideChar): HResult; stdcall;
- function GetNumTimeFormats(out pdwNumTimeFormats: DWORD): HResult; stdcall;
- function GetSupportedTimeFormat(dwFormatIndex: DWORD; out pguidTimeFormat: TGUID): HResult; stdcall;
- function GetCurrentTimeFormat(out pguidTimeFormat: TGUID; out pTimeData: MPTimeData): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaParams> _di_IMediaParams;'}
- {$EXTERNALSYM IMediaParams}
- IMediaParams = interface(IUnknown)
- ['{6d6cbb61-a223-44aa-842f-a2f06750be6e}']
- (*** IMediaParams methods ***)
- function GetParam(dwParamIndex: DWORD; out pValue: MPData): HResult; stdcall;
- function SetParam(dwParamIndex: DWORD; value: MPData): HResult; stdcall;
- function AddEnvelope(dwParamIndex, cSegments: DWORD; var pEnvelopeSegments: TMPENVELOPESEGMENT): HResult; stdcall;
- function FlushEnvelope(dwParamIndex: DWORD; refTimeStart, refTimeEnd: TReferenceTime): HResult; stdcall;
- function SetTimeFormat(const guidTimeFormat: TGUID; mpTimeData: MPTimeData): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: mediaobj.h
- // Desc: Define the interfaces for DirectX Media Objects.
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_IMediaBuffer : TGUID = '{59eff8b9-938c-4a26-82f2-95cb84cdc837}';
- {$EXTERNALSYM IID_IMediaBuffer}
- IID_IMediaObject : TGUID = '{d8ad0f58-5494-4102-97c5-ec798e59bcf4}';
- {$EXTERNALSYM IID_IMediaObject}
- IID_IEnumDMO : TGUID = '{2c3cd98a-2bfa-4a53-9c27-5249ba64ba0f}';
- {$EXTERNALSYM IID_IEnumDMO}
- IID_IMediaObjectInPlace : TGUID = '{651b9ad0-0fc7-4aa9-9538-d89931010741}';
- {$EXTERNALSYM IID_IMediaObjectInPlace}
- IID_IDMOQualityControl : TGUID = '{65abea96-cf36-453f-af8a-705e98f16260}';
- {$EXTERNALSYM IID_IDMOQualityControl}
- IID_IDMOVideoOutputOptimizations : TGUID = '{be8f4f4e-5b16-4d29-b350-7f6b5d9298ac}';
- {$EXTERNALSYM IID_IDMOVideoOutputOptimizations}
- type
- // DMO_MEDIA_TYPE structure
- DMO_MEDIA_TYPE = AM_MEDIA_TYPE;
- {$EXTERNALSYM DMO_MEDIA_TYPE}
- PDMOMediaType = ^TDMOMediaType;
- TDMOMediaType = DMO_MEDIA_TYPE;
- const
- // Per-buffer flags that apply to input buffers
- DMO_INPUT_DATA_BUFFERF_SYNCPOINT = $1;
- {$EXTERNALSYM DMO_INPUT_DATA_BUFFERF_SYNCPOINT}
- DMO_INPUT_DATA_BUFFERF_TIME = $2;
- {$EXTERNALSYM DMO_INPUT_DATA_BUFFERF_TIME}
- DMO_INPUT_DATA_BUFFERF_TIMELENGTH = $4;
- {$EXTERNALSYM DMO_INPUT_DATA_BUFFERF_TIMELENGTH}
- // Per-buffer flags that apply to output buffers.
- DMO_OUTPUT_DATA_BUFFERF_SYNCPOINT = $1;
- {$EXTERNALSYM DMO_OUTPUT_DATA_BUFFERF_SYNCPOINT}
- DMO_OUTPUT_DATA_BUFFERF_TIME = $2;
- {$EXTERNALSYM DMO_OUTPUT_DATA_BUFFERF_TIME}
- DMO_OUTPUT_DATA_BUFFERF_TIMELENGTH = $4;
- {$EXTERNALSYM DMO_OUTPUT_DATA_BUFFERF_TIMELENGTH}
- // This flag means the object could have generated more data for this
- // output stream, even with no additional input from any input stream,
- // but the output buffer did not have sufficient room.
- DMO_OUTPUT_DATA_BUFFERF_INCOMPLETE = $1000000;
- {$EXTERNALSYM DMO_OUTPUT_DATA_BUFFERF_INCOMPLETE}
- // Flags returned by GetInputStatus()
- // ACCEPT_DATA indicates that the input stream is ready to accept
- // new data via ProcessInput().
- DMO_INPUT_STATUSF_ACCEPT_DATA = $1;
- {$EXTERNALSYM DMO_INPUT_STATUSF_ACCEPT_DATA}
- // Flags returned by GetInputStreamInfo()
- DMO_INPUT_STREAMF_WHOLE_SAMPLES = $1;
- {$EXTERNALSYM DMO_INPUT_STREAMF_WHOLE_SAMPLES}
- DMO_INPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER = $2;
- {$EXTERNALSYM DMO_INPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER}
- DMO_INPUT_STREAMF_FIXED_SAMPLE_SIZE = $4;
- {$EXTERNALSYM DMO_INPUT_STREAMF_FIXED_SAMPLE_SIZE}
- DMO_INPUT_STREAMF_HOLDS_BUFFERS = $8;
- {$EXTERNALSYM DMO_INPUT_STREAMF_HOLDS_BUFFERS}
- // Flags returned by GetOutputStreamInfo()
- DMO_OUTPUT_STREAMF_WHOLE_SAMPLES = $1;
- {$EXTERNALSYM DMO_OUTPUT_STREAMF_WHOLE_SAMPLES}
- DMO_OUTPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER = $2;
- {$EXTERNALSYM DMO_OUTPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER}
- DMO_OUTPUT_STREAMF_FIXED_SAMPLE_SIZE = $4;
- {$EXTERNALSYM DMO_OUTPUT_STREAMF_FIXED_SAMPLE_SIZE}
- DMO_OUTPUT_STREAMF_DISCARDABLE = $8;
- {$EXTERNALSYM DMO_OUTPUT_STREAMF_DISCARDABLE}
- DMO_OUTPUT_STREAMF_OPTIONAL = $10;
- {$EXTERNALSYM DMO_OUTPUT_STREAMF_OPTIONAL}
- // SetType flags
- DMO_SET_TYPEF_TEST_ONLY = $1;
- {$EXTERNALSYM DMO_SET_TYPEF_TEST_ONLY}
- DMO_SET_TYPEF_CLEAR = $2;
- {$EXTERNALSYM DMO_SET_TYPEF_CLEAR}
- // Process Output Flags
- DMO_PROCESS_OUTPUT_DISCARD_WHEN_NO_BUFFER = $1;
- {$EXTERNALSYM DMO_PROCESS_OUTPUT_DISCARD_WHEN_NO_BUFFER}
- type
- // Buffer wrapper interface
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaBuffer> _di_IMediaBuffer;'}
- {$EXTERNALSYM IMediaBuffer}
- IMediaBuffer = interface(IUnknown)
- ['{59eff8b9-938c-4a26-82f2-95cb84cdc837}']
- (*** IMediaBuffer methods ***)
- function SetLength(cbLength: DWORD): HResult; stdcall;
- function GetMaxLength(out pcbMaxLength: DWORD): HResult; stdcall;
- function GetBufferAndLength(out ppBuffer: PByte; // not filled if NULL
- out pcbLength: DWORD // not filled if NULL
- ): HResult; stdcall;
- end;
- // Output buffer info structure: one of these must be passed in for each
- // output stream with every ProcessOutput() call
- // All [out] fields should be
- // assumed undefined if ProcessOutput() failed
- PDMOOutputDataBuffer = ^TDMOOutputDataBuffer;
- _DMO_OUTPUT_DATA_BUFFER = record
- pBuffer : IMediaBuffer; // [in] can be NULL
- // ProcessOutput() must set any appropriate flags and zero out the rest.
- dwStatus : DWORD; // [out] DMO_OUTPUT_DATA_BUFFERF_XXX (INCOMPLETE, etc.)
- // Each of these is valid if the corresponding flag is set in dwStatus
- rtTimestamp : TReferenceTime; // [out]
- rtTimelength : TReferenceTime; // [out]
- end;
- {$EXTERNALSYM _DMO_OUTPUT_DATA_BUFFER}
- DMO_OUTPUT_DATA_BUFFER = _DMO_OUTPUT_DATA_BUFFER;
- {$EXTERNALSYM DMO_OUTPUT_DATA_BUFFER}
- TDMOOutputDataBuffer = _DMO_OUTPUT_DATA_BUFFER;
- PDMO_OUTPUT_DATA_BUFFER = ^_DMO_OUTPUT_DATA_BUFFER;
- {$EXTERNALSYM PDMO_OUTPUT_DATA_BUFFER}
- PDMOOutputDataBufferArray = ^TDMOOutputDataBufferArray;
- TDMOOutputDataBufferArray = array [0..0] of TDMOOutputDataBuffer;
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaObject> _di_IMediaObject;'}
- {$EXTERNALSYM IMediaObject}
- IMediaObject = interface(IUnknown)
- ['{d8ad0f58-5494-4102-97c5-ec798e59bcf4}']
- (*** IMediaObject methods ***)
- function GetStreamCount(out pcInputStreams, pcOutputStreams: DWORD): HResult; stdcall;
- function GetInputStreamInfo(dwInputStreamIndex: DWORD; out pdwFlags: DWORD): HResult; stdcall;
- function GetOutputStreamInfo(dwOutputStreamIndex: DWORD; out pdwFlags: DWORD): HResult; stdcall;
- function GetInputType(dwInputStreamIndex, dwTypeIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetOutputType(dwOutputStreamIndex, dwTypeIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function SetInputType(dwInputStreamIndex: DWORD; const pmt: PDMOMediaType; dwFlags: DWORD): HResult; stdcall;
- function SetOutputType(dwOutputStreamIndex: DWORD; const pmt: PDMOMediaType; dwFlags: DWORD): HResult; stdcall;
- function GetInputCurrentType(dwInputStreamIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetOutputCurrentType(dwOutputStreamIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetInputSizeInfo(dwInputStreamIndex: DWORD; out pcbSize, pcbMaxLookahead, pcbAlignment: DWORD): HResult; stdcall;
- function GetOutputSizeInfo(dwOutputStreamIndex: DWORD; out pcbSize, pcbAlignment: DWORD): HResult; stdcall;
- function GetInputMaxLatency(dwInputStreamIndex: DWORD; out prtMaxLatency: TReferenceTime): HResult; stdcall;
- function SetInputMaxLatency(dwInputStreamIndex: DWORD; rtMaxLatency: TReferenceTime): HResult; stdcall;
- function Flush: HResult; stdcall;
- function Discontinuity(dwInputStreamIndex: DWORD): HResult; stdcall;
- function AllocateStreamingResources: HResult; stdcall;
- function FreeStreamingResources: HResult; stdcall;
- function GetInputStatus(dwInputStreamIndex: DWORD; out dwFlags: DWORD): HResult; stdcall;
- function ProcessInput(dwInputStreamIndex: DWORD; pBuffer: IMediaBuffer; dwFlags: DWORD;
- rtTimestamp, rtTimelength: TReferenceTime): HResult; stdcall;
- function ProcessOutput(dwFlags, cOutputBufferCount: DWORD; var pOutputBuffers: TDMOOutputDataBufferArray;
- out pdwStatus: DWORD): HResult; stdcall;
- function Lock(bLock: longint): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumDMO> _di_IEnumDMO;'}
- {$EXTERNALSYM IEnumDMO}
- IEnumDMO = interface(IUnknown)
- ['{2c3cd98a-2bfa-4a53-9c27-5249ba64ba0f}']
- (*** IEnumDMO methods ***)
- function Next(cItemsToFetch: DWORD; out pCLSID: TGUID; out Names: PWideChar;
- pcItemsFetched: PDWORD): HResult; stdcall;
- function Skip(cItemsToSkip: DWORD): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppEnum: IEnumDMO): HResult; stdcall;
- end;
- const
- DMO_INPLACE_NORMAL = $0;
- {$EXTERNALSYM DMO_INPLACE_NORMAL}
- DMO_INPLACE_ZERO = $1;
- {$EXTERNALSYM DMO_INPLACE_ZERO}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMediaObjectInPlace> _di_IMediaObjectInPlace;'}
- {$EXTERNALSYM IMediaObjectInPlace}
- IMediaObjectInPlace = interface(IUnknown)
- ['{651b9ad0-0fc7-4aa9-9538-d89931010741}']
- (*** IMediaObjectInPlace methods ***)
- function Process(ulSize: ULONG; {in/out} pData: Pointer; refTimeStart: TReferenceTime;
- dwFlags: DWORD): HResult; stdcall;
- function Clone(out ppMediaObject: IMediaObjectInPlace): HResult; stdcall;
- function GetLatency(out pLatencyTime: TReferenceTime): HResult; stdcall;
- end;
- const
- DMO_QUALITY_STATUS_ENABLED = $1;
- {$EXTERNALSYM DMO_QUALITY_STATUS_ENABLED}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDMOQualityControl> _di_IDMOQualityControl;'}
- {$EXTERNALSYM IDMOQualityControl}
- IDMOQualityControl = interface(IUnknown)
- ['{65abea96-cf36-453f-af8a-705e98f16260}']
- (*** IDMOQualityControl methods ***)
- function SetNow(rtNow: TReferenceTime): HResult; stdcall;
- function SetStatus(dwFlags: DWORD): HResult; stdcall;
- function GetStatus(out pdwFlags: DWORD): HResult; stdcall;
- end;
- const
- DMO_VOSF_NEEDS_PREVIOUS_SAMPLE = $1;
- {$EXTERNALSYM DMO_VOSF_NEEDS_PREVIOUS_SAMPLE}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDMOVideoOutputOptimizations> _di_IDMOVideoOutputOptimizations;'}
- {$EXTERNALSYM IDMOVideoOutputOptimizations}
- IDMOVideoOutputOptimizations = interface(IUnknown)
- ['{be8f4f4e-5b16-4d29-b350-7f6b5d9298ac}']
- (*** IDMOVideoOutputOptimizations methods ***)
- function QueryOperationModePreferences(ulOutputStreamIndex: ULONG;
- var pdwRequestedCapabilities: DWORD): HResult; stdcall;
- function SetOperationMode(ulOutputStreamIndex: ULONG;
- dwEnabledFeatures: DWORD): HResult; stdcall;
- function GetCurrentOperationMode(ulOutputStreamIndex: ULONG;
- var pdwEnabledFeatures: DWORD): HResult; stdcall;
- function GetCurrentSampleRequirements(ulOutputStreamIndex: ULONG;
- var pdwRequestedFeatures: DWORD): HResult; stdcall;
- end;
- (************************************************************************
- * *
- * dmodshow.h -- This module defines the DirectMusic core API's *
- * *
- * Copyright (c) 1998, Microsoft Corp. All rights reserved. *
- * *
- ************************************************************************)
- const
- IID_IDMOWrapperFilter : TGUID = '{52d6f586-9f0f-4824-8fc8-e32ca04930c2}';
- {$EXTERNALSYM IID_IDMOWrapperFilter}
- CLSID_DMOWrapperFilter : TGUID = '{94297043-bd82-4dfd-b0de-8177739c6d20}';
- {$EXTERNALSYM CLSID_DMOWrapperFilter}
- CLSID_DMOFilterCategory : TGUID = '{bcd5796c-bd52-4d30-ab76-70f975b89199}';
- {$EXTERNALSYM CLSID_DMOFilterCategory}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IDMOWrapperFilter> _di_IDMOWrapperFilter;'}
- {$EXTERNALSYM IDMOWrapperFilter}
- IDMOWrapperFilter = interface(IUnknown)
- ['{52d6f586-9f0f-4824-8fc8-e32ca04930c2}']
- (*** IDMOWrapperFilter methods ***)
- function Init(const clsidDMO, catDMO: TGUID): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: DMOReg.h
- //
- // Desc:
- //
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- DMOCATEGORY_AUDIO_DECODER : TGUID = '{57f2db8b-e6bb-4513-9d43-dcd2a6593125}';
- {$EXTERNALSYM DMOCATEGORY_AUDIO_DECODER}
- DMOCATEGORY_AUDIO_ENCODER : TGUID = '{33D9A761-90C8-11d0-BD43-00A0C911CE86}';
- {$EXTERNALSYM DMOCATEGORY_AUDIO_ENCODER}
- DMOCATEGORY_VIDEO_DECODER : TGUID = '{4a69b442-28be-4991-969c-b500adf5d8a8}';
- {$EXTERNALSYM DMOCATEGORY_VIDEO_DECODER}
- DMOCATEGORY_VIDEO_ENCODER : TGUID = '{33D9A760-90C8-11d0-BD43-00A0C911CE86}';
- {$EXTERNALSYM DMOCATEGORY_VIDEO_ENCODER}
- DMOCATEGORY_AUDIO_EFFECT : TGUID = '{f3602b3f-0592-48df-a4cd-674721e7ebeb}';
- {$EXTERNALSYM DMOCATEGORY_AUDIO_EFFECT}
- DMOCATEGORY_VIDEO_EFFECT : TGUID = '{d990ee14-776c-4723-be46-3da2f56f10b9}';
- {$EXTERNALSYM DMOCATEGORY_VIDEO_EFFECT}
- DMOCATEGORY_AUDIO_CAPTURE_EFFECT : TGUID = '{f665aaba-3e09-4920-aa5f-219811148f09}';
- {$EXTERNALSYM DMOCATEGORY_AUDIO_CAPTURE_EFFECT}
- // Acoustic Echo Canceller {BF963D80-C559-11D0-8A2B-00A0C9255AC1}
- // Matches KSNODETYPE_ACOUSTIC_ECHO_CANCEL in ksmedia.h
- DMOCATEGORY_ACOUSTIC_ECHO_CANCEL : TGUID = '{BF963D80-C559-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM DMOCATEGORY_ACOUSTIC_ECHO_CANCEL}
- // Noise Supression {E07F903F-62FD-4e60-8CDD-DEA7236665B5}
- // Matches KSNODETYPE_AUDIO_NOISE_SUPPRESS in post Windows ME DDK's ksmedia.h
- DMOCATEGORY_AUDIO_NOISE_SUPPRESS : TGUID = '{E07F903F-62FD-4e60-8CDD-DEA7236665B5}';
- {$EXTERNALSYM DMOCATEGORY_AUDIO_NOISE_SUPPRESS}
- // Automatic Gain Control {E88C9BA0-C557-11D0-8A2B-00A0C9255AC1}
- // Matches KSNODETYPE_AGC in ksmedia.h
- DMOCATEGORY_AGC : TGUID = '{E88C9BA0-C557-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM DMOCATEGORY_AGC}
- type
- PDMOPartialMediaType = ^TDMOPartialMediaType;
- _DMO_PARTIAL_MEDIATYPE = record
- type_ : TGUID;
- subtype : TGUID;
- end;
- {$EXTERNALSYM _DMO_PARTIAL_MEDIATYPE}
- DMO_PARTIAL_MEDIATYPE = _DMO_PARTIAL_MEDIATYPE;
- {$EXTERNALSYM DMO_PARTIAL_MEDIATYPE}
- PDMO_PARTIAL_MEDIATYPE = ^DMO_PARTIAL_MEDIATYPE;
- {$EXTERNALSYM PDMO_PARTIAL_MEDIATYPE}
- TDMOPartialMediaType = _DMO_PARTIAL_MEDIATYPE;
- const
- DMO_REGISTERF_IS_KEYED = $00000001;
- {$EXTERNALSYM DMO_REGISTERF_IS_KEYED}
- DMO_ENUMF_INCLUDE_KEYED = $00000001;
- {$EXTERNALSYM DMO_ENUMF_INCLUDE_KEYED}
- type
- TDMOName = array[0..79] of WCHAR;
- function DMORegister(szName: PWideChar; const clsidDMO, guidCategory: TGUID; dwFlags: DWORD; // DMO_REGISTERF_XXX
- // Register all mediatypes supported by the object. This carries no
- // information about which combinations of input/output types would
- // actually work.
- cInTypes: DWORD; const pInTypes: PDMO_PARTIAL_MEDIATYPE; cOutTypes: DWORD;
- const pOutTypes: PDMO_PARTIAL_MEDIATYPE): HResult; stdcall;
- {$EXTERNALSYM DMORegister}
- function DMOUnregister(const clsidDMO,
- guidCategory: TGUID// optional - GUID_NULL means unregister from all
- ): HResult; stdcall;
- {$EXTERNALSYM DMOUnregister}
- function DMOEnum(
- const guidCategory: TGUID; // GUID_NULL for "all"
- dwFlags: DWORD; // DMO_ENUMF_XXX
- //
- // Enumerate only objects that support at least one of the specified input types
- // and at least one of the specified output types. If no input types are specified,
- // enumerate objects regardless of what input types they support. Same for
- // output types.
- //
- cInTypes: DWORD;
- pInTypes: PDMO_PARTIAL_MEDIATYPE; // can be NULL only of ulInTypes = 0
- cOutTypes: DWORD;
- pOutTypes: PDMO_PARTIAL_MEDIATYPE; // can be NULL only of ulOutTypes = 0
- //
- // Output parameter - this receives a pointer to the DMO CLSID enumerator
- //
- out ppEnum: IEnumDMO): HResult; stdcall;
- {$EXTERNALSYM DMOEnum}
- function DMOGetTypes(
- const clsidDMO: TGUID;
- ulInputTypesRequested: ULONG;
- pulInputTypesSupplied: PULONG;
- pInputTypes: PDMO_PARTIAL_MEDIATYPE;
- ulOutputTypesRequested: ULONG;
- pulOutputTypesSupplied: PULONG;
- pOutputTypes: PDMO_PARTIAL_MEDIATYPE): HResult; stdcall;
- {$EXTERNALSYM DMOGetTypes}
- function DMOGetName(const clsidDMO: TGUID; szName: TDMOName): HResult; stdcall;
- {$EXTERNALSYM DMOGetName}
- //------------------------------------------------------------------------------
- // File: DMORt.h
- //
- // Desc: Miscellaneous runtime support for DirectShow Media Objects
- //
- // Copyright (c) 1999 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- // Mediatype helpers. MoInitMediaType() goes with MoFreeMediaType(),
- // MoCreateMediaType() goes with MoDeleteMediaType() - don't mix !
- // Takes a pointer to an already allocated DMO_MEDIA_TYPE structure, allocates
- // a format block of cbFormat bytes, and sets appropriate members of
- // DMO_MEDIA_TYPE to point to the newly allocated format block. Also
- // initializes the IUnknown pointer inside DMO_MEDIA_TYPE to NULL.
- //
- // The format block allocated by MoInitMediaType must be freed by calling
- // MoFreeMediaType().
- function MoInitMediaType(pmt: PDMOMediaType; cbFormat: DWORD): HResult; stdcall;
- {$EXTERNALSYM MoInitMediaType}
- // Frees the format block and releases any IUnknown, but does not free the
- // DMO_MEDIA_TYPE structure itself. Input parameter must point to an
- // DMO_MEDIA_TYPE structure previously initialized by MoInitMediaType().
- function MoFreeMediaType(pmt: PDMOMediaType): HResult; stdcall;
- {$EXTERNALSYM MoFreeMediaType}
- // Copies the DMO_MEDIA_TYPE members. Also duplicates the format block and
- // the IUnknown pointer. Both parameters must point to valid DMO_MEDIA_TYPE
- // structures. Target structure must be later freed using MoFreeMediaType().
- function MoCopyMediaType(out pmtDest: TDMOMediaType; const pmtSrc: PDMOMediaType): HResult; stdcall;
- {$EXTERNALSYM MoCopyMediaType}
- // Allocates a new DMO_MEDIA_TYPE structure and initializes it just like
- // MoInitMediaType. I.e., this function allocates both the format block
- // and the DMO_MEDIA_TYPE structure itself. Pointer to DMO_MEDIA_TYPE is
- // returned as *ppmt.
- //
- // DMO_MEDIA_TYPE structures allocated by MoCreateMediaType() must be freed
- // by calling MoDeleteMediaType().
- function MoCreateMediaType(out ppmt: PDMOMediaType; cbFormat: DWORD): HResult; stdcall;
- {$EXTERNALSYM MoCreateMediaType}
- // Frees any format block, releases any IUnknown, and deletes the
- // DMO_MEDIA_TYPE structure itself. The input parameter must point to an
- // DMO_MEDIA_TYPE structure previously allocated by MoCreateMediaType().
- function MoDeleteMediaType(pmt: PDMOMediaType): HResult; stdcall;
- {$EXTERNALSYM MoDeleteMediaType}
- // Allocates a new DMO_MEDIA_TYPE structure and copies pmtSrc into it like
- // MoCopyMediaType. I.e., this function allocates a new DMO_MEDIA_TYPE struct
- // as well as a new format block for the target mediatype. Trager mediatype
- // must later be freed using MoDeleteMediaType().
- function MoDuplicateMediaType(out ppmtDest: PDMOMediaType; const pmtSrc: PDMOMediaType): HResult; stdcall;
- {$EXTERNALSYM MoDuplicateMediaType}
- {===============================================================================
- *
- * Copyright (C) Microsoft Corporation, 1996 - 1999
- *
- * Module Name: ks.h
- * Abstract:
- * Windows Driver Model/Connection and Streaming Architecture (WDM-CSA)
- * core definitions.
- *
- * Note : All _NTDDK_ specific definitions have been removed from original file
- * because never used in DX8SDK.
- ===============================================================================}
- const
- //===========================================================================
- IOCTL_KS_PROPERTY = DWORD(3080195);
- {$EXTERNALSYM IOCTL_KS_PROPERTY}
- IOCTL_KS_ENABLE_EVENT = DWORD(3080199);
- {$EXTERNALSYM IOCTL_KS_ENABLE_EVENT}
- IOCTL_KS_DISABLE_EVENT = DWORD(3080203);
- {$EXTERNALSYM IOCTL_KS_DISABLE_EVENT}
- IOCTL_KS_METHOD = DWORD(3080207);
- {$EXTERNALSYM IOCTL_KS_METHOD}
- IOCTL_KS_WRITE_STREAM = DWORD(3112979);
- {$EXTERNALSYM IOCTL_KS_WRITE_STREAM}
- IOCTL_KS_READ_STREAM = DWORD(3096599);
- {$EXTERNALSYM IOCTL_KS_READ_STREAM}
- IOCTL_KS_RESET_STATE = DWORD(3080219);
- {$EXTERNALSYM IOCTL_KS_RESET_STATE}
- //===========================================================================
- type
- KSRESET = (
- KSRESET_BEGIN,
- KSRESET_END
- );
- {$EXTERNALSYM KSRESET}
- TKSReset = KSRESET;
- KSSTATE = (
- KSSTATE_STOP,
- KSSTATE_ACQUIRE,
- KSSTATE_PAUSE,
- KSSTATE_RUN
- );
- {$EXTERNALSYM KSSTATE}
- PKSSTATE = ^KSSTATE;
- {$EXTERNALSYM PKSSTATE}
- TKSState = KSSTATE;
- const
- KSPRIORITY_LOW = $00000001;
- {$EXTERNALSYM KSPRIORITY_LOW}
- KSPRIORITY_NORMAL = $40000000;
- {$EXTERNALSYM KSPRIORITY_NORMAL}
- KSPRIORITY_HIGH = $80000000;
- {$EXTERNALSYM KSPRIORITY_HIGH}
- KSPRIORITY_EXCLUSIVE = $FFFFFFFF;
- {$EXTERNALSYM KSPRIORITY_EXCLUSIVE}
- type
- KSPRIORITY = record
- PriorityClass : ULONG;
- PrioritySubClass : ULONG;
- end;
- {$EXTERNALSYM KSPRIORITY}
- PKSPRIORITY = ^KSPRIORITY;
- {$EXTERNALSYM PKSPRIORITY}
- TKSPriority = KSPRIORITY;
- KSIDENTIFIER = record
- case Integer of
- 0: (
- Set_ : TGUID;
- Id : ULONG;
- Flags : ULONG);
- 1: (
- Alignment : int64);
- end;
- {$EXTERNALSYM KSIDENTIFIER}
- PKSIDENTIFIER = ^KSIDENTIFIER;
- {$EXTERNALSYM PKSIDENTIFIER}
- TKSIdentifier = KSIDENTIFIER;
- KSPROPERTY = {$IFDEF TYPE_IDENTITY}type {$ENDIF} KSIDENTIFIER;
- {$EXTERNALSYM KSPROPERTY}
- PKSPROPERTY = ^KSPROPERTY;
- {$EXTERNALSYM PKSPROPERTY}
- KSMETHOD = PKSPROPERTY;
- {$EXTERNALSYM KSMETHOD}
- PKSMETHOD = ^KSMETHOD;
- {$EXTERNALSYM PKSMETHOD}
- KSEVENT = PKSMETHOD;
- {$EXTERNALSYM KSEVENT}
- PKSEVENT = ^KSEVENT;
- {$EXTERNALSYM PKSEVENT}
- const
- KSMETHOD_TYPE_NONE = $00000000;
- {$EXTERNALSYM KSMETHOD_TYPE_NONE}
- KSMETHOD_TYPE_READ = $00000001;
- {$EXTERNALSYM KSMETHOD_TYPE_READ}
- KSMETHOD_TYPE_WRITE = $00000002;
- {$EXTERNALSYM KSMETHOD_TYPE_WRITE}
- KSMETHOD_TYPE_MODIFY = $00000003;
- {$EXTERNALSYM KSMETHOD_TYPE_MODIFY}
- KSMETHOD_TYPE_SOURCE = $00000004;
- {$EXTERNALSYM KSMETHOD_TYPE_SOURCE}
- KSMETHOD_TYPE_SEND = $00000001;
- {$EXTERNALSYM KSMETHOD_TYPE_SEND}
- KSMETHOD_TYPE_SETSUPPORT = $00000100;
- {$EXTERNALSYM KSMETHOD_TYPE_SETSUPPORT}
- KSMETHOD_TYPE_BASICSUPPORT = $00000200;
- {$EXTERNALSYM KSMETHOD_TYPE_BASICSUPPORT}
- KSMETHOD_TYPE_TOPOLOGY = $10000000;
- {$EXTERNALSYM KSMETHOD_TYPE_TOPOLOGY}
- KSPROPERTY_TYPE_GET = $00000001;
- {$EXTERNALSYM KSPROPERTY_TYPE_GET}
- KSPROPERTY_TYPE_SET = $00000002;
- {$EXTERNALSYM KSPROPERTY_TYPE_SET}
- KSPROPERTY_TYPE_SETSUPPORT = $00000100;
- {$EXTERNALSYM KSPROPERTY_TYPE_SETSUPPORT}
- KSPROPERTY_TYPE_BASICSUPPORT = $00000200;
- {$EXTERNALSYM KSPROPERTY_TYPE_BASICSUPPORT}
- KSPROPERTY_TYPE_RELATIONS = $00000400;
- {$EXTERNALSYM KSPROPERTY_TYPE_RELATIONS}
- KSPROPERTY_TYPE_SERIALIZESET = $00000800;
- {$EXTERNALSYM KSPROPERTY_TYPE_SERIALIZESET}
- KSPROPERTY_TYPE_UNSERIALIZESET = $00001000;
- {$EXTERNALSYM KSPROPERTY_TYPE_UNSERIALIZESET}
- KSPROPERTY_TYPE_SERIALIZERAW = $00002000;
- {$EXTERNALSYM KSPROPERTY_TYPE_SERIALIZERAW}
- KSPROPERTY_TYPE_UNSERIALIZERAW = $00004000;
- {$EXTERNALSYM KSPROPERTY_TYPE_UNSERIALIZERAW}
- KSPROPERTY_TYPE_SERIALIZESIZE = $00008000;
- {$EXTERNALSYM KSPROPERTY_TYPE_SERIALIZESIZE}
- KSPROPERTY_TYPE_DEFAULTVALUES = $00010000;
- {$EXTERNALSYM KSPROPERTY_TYPE_DEFAULTVALUES}
- KSPROPERTY_TYPE_TOPOLOGY = $10000000;
- {$EXTERNALSYM KSPROPERTY_TYPE_TOPOLOGY}
- type
- PKSPNode = ^TKSPNode;
- KSP_NODE = record
- Property_ : KSPROPERTY;
- NodeId : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSP_NODE}
- PKSP_NODE = ^KSP_NODE;
- {$EXTERNALSYM PKSP_NODE}
- TKSPNode = KSP_NODE;
- PKSMNode = ^TKSMNode;
- KSM_NODE = record
- Method : KSMETHOD;
- NodeId : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSM_NODE}
- PKSM_NODE = ^KSM_NODE;
- {$EXTERNALSYM PKSM_NODE}
- TKSMNode = KSM_NODE;
- PKSENode = ^TKSENode;
- KSE_NODE = record
- Event : KSEVENT;
- NodeId : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSE_NODE}
- PKSE_NODE = ^KSE_NODE;
- {$EXTERNALSYM PKSE_NODE}
- TKSENode = KSE_NODE;
- const
- KSPROPTYPESETID_General : TGUID = '{97E99BA0-BDEA-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPTYPESETID_General}
- type
- PKSMultipleItem = ^TKSMultipleItem;
- KSMULTIPLE_ITEM = record
- Size : ULONG;
- Count : ULONG;
- end;
- {$EXTERNALSYM KSMULTIPLE_ITEM}
- PKSMULTIPLE_ITEM = ^KSMULTIPLE_ITEM;
- {$EXTERNALSYM PKSMULTIPLE_ITEM}
- TKSMultipleItem = KSMULTIPLE_ITEM;
- PKSPropertyDescription = ^TKSPropertyDescription;
- KSPROPERTY_DESCRIPTION = record
- AccessFlags : ULONG;
- DescriptionSize : ULONG;
- PropTypeSet : TKSIDENTIFIER;
- MembersListCount : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSPROPERTY_DESCRIPTION}
- PKSPROPERTY_DESCRIPTION = ^KSPROPERTY_DESCRIPTION;
- {$EXTERNALSYM PKSPROPERTY_DESCRIPTION}
- TKSPropertyDescription = KSPROPERTY_DESCRIPTION;
- const
- KSPROPERTY_MEMBER_RANGES = $00000001;
- {$EXTERNALSYM KSPROPERTY_MEMBER_RANGES}
- KSPROPERTY_MEMBER_STEPPEDRANGES = $00000002;
- {$EXTERNALSYM KSPROPERTY_MEMBER_STEPPEDRANGES}
- KSPROPERTY_MEMBER_VALUES = $00000003;
- {$EXTERNALSYM KSPROPERTY_MEMBER_VALUES}
- KSPROPERTY_MEMBER_FLAG_DEFAULT = $00000001;
- {$EXTERNALSYM KSPROPERTY_MEMBER_FLAG_DEFAULT}
- type
- PKSPropertyMembersHeader = ^TKSPropertyMembersHeader;
- KSPROPERTY_MEMBERSHEADER = record
- MembersFlags : ULONG;
- MembersSize : ULONG;
- MembersCount : ULONG;
- Flags : ULONG;
- end;
- {$EXTERNALSYM KSPROPERTY_MEMBERSHEADER}
- PKSPROPERTY_MEMBERSHEADER = ^KSPROPERTY_MEMBERSHEADER;
- {$EXTERNALSYM PKSPROPERTY_MEMBERSHEADER}
- TKSPropertyMembersHeader = KSPROPERTY_MEMBERSHEADER;
- PKSPropertyBoundsLong = ^TKSPropertyBoundsLong;
- KSPROPERTY_BOUNDS_LONG = record
- case Integer of
- 0: (
- SignedMinimum : Longint;
- SignedMaximum : Longint);
- 1: (
- UnsignedMinimum : ULONG;
- UnsignedMaximum : ULONG);
- end;
- {$EXTERNALSYM KSPROPERTY_BOUNDS_LONG}
- PKSPROPERTY_BOUNDS_LONG = ^KSPROPERTY_BOUNDS_LONG;
- {$EXTERNALSYM PKSPROPERTY_BOUNDS_LONG}
- TKSPropertyBoundsLong = KSPROPERTY_BOUNDS_LONG;
- PKSPropertyBoundsLongLong = ^TKSPropertyBoundsLongLong;
- KSPROPERTY_BOUNDS_LONGLONG = record
- case Integer of
- 0: (
- SignedMinimum : TLargeInteger;
- SignedMaximum : TLargeInteger);
- 1: (
- UnsignedMinimum : TULargeInteger;
- UnsignedMaximum : TULargeInteger);
- end;
- {$EXTERNALSYM KSPROPERTY_BOUNDS_LONGLONG}
- PKSPROPERTY_BOUNDS_LONGLONG = ^KSPROPERTY_BOUNDS_LONGLONG;
- {$EXTERNALSYM PKSPROPERTY_BOUNDS_LONGLONG}
- TKSPropertyBoundsLongLong = KSPROPERTY_BOUNDS_LONGLONG;
- PKSPropertySteppingLong = ^TKSPropertySteppingLong;
- KSPROPERTY_STEPPING_LONG = record
- SteppingDelta : ULONG;
- Reserved : ULONG;
- Bounds : TKSPropertyBoundsLong;
- end;
- {$EXTERNALSYM KSPROPERTY_STEPPING_LONG}
- PKSPROPERTY_STEPPING_LONG = ^KSPROPERTY_STEPPING_LONG;
- {$EXTERNALSYM PKSPROPERTY_STEPPING_LONG}
- TKSPropertySteppingLong = KSPROPERTY_STEPPING_LONG;
- PKSPropertySteppingLongLong = ^TKSPropertySteppingLongLong;
- KSPROPERTY_STEPPING_LONGLONG = record
- SteppingDelta : TULargeInteger;
- Bounds : TKSPropertyBoundsLongLong;
- end;
- {$EXTERNALSYM KSPROPERTY_STEPPING_LONGLONG}
- PKSPROPERTY_STEPPING_LONGLONG = KSPROPERTY_STEPPING_LONGLONG;
- {$EXTERNALSYM PKSPROPERTY_STEPPING_LONGLONG}
- TKSPropertySteppingLongLong = KSPROPERTY_STEPPING_LONGLONG;
- //===========================================================================
- PKSWORKER = pointer;
- {$EXTERNALSYM PKSWORKER}
- KSEVENTDATA = record
- NotificationType : ULONG;
- case integer of
- 0: ( // EventHandle
- Event : THandle;
- Reserved : array[0..1] of ULONG);
- 1: ( // SemaphoreHandle
- Semaphore : THandle;
- Reserved_ : ULONG;
- Adjustment : Longint);
- 2: ( // Alignment
- Unused : Pointer;
- Alignment : array[0..1] of Longint);
- end;
- {$EXTERNALSYM KSEVENTDATA}
- PKSEVENTDATA = ^KSEVENTDATA;
- {$EXTERNALSYM PKSEVENTDATA}
- TKSEventData = KSEVENTDATA;
- const
- KSEVENTF_EVENT_HANDLE = $00000001;
- {$EXTERNALSYM KSEVENTF_EVENT_HANDLE}
- KSEVENTF_SEMAPHORE_HANDLE = $00000002;
- {$EXTERNALSYM KSEVENTF_SEMAPHORE_HANDLE}
- KSEVENT_TYPE_ENABLE = $00000001;
- {$EXTERNALSYM KSEVENT_TYPE_ENABLE}
- KSEVENT_TYPE_ONESHOT = $00000002;
- {$EXTERNALSYM KSEVENT_TYPE_ONESHOT}
- KSEVENT_TYPE_ENABLEBUFFERED = $00000004;
- {$EXTERNALSYM KSEVENT_TYPE_ENABLEBUFFERED}
- KSEVENT_TYPE_SETSUPPORT = $00000100;
- {$EXTERNALSYM KSEVENT_TYPE_SETSUPPORT}
- KSEVENT_TYPE_BASICSUPPORT = $00000200;
- {$EXTERNALSYM KSEVENT_TYPE_BASICSUPPORT}
- KSEVENT_TYPE_QUERYBUFFER = $00000400;
- {$EXTERNALSYM KSEVENT_TYPE_QUERYBUFFER}
- KSEVENT_TYPE_TOPOLOGY = $10000000;
- {$EXTERNALSYM KSEVENT_TYPE_TOPOLOGY}
- type
- KSQUERYBUFFER = record
- Event : KSEVENT;
- EventData : PKSEVENTDATA;
- Reserved : Pointer;
- end;
- {$EXTERNALSYM KSQUERYBUFFER}
- PKSQUERYBUFFER = ^KSQUERYBUFFER;
- {$EXTERNALSYM PKSQUERYBUFFER}
- TKSQueryBuffer = KSQUERYBUFFER;
- KSRELATIVEEVENT = record
- Size : ULONG;
- Flags : ULONG;
- case integer of
- 0: ( ObjectHandle : THandle;
- Reserved : Pointer;
- Event : KSEVENT;
- EventData : TKSEVENTDATA);
- 1: ( ObjectPointer : Pointer);
- end;
- {$EXTERNALSYM KSRELATIVEEVENT}
- TKSRelativeEvent = KSRELATIVEEVENT;
- const
- KSRELATIVEEVENT_FLAG_HANDLE = $00000001;
- {$EXTERNALSYM KSRELATIVEEVENT_FLAG_HANDLE}
- KSRELATIVEEVENT_FLAG_POINTER = $00000002;
- {$EXTERNALSYM KSRELATIVEEVENT_FLAG_POINTER}
- //===========================================================================
- type
- PKSEventTimeMark = ^TKSEventTimeMark;
- KSEVENT_TIME_MARK = record
- EventData : TKSEVENTDATA;
- MarkTime : int64;
- end;
- {$EXTERNALSYM KSEVENT_TIME_MARK}
- PKSEVENT_TIME_MARK = ^KSEVENT_TIME_MARK;
- {$EXTERNALSYM PKSEVENT_TIME_MARK}
- TKSEventTimeMark = KSEVENT_TIME_MARK;
- PKSEventTimeInterval = ^TKSEventTimeInterval;
- KSEVENT_TIME_INTERVAL = record
- EventData : TKSEVENTDATA;
- TimeBase : int64;
- Interval : int64;
- end;
- {$EXTERNALSYM KSEVENT_TIME_INTERVAL}
- PKSEVENT_TIME_INTERVAL = ^KSEVENT_TIME_INTERVAL;
- {$EXTERNALSYM PKSEVENT_TIME_INTERVAL}
- TKSEventTimeInterval = KSEVENT_TIME_INTERVAL;
- KSINTERVAL = record
- TimeBase : int64;
- Interval : int64;
- end;
- {$EXTERNALSYM KSINTERVAL}
- PKSINTERVAL = ^KSINTERVAL;
- {$EXTERNALSYM PKSINTERVAL}
- TKSInterval = KSINTERVAL;
- //===========================================================================
- const
- KSPROPSETID_General : TGUID = '{1464EDA5-6A8F-11D1-9AA7-00A0C9223196}';
- {$EXTERNALSYM KSPROPSETID_General}
- type
- KSPROPERTY_GENERAL = (
- {$EXTERNALSYM KSPROPERTY_GENERAL}
- KSPROPERTY_GENERAL_COMPONENTID
- );
- TKSPropertyGeneral = KSPROPERTY_GENERAL;
- KSCOMPONENTID = record
- Manufacturer : TGUID;
- Product : TGUID;
- Component : TGUID;
- Name : TGUID;
- Version : ULONG;
- Revision : ULONG;
- end;
- {$EXTERNALSYM KSCOMPONENTID}
- PKSCOMPONENTID = ^KSCOMPONENTID;
- {$EXTERNALSYM PKSCOMPONENTID}
- TKSComponentID = KSCOMPONENTID;
- const
- KSMETHODSETID_StreamIo : TGUID = '{65D003CA-1523-11D2-B27A-00A0C9223196}';
- {$EXTERNALSYM KSMETHODSETID_StreamIo}
- type
- KSMETHOD_STREAMIO = (
- KSMETHOD_STREAMIO_READ,
- KSMETHOD_STREAMIO_WRITE
- );
- {$EXTERNALSYM KSMETHOD_STREAMIO}
- TKSMethodStreamIO = KSMETHOD_STREAMIO;
- const
- KSPROPSETID_MediaSeeking : TGUID = '{EE904F0C-D09B-11D0-ABE9-00A0C9223196}';
- {$EXTERNALSYM KSPROPSETID_MediaSeeking}
- type
- KSPROPERTY_MEDIASEEKING = (
- KSPROPERTY_MEDIASEEKING_CAPABILITIES,
- KSPROPERTY_MEDIASEEKING_FORMATS,
- KSPROPERTY_MEDIASEEKING_TIMEFORMAT,
- KSPROPERTY_MEDIASEEKING_POSITION,
- KSPROPERTY_MEDIASEEKING_STOPPOSITION,
- KSPROPERTY_MEDIASEEKING_POSITIONS,
- KSPROPERTY_MEDIASEEKING_DURATION,
- KSPROPERTY_MEDIASEEKING_AVAILABLE,
- KSPROPERTY_MEDIASEEKING_PREROLL,
- KSPROPERTY_MEDIASEEKING_CONVERTTIMEFORMAT
- );
- {$EXTERNALSYM KSPROPERTY_MEDIASEEKING}
- TKSPropertyMediaSeeking = KSPROPERTY_MEDIASEEKING;
- KS_SEEKING_FLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_SEEKING_FLAGS}
- const
- KS_SEEKING_NoPositioning = $0;
- {$EXTERNALSYM KS_SEEKING_NoPositioning}
- KS_SEEKING_AbsolutePositioning = $1;
- {$EXTERNALSYM KS_SEEKING_AbsolutePositioning}
- KS_SEEKING_RelativePositioning = $2;
- {$EXTERNALSYM KS_SEEKING_RelativePositioning}
- KS_SEEKING_IncrementalPositioning = $3;
- {$EXTERNALSYM KS_SEEKING_IncrementalPositioning}
- KS_SEEKING_PositioningBitsMask = $3;
- {$EXTERNALSYM KS_SEEKING_PositioningBitsMask}
- KS_SEEKING_SeekToKeyFrame = $4;
- {$EXTERNALSYM KS_SEEKING_SeekToKeyFrame}
- KS_SEEKING_ReturnTime = $8;
- {$EXTERNALSYM KS_SEEKING_ReturnTime}
- type
- KS_SEEKING_CAPABILITIES = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_SEEKING_CAPABILITIES}
- const
- KS_SEEKING_CanSeekAbsolute = $1;
- {$EXTERNALSYM KS_SEEKING_CanSeekAbsolute}
- KS_SEEKING_CanSeekForwards = $2;
- {$EXTERNALSYM KS_SEEKING_CanSeekForwards}
- KS_SEEKING_CanSeekBackwards = $4;
- {$EXTERNALSYM KS_SEEKING_CanSeekBackwards}
- KS_SEEKING_CanGetCurrentPos = $8;
- {$EXTERNALSYM KS_SEEKING_CanGetCurrentPos}
- KS_SEEKING_CanGetStopPos = $10;
- {$EXTERNALSYM KS_SEEKING_CanGetStopPos}
- KS_SEEKING_CanGetDuration = $20;
- {$EXTERNALSYM KS_SEEKING_CanGetDuration}
- KS_SEEKING_CanPlayBackwards = $40;
- {$EXTERNALSYM KS_SEEKING_CanPlayBackwards}
- type
- PKSPropertyPositions = ^TKSPropertyPositions;
- KSPROPERTY_POSITIONS = record
- Current : int64;
- Stop : int64;
- CurrentFlags : KS_SEEKING_FLAGS;
- StopFlags : KS_SEEKING_FLAGS;
- end;
- {$EXTERNALSYM KSPROPERTY_POSITIONS}
- PKSPROPERTY_POSITIONS = ^KSPROPERTY_POSITIONS;
- {$EXTERNALSYM PKSPROPERTY_POSITIONS}
- TKSPropertyPositions = KSPROPERTY_POSITIONS;
- PKSPropertyMediaAvailable = ^TKSPropertyMediaAvailable;
- KSPROPERTY_MEDIAAVAILABLE = record
- Earliest : int64;
- Latest : int64;
- end;
- {$EXTERNALSYM KSPROPERTY_MEDIAAVAILABLE}
- PKSPROPERTY_MEDIAAVAILABLE = ^KSPROPERTY_MEDIAAVAILABLE;
- {$EXTERNALSYM PKSPROPERTY_MEDIAAVAILABLE}
- TKSPropertyMediaAvailable = KSPROPERTY_MEDIAAVAILABLE;
- PKSPTimeFormat = ^TKSPTimeFormat;
- KSP_TIMEFORMAT = record
- Property_ : KSPROPERTY;
- SourceFormat : TGUID;
- TargetFormat : TGUID;
- Time : int64;
- end;
- {$EXTERNALSYM KSP_TIMEFORMAT}
- PKSP_TIMEFORMAT = ^KSP_TIMEFORMAT;
- {$EXTERNALSYM PKSP_TIMEFORMAT}
- TKSPTimeFormat = KSP_TIMEFORMAT;
- //===========================================================================
- const
- KSPROPSETID_Topology : TGUID = '{720D4AC0-7533-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_Topology}
- type
- KSPROPERTY_TOPOLOGY = (
- KSPROPERTY_TOPOLOGY_CATEGORIES,
- KSPROPERTY_TOPOLOGY_NODES,
- KSPROPERTY_TOPOLOGY_CONNECTIONS,
- KSPROPERTY_TOPOLOGY_NAME
- );
- {$EXTERNALSYM KSPROPERTY_TOPOLOGY}
- TKSPropertyTopology = KSPROPERTY_TOPOLOGY;
- const
- KSCATEGORY_BRIDGE : TGUID = '{085AFF00-62CE-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_BRIDGE}
- KSCATEGORY_CAPTURE : TGUID = '{65E8773D-8F56-11D0-A3B9-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_CAPTURE}
- KSCATEGORY_RENDER : TGUID = '{65E8773E-8F56-11D0-A3B9-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_RENDER}
- KSCATEGORY_MIXER : TGUID = '{AD809C00-7B88-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_MIXER}
- KSCATEGORY_SPLITTER : TGUID = '{0A4252A0-7E70-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_SPLITTER}
- KSCATEGORY_DATACOMPRESSOR : TGUID = '{1E84C900-7E70-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_DATACOMPRESSOR}
- KSCATEGORY_DATADECOMPRESSOR : TGUID = '{2721AE20-7E70-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_DATADECOMPRESSOR}
- KSCATEGORY_DATATRANSFORM : TGUID = '{2EB07EA0-7E70-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_DATATRANSFORM}
- KSCATEGORY_COMMUNICATIONSTRANSFORM : TGUID = '{CF1DDA2C-9743-11D0-A3EE-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_COMMUNICATIONSTRANSFORM}
- KSCATEGORY_INTERFACETRANSFORM : TGUID = '{CF1DDA2D-9743-11D0-A3EE-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_INTERFACETRANSFORM}
- KSCATEGORY_MEDIUMTRANSFORM : TGUID = '{CF1DDA2E-9743-11D0-A3EE-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_MEDIUMTRANSFORM}
- KSCATEGORY_FILESYSTEM : TGUID = '{760FED5E-9357-11D0-A3CC-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_FILESYSTEM}
- // KSNAME_Clock
- KSCATEGORY_CLOCK : TGUID = '{53172480-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSCATEGORY_CLOCK}
- KSCATEGORY_PROXY : TGUID = '{97EBAACA-95BD-11D0-A3EA-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_PROXY}
- KSCATEGORY_QUALITY : TGUID = '{97EBAACB-95BD-11D0-A3EA-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_QUALITY}
- type
- PKSTopologyConnection = ^TKSTopologyConnection;
- KSTOPOLOGY_CONNECTION = record
- FromNode : ULONG;
- FromNodePin : ULONG;
- ToNode : ULONG;
- ToNodePin : ULONG;
- end;
- {$EXTERNALSYM KSTOPOLOGY_CONNECTION}
- PKSTOPOLOGY_CONNECTION = ^KSTOPOLOGY_CONNECTION;
- {$EXTERNALSYM PKSTOPOLOGY_CONNECTION}
- TKSTopologyConnection = KSTOPOLOGY_CONNECTION;
- KSTOPOLOGY = record
- CategoriesCount : ULONG;
- Categories : PGUID;
- TopologyNodesCount : ULONG;
- TopologyNodes : PGUID;
- TopologyConnectionsCount : ULONG;
- TopologyConnections : PKSTOPOLOGY_CONNECTION;
- TopologyNodesNames : PGUID;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSTOPOLOGY}
- PKSTOPOLOGY = ^KSTOPOLOGY;
- {$EXTERNALSYM PKSTOPOLOGY}
- TKSTopology = KSTOPOLOGY;
- const
- KSFILTER_NODE = ULONG(-1);
- {$EXTERNALSYM KSFILTER_NODE}
- KSALL_NODES = ULONG(-1);
- {$EXTERNALSYM KSALL_NODES}
- type
- PKSNodeCreate = ^TKSNodeCreate;
- KSNODE_CREATE = record
- CreateFlags : ULONG;
- Node : ULONG;
- end;
- {$EXTERNALSYM KSNODE_CREATE}
- PKSNODE_CREATE = ^KSNODE_CREATE;
- {$EXTERNALSYM PKSNODE_CREATE}
- TKSNodeCreate = KSNODE_CREATE;
- //===========================================================================
- const
- // TIME_FORMAT_NONE
- KSTIME_FORMAT_NONE : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KSTIME_FORMAT_NONE}
- // TIME_FORMAT_FRAME
- KSTIME_FORMAT_FRAME : TGUID = '{7b785570-8c82-11cf-bc0c-00aa00ac74f6}';
- {$EXTERNALSYM KSTIME_FORMAT_FRAME}
- // TIME_FORMAT_BYTE
- KSTIME_FORMAT_BYTE : TGUID = '{7b785571-8c82-11cf-bc0c-00aa00ac74f6}';
- {$EXTERNALSYM KSTIME_FORMAT_BYTE}
- // TIME_FORMAT_SAMPLE
- KSTIME_FORMAT_SAMPLE : TGUID = '{7b785572-8c82-11cf-bc0c-00aa00ac74f6}';
- {$EXTERNALSYM KSTIME_FORMAT_SAMPLE}
- // TIME_FORMAT_FIELD
- KSTIME_FORMAT_FIELD : TGUID = '{7b785573-8c82-11cf-bc0c-00aa00ac74f6}';
- {$EXTERNALSYM KSTIME_FORMAT_FIELD}
- // TIME_FORMAT_MEDIA_TIME
- KSTIME_FORMAT_MEDIA_TIME : TGUID = '{7b785574-8c82-11cf-bc0c-00aa00ac74f6}';
- {$EXTERNALSYM KSTIME_FORMAT_MEDIA_TIME}
- //===========================================================================
- type
- PKSPIN_INTERFACE = ^KSPIN_INTERFACE;
- {$EXTERNALSYM PKSPIN_INTERFACE}
- KSPIN_INTERFACE = KSIDENTIFIER;
- {$EXTERNALSYM KSPIN_INTERFACE}
- PKSPinInterface = PKSPIN_INTERFACE;
- TKSPinInterface = KSPIN_INTERFACE;
- const
- KSINTERFACESETID_Standard : TGUID = '{1A8766A0-62CE-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSINTERFACESETID_Standard}
- type
- KSINTERFACE_STANDARD = (
- KSINTERFACE_STANDARD_STREAMING,
- KSINTERFACE_STANDARD_LOOPED_STREAMING,
- KSINTERFACE_STANDARD_CONTROL
- );
- {$EXTERNALSYM KSINTERFACE_STANDARD}
- TKSInterfaceStandard = KSINTERFACE_STANDARD;
- const
- KSINTERFACESETID_FileIo : TGUID = '{8C6F932C-E771-11D0-B8FF-00A0C9223196}';
- {$EXTERNALSYM KSINTERFACESETID_FileIo}
- type
- KSINTERFACE_FILEIO = (
- KSINTERFACE_FILEIO_STREAMING
- );
- {$EXTERNALSYM KSINTERFACE_FILEIO}
- TKSInterfaceFileIO = KSINTERFACE_FILEIO;
- //===========================================================================
- const
- KSMEDIUM_TYPE_ANYINSTANCE = 0;
- {$EXTERNALSYM KSMEDIUM_TYPE_ANYINSTANCE}
- KSMEDIUMSETID_Standard : TGUID = '{4747B320-62CE-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSMEDIUMSETID_Standard}
- //For compatibility only
- KSMEDIUM_STANDARD_DEVIO = KSMEDIUM_TYPE_ANYINSTANCE;
- {$EXTERNALSYM KSMEDIUM_STANDARD_DEVIO}
- //===========================================================================
- KSPROPSETID_Pin : TGUID = '{8C134960-51AD-11CF-878A-94F801C10000}';
- {$EXTERNALSYM KSPROPSETID_Pin}
- type
- KSPROPERTY_PIN = (
- KSPROPERTY_PIN_CINSTANCES,
- KSPROPERTY_PIN_CTYPES,
- KSPROPERTY_PIN_DATAFLOW,
- KSPROPERTY_PIN_DATARANGES,
- KSPROPERTY_PIN_DATAINTERSECTION,
- KSPROPERTY_PIN_INTERFACES,
- KSPROPERTY_PIN_MEDIUMS,
- KSPROPERTY_PIN_COMMUNICATION,
- KSPROPERTY_PIN_GLOBALCINSTANCES,
- KSPROPERTY_PIN_NECESSARYINSTANCES,
- KSPROPERTY_PIN_PHYSICALCONNECTION,
- KSPROPERTY_PIN_CATEGORY,
- KSPROPERTY_PIN_NAME,
- KSPROPERTY_PIN_CONSTRAINEDDATARANGES,
- KSPROPERTY_PIN_PROPOSEDATAFORMAT
- );
- {$EXTERNALSYM KSPROPERTY_PIN}
- TKSPropertyPin = KSPROPERTY_PIN;
- PKSPPin = ^TKSPPin;
- KSP_PIN = record
- Property_ : KSPROPERTY;
- PinId : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSP_PIN}
- PKSP_PIN = ^KSP_PIN;
- {$EXTERNALSYM PKSP_PIN}
- TKSPPin = KSP_PIN;
- const
- KSINSTANCE_INDETERMINATE = ULONG(-1);
- {$EXTERNALSYM KSINSTANCE_INDETERMINATE}
- type
- PKSPinCInstance = ^TKSPinCInstance;
- KSPIN_CINSTANCES = record
- PossibleCount : ULONG;
- CurrentCount : ULONG;
- end;
- {$EXTERNALSYM KSPIN_CINSTANCES}
- PKSPIN_CINSTANCES = ^KSPIN_CINSTANCES;
- {$EXTERNALSYM PKSPIN_CINSTANCES}
- TKSPinCInstance = KSPIN_CINSTANCES;
- PKSPinDataFlow = ^TKSPinDataFlow;
- KSPIN_DATAFLOW = (
- KSPIN_DATAFLOW_Invalid,
- KSPIN_DATAFLOW_IN,
- KSPIN_DATAFLOW_OUT
- );
- {$EXTERNALSYM KSPIN_DATAFLOW}
- PKSPIN_DATAFLOW = ^KSPIN_DATAFLOW;
- {$EXTERNALSYM PKSPIN_DATAFLOW}
- TKSPinDataFlow = KSPIN_DATAFLOW;
- const
- KSDATAFORMAT_BIT_TEMPORAL_COMPRESSION = 0;
- {$EXTERNALSYM KSDATAFORMAT_BIT_TEMPORAL_COMPRESSION}
- KSDATAFORMAT_TEMPORAL_COMPRESSION = (1 shl KSDATAFORMAT_BIT_TEMPORAL_COMPRESSION);
- {$EXTERNALSYM KSDATAFORMAT_TEMPORAL_COMPRESSION}
- KSDATAFORMAT_BIT_ATTRIBUTES = 1;
- {$EXTERNALSYM KSDATAFORMAT_BIT_ATTRIBUTES}
- KSDATAFORMAT_ATTRIBUTES = (1 shl KSDATAFORMAT_BIT_ATTRIBUTES);
- {$EXTERNALSYM KSDATAFORMAT_ATTRIBUTES}
- KSDATARANGE_BIT_ATTRIBUTES = 1;
- {$EXTERNALSYM KSDATARANGE_BIT_ATTRIBUTES}
- KSDATARANGE_ATTRIBUTES = (1 shl KSDATARANGE_BIT_ATTRIBUTES);
- {$EXTERNALSYM KSDATARANGE_ATTRIBUTES}
- KSDATARANGE_BIT_REQUIRED_ATTRIBUTES = 2;
- {$EXTERNALSYM KSDATARANGE_BIT_REQUIRED_ATTRIBUTES}
- KSDATARANGE_REQUIRED_ATTRIBUTES = (1 shl KSDATARANGE_BIT_REQUIRED_ATTRIBUTES);
- {$EXTERNALSYM KSDATARANGE_REQUIRED_ATTRIBUTES}
- type
- KSDATAFORMAT = record
- case integer of
- 0: (
- FormatSize : ULONG;
- Flags : ULONG;
- SampleSize : ULONG;
- Reserved : ULONG;
- MajorFormat : TGUID;
- SubFormat : TGUID;
- Specifier : TGUID);
- 1: (
- Alignment : int64);
- end;
- {$EXTERNALSYM KSDATAFORMAT}
- PKSDATAFORMAT = ^KSDATAFORMAT;
- {$EXTERNALSYM PKSDATAFORMAT}
- TKSDataFormat = KSDATAFORMAT;
- PKSDATARANGE = ^KSDATARANGE;
- {$EXTERNALSYM PKSDATARANGE}
- KSDATARANGE = KSDATAFORMAT;
- {$EXTERNALSYM KSDATARANGE}
- TKSDataRange = KSDATARANGE;
- const
- KSATTRIBUTE_REQUIRED = $00000001;
- {$EXTERNALSYM KSATTRIBUTE_REQUIRED}
- type
- KSATTRIBUTE = record
- Size : ULONG;
- Flags : ULONG;
- Attribute : TGUID;
- end;
- {$EXTERNALSYM KSATTRIBUTE}
- PKSATTRIBUTE = ^KSATTRIBUTE;
- {$EXTERNALSYM PKSATTRIBUTE}
- TKSAttribute = KSATTRIBUTE;
- PKSPinCommunication = ^TKSPinCommunication;
- KSPIN_COMMUNICATION = (
- KSPIN_COMMUNICATION_NONE,
- KSPIN_COMMUNICATION_SINK,
- KSPIN_COMMUNICATION_SOURCE,
- KSPIN_COMMUNICATION_BOTH,
- KSPIN_COMMUNICATION_BRIDGE
- );
- {$EXTERNALSYM KSPIN_COMMUNICATION}
- PKSPIN_COMMUNICATION = ^KSPIN_COMMUNICATION;
- {$EXTERNALSYM PKSPIN_COMMUNICATION}
- TKSPinCommunication = KSPIN_COMMUNICATION;
- PKSPIN_MEDIUM = ^KSPIN_MEDIUM;
- {$EXTERNALSYM PKSPIN_MEDIUM}
- KSPIN_MEDIUM = KSIDENTIFIER;
- {$EXTERNALSYM KSPIN_MEDIUM}
- PKSPinMedium = PKSPIN_MEDIUM;
- TKSPinMedium = KSPIN_MEDIUM;
- PKSPinConnect = ^TKSPinConnect;
- KSPIN_CONNECT = record
- Interface_ : TKSPinInterface;
- Medium : TKSPinMedium;
- PinId : ULONG;
- PinToHandle : THandle;
- Priority : TKSPriority;
- end;
- {$EXTERNALSYM KSPIN_CONNECT}
- PKSPIN_CONNECT = KSPIN_CONNECT;
- {$EXTERNALSYM PKSPIN_CONNECT}
- TKSPinConnect = KSPIN_CONNECT;
- PKSPinPhysicalConnection = ^TKSPinPhysicalConnection;
- KSPIN_PHYSICALCONNECTION = record
- Size : ULONG;
- Pin : ULONG;
- SymbolicLinkName : array[0..0] of WCHAR;
- end;
- {$EXTERNALSYM KSPIN_PHYSICALCONNECTION}
- PKSPIN_PHYSICALCONNECTION = KSPIN_PHYSICALCONNECTION;
- {$EXTERNALSYM PKSPIN_PHYSICALCONNECTION}
- TKSPinPhysicalConnection = KSPIN_PHYSICALCONNECTION;
- const
- KSNAME_Filter : TGUID = '{9b365890-165f-11d0-a195-0020afd156e4}';
- {$EXTERNALSYM KSNAME_Filter}
- KSSTRING_Filter = '{9B365890-165F-11D0-A195-0020AFD156E4}';
- {$EXTERNALSYM KSSTRING_Filter}
- KSNAME_Pin : TGUID = '{146F1A80-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSNAME_Pin}
- KSSTRING_Pin = '{146F1A80-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSSTRING_Pin}
- KSNAME_Clock : TGUID = '{53172480-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSNAME_Clock}
- KSSTRING_Clock = '{53172480-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSSTRING_Clock}
- KSNAME_Allocator : TGUID = '{642F5D00-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSNAME_Allocator}
- KSSTRING_Allocator = '{642F5D00-4791-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSSTRING_Allocator}
- KSSTRING_AllocatorEx = '{091BB63B-603F-11D1-B067-00A0C9062802}';
- {$EXTERNALSYM KSSTRING_AllocatorEx}
- KSNAME_TopologyNode : TGUID = '{0621061A-EE75-11D0-B915-00A0C9223196}';
- {$EXTERNALSYM KSNAME_TopologyNode}
- KSSTRING_TopologyNode = '{0621061A-EE75-11D0-B915-00A0C9223196}';
- {$EXTERNALSYM KSSTRING_TopologyNode}
- //===========================================================================
- // MEDIATYPE_NULL
- const
- KSDATAFORMAT_TYPE_WILDCARD : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_WILDCARD}
- // MEDIASUBTYPE_NULL
- KSDATAFORMAT_SUBTYPE_WILDCARD : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_WILDCARD}
- // MEDIATYPE_Stream
- KSDATAFORMAT_TYPE_STREAM : TGUID = '{E436EB83-524F-11CE-9F53-0020AF0BA770}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_STREAM}
- // MEDIASUBTYPE_None
- KSDATAFORMAT_SUBTYPE_NONE : TGUID = '{E436EB8E-524F-11CE-9F53-0020AF0BA770}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_NONE}
- KSDATAFORMAT_SPECIFIER_WILDCARD : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_WILDCARD}
- KSDATAFORMAT_SPECIFIER_FILENAME : TGUID = '{AA797B40-E974-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_FILENAME}
- KSDATAFORMAT_SPECIFIER_FILEHANDLE: TGUID = '{65E8773C-8F56-11D0-A3B9-00A0C9223196}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_FILEHANDLE}
- // FORMAT_None
- KSDATAFORMAT_SPECIFIER_NONE : TGUID = '{0F6417D6-C318-11D0-A43F-00A0C9223196}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_NONE}
- //===========================================================================
- KSPROPSETID_Quality : TGUID = '{D16AD380-AC1A-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_Quality}
- type
- KSPROPERTY_QUALITY = (
- KSPROPERTY_QUALITY_REPORT,
- KSPROPERTY_QUALITY_ERROR
- );
- {$EXTERNALSYM KSPROPERTY_QUALITY}
- TKSPropertyQuality = KSPROPERTY_QUALITY;
- //===========================================================================
- const
- KSPROPSETID_Connection : TGUID = '{1D58C920-AC9B-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_Connection}
- type
- KSPROPERTY_CONNECTION = (
- KSPROPERTY_CONNECTION_STATE,
- KSPROPERTY_CONNECTION_PRIORITY,
- KSPROPERTY_CONNECTION_DATAFORMAT,
- KSPROPERTY_CONNECTION_ALLOCATORFRAMING,
- KSPROPERTY_CONNECTION_PROPOSEDATAFORMAT,
- KSPROPERTY_CONNECTION_ACQUIREORDERING,
- KSPROPERTY_CONNECTION_ALLOCATORFRAMING_EX,
- KSPROPERTY_CONNECTION_STARTAT
- );
- {$EXTERNALSYM KSPROPERTY_CONNECTION}
- TKSPropertyConnection = KSPROPERTY_CONNECTION;
- //===========================================================================
- //
- // pins flags
- //
- const
- KSALLOCATOR_REQUIREMENTF_INPLACE_MODIFIER = $00000001;
- {$EXTERNALSYM KSALLOCATOR_REQUIREMENTF_INPLACE_MODIFIER}
- KSALLOCATOR_REQUIREMENTF_SYSTEM_MEMORY = $00000002;
- {$EXTERNALSYM KSALLOCATOR_REQUIREMENTF_SYSTEM_MEMORY}
- KSALLOCATOR_REQUIREMENTF_FRAME_INTEGRITY = $00000004;
- {$EXTERNALSYM KSALLOCATOR_REQUIREMENTF_FRAME_INTEGRITY}
- KSALLOCATOR_REQUIREMENTF_MUST_ALLOCATE = $00000008;
- {$EXTERNALSYM KSALLOCATOR_REQUIREMENTF_MUST_ALLOCATE}
- KSALLOCATOR_REQUIREMENTF_PREFERENCES_ONLY = $80000000;
- {$EXTERNALSYM KSALLOCATOR_REQUIREMENTF_PREFERENCES_ONLY}
- KSALLOCATOR_OPTIONF_COMPATIBLE = $00000001;
- {$EXTERNALSYM KSALLOCATOR_OPTIONF_COMPATIBLE}
- KSALLOCATOR_OPTIONF_SYSTEM_MEMORY = $00000002;
- {$EXTERNALSYM KSALLOCATOR_OPTIONF_SYSTEM_MEMORY}
- KSALLOCATOR_OPTIONF_VALID = $00000003;
- {$EXTERNALSYM KSALLOCATOR_OPTIONF_VALID}
- //
- // pins extended framing flags
- //
- KSALLOCATOR_FLAG_PARTIAL_READ_SUPPORT = $00000010;
- {$EXTERNALSYM KSALLOCATOR_FLAG_PARTIAL_READ_SUPPORT}
- KSALLOCATOR_FLAG_DEVICE_SPECIFIC = $00000020;
- {$EXTERNALSYM KSALLOCATOR_FLAG_DEVICE_SPECIFIC}
- KSALLOCATOR_FLAG_CAN_ALLOCATE = $00000040;
- {$EXTERNALSYM KSALLOCATOR_FLAG_CAN_ALLOCATE}
- KSALLOCATOR_FLAG_INSIST_ON_FRAMESIZE_RATIO = $00000080;
- {$EXTERNALSYM KSALLOCATOR_FLAG_INSIST_ON_FRAMESIZE_RATIO}
- //
- // allocator pipes flags
- //
- // there is at least one data modification in a pipe
- KSALLOCATOR_FLAG_NO_FRAME_INTEGRITY = $00000100;
- {$EXTERNALSYM KSALLOCATOR_FLAG_NO_FRAME_INTEGRITY}
- KSALLOCATOR_FLAG_MULTIPLE_OUTPUT = $00000200;
- {$EXTERNALSYM KSALLOCATOR_FLAG_MULTIPLE_OUTPUT}
- KSALLOCATOR_FLAG_CYCLE = $00000400;
- {$EXTERNALSYM KSALLOCATOR_FLAG_CYCLE}
- KSALLOCATOR_FLAG_ALLOCATOR_EXISTS = $00000800;
- {$EXTERNALSYM KSALLOCATOR_FLAG_ALLOCATOR_EXISTS}
- // there is no framing dependency between neighbouring pipes.
- KSALLOCATOR_FLAG_INDEPENDENT_RANGES = $00001000;
- {$EXTERNALSYM KSALLOCATOR_FLAG_INDEPENDENT_RANGES}
- KSALLOCATOR_FLAG_ATTENTION_STEPPING = $00002000;
- {$EXTERNALSYM KSALLOCATOR_FLAG_ATTENTION_STEPPING}
- //
- // old Framing structure
- //
- type
- PKSAllocatorFraming = ^TKSAllocatorFraming;
- KSALLOCATOR_FRAMING = record
- case integer of
- 0: (
- OptionsFlags : ULONG); // allocator options (create)
- 1: (
- RequirementsFlags : ULONG; // allocation requirements (query)
- PoolType : ULONG;
- Frames : ULONG; // total number of allowable outstanding frames
- FrameSize : ULONG; // total size of frame
- FileAlignment : ULONG;
- Reserved : ULONG);
- end;
- {$EXTERNALSYM KSALLOCATOR_FRAMING}
- PKSALLOCATOR_FRAMING = ^KSALLOCATOR_FRAMING;
- {$EXTERNALSYM PKSALLOCATOR_FRAMING}
- TKSAllocatorFraming = KSALLOCATOR_FRAMING;
- //
- // new Framing structure, eventually will replace KSALLOCATOR_FRAMING.
- //
- PKSFramingRange = ^TKSFramingRange;
- KS_FRAMING_RANGE = record
- MinFrameSize : ULONG;
- MaxFrameSize : ULONG;
- Stepping : ULONG;
- end;
- {$EXTERNALSYM KS_FRAMING_RANGE}
- PKS_FRAMING_RANGE = ^KS_FRAMING_RANGE;
- {$EXTERNALSYM PKS_FRAMING_RANGE}
- TKSFramingRange = KS_FRAMING_RANGE;
- PKSFramingRangeWeighted = ^TKSFramingRangeWeighted;
- KS_FRAMING_RANGE_WEIGHTED = record
- Range : TKSFramingRange;
- InPlaceWeight : ULONG;
- NotInPlaceWeight : ULONG;
- end;
- {$EXTERNALSYM KS_FRAMING_RANGE_WEIGHTED}
- PKS_FRAMING_RANGE_WEIGHTED = ^KS_FRAMING_RANGE_WEIGHTED;
- {$EXTERNALSYM PKS_FRAMING_RANGE_WEIGHTED}
- TKSFramingRangeWeighted = KS_FRAMING_RANGE_WEIGHTED;
- PKSCompression = ^TKSCompression;
- KS_COMPRESSION = record
- RatioNumerator : ULONG; // compression/expansion ratio
- RatioDenominator : ULONG;
- RatioConstantMargin : ULONG;
- end;
- {$EXTERNALSYM KS_COMPRESSION}
- PKS_COMPRESSION = ^KS_COMPRESSION;
- {$EXTERNALSYM PKS_COMPRESSION}
- TKSCompression = KS_COMPRESSION;
- //
- // Memory Types and Buses are repeated in each entry.
- // Easiest to use but takes a little more memory than the varsize layout Pin\Memories\Buses\Ranges.
- //
- PKSFramingItem = ^TKSFramingItem;
- KS_FRAMING_ITEM = record
- MemoryType : TGUID;
- BusType : TGUID;
- MemoryFlags : ULONG;
- BusFlags : ULONG;
- Flags : ULONG;
- Frames : ULONG; // total number of allowable outstanding frames
- FileAlignment : ULONG;
- MemoryTypeWeight : ULONG; // this memory type Weight pin-wide
- PhysicalRange : TKSFramingRange;
- FramingRange : TKSFramingRangeWeighted;
- end;
- {$EXTERNALSYM KS_FRAMING_ITEM}
- PKS_FRAMING_ITEM = ^KS_FRAMING_ITEM;
- {$EXTERNALSYM PKS_FRAMING_ITEM}
- TKSFramingItem = KS_FRAMING_ITEM;
- PKSAllocatorFramingEx = ^TKSAllocatorFramingEx;
- KSALLOCATOR_FRAMING_EX = record
- CountItems : ULONG; // count of FramingItem-s below.
- PinFlags : ULONG;
- OutputCompression : TKSCompression;
- PinWeight : ULONG; // this pin framing's Weight graph-wide
- FramingItem : array[0..0] of TKSFramingItem;
- end;
- {$EXTERNALSYM KSALLOCATOR_FRAMING_EX}
- PKSALLOCATOR_FRAMING_EX = ^KSALLOCATOR_FRAMING_EX;
- {$EXTERNALSYM PKSALLOCATOR_FRAMING_EX}
- TKSAllocatorFramingEx = KSALLOCATOR_FRAMING_EX;
- //
- // define memory type GUIDs
- //
- const
- KSMEMORY_TYPE_WILDCARD : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KSMEMORY_TYPE_WILDCARD}
- KSMEMORY_TYPE_DONT_CARE : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KSMEMORY_TYPE_DONT_CARE}
- KS_TYPE_DONT_CARE : TGUID = '{00000000-0000-0000-0000-000000000000}';
- {$EXTERNALSYM KS_TYPE_DONT_CARE}
- KSMEMORY_TYPE_SYSTEM : TGUID = '{091bb638-603f-11d1-b067-00a0c9062802}';
- {$EXTERNALSYM KSMEMORY_TYPE_SYSTEM}
- KSMEMORY_TYPE_USER : TGUID = '{8cb0fc28-7893-11d1-b069-00a0c9062802}';
- {$EXTERNALSYM KSMEMORY_TYPE_USER}
- KSMEMORY_TYPE_KERNEL_PAGED : TGUID = '{d833f8f8-7894-11d1-b069-00a0c9062802}';
- {$EXTERNALSYM KSMEMORY_TYPE_KERNEL_PAGED}
- KSMEMORY_TYPE_KERNEL_NONPAGED : TGUID = '{4a6d5fc4-7895-11d1-b069-00a0c9062802}';
- {$EXTERNALSYM KSMEMORY_TYPE_KERNEL_NONPAGED}
- // old KS clients did not specify the device memory type
- KSMEMORY_TYPE_DEVICE_UNKNOWN : TGUID = '{091bb639-603f-11d1-b067-00a0c9062802}';
- {$EXTERNALSYM KSMEMORY_TYPE_DEVICE_UNKNOWN}
- //
- // Helper framing macros.
- //
- {#define DECLARE_SIMPLE_FRAMING_EX(FramingExName, MemoryType, Flags, Frames, Alignment, MinFrameSize, MaxFrameSize) \
- const KSALLOCATOR_FRAMING_EX FramingExName = \
- {\
- 1, \
- 0, \
- {\
- 1, \
- 1, \
- 0 \
- }//, \
- // 0, \
- {\
- {\
- MemoryType, \
- STATIC_KS_TYPE_DONT_CARE, \
- 0, \
- 0, \
- Flags, \
- Frames, \
- Alignment, \
- 0, \
- {\
- 0, \
- (ULONG)-1, \
- 1 \
- }//, \
- {\
- {\
- MinFrameSize, \
- MaxFrameSize, \
- 1 \
- }//, \
- // 0, \
- // 0 \
- // }\
- // }\
- // }\
- // }
- {#define SetDefaultKsCompression(KsCompressionPointer) \
- {\
- KsCompressionPointer->RatioNumerator = 1;\
- KsCompressionPointer->RatioDenominator = 1;\
- KsCompressionPointer->RatioConstantMargin = 0;\
- }
- {#define SetDontCareKsFramingRange(KsFramingRangePointer) \
- {\
- KsFramingRangePointer->MinFrameSize = 0;\
- KsFramingRangePointer->MaxFrameSize = (ULONG) -1;\
- KsFramingRangePointer->Stepping = 1;\
- }
- {#define SetKsFramingRange(KsFramingRangePointer, P_MinFrameSize, P_MaxFrameSize) \
- {\
- KsFramingRangePointer->MinFrameSize = P_MinFrameSize;\
- KsFramingRangePointer->MaxFrameSize = P_MaxFrameSize;\
- KsFramingRangePointer->Stepping = 1;\
- }
- {#define SetKsFramingRangeWeighted(KsFramingRangeWeightedPointer, P_MinFrameSize, P_MaxFrameSize) \
- {\
- KS_FRAMING_RANGE *KsFramingRange = &KsFramingRangeWeightedPointer->Range;\
- SetKsFramingRange(KsFramingRange, P_MinFrameSize, P_MaxFrameSize);\
- KsFramingRangeWeightedPointer->InPlaceWeight = 0;\
- KsFramingRangeWeightedPointer->NotInPlaceWeight = 0;\
- }
- {#define INITIALIZE_SIMPLE_FRAMING_EX(FramingExPointer, P_MemoryType, P_Flags, P_Frames, P_Alignment, P_MinFrameSize, P_MaxFrameSize) \
- {\
- KS_COMPRESSION *KsCompression = &FramingExPointer->OutputCompression;\
- KS_FRAMING_RANGE *KsFramingRange = &FramingExPointer->FramingItem[0].PhysicalRange;\
- KS_FRAMING_RANGE_WEIGHTED *KsFramingRangeWeighted = &FramingExPointer->FramingItem[0].FramingRange;\
- FramingExPointer->CountItems = 1;\
- FramingExPointer->PinFlags = 0;\
- SetDefaultKsCompression(KsCompression);\
- FramingExPointer->PinWeight = 0;\
- FramingExPointer->FramingItem[0].MemoryType = P_MemoryType;\
- FramingExPointer->FramingItem[0].BusType = KS_TYPE_DONT_CARE;\
- FramingExPointer->FramingItem[0].MemoryFlags = 0;\
- FramingExPointer->FramingItem[0].BusFlags = 0;\
- FramingExPointer->FramingItem[0].Flags = P_Flags;\
- FramingExPointer->FramingItem[0].Frames = P_Frames;\
- FramingExPointer->FramingItem[0].FileAlignment = P_Alignment;\
- FramingExPointer->FramingItem[0].MemoryTypeWeight = 0;\
- SetDontCareKsFramingRange(KsFramingRange);\
- SetKsFramingRangeWeighted(KsFramingRangeWeighted, P_MinFrameSize, P_MaxFrameSize);\
- }
- KSEVENTSETID_StreamAllocator : TGUID = '{75d95571-073c-11d0-a161-0020afd156e4}';
- {$EXTERNALSYM KSEVENTSETID_StreamAllocator}
- type
- KSEVENT_STREAMALLOCATOR = (
- KSEVENT_STREAMALLOCATOR_INTERNAL_FREEFRAME,
- KSEVENT_STREAMALLOCATOR_FREEFRAME
- );
- {$EXTERNALSYM KSEVENT_STREAMALLOCATOR}
- TKSEventStreamAllocator = KSEVENT_STREAMALLOCATOR;
- const
- KSMETHODSETID_StreamAllocator : TGUID = '{cf6e4341-ec87-11cf-a130-0020afd156e4}';
- {$EXTERNALSYM KSMETHODSETID_StreamAllocator}
- type
- KSMETHOD_STREAMALLOCATOR = (
- KSMETHOD_STREAMALLOCATOR_ALLOC,
- KSMETHOD_STREAMALLOCATOR_FREE
- );
- {$EXTERNALSYM KSMETHOD_STREAMALLOCATOR}
- TKSMethodStreamAllocation = KSMETHOD_STREAMALLOCATOR;
- {#define DEFINE_KSMETHOD_ITEM_STREAMALLOCATOR_ALLOC(Handler)\
- DEFINE_KSMETHOD_ITEM(\
- KSMETHOD_STREAMALLOCATOR_ALLOC,\
- KSMETHOD_TYPE_WRITE,\
- (Handler),\
- sizeof(KSMETHOD),\
- sizeof(PVOID),\
- NULL)
- #define DEFINE_KSMETHOD_ITEM_STREAMALLOCATOR_FREE(Handler)\
- DEFINE_KSMETHOD_ITEM(\
- KSMETHOD_STREAMALLOCATOR_FREE,\
- KSMETHOD_TYPE_READ,\
- (Handler),\
- sizeof(KSMETHOD),\
- sizeof(PVOID),\
- NULL)
- #define DEFINE_KSMETHOD_ALLOCATORSET(AllocatorSet, MethodAlloc, MethodFree)\
- DEFINE_KSMETHOD_TABLE(AllocatorSet) {\
- DEFINE_KSMETHOD_ITEM_STREAMALLOCATOR_ALLOC(MethodAlloc),\
- DEFINE_KSMETHOD_ITEM_STREAMALLOCATOR_FREE(MethodFree)\
- }
- const
- KSPROPSETID_StreamAllocator : TGUID = '{cf6e4342-ec87-11cf-a130-0020afd156e4}';
- {$EXTERNALSYM KSPROPSETID_StreamAllocator}
- type
- PKSStreamAllocatorStatus = ^TKSStreamAllocatorStatus;
- KSSTREAMALLOCATOR_STATUS = record
- Framing : TKSAllocatorFraming;
- AllocatedFrames : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSSTREAMALLOCATOR_STATUS}
- PKSSTREAMALLOCATOR_STATUS = ^KSSTREAMALLOCATOR_STATUS;
- {$EXTERNALSYM PKSSTREAMALLOCATOR_STATUS}
- TKSStreamAllocatorStatus = KSSTREAMALLOCATOR_STATUS;
- PKSStreamAllocatorStatusEx = ^TKSStreamAllocatorStatusEx;
- KSSTREAMALLOCATOR_STATUS_EX = record
- Framing : TKSAllocatorFramingEx;
- AllocatedFrames : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSSTREAMALLOCATOR_STATUS_EX}
- PKSSTREAMALLOCATOR_STATUS_EX = ^KSSTREAMALLOCATOR_STATUS_EX;
- {$EXTERNALSYM PKSSTREAMALLOCATOR_STATUS_EX}
- TKSStreamAllocatorStatusEx = KSSTREAMALLOCATOR_STATUS_EX;
- const
- KSSTREAM_HEADER_OPTIONSF_SPLICEPOINT = $00000001;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_SPLICEPOINT}
- KSSTREAM_HEADER_OPTIONSF_PREROLL = $00000002;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_PREROLL}
- KSSTREAM_HEADER_OPTIONSF_DATADISCONTINUITY = $00000004;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_DATADISCONTINUITY}
- KSSTREAM_HEADER_OPTIONSF_TYPECHANGED = $00000008;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_TYPECHANGED}
- KSSTREAM_HEADER_OPTIONSF_TIMEVALID = $00000010;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_TIMEVALID}
- KSSTREAM_HEADER_OPTIONSF_TIMEDISCONTINUITY = $00000040;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_TIMEDISCONTINUITY}
- KSSTREAM_HEADER_OPTIONSF_FLUSHONPAUSE = $00000080;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_FLUSHONPAUSE}
- KSSTREAM_HEADER_OPTIONSF_DURATIONVALID = $00000100;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_DURATIONVALID}
- KSSTREAM_HEADER_OPTIONSF_ENDOFSTREAM = $00000200;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_ENDOFSTREAM}
- KSSTREAM_HEADER_OPTIONSF_LOOPEDDATA = $80000000;
- {$EXTERNALSYM KSSTREAM_HEADER_OPTIONSF_LOOPEDDATA}
- type
- KSTIME = record
- Time : int64;
- Numerator : ULONG;
- Denominator : ULONG;
- end;
- {$EXTERNALSYM KSTIME}
- PKSTIME = ^KSTIME;
- {$EXTERNALSYM PKSTIME}
- TKSTime = KSTIME;
- PKSStreamHeader = ^TKSStreamHeader;
- KSSTREAM_HEADER = record
- Size : ULONG;
- TypeSpecificFlags : ULONG;
- PresentationTime : TKSTIME;
- Duration : int64;
- FrameExtent : ULONG;
- DataUsed : ULONG;
- Data : Pointer;
- OptionsFlags : ULONG;
- //#if _WIN64
- // Reserved : ULONG;
- //#endif
- end;
- {$EXTERNALSYM KSSTREAM_HEADER}
- PKSSTREAM_HEADER = ^KSSTREAM_HEADER;
- {$EXTERNALSYM PKSSTREAM_HEADER}
- TKSStreamHeader = KSSTREAM_HEADER;
- const
- KSPROPSETID_StreamInterface : TGUID = '{1fdd8ee1-9cd3-11d0-82aa-0000f822fe8a}';
- {$EXTERNALSYM KSPROPSETID_StreamInterface}
- type
- KSPROPERTY_STREAMINTERFACE = (
- KSPROPERTY_STREAMINTERFACE_HEADERSIZE
- );
- {$EXTERNALSYM KSPROPERTY_STREAMINTERFACE}
- TKSPropertyStreamInterface = KSPROPERTY_STREAMINTERFACE;
- {#define DEFINE_KSPROPERTY_ITEM_STREAMINTERFACE_HEADERSIZE( GetHandler )\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAMINTERFACE_HEADERSIZE,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- sizeof(ULONG),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_STREAMINTERFACESET(StreamInterfaceSet,\
- HeaderSizeHandler)\
- DEFINE_KSPROPERTY_TABLE(StreamInterfaceSet) {\
- DEFINE_KSPROPERTY_ITEM_STREAMINTERFACE_HEADERSIZE( HeaderSizeHandler )\
- }
- const
- KSPROPSETID_Stream : TGUId = '{65aaba60-98ae-11cf-a10d-0020afd156e4}';
- {$EXTERNALSYM KSPROPSETID_Stream}
- type
- KSPROPERTY_STREAM = (
- KSPROPERTY_STREAM_ALLOCATOR,
- KSPROPERTY_STREAM_QUALITY,
- KSPROPERTY_STREAM_DEGRADATION,
- KSPROPERTY_STREAM_MASTERCLOCK,
- KSPROPERTY_STREAM_TIMEFORMAT,
- KSPROPERTY_STREAM_PRESENTATIONTIME,
- KSPROPERTY_STREAM_PRESENTATIONEXTENT,
- KSPROPERTY_STREAM_FRAMETIME,
- KSPROPERTY_STREAM_RATECAPABILITY,
- KSPROPERTY_STREAM_RATE,
- KSPROPERTY_STREAM_PIPE_ID
- );
- {$EXTERNALSYM KSPROPERTY_STREAM}
- TKSPropertyStream = KSPROPERTY_STREAM;
- {#define DEFINE_KSPROPERTY_ITEM_STREAM_ALLOCATOR(GetHandler, SetHandler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_ALLOCATOR,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- sizeof(HANDLE),\
- (SetHandler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_QUALITY(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_QUALITY,\
- (Handler),\
- sizeof(KSPROPERTY),\
- sizeof(KSQUALITY_MANAGER),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_DEGRADATION(GetHandler, SetHandler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_DEGRADATION,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- 0,\
- (SetHandler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_MASTERCLOCK(GetHandler, SetHandler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_MASTERCLOCK,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- sizeof(HANDLE),\
- (SetHandler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_TIMEFORMAT(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_TIMEFORMAT,\
- (Handler),\
- sizeof(KSPROPERTY),\
- sizeof(GUID),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_PRESENTATIONTIME(GetHandler, SetHandler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_PRESENTATIONTIME,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- sizeof(KSTIME),\
- (SetHandler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_PRESENTATIONEXTENT(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_PRESENTATIONEXTENT,\
- (Handler),\
- sizeof(KSPROPERTY),\
- sizeof(LONGLONG),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_FRAMETIME(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_FRAMETIME,\
- (Handler),\
- sizeof(KSPROPERTY),\
- sizeof(KSFRAMETIME),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_RATECAPABILITY(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_RATECAPABILITY,\
- (Handler),\
- sizeof(KSRATE_CAPABILITY),\
- sizeof(KSRATE),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_RATE(GetHandler, SetHandler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_RATE,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- sizeof(KSRATE),\
- (SetHandler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_STREAM_PIPE_ID(GetHandler, SetHandler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_STREAM_PIPE_ID,\
- (GetHandler),\
- sizeof(KSPROPERTY),\
- sizeof(HANDLE),\
- (SetHandler),\
- NULL, 0, NULL, NULL, 0) }
- PKSQualityManager = ^TKSQualityManager;
- KSQUALITY_MANAGER = record
- QualityManager : THandle;
- Context : Pointer;
- end;
- {$EXTERNALSYM KSQUALITY_MANAGER}
- PKSQUALITY_MANAGER = ^KSQUALITY_MANAGER;
- {$EXTERNALSYM PKSQUALITY_MANAGER}
- TKSQualityManager = KSQUALITY_MANAGER;
- KSFRAMETIME = record
- Duration : int64;
- FrameFlags : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSFRAMETIME}
- PKSFRAMETIME = ^KSFRAMETIME;
- {$EXTERNALSYM PKSFRAMETIME}
- TKSFrameTime = KSFRAMETIME;
- const
- KSFRAMETIME_VARIABLESIZE = $00000001;
- {$EXTERNALSYM KSFRAMETIME_VARIABLESIZE}
- type
- KSRATE = record
- {$EXTERNALSYM KSRATE}
- PresentationStart : int64;
- Duration : int64;
- Interface_ : TKSPinInterface;
- Rate : Longint;
- Flags : ULONG;
- end;
- PKSRATE = ^KSRATE;
- {$EXTERNALSYM PKSRATE}
- TKSRate = KSRATE;
- const
- KSRATE_NOPRESENTATIONSTART = $00000001;
- {$EXTERNALSYM KSRATE_NOPRESENTATIONSTART}
- KSRATE_NOPRESENTATIONDURATION = $00000002;
- {$EXTERNALSYM KSRATE_NOPRESENTATIONDURATION}
- type
- PKSRateCapability = ^TKSRateCapability;
- KSRATE_CAPABILITY = record
- Property_ : KSPROPERTY;
- Rate : TKSRATE;
- end;
- {$EXTERNALSYM KSRATE_CAPABILITY}
- PKSRATE_CAPABILITY = ^KSRATE_CAPABILITY;
- {$EXTERNALSYM PKSRATE_CAPABILITY}
- TKSRateCapability = KSRATE_CAPABILITY;
- const
- KSPROPSETID_Clock : TGUID = '{DF12A4C0-AC17-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_Clock}
- //
- // Performs a x*y/z operation on 64 bit quantities by splitting the operation. The equation
- // is simplified with respect to adding in the remainder for the upper 32 bits.
- //
- // (xh * 10000000 / Frequency) * 2^32 + ((((xh * 10000000) % Frequency) * 2^32 + (xl * 10000000)) / Frequency)
- //
- NANOSECONDS = 10000000;
- {$EXTERNALSYM NANOSECONDS}
- {#define KSCONVERT_PERFORMANCE_TIME(Frequency, PerformanceTime) \
- ((((ULONGLONG)(ULONG)(PerformanceTime).HighPart * NANOSECONDS / (Frequency)) << 32) + \
- ((((((ULONGLONG)(ULONG)(PerformanceTime).HighPart * NANOSECONDS) % (Frequency)) << 32) + \
- ((ULONGLONG)(PerformanceTime).LowPart * NANOSECONDS)) / (Frequency)))}
- type
- PKSClockCreate = ^TKSClockCreate;
- KSCLOCK_CREATE = record
- CreateFlags : ULONG;
- end;
- {$EXTERNALSYM KSCLOCK_CREATE}
- PKSCLOCK_CREATE = ^KSCLOCK_CREATE;
- {$EXTERNALSYM PKSCLOCK_CREATE}
- TKSClockCreate = KSCLOCK_CREATE;
- PKSCorrelatedTime = ^TKSCorrelatedTime;
- KSCORRELATED_TIME = record
- Time : int64;
- SystemTime : int64;
- end;
- {$EXTERNALSYM KSCORRELATED_TIME}
- PKSCORRELATED_TIME = ^KSCORRELATED_TIME;
- {$EXTERNALSYM PKSCORRELATED_TIME}
- TKSCorrelatedTime = KSCORRELATED_TIME;
- KSRESOLUTION = record
- Granularity : int64;
- Error : int64;
- end;
- {$EXTERNALSYM KSRESOLUTION}
- PKSRESOLUTION = ^KSRESOLUTION;
- {$EXTERNALSYM PKSRESOLUTION}
- TKSResolution = KSRESOLUTION;
- KSPROPERTY_CLOCK = (
- KSPROPERTY_CLOCK_TIME,
- KSPROPERTY_CLOCK_PHYSICALTIME,
- KSPROPERTY_CLOCK_CORRELATEDTIME,
- KSPROPERTY_CLOCK_CORRELATEDPHYSICALTIME,
- KSPROPERTY_CLOCK_RESOLUTION,
- KSPROPERTY_CLOCK_STATE
- );
- {$EXTERNALSYM KSPROPERTY_CLOCK}
- TKSPropertyClock = KSPROPERTY_CLOCK;
- const
- KSEVENTSETID_Clock : TGUID = '{364D8E20-62C7-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSEVENTSETID_Clock}
- type
- KSEVENT_CLOCK_POSITION = (
- KSEVENT_CLOCK_INTERVAL_MARK,
- KSEVENT_CLOCK_POSITION_MARK
- );
- {$EXTERNALSYM KSEVENT_CLOCK_POSITION}
- TKSEventClockPosition = KSEVENT_CLOCK_POSITION;
- const
- KSEVENTSETID_Connection : TGUID = '{7f4bcbe0-9ea5-11cf-a5d6-28db04c10000}';
- {$EXTERNALSYM KSEVENTSETID_Connection}
- type
- KSEVENT_CONNECTION = (
- KSEVENT_CONNECTION_POSITIONUPDATE,
- KSEVENT_CONNECTION_DATADISCONTINUITY,
- KSEVENT_CONNECTION_TIMEDISCONTINUITY,
- KSEVENT_CONNECTION_PRIORITY,
- KSEVENT_CONNECTION_ENDOFSTREAM
- );
- {$EXTERNALSYM KSEVENT_CONNECTION}
- TKSEventConnection = KSEVENT_CONNECTION;
- KSQUALITY = record
- Context : Pointer;
- Proportion : ULONG;
- DeltaTime : int64;
- end;
- {$EXTERNALSYM KSQUALITY}
- PKSQUALITY = ^KSQUALITY;
- {$EXTERNALSYM PKSQUALITY}
- TKSQuality = KSQUALITY;
- KSERROR = record
- {$EXTERNALSYM KSERROR}
- Context : Pointer;
- Status : ULONG;
- end;
- PKSERROR = ^KSERROR;
- {$EXTERNALSYM PKSERROR}
- TKSError = KSERROR;
- PKSDEGRADE = ^KSDEGRADE;
- {$EXTERNALSYM PKSDEGRADE}
- KSDEGRADE = KSIDENTIFIER;
- {$EXTERNALSYM KSDEGRADE}
- TKSDegrade = KSDEGRADE;
- const
- KSDEGRADESETID_Standard : TGUID = '{9F564180-704C-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSDEGRADESETID_Standard}
- type
- KSDEGRADE_STANDARD = (
- KSDEGRADE_STANDARD_SAMPLE,
- KSDEGRADE_STANDARD_QUALITY,
- KSDEGRADE_STANDARD_COMPUTATION,
- KSDEGRADE_STANDARD_SKIP
- );
- {$EXTERNALSYM KSDEGRADE_STANDARD}
- TKSDegradeStandard = KSDEGRADE_STANDARD;
- //#if !defined( PACK_PRAGMAS_NOT_SUPPORTED )
- //#include <pshpack1.h>
- //#endif
- KSPROPERTY_SERIALHDR = record
- PropertySet : TGUID;
- Count : ULONG;
- end;
- {$EXTERNALSYM KSPROPERTY_SERIALHDR}
- PKSPROPERTY_SERIALHDR = ^KSPROPERTY_SERIALHDR;
- {$EXTERNALSYM PKSPROPERTY_SERIALHDR}
- TKSPropertySerialHDR = KSPROPERTY_SERIALHDR;
- //#if !defined( PACK_PRAGMAS_NOT_SUPPORTED )
- //#include <poppack.h>
- //#endif
- PKSPropertySerial = ^TKSPropertySerial;
- KSPROPERTY_SERIAL = record
- PropTypeSet : TKSIdentifier;
- Id : ULONG;
- PropertyLength : ULONG;
- end;
- {$EXTERNALSYM KSPROPERTY_SERIAL}
- PKSPROPERTY_SERIAL = ^KSPROPERTY_SERIAL;
- {$EXTERNALSYM PKSPROPERTY_SERIAL}
- TKSPropertySerial = KSPROPERTY_SERIAL;
- //===========================================================================
- //
- // exported prototypes
- // From WinNT.h (H.GOURVEST)
- // Define the access mask as a longword sized structure divided up as
- // follows:
- //
- // 3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
- // 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
- // +---------------+---------------+-------------------------------+
- // |G|G|G|G|Res'd|A| StandardRights| SpecificRights |
- // |R|W|E|A| |S| | |
- // +-+-------------+---------------+-------------------------------+
- //
- // typedef struct _ACCESS_MASK {
- // WORD SpecificRights;
- // BYTE StandardRights;
- // BYTE AccessSystemAcl : 1;
- // BYTE Reserved : 3;
- // BYTE GenericAll : 1;
- // BYTE GenericExecute : 1;
- // BYTE GenericWrite : 1;
- // BYTE GenericRead : 1;
- // } ACCESS_MASK;
- // typedef ACCESS_MASK *PACCESS_MASK;
- //
- // but to make life simple for programmer's we'll allow them to specify
- // a desired access mask by simply OR'ing together mulitple single rights
- // and treat an access mask as a DWORD. For example
- //
- // DesiredAccess = DELETE | READ_CONTROL
- //
- // So we'll declare ACCESS_MASK as DWORD
- //
- function KsCreateAllocator(ConnectionHandle: THandle;
- AllocatorFraming: PKSAllocatorFraming;
- out AllocatorHandle: PHandle): DWORD; stdcall;
- {$EXTERNALSYM KsCreateAllocator}
- function KsCreateClock(ConnectionHandle: THandle;
- ClockCreate: PKSClockCreate;
- out ClockHandle: PHandle): DWORD; stdcall;
- {$EXTERNALSYM KsCreateClock}
- function KsCreatePin(FilterHandle: THandle;
- Connect: PKSPinConnect;
- DesiredAccess: ACCESS_MASK ;
- out ConnectionHandle: PHandle): DWORD; stdcall;
- {$EXTERNALSYM KsCreatePin}
- function KsCreateTopologyNode(ParentHandle: THandle;
- NodeCreate: PKSNodeCreate;
- DesiredAccess: ACCESS_MASK;
- out NodeHandle: PHandle): DWORD; stdcall;
- {$EXTERNALSYM KsCreateTopologyNode}
- {===============================================================================
- *
- * Copyright (C) Microsoft Corporation, 1996 - 1999
- * Module Name: ksproxy.h
- * Abstract : Interface definitions for WDM-CSA proxy filters.
- *
- *==============================================================================}
- const
- IID_IKsObject : TGUID = (D1:$423c13a2;D2:$2070;D3:$11d0;D4:($9e,$f7,$00,$aa,$00,$a2,$16,$a1));
- {$EXTERNALSYM IID_IKsObject}
- STATIC_IID_IKsObject : TGUID = (D1:$423c13a2;D2:$2070;D3:$11d0;D4:($9e,$f7,$00,$aa,$00,$a2,$16,$a1));
- {$EXTERNALSYM STATIC_IID_IKsObject}
- IID_IKsPinEx : TGUID = (D1:$7bb38260;D2:$d19c;D3:$11d2;D4:($b3,$8a,$00,$a0,$c9,$5e,$c2,$2e));
- {$EXTERNALSYM IID_IKsPinEx}
- STATIC_IID_IKsPinEx : TGUID = (D1:$7bb38260;D2:$d19c;D3:$11d2;D4:($b3,$8a,$00,$a0,$c9,$5e,$c2,$2e));
- {$EXTERNALSYM STATIC_IID_IKsPinEx}
- IID_IKsPinPipe : TGUID = (D1:$e539cd90;D2:$a8b4;D3:$11d1;D4:($81,$89,$00,$a0,$c9,$06,$28,$02));
- {$EXTERNALSYM IID_IKsPinPipe}
- STATIC_IID_IKsPinPipe : TGUID = (D1:$e539cd90;D2:$a8b4;D3:$11d1;D4:($81,$89,$00,$a0,$c9,$06,$28,$02));
- {$EXTERNALSYM STATIC_IID_IKsPinPipe}
- IID_IKsDataTypeCompletion : TGUID = (D1:$827D1A0E;D2:$0F73;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsDataTypeCompletion}
- STATIC_IID_IKsDataTypeCompletion : TGUID = (D1:$827D1A0E;D2:$0F73;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM STATIC_IID_IKsDataTypeCompletion}
- IID_IKsClockPropertySet : TGUID = (D1:$5C5CBD84;D2:$E755;D3:$11D0;D4:($AC,$18,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsClockPropertySet}
- STATIC_IID_IKsClockPropertySet : TGUID = (D1:$5C5CBD84;D2:$E755;D3:$11D0;D4:($AC,$18,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM STATIC_IID_IKsClockPropertySet}
- IID_IKsAllocator : TGUID = (D1:$8da64899;D2:$c0d9;D3:$11d0;D4:($84,$13,$00,$00,$f8,$22,$fe,$8a));
- {$EXTERNALSYM IID_IKsAllocator}
- STATIC_IID_IKsAllocator : TGUID = (D1:$8da64899;D2:$c0d9;D3:$11d0;D4:($84,$13,$00,$00,$f8,$22,$fe,$8a));
- {$EXTERNALSYM STATIC_IID_IKsAllocator}
- IID_IKsAllocatorEx : TGUID = (D1:$091bb63a;D2:$603f;D3:$11d1;D4:($b0,$67,$00,$a0,$c9,$06,$28,$02));
- {$EXTERNALSYM IID_IKsAllocatorEx}
- STATIC_IID_IKsAllocatorEx : TGUID = (D1:$091bb63a;D2:$603f;D3:$11d1;D4:($b0,$67,$00,$a0,$c9,$06,$28,$02));
- {$EXTERNALSYM STATIC_IID_IKsAllocatorEx}
- IID_IKsTopology : TGUID = (D1:$28F54683;D2:$06FD;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsTopology}
- STATIC_IID_IKsTopology : TGUID = (D1:$28F54683;D2:$06FD;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM STATIC_IID_IKsTopology}
- IID_IKsAggregateControl : TGUID = (D1:$7F40EAC0;D2:$3947;D3:$11D2;D4:($87,$4E,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM IID_IKsAggregateControl}
- STATIC_IID_IKsAggregateControl : TGUID = (D1:$7F40EAC0;D2:$3947;D3:$11D2;D4:($87,$4E,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM STATIC_IID_IKsAggregateControl}
- CLSID_Proxy : TGUID = (D1:$17CCA71B;D2:$ECD7;D3:$11D0;D4:($B9,$08,$00,$A0,$C9,$22,$31,$96));
- {$EXTERNALSYM CLSID_Proxy}
- IID_IKsQualityForwarder : TGUID = '{97EBAACB-95BD-11D0-A3EA-00A0C9223196}';
- {$EXTERNALSYM IID_IKsQualityForwarder}
- STATIC_IID_IKsQualityForwarder : TGUID = '{97EBAACB-95BD-11D0-A3EA-00A0C9223196}';
- {$EXTERNALSYM STATIC_IID_IKsQualityForwarder}
- IID_IKsNotifyEvent : TGUID = '{412bd695-f84b-46c1-ac73-54196dbc8fa7}';
- {$EXTERNALSYM IID_IKsNotifyEvent}
- type
- KSALLOCATORMODE = (
- KsAllocatorMode_User,
- KsAllocatorMode_Kernel
- );
- {$EXTERNALSYM KSALLOCATORMODE}
- TKSAllocatorMode = KSALLOCATORMODE;
- PFramingProp = ^TFramingProp;
- FRAMING_PROP = (
- FramingProp_Uninitialized,
- FramingProp_None,
- FramingProp_Old,
- FramingProp_Ex
- );
- {$EXTERNALSYM FRAMING_PROP}
- PFRAMING_PROP = ^FRAMING_PROP;
- {$EXTERNALSYM PFRAMING_PROP}
- TFramingProp = FRAMING_PROP;
- FRAMING_CACHE_OPS = (
- Framing_Cache_Update, // request to bypass cache when read/write
- Framing_Cache_ReadLast,
- Framing_Cache_ReadOrig,
- Framing_Cache_Write
- );
- {$EXTERNALSYM FRAMING_CACHE_OPS}
- TFramingCacheOps = FRAMING_CACHE_OPS;
- OPTIMAL_WEIGHT_TOTALS = record
- MinTotalNominator : int64;
- MaxTotalNominator : int64;
- TotalDenominator : int64;
- end;
- {$EXTERNALSYM OPTIMAL_WEIGHT_TOTALS}
- TOptimalWeightTotals = OPTIMAL_WEIGHT_TOTALS;
- //
- // allocators strategy is defined by graph manager
- //
- const
- AllocatorStrategy_DontCare = 0;
- {$EXTERNALSYM AllocatorStrategy_DontCare}
- //
- // what to optimize
- //
- AllocatorStrategy_MinimizeNumberOfFrames = $00000001;
- {$EXTERNALSYM AllocatorStrategy_MinimizeNumberOfFrames}
- AllocatorStrategy_MinimizeFrameSize = $00000002;
- {$EXTERNALSYM AllocatorStrategy_MinimizeFrameSize}
- AllocatorStrategy_MinimizeNumberOfAllocators = $00000004;
- {$EXTERNALSYM AllocatorStrategy_MinimizeNumberOfAllocators}
- AllocatorStrategy_MaximizeSpeed = $00000008;
- {$EXTERNALSYM AllocatorStrategy_MaximizeSpeed}
- //
- // factors (flags) defining the Pipes properties
- //
- PipeFactor_None = 0;
- {$EXTERNALSYM PipeFactor_None}
- PipeFactor_UserModeUpstream = $00000001;
- {$EXTERNALSYM PipeFactor_UserModeUpstream}
- PipeFactor_UserModeDownstream = $00000002;
- {$EXTERNALSYM PipeFactor_UserModeDownstream}
- PipeFactor_MemoryTypes = $00000004;
- {$EXTERNALSYM PipeFactor_MemoryTypes}
- PipeFactor_Flags = $00000008;
- {$EXTERNALSYM PipeFactor_Flags}
- PipeFactor_PhysicalRanges = $00000010;
- {$EXTERNALSYM PipeFactor_PhysicalRanges}
- PipeFactor_OptimalRanges = $00000020;
- {$EXTERNALSYM PipeFactor_OptimalRanges}
- PipeFactor_FixedCompression = $00000040;
- {$EXTERNALSYM PipeFactor_FixedCompression}
- PipeFactor_UnknownCompression = $00000080;
- {$EXTERNALSYM PipeFactor_UnknownCompression}
- PipeFactor_Buffers = $00000100;
- {$EXTERNALSYM PipeFactor_Buffers}
- PipeFactor_Align = $00000200;
- {$EXTERNALSYM PipeFactor_Align}
- PipeFactor_PhysicalEnd = $00000400;
- {$EXTERNALSYM PipeFactor_PhysicalEnd}
- PipeFactor_LogicalEnd = $00000800;
- {$EXTERNALSYM PipeFactor_LogicalEnd}
- type
- PIPE_STATE = (
- PipeState_DontCare,
- PipeState_RangeNotFixed,
- PipeState_RangeFixed,
- PipeState_CompressionUnknown,
- PipeState_Finalized
- );
- {$EXTERNALSYM PIPE_STATE}
- TPipeState = PIPE_STATE;
- //
- // pipe dimensions relative to BeginPin.
- //
- PPipeDimensions = ^TPipeDimensions;
- PIPE_DIMENSIONS = record
- AllocatorPin : TKSCompression;
- MaxExpansionPin : TKSCompression;
- EndPin : TKSCompression;
- end;
- {$EXTERNALSYM PIPE_DIMENSIONS}
- PPIPE_DIMENSIONS = ^PIPE_DIMENSIONS;
- {$EXTERNALSYM PPIPE_DIMENSIONS}
- TPipeDimensions = PIPE_DIMENSIONS;
- PPipeAllocatorPlace = ^TPipeAllocatorPlace;
- PIPE_ALLOCATOR_PLACE = (
- Pipe_Allocator_None,
- Pipe_Allocator_FirstPin,
- Pipe_Allocator_LastPin,
- Pipe_Allocator_MiddlePin
- );
- {$EXTERNALSYM PIPE_ALLOCATOR_PLACE}
- PPIPE_ALLOCATOR_PLACE = ^PIPE_ALLOCATOR_PLACE;
- {$EXTERNALSYM PPIPE_ALLOCATOR_PLACE}
- TPipeAllocatorPlace = PIPE_ALLOCATOR_PLACE;
- PKSLogicalMemoryType = ^TKSLogicalMemoryType;
- KS_LogicalMemoryType = (
- KS_MemoryTypeDontCare,
- KS_MemoryTypeKernelPaged,
- KS_MemoryTypeKernelNonPaged,
- KS_MemoryTypeDeviceHostMapped,
- KS_MemoryTypeDeviceSpecific,
- KS_MemoryTypeUser,
- KS_MemoryTypeAnyHost
- );
- {$EXTERNALSYM KS_LogicalMemoryType}
- PKS_LogicalMemoryType = ^KS_LogicalMemoryType;
- {$EXTERNALSYM PKS_LogicalMemoryType}
- TKSLogicalMemoryType = KS_LogicalMemoryType;
- PIPE_TERMINATION = record
- Flags : ULONG;
- OutsideFactors : ULONG;
- Weigth : ULONG; // outside weight
- PhysicalRange : TKSFramingRange;
- OptimalRange : TKSFramingRangeWeighted;
- Compression : TKSCompression; // relative to the connected pin on a neighboring filter.
- end;
- {$EXTERNALSYM PIPE_TERMINATION}
- TPipeTermination = PIPE_TERMINATION;
- IKsAllocatorEx = interface;
- //
- // extended allocator properties
- //
- PAllocatorPropertiesEx = ^TAllocatorPropertiesEx;
- ALLOCATOR_PROPERTIES_EX = record
- cBuffers : longint;
- cbBuffer : longint;
- cbAlign : longint;
- cbPrefix : longint;
- // new part
- MemoryType : TGUID;
- BusType : TGUID; // one of the buses this pipe is using
- State : TPipeState;
- Input : TPipeTermination;
- Output : TPipeTermination;
- Strategy : ULONG;
- Flags : ULONG;
- Weight : ULONG;
- LogicalMemoryType : TKSLogicalMemoryType;
- AllocatorPlace : TPipeAllocatorPlace;
- Dimensions : TPipeDimensions;
- PhysicalRange : TKSFramingRange; // on allocator pin
- PrevSegment : IKsAllocatorEx; // doubly-linked list of KS allocators
- CountNextSegments : ULONG; // possible multiple dependent pipes
- NextSegments : IKsAllocatorEx;
- InsideFactors : ULONG; // existing factors (different from "don't care")
- NumberPins : ULONG;
- end;
- {$EXTERNALSYM ALLOCATOR_PROPERTIES_EX}
- PALLOCATOR_PROPERTIES_EX =^ALLOCATOR_PROPERTIES_EX;
- {$EXTERNALSYM PALLOCATOR_PROPERTIES_EX}
- TAllocatorPropertiesEx = ALLOCATOR_PROPERTIES_EX;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsClockPropertySet> _di_IKsClockPropertySet;'}
- {$EXTERNALSYM IKsClockPropertySet}
- IKsClockPropertySet = interface(IUnknown)
- ['{5C5CBD84-E755-11D0-AC18-00A0C9223196}']
- (*** IKsClockPropertySet methods ***)
- procedure KsGetTime(out Time: int64); stdcall;
- procedure KsSetTime(Time: int64); stdcall;
- procedure KsGetPhysicalTime(out Time: int64); stdcall;
- procedure KsSetPhysicalTime(Time: int64); stdcall;
- procedure KsGetCorrelatedTime(out CorrelatedTime: TKSCorrelatedTime); stdcall;
- procedure KsSetCorrelatedTime(CorrelatedTime: TKSCorrelatedTime); stdcall;
- procedure KsGetCorrelatedPhysicalTime(out CorrelatedTime: TKSCorrelatedTime); stdcall;
- procedure KsSetCorrelatedPhysicalTime(CorrelatedTime: TKSCorrelatedTime); stdcall;
- procedure KsGetResolution(out Resolution: TKSResolution); stdcall;
- procedure KsGetState(out State: TKSState); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsAllocator> _di_IKsAllocator;'}
- {$EXTERNALSYM IKsAllocator}
- IKsAllocator = interface(IUnknown)
- ['{8da64899-c0d9-11d0-8413-0000f822fe8a}']
- (*** IKsAllocator methods ***)
- function KsGetAllocatorHandle: THandle; stdcall;
- function KsGetAllocatorMode: TKSALLOCATORMODE; stdcall;
- procedure KsGetAllocatorStatus(AllocatorStatus: PKSSTREAMALLOCATOR_STATUS); stdcall;
- procedure KsSetAllocatorMode(Mode: TKSALLOCATORMODE); stdcall;
- end;
- IKsPin = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsAllocatorEx> _di_IKsAllocatorEx;'}
- {$EXTERNALSYM IKsAllocatorEx}
- IKsAllocatorEx = interface(IKsAllocator)
- ['{091bb63a-603f-11d1-b067-00a0c9062802}']
- (*** IKsAllocatorEx methods ***)
- function KsGetProperties: TAllocatorPropertiesEx; stdcall;
- procedure KsSetProperties(PROPERTIES: PALLOCATOR_PROPERTIES_EX); stdcall;
- procedure KsSetAllocatorHandle(AllocatorHandle: THandle); stdcall;
- function KsCreateAllocatorAndGetHandle(KsPin: IKsPin): THandle; stdcall;
- end;
- KSPEEKOPERATION = (
- KsPeekOperation_PeekOnly,
- KsPeekOperation_AddRef
- );
- {$EXTERNALSYM KSPEEKOPERATION}
- TKSPeekOperation = KSPEEKOPERATION;
- IKsInterfaceHandler = interface;
- IKsDataTypeHandler = interface;
- KSIOOPERATION = (
- KsIoOperation_Write,
- KsIoOperation_Read
- );
- {$EXTERNALSYM KSIOOPERATION}
- TKSIOOperation = KSIOOPERATION;
- PKSStreamSegment = ^TKSStreamSegment;
- KSSTREAM_SEGMENT = record
- KsInterfaceHandler : IKsInterfaceHandler;
- KsDataTypeHandler : IKsDataTypeHandler;
- IoOperation : TKSIOOPERATION;
- CompletionEvent : THandle;
- end;
- {$EXTERNALSYM KSSTREAM_SEGMENT}
- PKSSTREAM_SEGMENT = ^KSSTREAM_SEGMENT;
- {$EXTERNALSYM PKSSTREAM_SEGMENT}
- TKSStreamSegment = KSSTREAM_SEGMENT;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsPin> _di_IKsPin;'}
- {$EXTERNALSYM IKsPin}
- IKsPin = interface(IUnknown)
- ['{b61178d1-a2d9-11cf-9e53-00aa00a216a1}']
- (*** IKsPin methods ***)
- // [pjh, 2003-07-14] fix wrong translation
- function KsQueryMediums(out MediumList: PKSMULTIPLE_ITEM): HResult; stdcall;
- function KsQueryInterfaces(InterfaceList: PKSMULTIPLE_ITEM): HResult; stdcall;
- function KsCreateSinkPinHandle(Interface_: TKSPinInterface; Medium: TKSPinMedium): HResult; stdcall;
- function KsGetCurrentCommunication(Communication: PKSPIN_COMMUNICATION;
- Interface_: PKSPIN_INTERFACE; Medium: PKSPIN_MEDIUM): HResult; stdcall;
- function KsPropagateAcquire: HResult; stdcall;
- function KsDeliver(Sample: IMediaSample; Flags: ULONG): HResult; stdcall;
- function KsMediaSamplesCompleted(StreamSegment: PKSSTREAM_SEGMENT): HResult; stdcall;
- function KsPeekAllocator(Operation: TKSPEEKOPERATION): IMemAllocator; stdcall;
- function KsReceiveAllocator(MemAllocator: IMemAllocator): HResult; stdcall;
- function KsRenegotiateAllocator: HResult; stdcall;
- function KsIncrementPendingIoCount: Longint; stdcall;
- function KsDecrementPendingIoCount: Longint; stdcall;
- function KsQualityNotify(Proportion: ULONG; TimeDelta: TReferenceTime): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsPinEx> _di_IKsPinEx;'}
- {$EXTERNALSYM IKsPinEx}
- IKsPinEx = interface(IKsPin)
- ['{7bb38260-d19c-11d2-b38a-00a0c95ec22e}']
- (*** IKsPinEx methods ***)
- procedure KsNotifyError(Sample: IMediaSample; hr: HResult);
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsPinPipe> _di_IKsPinPipe;'}
- {$EXTERNALSYM IKsPinPipe}
- IKsPinPipe = interface(IUnknown)
- ['{e539cd90-a8b4-11d1-8189-00a0c9062802}']
- (*** IKsPinPipe methods ***)
- procedure KsGetPinFramingCache(FramingEx: PKSALLOCATOR_FRAMING_EX;
- FramingProp: PFRAMING_PROP; Option: TFramingCacheOps); stdcall;
- procedure KsSetPinFramingCache(FramingEx: PKSALLOCATOR_FRAMING_EX;
- FramingProp: PFRAMING_PROP; Option: TFramingCacheOps); stdcall;
- function KsGetConnectedPin: IPin; stdcall;
- function KsGetPipe(Operation: TKSPEEKOPERATION): IKsAllocatorEx; stdcall;
- procedure KsSetPipe(KsAllocator: IKsAllocatorEx); stdcall;
- function KsGetPipeAllocatorFlag: ULONG; stdcall;
- procedure KsSetPipeAllocatorFlag(Flag: ULONG); stdcall;
- function KsGetPinBusCache: TGUID; stdcall;
- procedure KsSetPinBusCache(const Bus: TGUID); stdcall;
- // very useful methods for tracing.
- function KsGetPinName: PWideChar; stdcall;
- function KsGetFilterName: PWideChar; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsPinFactory> _di_IKsPinFactory;'}
- {$EXTERNALSYM IKsPinFactory}
- IKsPinFactory = interface(IUnknown)
- ['{CD5EBE6B-8B6E-11D1-8AE0-00A0C9223196}']
- (*** IKsPinFactory methods ***)
- procedure KsPinFactory(PinFactory: PULONG); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsDataTypeHandler> _di_IKsDataTypeHandler;'}
- {$EXTERNALSYM IKsDataTypeHandler}
- IKsDataTypeHandler = interface(IUnknown)
- ['{5ffbaa02-49a3-11d0-9f36-00aa00a216a1}']
- (*** IKsDataTypeHandler methods ***)
- procedure KsCompleteIoOperation(Sample: IMediaSample; StreamHeader: Pointer;
- IoOperation: TKSIOOPERATION; Cancelled: BOOL); stdcall;
- procedure KsIsMediaTypeInRanges(DataRanges: Pointer); stdcall;
- procedure KsPrepareIoOperation(Sample: IMediaSample; StreamHeader: Pointer;
- IoOperation: TKSIOOPERATION); stdcall;
- procedure KsQueryExtendedSize(var ExtendedSize: ULONG); stdcall;
- procedure KsSetMediaType(const AmMediaType: TAMMediaType); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsDataTypeCompletion> _di_IKsDataTypeCompletion;'}
- {$EXTERNALSYM IKsDataTypeCompletion}
- IKsDataTypeCompletion = interface(IUnknown)
- ['{827D1A0E-0F73-11D2-B27A-00A0C9223196}']
- (*** IKsDataTypeCompletion methods ***)
- procedure KsCompleteMediaType(FilterHandle: THandle; PinFactoryId: ULONG;
- var AmMediaType: TAMMediaType); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsInterfaceHandler> _di_IKsInterfaceHandler;'}
- {$EXTERNALSYM IKsInterfaceHandler}
- IKsInterfaceHandler = interface(IUnknown)
- ['{D3ABC7E0-9A61-11d0-A40D-00A0C9223196}']
- (*** IKsInterfaceHandler methods ***)
- procedure KsSetPin(KsPin: IKsPin); stdcall;
- procedure KsProcessMediaSamples(KsDataTypeHandler: IKsDataTypeHandler;
- SampleList: IMediaSample; SampleCount: PLongint;
- IoOperation: TKSIOOPERATION; StreamSegment: PKSSTREAM_SEGMENT); stdcall;
- procedure KsCompleteIo(StreamSegment: PKSSTREAM_SEGMENT); stdcall;
- end;
- //
- // This structure definition is the common header required by the proxy to
- // dispatch the stream segment to the interface handler. Interface handlers
- // will create extended structures to include other information such as
- // media samples, extended header size and so on.
- {$HPPEMIT 'typedef System::DelphiInterface<IKsObject> _di_IKsObject;'}
- {$EXTERNALSYM IKsObject}
- IKsObject = interface(IUnknown)
- ['{423c13a2-2070-11d0-9ef7-00aa00a216a1}']
- (*** IKsObject methods ***)
- function KsGetObjectHandle: THandle; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsQualityForwarder> _di_IKsQualityForwarder;'}
- {$EXTERNALSYM IKsQualityForwarder}
- IKsQualityForwarder = interface(IUnknown)
- ['{97ebaacb-95bd-11d0-a3ea-00a0c9223196}']
- (*** IKsQualityForwarder methods ***)
- procedure KsFlushClient(Pin: IKsPin); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsNotifyEvent> _di_IKsNotifyEvent;'}
- {$EXTERNALSYM IKsNotifyEvent}
- IKsNotifyEvent = interface(IUnknown)
- ['{412bd695-f84b-46c1-ac73-54196dbc8fa7}']
- (*** IKsNotifyEvent methods ***)
- procedure KsNotifyEvent(Event,lParam1, lParam2: ULONG); stdcall;
- end;
- function KsResolveRequiredAttributes(DataRange: PKSDATARANGE;
- {OPTIONAL}Attributes: PKSMULTIPLE_ITEM): HResult; stdcall;
- {$EXTERNALSYM KsResolveRequiredAttributes}
- function KsOpenDefaultDevice(Category: TGUID; Access: ACCESS_MASK;
- DeviceHandle: PHANDLE): HResult; stdcall;
- {$EXTERNALSYM KsOpenDefaultDevice}
- function KsSynchronousDeviceControl(Handle: THandle; IoControl: ULONG;
- InBuffer: Pointer; InLength: ULONG; OutBuffer: Pointer;
- OutLength: ULONG; BytesReturned: PULONG): HResult; stdcall;
- {$EXTERNALSYM KsSynchronousDeviceControl}
- function KsGetMultiplePinFactoryItems(FilterHandle: THandle; PinFactoryId: ULONG;
- PropertyId: ULONG; Items: Pointer): HResult; stdcall;
- {$EXTERNALSYM KsGetMultiplePinFactoryItems}
- function KsGetMediaTypeCount(FilterHandle: THandle; PinFactoryId: ULONG;
- out MediaTypeCount: ULONG): HResult; stdcall;
- {$EXTERNALSYM KsGetMediaTypeCount}
- function KsGetMediaType(Position: integer; out AmMediaType: TAMMediaType;
- FilterHandle: THandle; PinFactoryId: ULONG): HResult; stdcall;
- {$EXTERNALSYM KsGetMediaType}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IKsAggregateControl> _di_IKsAggregateControl;'}
- {$EXTERNALSYM IKsAggregateControl}
- IKsAggregateControl = interface(IUnknown)
- ['{7F40EAC0-3947-11D2-874E-00A0C9223196}']
- (*** IKsAggregateControl methods ***)
- procedure KsAddAggregate(const AggregateClass: TGUID); stdcall;
- procedure KsRemoveAggregate(const AggregateClass: TGUID); stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IKsTopology> _di_IKsTopology;'}
- {$EXTERNALSYM IKsTopology}
- IKsTopology = interface(IUnknown)
- ['{28F54683-06FD-11D2-B27A-00A0C9223196}']
- (*** IKsTopology methods ***)
- procedure CreateNodeInstance(NodeId: ULONG; Flags: ULONG; DesiredAccess: ACCESS_MASK;
- {OPTIONAL}UnkOuter: IUnknown; const InterfaceId: TGUID; out Interface_); stdcall;
- end;
- {*****************************************************************************
- * Copyright (C) Microsoft Corporation, 1996 - 2000 *
- * *
- * Module Name: ksmedia.h *
- * *
- * Abstract: WDM-CSA Multimedia Definitions. *
- * *
- *****************************************************************************}
- PKSMultipleDataProp = ^TKSMultipleDataProp;
- KSMULTIPLE_DATA_PROP = record
- Property_ : KSPROPERTY;
- MultipleItem : TKSMultipleItem;
- end;
- {$EXTERNALSYM KSMULTIPLE_DATA_PROP}
- PKSMULTIPLE_DATA_PROP = ^KSMULTIPLE_DATA_PROP;
- {$EXTERNALSYM PKSMULTIPLE_DATA_PROP}
- TKSMultipleDataProp = KSMULTIPLE_DATA_PROP;
- const
- KSMEDIUMSETID_MidiBus : TGUID = '{05908040-3246-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSMEDIUMSETID_MidiBus}
- KSMEDIUMSETID_VPBus : TGUID = '{A18C15EC-CE43-11D0-ABE7-00A0C9223196}';
- {$EXTERNALSYM KSMEDIUMSETID_VPBus}
- KSINTERFACESETID_Media : TGUID = '{3A13EB40-30A7-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSINTERFACESETID_Media}
- type
- KSINTERFACE_MEDIA = (
- KSINTERFACE_MEDIA_MUSIC,
- KSINTERFACE_MEDIA_WAVE_BUFFERED,
- KSINTERFACE_MEDIA_WAVE_QUEUED
- );
- {$EXTERNALSYM KSINTERFACE_MEDIA}
- TKSInterfaceMedia = KSINTERFACE_MEDIA;
- // USB Terminals
- //#define INIT_USB_TERMINAL(guid, id)\
- {\
- (guid)->Data1 = 0xDFF219E0 + (USHORT)(id);\
- (guid)->Data2 = 0xF70F;\
- (guid)->Data3 = 0x11D0;\
- (guid)->Data4[0] = 0xb9;\
- (guid)->Data4[1] = 0x17;\
- (guid)->Data4[2] = 0x00;\
- (guid)->Data4[3] = 0xa0;\
- (guid)->Data4[4] = 0xc9;\
- (guid)->Data4[5] = 0x22;\
- (guid)->Data4[6] = 0x31;\
- (guid)->Data4[7] = 0x96;\
- }
- {#define EXTRACT_USB_TERMINAL(guid)\
- (USHORT)((guid)->Data1 - 0xDFF219E0)
- #define DEFINE_USB_TERMINAL_GUID(id)\
- 0xDFF219E0+(USHORT)(id), 0xF70F, 0x11D0, 0xB9, 0x17, 0x00, 0xA0, 0xC9, 0x22, 0x31, 0x96}
- const
- KSNODETYPE_MICROPHONE : TGUID = '{DFF21BE1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_MICROPHONE}
- KSNODETYPE_DESKTOP_MICROPHONE : TGUID = '{DFF21BE2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DESKTOP_MICROPHONE}
- KSNODETYPE_PERSONAL_MICROPHONE : TGUID = '{DFF21BE3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_PERSONAL_MICROPHONE}
- KSNODETYPE_OMNI_DIRECTIONAL_MICROPHONE : TGUID = '{DFF21BE4-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_OMNI_DIRECTIONAL_MICROPHONE}
- KSNODETYPE_MICROPHONE_ARRAY : TGUID = '{DFF21BE5-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_MICROPHONE_ARRAY}
- KSNODETYPE_PROCESSING_MICROPHONE_ARRAY : TGUID = '{DFF21BE6-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_PROCESSING_MICROPHONE_ARRAY}
- KSCATEGORY_MICROPHONE_ARRAY_PROCESSOR : TGUID = '{830a44f2-a32d-476b-be97-42845673b35a}';
- {$EXTERNALSYM KSCATEGORY_MICROPHONE_ARRAY_PROCESSOR}
- KSNODETYPE_SPEAKER : TGUID = '{DFF21CE1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_SPEAKER}
- KSNODETYPE_HEADPHONES : TGUID = '{DFF21CE2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_HEADPHONES}
- KSNODETYPE_HEAD_MOUNTED_DISPLAY_AUDIO : TGUID = '{DFF21CE3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_HEAD_MOUNTED_DISPLAY_AUDIO}
- KSNODETYPE_DESKTOP_SPEAKER : TGUID = '{DFF21CE4-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DESKTOP_SPEAKER}
- KSNODETYPE_ROOM_SPEAKER : TGUID = '{DFF21CE5-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_ROOM_SPEAKER}
- KSNODETYPE_COMMUNICATION_SPEAKER : TGUID = '{DFF21CE6-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_COMMUNICATION_SPEAKER}
- KSNODETYPE_LOW_FREQUENCY_EFFECTS_SPEAKER : TGUID = '{DFF21CE7-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_LOW_FREQUENCY_EFFECTS_SPEAKER}
- KSNODETYPE_HANDSET : TGUID = '{DFF21DE1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_HANDSET}
- KSNODETYPE_HEADSET : TGUID = '{DFF21DE2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_HEADSET}
- KSNODETYPE_SPEAKERPHONE_NO_ECHO_REDUCTION : TGUID = '{DFF21DE3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_SPEAKERPHONE_NO_ECHO_REDUCTION}
- KSNODETYPE_ECHO_SUPPRESSING_SPEAKERPHONE : TGUID = '{DFF21DE4-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_ECHO_SUPPRESSING_SPEAKERPHONE}
- KSNODETYPE_ECHO_CANCELING_SPEAKERPHONE : TGUID = '{DFF21DE5-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_ECHO_CANCELING_SPEAKERPHONE}
- KSNODETYPE_PHONE_LINE : TGUID = '{DFF21EE1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_PHONE_LINE}
- KSNODETYPE_TELEPHONE : TGUID = '{DFF21EE2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_TELEPHONE}
- KSNODETYPE_DOWN_LINE_PHONE : TGUID = '{DFF21EE3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DOWN_LINE_PHONE}
- KSNODETYPE_ANALOG_CONNECTOR : TGUID = '{DFF21FE1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_ANALOG_CONNECTOR}
- KSNODETYPE_DIGITAL_AUDIO_INTERFACE : TGUID = '{DFF21FE2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DIGITAL_AUDIO_INTERFACE}
- KSNODETYPE_LINE_CONNECTOR : TGUID = '{DFF21FE3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_LINE_CONNECTOR}
- KSNODETYPE_LEGACY_AUDIO_CONNECTOR : TGUID = '{DFF21FE4-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_LEGACY_AUDIO_CONNECTOR}
- KSNODETYPE_SPDIF_INTERFACE : TGUID = '{DFF21FE5-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_SPDIF_INTERFACE}
- KSNODETYPE_1394_DA_STREAM : TGUID = '{DFF21FE6-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_1394_DA_STREAM}
- KSNODETYPE_1394_DV_STREAM_SOUNDTRACK : TGUID = '{DFF21FE7-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_1394_DV_STREAM_SOUNDTRACK}
- KSNODETYPE_LEVEL_CALIBRATION_NOISE_SOURCE : TGUID = '{DFF220E1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_LEVEL_CALIBRATION_NOISE_SOURCE}
- KSNODETYPE_EQUALIZATION_NOISE : TGUID = '{DFF220E2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_EQUALIZATION_NOISE}
- KSNODETYPE_CD_PLAYER : TGUID = '{DFF220E3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_CD_PLAYER}
- KSNODETYPE_DAT_IO_DIGITAL_AUDIO_TAPE : TGUID = '{DFF220E4-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DAT_IO_DIGITAL_AUDIO_TAPE}
- KSNODETYPE_DCC_IO_DIGITAL_COMPACT_CASSETTE : TGUID = '{DFF220E5-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DCC_IO_DIGITAL_COMPACT_CASSETTE}
- KSNODETYPE_MINIDISK : TGUID = '{DFF220E6-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_MINIDISK}
- KSNODETYPE_ANALOG_TAPE : TGUID = '{DFF220E7-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_ANALOG_TAPE}
- KSNODETYPE_PHONOGRAPH : TGUID = '{DFF220E8-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_PHONOGRAPH}
- KSNODETYPE_VCR_AUDIO : TGUID = '{DFF220E9-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VCR_AUDIO}
- KSNODETYPE_VIDEO_DISC_AUDIO : TGUID = '{DFF220EA-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_DISC_AUDIO}
- KSNODETYPE_DVD_AUDIO : TGUID = '{DFF220EB-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DVD_AUDIO}
- KSNODETYPE_TV_TUNER_AUDIO : TGUID = '{DFF220EC-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_TV_TUNER_AUDIO}
- KSNODETYPE_SATELLITE_RECEIVER_AUDIO : TGUID = '{DFF220ED-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_SATELLITE_RECEIVER_AUDIO}
- KSNODETYPE_CABLE_TUNER_AUDIO : TGUID = '{DFF220EE-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_CABLE_TUNER_AUDIO}
- KSNODETYPE_DSS_AUDIO : TGUID = '{DFF220EF-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_DSS_AUDIO}
- KSNODETYPE_RADIO_RECEIVER : TGUID = '{DFF220F0-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_RADIO_RECEIVER}
- KSNODETYPE_RADIO_TRANSMITTER : TGUID = '{DFF220F1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_RADIO_TRANSMITTER}
- KSNODETYPE_MULTITRACK_RECORDER : TGUID = '{DFF220F2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_MULTITRACK_RECORDER}
- KSNODETYPE_SYNTHESIZER : TGUID = '{DFF220F3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_SYNTHESIZER}
- // Microsoft's WDMAUD virtual swsynth pin name guid
- KSNODETYPE_SWSYNTH : TGUID = '{423274A0-8B81-11D1-A050-0000F8004788}';
- {$EXTERNALSYM KSNODETYPE_SWSYNTH}
- // Microsoft's SWMIDI midi pin and node name guid
- KSNODETYPE_SWMIDI : TGUID = '{CB9BEFA0-A251-11D1-A050-0000F8004788}';
- {$EXTERNALSYM KSNODETYPE_SWMIDI}
- KSNODETYPE_DRM_DESCRAMBLE : TGUID = '{FFBB6E3F-CCFE-4D84-90D9-421418B03A8E}';
- {$EXTERNALSYM KSNODETYPE_DRM_DESCRAMBLE}
- // General categories
- KSCATEGORY_AUDIO : TGUID = '{6994AD04-93EF-11D0-A3CC-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_AUDIO}
- KSCATEGORY_VIDEO : TGUID = '{6994AD05-93EF-11D0-A3CC-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_VIDEO}
- KSCATEGORY_TEXT : TGUID = '{6994AD06-93EF-11D0-A3CC-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_TEXT}
- KSCATEGORY_NETWORK : TGUID = '{67C9CC3C-69C4-11D2-8759-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_NETWORK}
- KSCATEGORY_TOPOLOGY : TGUID = '{DDA54A40-1E4C-11D1-A050-405705C10000}';
- {$EXTERNALSYM KSCATEGORY_TOPOLOGY}
- KSCATEGORY_VIRTUAL : TGUID = '{3503EAC4-1F26-11D1-8AB0-00A0C9223196}';
- {$EXTERNALSYM KSCATEGORY_VIRTUAL}
- KSCATEGORY_ACOUSTIC_ECHO_CANCEL : TGUID = '{BF963D80-C559-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSCATEGORY_ACOUSTIC_ECHO_CANCEL}
- KSCATEGORY_SYSAUDIO : TGUID = '{A7C7A5B1-5AF3-11D1-9CED-00A024BF0407}';
- {$EXTERNALSYM KSCATEGORY_SYSAUDIO}
- KSCATEGORY_WDMAUD : TGUID = '{3E227E76-690D-11D2-8161-0000F8775BF1}';
- {$EXTERNALSYM KSCATEGORY_WDMAUD}
- KSCATEGORY_AUDIO_GFX : TGUID = '{9BAF9572-340C-11D3-ABDC-00A0C90AB16F}';
- {$EXTERNALSYM KSCATEGORY_AUDIO_GFX}
- KSCATEGORY_AUDIO_SPLITTER : TGUID = '{9EA331FA-B91B-45F8-9285-BD2BC77AFCDE}';
- {$EXTERNALSYM KSCATEGORY_AUDIO_SPLITTER}
- KSCATEGORY_SYNTHESIZER : TGUID = '{DFF220F3-F70F-11D0-B917-00A0C9223196}'; //KSNODETYPE_SYNTHESIZER
- {$EXTERNALSYM KSCATEGORY_SYNTHESIZER}
- KSCATEGORY_DRM_DESCRAMBLE : TGUID = '{FFBB6E3F-CCFE-4D84-90D9-421418B03A8E}'; //KSNODETYPE_DRM_DESCRAMBLE
- {$EXTERNALSYM KSCATEGORY_DRM_DESCRAMBLE}
- KSCATEGORY_AUDIO_DEVICE : TGUID = '{FBF6F530-07B9-11D2-A71E-0000F8004788}';
- {$EXTERNALSYM KSCATEGORY_AUDIO_DEVICE}
- KSCATEGORY_PREFERRED_WAVEOUT_DEVICE : TGUID = '{D6C5066E-72C1-11D2-9755-0000F8004788}';
- {$EXTERNALSYM KSCATEGORY_PREFERRED_WAVEOUT_DEVICE}
- KSCATEGORY_PREFERRED_WAVEIN_DEVICE : TGUID = '{D6C50671-72C1-11D2-9755-0000F8004788}';
- {$EXTERNALSYM KSCATEGORY_PREFERRED_WAVEIN_DEVICE}
- KSCATEGORY_PREFERRED_MIDIOUT_DEVICE : TGUID = '{D6C50674-72C1-11D2-9755-0000F8004788}';
- {$EXTERNALSYM KSCATEGORY_PREFERRED_MIDIOUT_DEVICE}
- // Special pin category for wdmaud
- KSCATEGORY_WDMAUD_USE_PIN_NAME : TGUID = '{47A4FA20-A251-11D1-A050-0000F8004788}';
- {$EXTERNALSYM KSCATEGORY_WDMAUD_USE_PIN_NAME}
- // Escalante Platform Interface
- KSCATEGORY_ESCALANTE_PLATFORM_DRIVER : TGUID = '{74f3aea8-9768-11d1-8e07-00a0c95ec22e}';
- {$EXTERNALSYM KSCATEGORY_ESCALANTE_PLATFORM_DRIVER}
- // -- major types ---
- // 'vids' == MEDIATYPE_Video,
- KSDATAFORMAT_TYPE_VIDEO : TGUID = '{73646976-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_VIDEO}
- // 'auds' == MEDIATYPE_Audio
- KSDATAFORMAT_TYPE_AUDIO : TGUID = '{73647561-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_AUDIO}
- // 'txts' == MEDIATYPE_Text
- KSDATAFORMAT_TYPE_TEXT : TGUID = '{73747874-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_TEXT}
- {#if !defined( DEFINE_WAVEFORMATEX_GUID )
- #define DEFINE_WAVEFORMATEX_GUID(x) (USHORT)(x), 0x0000, 0x0010, 0x80, 0x00, 0x00, 0xaa, 0x00, 0x38, 0x9b, 0x71
- #endif}
- KSDATAFORMAT_SUBTYPE_WAVEFORMATEX : TGUID = '{00000000-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_WAVEFORMATEX}
- //#define INIT_WAVEFORMATEX_GUID(Guid, x)\
- {\
- *(Guid) = KSDATAFORMAT_SUBTYPE_WAVEFORMATEX;\
- (Guid)->Data1 = (USHORT)(x);\
- }
- {#define EXTRACT_WAVEFORMATEX_ID(Guid)\
- (USHORT)((Guid)->Data1)
- #define IS_VALID_WAVEFORMATEX_GUID(Guid)\
- (!memcmp(((PUSHORT)&KSDATAFORMAT_SUBTYPE_WAVEFORMATEX) + 1, ((PUSHORT)(Guid)) + 1, sizeof(GUID) - sizeof(USHORT)))
- #if !defined(INIT_MMREG_MID)}
- //{d5a47fa7-6d98-11d1-a21a-00a0c9223196}
- //#define INIT_MMREG_MID(guid, id)\
- {\
- (guid)->Data1 = 0xd5a47fa7 + (USHORT)(id);\
- (guid)->Data2 = 0x6d98;\
- (guid)->Data3 = 0x11d1;\
- (guid)->Data4[0] = 0xa2;\
- (guid)->Data4[1] = 0x1a;\
- (guid)->Data4[2] = 0x00;\
- (guid)->Data4[3] = 0xa0;\
- (guid)->Data4[4] = 0xc9;\
- (guid)->Data4[5] = 0x22;\
- (guid)->Data4[6] = 0x31;\
- (guid)->Data4[7] = 0x96;\
- }
- {#define EXTRACT_MMREG_MID(guid)\
- (USHORT)((guid)->Data1 - 0xd5a47fa7)
- #define DEFINE_MMREG_MID_GUID(id)\
- 0xd5a47fa7+(USHORT)(id), 0x6d98, 0x11d1, 0xa2, 0x1a, 0x00, 0xa0, 0xc9, 0x22, 0x31, 0x96
- #define IS_COMPATIBLE_MMREG_MID(guid)\
- (((guid)->Data1 >= 0xd5a47fa7) &&\
- ((guid)->Data1 < 0xd5a47fa7 + 0xffff) &&\
- ((guid)->Data2 == 0x6d98) &&\
- ((guid)->Data3 == 0x11d1) &&\
- ((guid)->Data4[0] == 0xa2) &&\
- ((guid)->Data4[1] == 0x1a) &&\
- ((guid)->Data4[2] == 0x00) &&\
- ((guid)->Data4[3] == 0xa0) &&\
- ((guid)->Data4[4] == 0xc9) &&\
- ((guid)->Data4[5] == 0x22) &&\
- ((guid)->Data4[6] == 0x31) &&\
- ((guid)->Data4[7] == 0x96))
- #endif // !defined(INIT_MMREG_MID)
- #if !defined(INIT_MMREG_PID)
- //{e36dc2ac-6d9a-11d1-a21a-00a0c9223196}
- //#define INIT_MMREG_PID(guid, id)\
- {\
- (guid)->Data1 = 0xe36dc2ac + (USHORT)(id);\
- (guid)->Data2 = 0x6d9a;\
- (guid)->Data3 = 0x11d1;\
- (guid)->Data4[0] = 0xa2;\
- (guid)->Data4[1] = 0x1a;\
- (guid)->Data4[2] = 0x00;\
- (guid)->Data4[3] = 0xa0;\
- (guid)->Data4[4] = 0xc9;\
- (guid)->Data4[5] = 0x22;\
- (guid)->Data4[6] = 0x31;\
- (guid)->Data4[7] = 0x96;\
- }
- {#define EXTRACT_MMREG_PID(guid)\
- (USHORT)((guid)->Data1 - 0xe36dc2ac)
- #define DEFINE_MMREG_PID_GUID(id)\
- 0xe36dc2ac+(USHORT)(id), 0x6d9a, 0x11d1, 0xa2, 0x1a, 0x00, 0xa0, 0xc9, 0x22, 0x31, 0x96
- #define IS_COMPATIBLE_MMREG_PID(guid)\
- (((guid)->Data1 >= 0xe36dc2ac) &&\
- ((guid)->Data1 < 0xe36dc2ac + 0xffff) &&\
- ((guid)->Data2 == 0x6d9a) &&\
- ((guid)->Data3 == 0x11d1) &&\
- ((guid)->Data4[0] == 0xa2) &&\
- ((guid)->Data4[1] == 0x1a) &&\
- ((guid)->Data4[2] == 0x00) &&\
- ((guid)->Data4[3] == 0xa0) &&\
- ((guid)->Data4[4] == 0xc9) &&\
- ((guid)->Data4[5] == 0x22) &&\
- ((guid)->Data4[6] == 0x31) &&\
- ((guid)->Data4[7] == 0x96))
- #endif // !defined(INIT_MMREG_PID)}
- KSDATAFORMAT_SUBTYPE_ANALOG : TGUID = '{6dba3190-67bd-11cf-a0f7-0020afd156e4}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_ANALOG}
- KSDATAFORMAT_SUBTYPE_PCM : TGUID = '{00000001-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_PCM}
- KSDATAFORMAT_SUBTYPE_IEEE_FLOAT : TGUID = '{00000003-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_IEEE_FLOAT}
- KSDATAFORMAT_SUBTYPE_DRM : TGUID = '{00000009-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_DRM}
- KSDATAFORMAT_SUBTYPE_ALAW : TGUID = '{00000006-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_ALAW}
- KSDATAFORMAT_SUBTYPE_MULAW : TGUID = '{00000007-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MULAW}
- KSDATAFORMAT_SUBTYPE_ADPCM : TGUID = '{00000002-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_ADPCM}
- KSDATAFORMAT_SUBTYPE_MPEG : TGUID = '{00000050-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MPEG}
- KSDATAFORMAT_SPECIFIER_VC_ID : TGUID = '{AD98D184-AAC3-11D0-A41C-00A0C9223196}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_VC_ID}
- KSDATAFORMAT_SPECIFIER_WAVEFORMATEX : TGUID = '{05589f81-c356-11ce-bf01-00aa0055595a}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_WAVEFORMATEX}
- KSDATAFORMAT_SPECIFIER_DSOUND : TGUID = '{518590a2-a184-11d0-8522-00c04fd9baf3}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_DSOUND}
- type
- PKSDataFormatWaveFormatEx = ^TKSDataFormatWaveFormatEx;
- KSDATAFORMAT_WAVEFORMATEX = record
- DataFormat : TKSDATAFORMAT;
- WaveFormatEx : TWAVEFORMATEX;
- end;
- {$EXTERNALSYM KSDATAFORMAT_WAVEFORMATEX}
- PKSDATAFORMAT_WAVEFORMATEX = ^KSDATAFORMAT_WAVEFORMATEX;
- {$EXTERNALSYM PKSDATAFORMAT_WAVEFORMATEX}
- TKSDataFormatWaveFormatEx = KSDATAFORMAT_WAVEFORMATEX;
- //
- // The WAVEFORMATEXTENSIBLE structure defines the format of waveform-audio data for formats having more than two channels.
- // This structure is part of the Platform SDK and is not declared in Dsound.h. It is included here for convenience.
- //
- TWaveFormatExtensibleSamples = record
- case byte of
- 0: (wValidBitsPerSample : Word); // bits of precision
- 1: (wSamplesPerBlock : Word); // valid if wBitsPerSample = 0
- 2: (wReserved : Word); // If neither applies, set to zero.
- end;
- {$EXTERNALSYM TWaveFormatExtensibleSamples}
- PWaveFormatExtensible = ^TWaveFormatExtensible;
- WAVEFORMATEXTENSIBLE = record
- Format: TWaveFormatEx;
- Samples: TWaveFormatExtensibleSamples;
- dwChannelMask : DWORD; // which channels are present in stream
- SubFormat : TGUID;
- end;
- {$EXTERNALSYM WAVEFORMATEXTENSIBLE}
- TWaveFormatExtensible = WAVEFORMATEXTENSIBLE;
- const
- WAVE_FORMAT_EXTENSIBLE = $FFFE;
- {$EXTERNALSYM WAVE_FORMAT_EXTENSIBLE}
- type
- // DirectSound buffer description
- PKSDSoundBufferDesc = ^TKSDSoundBufferDesc;
- KSDSOUND_BUFFERDESC = record
- Flags : ULONG;
- Control : ULONG;
- WaveFormatEx : TWAVEFORMATEX;
- end;
- {$EXTERNALSYM KSDSOUND_BUFFERDESC}
- PKSDSOUND_BUFFERDESC = ^KSDSOUND_BUFFERDESC;
- {$EXTERNALSYM PKSDSOUND_BUFFERDESC}
- TKSDSoundBufferDesc = KSDSOUND_BUFFERDESC;
- // DirectSound format
- PKSDataFormatDSound = ^TKSDataFormatDSound;
- KSDATAFORMAT_DSOUND = record
- DataFormat :TKSDataFormat;
- BufferDesc :TKSDSoundBufferDesc;
- end;
- {$EXTERNALSYM KSDATAFORMAT_DSOUND}
- PKSDATAFORMAT_DSOUND = ^KSDATAFORMAT_DSOUND;
- {$EXTERNALSYM PKSDATAFORMAT_DSOUND}
- TKSDataFormatDSound = KSDATAFORMAT_DSOUND;
- const
- // DirectSound buffer flags
- KSDSOUND_BUFFER_PRIMARY = $00000001;
- {$EXTERNALSYM KSDSOUND_BUFFER_PRIMARY}
- KSDSOUND_BUFFER_STATIC = $00000002;
- {$EXTERNALSYM KSDSOUND_BUFFER_STATIC}
- KSDSOUND_BUFFER_LOCHARDWARE = $00000004;
- {$EXTERNALSYM KSDSOUND_BUFFER_LOCHARDWARE}
- KSDSOUND_BUFFER_LOCSOFTWARE = $00000008;
- {$EXTERNALSYM KSDSOUND_BUFFER_LOCSOFTWARE}
- // DirectSound buffer control flags
- KSDSOUND_BUFFER_CTRL_3D = $00000001;
- {$EXTERNALSYM KSDSOUND_BUFFER_CTRL_3D}
- KSDSOUND_BUFFER_CTRL_FREQUENCY = $00000002;
- {$EXTERNALSYM KSDSOUND_BUFFER_CTRL_FREQUENCY}
- KSDSOUND_BUFFER_CTRL_PAN = $00000004;
- {$EXTERNALSYM KSDSOUND_BUFFER_CTRL_PAN}
- KSDSOUND_BUFFER_CTRL_VOLUME = $00000008;
- {$EXTERNALSYM KSDSOUND_BUFFER_CTRL_VOLUME}
- KSDSOUND_BUFFER_CTRL_POSITIONNOTIFY = $00000010;
- {$EXTERNALSYM KSDSOUND_BUFFER_CTRL_POSITIONNOTIFY}
- KSDSOUND_BUFFER_CTRL_HRTF_3D = $40000000;
- {$EXTERNALSYM KSDSOUND_BUFFER_CTRL_HRTF_3D}
- type
- PKSAudioPosition = ^TKSAudioPosition;
- KSAUDIO_POSITION = record
- PlayOffset :int64;
- WriteOffset :int64;
- end;
- {$EXTERNALSYM KSAUDIO_POSITION}
- PKSAUDIO_POSITION = ^KSAUDIO_POSITION;
- {$EXTERNALSYM PKSAUDIO_POSITION}
- TKSAudioPosition = KSAUDIO_POSITION;
- // DirectSound3D FIR context
- // PKSDS3DITDParams = ^TKSDS3DITDParams;
- // KSDS3D_ITD_PARAMS = record
- // Channel : longint;
- // VolSmoothScale : single;
- // TotalDryAttenuation : single;
- // TotalWetAttenuation : single;
- // SmoothFrequency : longint;
- // Delay : longint;
- // end;
- // {$EXTERNALSYM KSDS3D_ITD_PARAMS}
- // PKSDS3D_ITD_PARAMS = ^KSDS3D_ITD_PARAMS;
- // {$EXTERNALSYM PKSDS3D_ITD_PARAMS}
- // TKSDS3DITDParams = KSDS3D_ITD_PARAMS;
- // PKSDS3DITDParamsMsg = ^TKSDS3DITDParamsMsg;
- // KSDS3D_ITD_PARAMS_MSG = record
- // Enabled :ULONG;
- // LeftParams :TKSDS3DITDParams;
- // RightParams :TKSDS3DITDParams;
- // Reserved :ULONG;
- // end;
- // {$EXTERNALSYM KSDS3D_ITD_PARAMS_MSG}
- // PKSDS3D_ITD_PARAMS_MSG = ^KSDS3D_ITD_PARAMS_MSG;
- // {$EXTERNALSYM PKSDS3D_ITD_PARAMS_MSG}
- // TKSDS3DITDParamsMsg = KSDS3D_ITD_PARAMS_MSG;
- // DirectSound3D HRTF messages
- // PKSDS3DHRTFParamsMsg = ^TKSDS3DHRTFParamsMsg;
- // KSDS3D_HRTF_PARAMS_MSG = record
- // Size :ULONG; // This is the size of the struct in bytes
- // Enabled :ULONG;
- // SwapChannels :BOOL;
- // ZeroAzimuth :BOOL;
- // CrossFadeOutput :BOOL;
- // FilterSize :ULONG; // This is the additional size of the filter coeff in bytes
- // end;
- // {$EXTERNALSYM KSDS3D_HRTF_PARAMS_MSG}
- // PKSDS3D_HRTF_PARAMS_MSG = ^KSDS3D_HRTF_PARAMS_MSG;
- // {$EXTERNALSYM PKSDS3D_HRTF_PARAMS_MSG}
- // TKSDS3DHRTFParamsMsg = KSDS3D_HRTF_PARAMS_MSG;
- // HRTF filter quality levels
- // KSDS3D_HRTF_FILTER_QUALITY = (
- // FULL_FILTER,
- // LIGHT_FILTER,
- // KSDS3D_FILTER_QUALITY_COUNT
- // );
- // {$EXTERNALSYM KSDS3D_HRTF_FILTER_QUALITY}
- // TKSDS3DHRTFFilterQuality = KSDS3D_HRTF_FILTER_QUALITY;
- // PKSDS3DHRTFInitMsg = ^TKSDS3DHRTFInitMsg;
- // KSDS3D_HRTF_INIT_MSG = record
- // Size : ULONG; // This is the size of the struct in bytes
- // Quality : TKSDS3DHRTFFilterQuality;
- // SampleRate : single;
- // MaxFilterSize : ULONG;
- // FilterTransientMuteLength : ULONG;
- // FilterOverlapBufferLength : ULONG;
- // OutputOverlapBufferLength : ULONG;
- // Reserved : ULONG;
- // end;
- // {$EXTERNALSYM KSDS3D_HRTF_INIT_MSG}
- // PKSDS3D_HRTF_INIT_MSG = ^KSDS3D_HRTF_INIT_MSG;
- // {$EXTERNALSYM PKSDS3D_HRTF_INIT_MSG}
- // TKSDS3DHRTFInitMsg = KSDS3D_HRTF_INIT_MSG;
- // Coefficient formats
- // KSDS3D_HRTF_COEFF_FORMAT = (
- // FLOAT_COEFF,
- // SHORT_COEFF,
- // KSDS3D_COEFF_COUNT
- // );
- // {$EXTERNALSYM KSDS3D_HRTF_COEFF_FORMAT}
- // TKSDS3DHRTFCoeffFormat = KSDS3D_HRTF_COEFF_FORMAT;
- //// Filter methods
- // KSDS3D_HRTF_FILTER_METHOD = (
- // DIRECT_FORM,
- // CASCADE_FORM,
- // KSDS3D_FILTER_METHOD_COUNT
- // );
- // {$EXTERNALSYM KSDS3D_HRTF_FILTER_METHOD}
- // TKSDS3DHRTFFilterMethod = KSDS3D_HRTF_FILTER_METHOD;
- // Filter methods
- // KSDS3D_HRTF_FILTER_VERSION = (
- // DS3D_HRTF_VERSION_1
- // );
- // {$EXTERNALSYM KSDS3D_HRTF_FILTER_VERSION}
- // TKSDS3DHRTFFilterVersion = KSDS3D_HRTF_FILTER_VERSION;
- // PKSDS3DHRTFFilterFormatMsg = ^TKSDS3DHRTFFilterFormatMsg;
- // KSDS3D_HRTF_FILTER_FORMAT_MSG = record
- // FilterMethod : TKSDS3DHRTFFilterMethod;
- // CoeffFormat : TKSDS3DHRTFCoeffFormat;
- // Version : TKSDS3DHRTFFilterVersion;
- // Reserved : ULONG;
- // end;
- // {$EXTERNALSYM KSDS3D_HRTF_FILTER_FORMAT_MSG}
- // PKSDS3D_HRTF_FILTER_FORMAT_MSG = ^KSDS3D_HRTF_FILTER_FORMAT_MSG;
- // {$EXTERNALSYM PKSDS3D_HRTF_FILTER_FORMAT_MSG}
- // TKSDS3DHRTFFilterFormatMsg = KSDS3D_HRTF_FILTER_FORMAT_MSG;
- //===========================================================================
- // DirectSound3D HAL
- _DS3DVECTOR = record
- case integer of
- 0: (
- x : single;
- y : single;
- z : single);
- 1: (
- dvX : single;
- dvY : single;
- dvZ : single);
- end;
- {$EXTERNALSYM _DS3DVECTOR}
- DS3DVECTOR = _DS3DVECTOR;
- {$EXTERNALSYM DS3DVECTOR}
- PDS3DVECTOR = ^DS3DVECTOR;
- {$EXTERNALSYM PDS3DVECTOR}
- TDS3DVector = DS3DVECTOR;
- //===========================================================================
- //===========================================================================
- // KSPROPSETID_DirectSound3DListener : {437B3414-D060-11d0-8583-00C04FD9BAF3}
- const
- KSPROPSETID_DirectSound3DListener : TGUID = '{437b3414-d060-11d0-8583-00c04fd9baf3}';
- {$EXTERNALSYM KSPROPSETID_DirectSound3DListener}
- type
- KSPROPERTY_DIRECTSOUND3DLISTENER = (
- KSPROPERTY_DIRECTSOUND3DLISTENER_ALL,
- KSPROPERTY_DIRECTSOUND3DLISTENER_POSITION,
- KSPROPERTY_DIRECTSOUND3DLISTENER_VELOCITY,
- KSPROPERTY_DIRECTSOUND3DLISTENER_ORIENTATION,
- KSPROPERTY_DIRECTSOUND3DLISTENER_DISTANCEFACTOR,
- KSPROPERTY_DIRECTSOUND3DLISTENER_ROLLOFFFACTOR,
- KSPROPERTY_DIRECTSOUND3DLISTENER_DOPPLERFACTOR,
- KSPROPERTY_DIRECTSOUND3DLISTENER_BATCH,
- KSPROPERTY_DIRECTSOUND3DLISTENER_ALLOCATION
- );
- {$EXTERNALSYM KSPROPERTY_DIRECTSOUND3DLISTENER}
- TKSPropertyDirectSound3DListener = KSPROPERTY_DIRECTSOUND3DLISTENER;
- PKSDS3DListenerAll = ^TKSDS3DListenerAll;
- KSDS3D_LISTENER_ALL = record
- Position : TDS3DVECTOR;
- Velocity : TDS3DVECTOR;
- OrientFront : TDS3DVECTOR;
- OrientTop : TDS3DVECTOR;
- DistanceFactor : single;
- RolloffFactor : single;
- DopplerFactor : single;
- end;
- {$EXTERNALSYM KSDS3D_LISTENER_ALL}
- PKSDS3D_LISTENER_ALL = ^KSDS3D_LISTENER_ALL;
- {$EXTERNALSYM PKSDS3D_LISTENER_ALL}
- TKSDS3DListenerAll = KSDS3D_LISTENER_ALL;
- KSDS3D_LISTENER_ORIENTATION = record
- Front : TDS3DVECTOR;
- Top : TDS3DVECTOR;
- end;
- {$EXTERNALSYM KSDS3D_LISTENER_ORIENTATION}
- PKSDS3D_LISTENER_ORIENTATION = ^KSDS3D_LISTENER_ORIENTATION;
- {$EXTERNALSYM PKSDS3D_LISTENER_ORIENTATION}
- TKSDS3DListenerOrientation = KSDS3D_LISTENER_ORIENTATION;
- //===========================================================================
- //===========================================================================
- // KSPROPSETID_DirectSound3DBuffer : {437B3411-D060-11d0-8583-00C04FD9BAF3}
- const
- KSPROPSETID_DirectSound3DBuffer : TGUID = '{437B3411-D060-11d0-8583-00C04FD9BAF3}';
- {$EXTERNALSYM KSPROPSETID_DirectSound3DBuffer}
- type
- KSPROPERTY_DIRECTSOUND3DBUFFER = (
- KSPROPERTY_DIRECTSOUND3DBUFFER_ALL,
- KSPROPERTY_DIRECTSOUND3DBUFFER_POSITION,
- KSPROPERTY_DIRECTSOUND3DBUFFER_VELOCITY,
- KSPROPERTY_DIRECTSOUND3DBUFFER_CONEANGLES,
- KSPROPERTY_DIRECTSOUND3DBUFFER_CONEORIENTATION,
- KSPROPERTY_DIRECTSOUND3DBUFFER_CONEOUTSIDEVOLUME,
- KSPROPERTY_DIRECTSOUND3DBUFFER_MINDISTANCE,
- KSPROPERTY_DIRECTSOUND3DBUFFER_MAXDISTANCE,
- KSPROPERTY_DIRECTSOUND3DBUFFER_MODE
- );
- {$EXTERNALSYM KSPROPERTY_DIRECTSOUND3DBUFFER}
- TKSPropertyDirectSound3DBuffer = KSPROPERTY_DIRECTSOUND3DBUFFER;
- KSDS3D_BUFFER_ALL = record
- Position : TDS3DVECTOR;
- Velocity : TDS3DVECTOR;
- InsideConeAngle : ULONG;
- OutsideConeAngle : ULONG;
- ConeOrientation : TDS3DVECTOR;
- ConeOutsideVolume : longint;
- MinDistance : single;
- MaxDistance : single;
- Mode : ULONG;
- end;
- {$EXTERNALSYM KSDS3D_BUFFER_ALL}
- PKSDS3D_BUFFER_ALL = ^KSDS3D_BUFFER_ALL;
- {$EXTERNALSYM PKSDS3D_BUFFER_ALL}
- TKSDS3DBufferAll = KSDS3D_BUFFER_ALL;
- KSDS3D_BUFFER_CONE_ANGLES = record
- InsideConeAngle : ULONG;
- OutsideConeAngle : ULONG;
- end;
- {$EXTERNALSYM KSDS3D_BUFFER_CONE_ANGLES}
- PKSDS3D_BUFFER_CONE_ANGLES = ^KSDS3D_BUFFER_CONE_ANGLES;
- {$EXTERNALSYM PKSDS3D_BUFFER_CONE_ANGLES}
- TKSDS3DBufferConeAngles = KSDS3D_BUFFER_CONE_ANGLES;
- const
- KSAUDIO_STEREO_SPEAKER_GEOMETRY_HEADPHONE = -1;
- {$EXTERNALSYM KSAUDIO_STEREO_SPEAKER_GEOMETRY_HEADPHONE}
- KSAUDIO_STEREO_SPEAKER_GEOMETRY_MIN = 5;
- {$EXTERNALSYM KSAUDIO_STEREO_SPEAKER_GEOMETRY_MIN}
- KSAUDIO_STEREO_SPEAKER_GEOMETRY_NARROW = 10;
- {$EXTERNALSYM KSAUDIO_STEREO_SPEAKER_GEOMETRY_NARROW}
- KSAUDIO_STEREO_SPEAKER_GEOMETRY_WIDE = 20;
- {$EXTERNALSYM KSAUDIO_STEREO_SPEAKER_GEOMETRY_WIDE}
- KSAUDIO_STEREO_SPEAKER_GEOMETRY_MAX = 180;
- {$EXTERNALSYM KSAUDIO_STEREO_SPEAKER_GEOMETRY_MAX}
- KSDSOUND_3D_MODE_NORMAL = $00000000;
- {$EXTERNALSYM KSDSOUND_3D_MODE_NORMAL}
- KSDSOUND_3D_MODE_HEADRELATIVE = $00000001;
- {$EXTERNALSYM KSDSOUND_3D_MODE_HEADRELATIVE}
- KSDSOUND_3D_MODE_DISABLE = $00000002;
- {$EXTERNALSYM KSDSOUND_3D_MODE_DISABLE}
- type
- KSDATARANGE_AUDIO = record
- DataRange : TKSDataRange;
- MaximumChannels : ULONG;
- MinimumBitsPerSample : ULONG;
- MaximumBitsPerSample : ULONG;
- MinimumSampleFrequency : ULONG;
- MaximumSampleFrequency : ULONG;
- end;
- {$EXTERNALSYM KSDATARANGE_AUDIO}
- PKSDATARANGE_AUDIO = ^KSDATARANGE_AUDIO;
- {$EXTERNALSYM PKSDATARANGE_AUDIO}
- TKSDataRangeAudio = KSDATARANGE_AUDIO;
- //---------------------------------------------------------------------------
- const
- KSDATAFORMAT_SUBTYPE_RIFF : TGUID = '{4995DAEE-9EE6-11D0-A40E-00A0C9223196}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_RIFF}
- KSDATAFORMAT_SUBTYPE_RIFFWAVE : TGUID = '{e436eb8b-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_RIFFWAVE}
- //===========================================================================
- //===========================================================================
- KSPROPSETID_Bibliographic : TGUID = '{07BA150E-E2B1-11D0-AC17-00A0C9223196}';
- {$EXTERNALSYM KSPROPSETID_Bibliographic}
- //Repeatable tags contain all entries within the property, each preceeded by length
- type
- KSPROPERTY_BIBLIOGRAPHIC = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC}
- const
- KSPROPERTY_BIBLIOGRAPHIC_LEADER = 'RDL ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_LEADER}
- KSPROPERTY_BIBLIOGRAPHIC_LCCN = '010 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_LCCN}
- KSPROPERTY_BIBLIOGRAPHIC_ISBN = '020 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ISBN}
- KSPROPERTY_BIBLIOGRAPHIC_ISSN = '220 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ISSN}
- KSPROPERTY_BIBLIOGRAPHIC_CATALOGINGSOURCE = '040 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_CATALOGINGSOURCE}
- KSPROPERTY_BIBLIOGRAPHIC_MAINPERSONALNAME = '001 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_MAINPERSONALNAME}
- KSPROPERTY_BIBLIOGRAPHIC_MAINCORPORATEBODY = '011 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_MAINCORPORATEBODY}
- KSPROPERTY_BIBLIOGRAPHIC_MAINMEETINGNAME = '111 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_MAINMEETINGNAME}
- KSPROPERTY_BIBLIOGRAPHIC_MAINUNIFORMTITLE = '031 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_MAINUNIFORMTITLE}
- KSPROPERTY_BIBLIOGRAPHIC_UNIFORMTITLE = '042 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_UNIFORMTITLE}
- KSPROPERTY_BIBLIOGRAPHIC_TITLESTATEMENT = '542 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_TITLESTATEMENT}
- KSPROPERTY_BIBLIOGRAPHIC_VARYINGFORMTITLE = '642 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_VARYINGFORMTITLE}
- KSPROPERTY_BIBLIOGRAPHIC_PUBLICATION = '062 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_PUBLICATION}
- KSPROPERTY_BIBLIOGRAPHIC_PHYSICALDESCRIPTION = '003 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_PHYSICALDESCRIPTION}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYTITLE = '044 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYTITLE}
- KSPROPERTY_BIBLIOGRAPHIC_SERIESSTATEMENT = '094 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_SERIESSTATEMENT}
- KSPROPERTY_BIBLIOGRAPHIC_GENERALNOTE = '005 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_GENERALNOTE}
- KSPROPERTY_BIBLIOGRAPHIC_BIBLIOGRAPHYNOTE = '405 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_BIBLIOGRAPHYNOTE}
- KSPROPERTY_BIBLIOGRAPHIC_CONTENTSNOTE = '505 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_CONTENTSNOTE}
- KSPROPERTY_BIBLIOGRAPHIC_CREATIONCREDIT = '805 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_CREATIONCREDIT}
- KSPROPERTY_BIBLIOGRAPHIC_CITATION = '015 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_CITATION}
- KSPROPERTY_BIBLIOGRAPHIC_PARTICIPANT = '115 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_PARTICIPANT}
- KSPROPERTY_BIBLIOGRAPHIC_SUMMARY = '025 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_SUMMARY}
- KSPROPERTY_BIBLIOGRAPHIC_TARGETAUDIENCE = '125 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_TARGETAUDIENCE}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDFORMAVAILABLE = '035 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDFORMAVAILABLE}
- KSPROPERTY_BIBLIOGRAPHIC_SYSTEMDETAILS = '835 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_SYSTEMDETAILS}
- KSPROPERTY_BIBLIOGRAPHIC_AWARDS = '685 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_AWARDS}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYPERSONALNAME = '006 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYPERSONALNAME}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYTOPICALTERM = '056 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYTOPICALTERM}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYGEOGRAPHIC = '156 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYGEOGRAPHIC}
- KSPROPERTY_BIBLIOGRAPHIC_INDEXTERMGENRE = '556 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_INDEXTERMGENRE}
- KSPROPERTY_BIBLIOGRAPHIC_INDEXTERMCURRICULUM = '856 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_INDEXTERMCURRICULUM}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYUNIFORMTITLE = '037 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYUNIFORMTITLE}
- KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYRELATED = '047 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_ADDEDENTRYRELATED}
- KSPROPERTY_BIBLIOGRAPHIC_SERIESSTATEMENTPERSONALNAME = '008 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_SERIESSTATEMENTPERSONALNAME}
- KSPROPERTY_BIBLIOGRAPHIC_SERIESSTATEMENTUNIFORMTITLE = '038 ';
- {$EXTERNALSYM KSPROPERTY_BIBLIOGRAPHIC_SERIESSTATEMENTUNIFORMTITLE}
- KSPROPSETID_TopologyNode : TGUID = '{45FFAAA1-6E1B-11D0-BCF2-444553540000}';
- {$EXTERNALSYM KSPROPSETID_TopologyNode}
- type
- KSPROPERTY_TOPOLOGYNODE = (
- {$IFNDEF COMPILER6_UP}
- KSPROPERTY_TOPOLOGYNODE_INVALID_0,
- KSPROPERTY_TOPOLOGYNODE_ENABLE,
- KSPROPERTY_TOPOLOGYNODE_RESET
- {$ELSE}
- KSPROPERTY_TOPOLOGYNODE_ENABLE = 1,
- KSPROPERTY_TOPOLOGYNODE_RESET = 2
- {$ENDIF}
- );
- {$EXTERNALSYM KSPROPERTY_TOPOLOGYNODE}
- TKSPropertyTopologyNode = KSPROPERTY_TOPOLOGYNODE;
- //===========================================================================
- const
- KSPROPSETID_DrmAudioStream : TGUID = '{2F2C8DDD-4198-4fac-BA29-61BB05B7DE06}';
- {$EXTERNALSYM KSPROPSETID_DrmAudioStream}
- type
- KSPROPERTY_DRMAUDIOSTREAM = (
- KSPROPERTY_DRMAUDIOSTREAM_CONTENTID,
- KSPROPERTY_DRMAUDIOSTREAM_AUTHENTICATEFUNCTION
- );
- {$EXTERNALSYM KSPROPERTY_DRMAUDIOSTREAM}
- TKSPRopertyDRMAudioStream = KSPROPERTY_DRMAUDIOSTREAM;
- //===========================================================================
- const
- KSPROPSETID_Audio : TGUID = '{45FFAAA0-6E1B-11D0-BCF2-444553540000}';
- {$EXTERNALSYM KSPROPSETID_Audio}
- type
- KSPROPERTY_AUDIO = (
- {$IFNDEF COMPILER6_UP}
- KSPROPERTY_AUDIO_INVALID_0,
- KSPROPERTY_AUDIO_LATENCY,
- {$ELSE}
- KSPROPERTY_AUDIO_LATENCY = 1,
- {$ENDIF}
- KSPROPERTY_AUDIO_COPY_PROTECTION,
- KSPROPERTY_AUDIO_CHANNEL_CONFIG,
- KSPROPERTY_AUDIO_VOLUMELEVEL,
- KSPROPERTY_AUDIO_POSITION,
- KSPROPERTY_AUDIO_DYNAMIC_RANGE,
- KSPROPERTY_AUDIO_QUALITY,
- KSPROPERTY_AUDIO_SAMPLING_RATE,
- KSPROPERTY_AUDIO_DYNAMIC_SAMPLING_RATE,
- KSPROPERTY_AUDIO_MIX_LEVEL_TABLE,
- KSPROPERTY_AUDIO_MIX_LEVEL_CAPS,
- KSPROPERTY_AUDIO_MUX_SOURCE,
- KSPROPERTY_AUDIO_MUTE,
- KSPROPERTY_AUDIO_BASS,
- KSPROPERTY_AUDIO_MID,
- KSPROPERTY_AUDIO_TREBLE,
- KSPROPERTY_AUDIO_BASS_BOOST,
- KSPROPERTY_AUDIO_EQ_LEVEL,
- KSPROPERTY_AUDIO_NUM_EQ_BANDS,
- KSPROPERTY_AUDIO_EQ_BANDS,
- KSPROPERTY_AUDIO_AGC,
- KSPROPERTY_AUDIO_DELAY,
- KSPROPERTY_AUDIO_LOUDNESS,
- KSPROPERTY_AUDIO_WIDE_MODE,
- KSPROPERTY_AUDIO_WIDENESS,
- KSPROPERTY_AUDIO_REVERB_LEVEL,
- KSPROPERTY_AUDIO_CHORUS_LEVEL,
- KSPROPERTY_AUDIO_DEV_SPECIFIC,
- KSPROPERTY_AUDIO_DEMUX_DEST,
- KSPROPERTY_AUDIO_STEREO_ENHANCE,
- KSPROPERTY_AUDIO_MANUFACTURE_GUID,
- KSPROPERTY_AUDIO_PRODUCT_GUID,
- KSPROPERTY_AUDIO_CPU_RESOURCES,
- KSPROPERTY_AUDIO_STEREO_SPEAKER_GEOMETRY,
- KSPROPERTY_AUDIO_SURROUND_ENCODE,
- KSPROPERTY_AUDIO_3D_INTERFACE,
- KSPROPERTY_AUDIO_PEAKMETER,
- KSPROPERTY_AUDIO_ALGORITHM_INSTANCE
- );
- {$EXTERNALSYM KSPROPERTY_AUDIO}
- TKSPropertyAudio = KSPROPERTY_AUDIO;
- // Audio quality constants
- const
- KSAUDIO_QUALITY_WORST = $0;
- {$EXTERNALSYM KSAUDIO_QUALITY_WORST}
- KSAUDIO_QUALITY_PC = $1;
- {$EXTERNALSYM KSAUDIO_QUALITY_PC}
- KSAUDIO_QUALITY_BASIC = $2;
- {$EXTERNALSYM KSAUDIO_QUALITY_BASIC}
- KSAUDIO_QUALITY_ADVANCED = $3;
- {$EXTERNALSYM KSAUDIO_QUALITY_ADVANCED}
- // Audio CPU resource constants
- KSAUDIO_CPU_RESOURCES_NOT_HOST_CPU = $00000000;
- {$EXTERNALSYM KSAUDIO_CPU_RESOURCES_NOT_HOST_CPU}
- KSAUDIO_CPU_RESOURCES_HOST_CPU = $7FFFFFFF;
- {$EXTERNALSYM KSAUDIO_CPU_RESOURCES_HOST_CPU}
- type
- PKSAudioCopyProtection = ^TKSAudioCopyProtection;
- KSAUDIO_COPY_PROTECTION = record
- fCopyrighted : BOOL;
- fOriginal : BOOL;
- end;
- {$EXTERNALSYM KSAUDIO_COPY_PROTECTION}
- PKSAUDIO_COPY_PROTECTION = ^KSAUDIO_COPY_PROTECTION;
- {$EXTERNALSYM PKSAUDIO_COPY_PROTECTION}
- TKSAudioCopyProtection = KSAUDIO_COPY_PROTECTION;
- PKSAudioChannelConfig = ^TKSAudioChannelConfig;
- KSAUDIO_CHANNEL_CONFIG = record
- ActiveSpeakerPositions : Longint;
- end;
- {$EXTERNALSYM KSAUDIO_CHANNEL_CONFIG}
- PKSAUDIO_CHANNEL_CONFIG = ^KSAUDIO_CHANNEL_CONFIG;
- {$EXTERNALSYM PKSAUDIO_CHANNEL_CONFIG}
- TKSAudioChannelConfig = KSAUDIO_CHANNEL_CONFIG;
- // Speaker Positions:
- const
- SPEAKER_FRONT_LEFT = $1;
- {$EXTERNALSYM SPEAKER_FRONT_LEFT}
- SPEAKER_FRONT_RIGHT = $2;
- {$EXTERNALSYM SPEAKER_FRONT_RIGHT}
- SPEAKER_FRONT_CENTER = $4;
- {$EXTERNALSYM SPEAKER_FRONT_CENTER}
- SPEAKER_LOW_FREQUENCY = $8;
- {$EXTERNALSYM SPEAKER_LOW_FREQUENCY}
- SPEAKER_BACK_LEFT = $10;
- {$EXTERNALSYM SPEAKER_BACK_LEFT}
- SPEAKER_BACK_RIGHT = $20;
- {$EXTERNALSYM SPEAKER_BACK_RIGHT}
- SPEAKER_FRONT_LEFT_OF_CENTER = $40;
- {$EXTERNALSYM SPEAKER_FRONT_LEFT_OF_CENTER}
- SPEAKER_FRONT_RIGHT_OF_CENTER = $80;
- {$EXTERNALSYM SPEAKER_FRONT_RIGHT_OF_CENTER}
- SPEAKER_BACK_CENTER = $100;
- {$EXTERNALSYM SPEAKER_BACK_CENTER}
- SPEAKER_SIDE_LEFT = $200;
- {$EXTERNALSYM SPEAKER_SIDE_LEFT}
- SPEAKER_SIDE_RIGHT = $400;
- {$EXTERNALSYM SPEAKER_SIDE_RIGHT}
- SPEAKER_TOP_CENTER = $800;
- {$EXTERNALSYM SPEAKER_TOP_CENTER}
- SPEAKER_TOP_FRONT_LEFT = $1000;
- {$EXTERNALSYM SPEAKER_TOP_FRONT_LEFT}
- SPEAKER_TOP_FRONT_CENTER = $2000;
- {$EXTERNALSYM SPEAKER_TOP_FRONT_CENTER}
- SPEAKER_TOP_FRONT_RIGHT = $4000;
- {$EXTERNALSYM SPEAKER_TOP_FRONT_RIGHT}
- SPEAKER_TOP_BACK_LEFT = $8000;
- {$EXTERNALSYM SPEAKER_TOP_BACK_LEFT}
- SPEAKER_TOP_BACK_CENTER = $10000;
- {$EXTERNALSYM SPEAKER_TOP_BACK_CENTER}
- SPEAKER_TOP_BACK_RIGHT = $20000;
- {$EXTERNALSYM SPEAKER_TOP_BACK_RIGHT}
- // Bit mask locations reserved for future use
- SPEAKER_RESERVED = $7FFC0000;
- {$EXTERNALSYM SPEAKER_RESERVED}
- // Used to specify that any possible permutation of speaker configurations
- SPEAKER_ALL = $80000000;
- {$EXTERNALSYM SPEAKER_ALL}
- // DirectSound Speaker Config
- KSAUDIO_SPEAKER_MONO = (SPEAKER_FRONT_CENTER);
- {$EXTERNALSYM KSAUDIO_SPEAKER_MONO}
- KSAUDIO_SPEAKER_STEREO = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT);
- {$EXTERNALSYM KSAUDIO_SPEAKER_STEREO}
- KSAUDIO_SPEAKER_QUAD = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT or
- SPEAKER_BACK_LEFT or SPEAKER_BACK_RIGHT);
- {$EXTERNALSYM KSAUDIO_SPEAKER_QUAD}
- KSAUDIO_SPEAKER_SURROUND = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT or
- SPEAKER_FRONT_CENTER or SPEAKER_BACK_CENTER);
- {$EXTERNALSYM KSAUDIO_SPEAKER_SURROUND}
- KSAUDIO_SPEAKER_5POINT1 = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT or
- SPEAKER_FRONT_CENTER or SPEAKER_LOW_FREQUENCY or
- SPEAKER_BACK_LEFT or SPEAKER_BACK_RIGHT);
- {$EXTERNALSYM KSAUDIO_SPEAKER_5POINT1}
- KSAUDIO_SPEAKER_7POINT1 = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT or
- SPEAKER_FRONT_CENTER or SPEAKER_LOW_FREQUENCY or
- SPEAKER_BACK_LEFT or SPEAKER_BACK_RIGHT or
- SPEAKER_FRONT_LEFT_OF_CENTER or SPEAKER_FRONT_RIGHT_OF_CENTER);
- {$EXTERNALSYM KSAUDIO_SPEAKER_7POINT1}
- KSAUDIO_SPEAKER_5POINT1_SURROUND = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT or
- SPEAKER_FRONT_CENTER or SPEAKER_LOW_FREQUENCY or
- SPEAKER_SIDE_LEFT or SPEAKER_SIDE_RIGHT);
- {$EXTERNALSYM KSAUDIO_SPEAKER_5POINT1_SURROUND}
- KSAUDIO_SPEAKER_7POINT1_SURROUND = (SPEAKER_FRONT_LEFT or SPEAKER_FRONT_RIGHT or
- SPEAKER_FRONT_CENTER or SPEAKER_LOW_FREQUENCY or
- SPEAKER_BACK_LEFT or SPEAKER_BACK_RIGHT or
- SPEAKER_SIDE_LEFT or SPEAKER_SIDE_RIGHT);
- {$EXTERNALSYM KSAUDIO_SPEAKER_7POINT1_SURROUND}
- // The following are obsolete 5.1 and 7.1 settings (they lack side speakers). Note this means
- // that the default 5.1 and 7.1 settings (KSAUDIO_SPEAKER_5POINT1 and KSAUDIO_SPEAKER_7POINT1 are
- // similarly obsolete but are unchanged for compatibility reasons).
- KSAUDIO_SPEAKER_5POINT1_BACK = KSAUDIO_SPEAKER_5POINT1;
- {$EXTERNALSYM KSAUDIO_SPEAKER_5POINT1_BACK}
- KSAUDIO_SPEAKER_7POINT1_WIDE = KSAUDIO_SPEAKER_7POINT1;
- {$EXTERNALSYM KSAUDIO_SPEAKER_7POINT1_WIDE}
- // DVD Speaker Positions
- KSAUDIO_SPEAKER_GROUND_FRONT_LEFT = SPEAKER_FRONT_LEFT;
- {$EXTERNALSYM KSAUDIO_SPEAKER_GROUND_FRONT_LEFT}
- KSAUDIO_SPEAKER_GROUND_FRONT_CENTER = SPEAKER_FRONT_CENTER;
- {$EXTERNALSYM KSAUDIO_SPEAKER_GROUND_FRONT_CENTER}
- KSAUDIO_SPEAKER_GROUND_FRONT_RIGHT = SPEAKER_FRONT_RIGHT;
- {$EXTERNALSYM KSAUDIO_SPEAKER_GROUND_FRONT_RIGHT}
- KSAUDIO_SPEAKER_GROUND_REAR_LEFT = SPEAKER_BACK_LEFT;
- {$EXTERNALSYM KSAUDIO_SPEAKER_GROUND_REAR_LEFT}
- KSAUDIO_SPEAKER_GROUND_REAR_RIGHT = SPEAKER_BACK_RIGHT;
- {$EXTERNALSYM KSAUDIO_SPEAKER_GROUND_REAR_RIGHT}
- KSAUDIO_SPEAKER_TOP_MIDDLE = SPEAKER_TOP_CENTER;
- {$EXTERNALSYM KSAUDIO_SPEAKER_TOP_MIDDLE}
- KSAUDIO_SPEAKER_SUPER_WOOFER = SPEAKER_LOW_FREQUENCY;
- {$EXTERNALSYM KSAUDIO_SPEAKER_SUPER_WOOFER}
- type
- PKSAudioDynamicRange = ^TKSAudioDynamicRange;
- KSAUDIO_DYNAMIC_RANGE = record
- QuietCompression : ULONG;
- LoudCompression : ULONG;
- end;
- {$EXTERNALSYM KSAUDIO_DYNAMIC_RANGE}
- PKSAUDIO_DYNAMIC_RANGE = ^KSAUDIO_DYNAMIC_RANGE;
- {$EXTERNALSYM PKSAUDIO_DYNAMIC_RANGE}
- TKSAudioDynamicRange = KSAUDIO_DYNAMIC_RANGE;
- PKSAudioMixLevel = ^TKSAudioMixLevel;
- KSAUDIO_MIXLEVEL = record
- Mute : BOOL;
- Level : Longint;
- end;
- {$EXTERNALSYM KSAUDIO_MIXLEVEL}
- PKSAUDIO_MIXLEVEL = ^KSAUDIO_MIXLEVEL;
- {$EXTERNALSYM PKSAUDIO_MIXLEVEL}
- TKSAudioMixLevel = KSAUDIO_MIXLEVEL;
- PKSAudioMixCaps = ^TKSAudioMixCaps;
- KSAUDIO_MIX_CAPS = record
- Mute : BOOL;
- Minimum : longint;
- Maximum : longint;
- Reset : longint;
- end;
- {$EXTERNALSYM KSAUDIO_MIX_CAPS}
- PKSAUDIO_MIX_CAPS = ^KSAUDIO_MIX_CAPS;
- {$EXTERNALSYM PKSAUDIO_MIX_CAPS}
- TKSAudioMixCaps = KSAUDIO_MIX_CAPS;
- PKSaudioMixcapTable = ^TKSaudioMixcapTable;
- KSAUDIO_MIXCAP_TABLE = record
- InputChannels : ULONG;
- OutputChannels : ULONG;
- Capabilities : array[0..0] of TKSAudioMixCaps;
- end;
- {$EXTERNALSYM KSAUDIO_MIXCAP_TABLE}
- PKSAUDIO_MIXCAP_TABLE = ^KSAUDIO_MIXCAP_TABLE;
- {$EXTERNALSYM PKSAUDIO_MIXCAP_TABLE}
- TKSaudioMixcapTable = KSAUDIO_MIXCAP_TABLE;
- SE_TECHNIQUE = (
- SE_TECH_NONE,
- SE_TECH_ANALOG_DEVICES_PHAT,
- SE_TECH_CREATIVE,
- SE_TECH_NATIONAL_SEMI,
- SE_TECH_YAMAHA_YMERSION,
- SE_TECH_BBE,
- SE_TECH_CRYSTAL_SEMI,
- SE_TECH_QSOUND_QXPANDER,
- SE_TECH_SPATIALIZER,
- SE_TECH_SRS,
- SE_TECH_PLATFORM_TECH,
- SE_TECH_AKM,
- SE_TECH_AUREAL,
- SE_TECH_AZTECH,
- SE_TECH_BINAURA,
- SE_TECH_ESS_TECH,
- SE_TECH_HARMAN_VMAX,
- SE_TECH_NVIDEA,
- SE_TECH_PHILIPS_INCREDIBLE,
- SE_TECH_TEXAS_INST,
- SE_TECH_VLSI_TECH
- );
- {$EXTERNALSYM SE_TECHNIQUE}
- TSETechnique = SE_TECHNIQUE;
- PKSAudioStereoEnhance = ^TKSAudioStereoEnhance;
- KSAUDIO_STEREO_ENHANCE = record
- Technique : TSETechnique;
- Center : ULONG;
- Depth : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSAUDIO_STEREO_ENHANCE}
- PKSAUDIO_STEREO_ENHANCE = ^KSAUDIO_STEREO_ENHANCE;
- {$EXTERNALSYM PKSAUDIO_STEREO_ENHANCE}
- TKSAudioStereoEnhance = KSAUDIO_STEREO_ENHANCE;
- //===========================================================================
- // Topology Node Type GUIDs
- const
- KSNODETYPE_DAC : TGUID = '{507AE360-C554-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_DAC}
- KSNODETYPE_ADC : TGUID = '{4D837FE0-C555-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_ADC}
- KSNODETYPE_SRC : TGUID = '{9DB7B9E0-C555-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_SRC}
- KSNODETYPE_SUPERMIX : TGUID = '{E573ADC0-C555-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_SUPERMIX}
- KSNODETYPE_MUX : TGUID = '{2CEAF780-C556-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_MUX}
- KSNODETYPE_DEMUX : TGUID = '{C0EB67D4-E807-11D0-958A-00C04FB925D3}';
- {$EXTERNALSYM KSNODETYPE_DEMUX}
- KSNODETYPE_SUM : TGUID = '{DA441A60-C556-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_SUM}
- KSNODETYPE_MUTE : TGUID = '{02B223C0-C557-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_MUTE}
- KSNODETYPE_VOLUME : TGUID = '{3A5ACC00-C557-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_VOLUME}
- KSNODETYPE_TONE : TGUID = '{7607E580-C557-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_TONE}
- KSNODETYPE_EQUALIZER : TGUID = '{9D41B4A0-C557-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_EQUALIZER}
- KSNODETYPE_AGC : TGUID = '{E88C9BA0-C557-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_AGC}
- KSNODETYPE_NOISE_SUPPRESS : TGUID = '{E07F903F-62FD-4e60-8CDD-DEA7236665B5}';
- {$EXTERNALSYM KSNODETYPE_NOISE_SUPPRESS}
- KSNODETYPE_DELAY : TGUID = '{144981E0-C558-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_DELAY}
- KSNODETYPE_LOUDNESS : TGUID = '{41887440-C558-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_LOUDNESS}
- KSNODETYPE_PROLOGIC_DECODER : TGUID = '{831C2C80-C558-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_PROLOGIC_DECODER}
- KSNODETYPE_STEREO_WIDE : TGUID = '{A9E69800-C558-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_STEREO_WIDE}
- KSNODETYPE_STEREO_ENHANCE : TGUID = '{AF6878AC-E83F-11D0-958A-00C04FB925D3}';
- {$EXTERNALSYM KSNODETYPE_STEREO_ENHANCE}
- KSNODETYPE_REVERB : TGUID = '{EF0328E0-C558-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_REVERB}
- KSNODETYPE_CHORUS : TGUID = '{20173F20-C559-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_CHORUS}
- KSNODETYPE_3D_EFFECTS : TGUID = '{55515860-C559-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_3D_EFFECTS}
- KSNODETYPE_ACOUSTIC_ECHO_CANCEL : TGUID = '{BF963D80-C559-11D0-8A2B-00A0C9255AC1}'; //KSCATEGORY_ACOUSTIC_ECHO_CANCEL
- {$EXTERNALSYM KSNODETYPE_ACOUSTIC_ECHO_CANCEL}
- KSNODETYPE_MICROPHONE_ARRAY_PROCESSOR : TGUID = '{830a44f2-a32d-476b-be97-42845673b35a}'; //KSCATEGORY_MICROPHONE_ARRAY_PROCESSOR
- {$EXTERNALSYM KSNODETYPE_MICROPHONE_ARRAY_PROCESSOR}
- KSNODETYPE_DEV_SPECIFIC : TGUID = '{941C7AC0-C559-11D0-8A2B-00A0C9255AC1}';
- {$EXTERNALSYM KSNODETYPE_DEV_SPECIFIC}
- KSNODETYPE_SURROUND_ENCODER : TGUID = '{8074C5B2-3C66-11D2-B45A-3078302C2030}';
- {$EXTERNALSYM KSNODETYPE_SURROUND_ENCODER}
- KSNODETYPE_PEAKMETER : TGUID = '{A085651E-5F0D-4b36-A869-D195D6AB4B9E}';
- {$EXTERNALSYM KSNODETYPE_PEAKMETER}
- //===========================================================================
- // Topology Node Name GUIDs for common audio nodes
- KSAUDFNAME_BASS : TGUID = '{185FEDE0-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_BASS}
- KSAUDFNAME_TREBLE : TGUID = '{185FEDE1-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_TREBLE}
- KSAUDFNAME_3D_STEREO : TGUID = '{185FEDE2-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_3D_STEREO}
- KSAUDFNAME_MASTER_VOLUME : TGUID = '{185FEDE3-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MASTER_VOLUME}
- KSAUDFNAME_MASTER_MUTE : TGUID = '{185FEDE4-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MASTER_MUTE}
- KSAUDFNAME_WAVE_VOLUME : TGUID = '{185FEDE5-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_WAVE_VOLUME}
- KSAUDFNAME_WAVE_MUTE : TGUID = '{185FEDE6-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_WAVE_MUTE}
- KSAUDFNAME_MIDI_VOLUME : TGUID = '{185FEDE7-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIDI_VOLUME}
- KSAUDFNAME_MIDI_MUTE : TGUID = '{185FEDE8-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIDI_MUTE}
- KSAUDFNAME_CD_VOLUME : TGUID = '{185FEDE9-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_CD_VOLUME}
- KSAUDFNAME_CD_MUTE : TGUID = '{185FEDEA-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_CD_MUTE}
- KSAUDFNAME_LINE_VOLUME : TGUID = '{185FEDEB-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_LINE_VOLUME}
- KSAUDFNAME_LINE_MUTE : TGUID = '{185FEDEC-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_LINE_MUTE}
- KSAUDFNAME_MIC_VOLUME : TGUID = '{185FEDED-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIC_VOLUME}
- KSAUDFNAME_MIC_MUTE : TGUID = '{185FEDEE-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIC_MUTE}
- KSAUDFNAME_RECORDING_SOURCE : TGUID = '{185FEDEF-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_RECORDING_SOURCE}
- KSAUDFNAME_PC_SPEAKER_VOLUME : TGUID = '{185FEDF0-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_PC_SPEAKER_VOLUME}
- KSAUDFNAME_PC_SPEAKER_MUTE : TGUID = '{185FEDF1-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_PC_SPEAKER_MUTE}
- KSAUDFNAME_MIDI_IN_VOLUME : TGUID = '{185FEDF2-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIDI_IN_VOLUME}
- KSAUDFNAME_CD_IN_VOLUME : TGUID = '{185FEDF3-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_CD_IN_VOLUME}
- KSAUDFNAME_LINE_IN_VOLUME : TGUID = '{185FEDF4-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_LINE_IN_VOLUME}
- KSAUDFNAME_MIC_IN_VOLUME : TGUID = '{185FEDF5-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIC_IN_VOLUME}
- KSAUDFNAME_WAVE_IN_VOLUME : TGUID = '{185FEDF6-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_WAVE_IN_VOLUME}
- KSAUDFNAME_VOLUME_CONTROL : TGUID = '{185FEDF7-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_VOLUME_CONTROL}
- KSAUDFNAME_MIDI : TGUID = '{185FEDF8-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_MIDI}
- KSAUDFNAME_LINE_IN : TGUID = '{185FEDF9-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_LINE_IN}
- KSAUDFNAME_RECORDING_CONTROL : TGUID = '{185FEDFA-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_RECORDING_CONTROL}
- KSAUDFNAME_CD_AUDIO : TGUID = '{185FEDFB-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_CD_AUDIO}
- KSAUDFNAME_AUX_VOLUME : TGUID = '{185FEDFC-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_AUX_VOLUME}
- KSAUDFNAME_AUX_MUTE : TGUID = '{185FEDFD-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_AUX_MUTE}
- KSAUDFNAME_AUX : TGUID = '{185FEDFE-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_AUX}
- KSAUDFNAME_PC_SPEAKER : TGUID = '{185FEDFF-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_PC_SPEAKER}
- KSAUDFNAME_WAVE_OUT_MIX : TGUID = '{185FEE00-9905-11D1-95A9-00C04FB925D3}';
- {$EXTERNALSYM KSAUDFNAME_WAVE_OUT_MIX}
- KSAUDFNAME_MONO_OUT : TGUID = '{F9B41DC3-96E2-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MONO_OUT}
- KSAUDFNAME_STEREO_MIX : TGUID = '{00DFF077-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_STEREO_MIX}
- KSAUDFNAME_MONO_MIX : TGUID = '{00DFF078-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MONO_MIX}
- KSAUDFNAME_MONO_OUT_VOLUME : TGUID = '{1AD247EB-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MONO_OUT_VOLUME}
- KSAUDFNAME_MONO_OUT_MUTE : TGUID = '{1AD247EC-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MONO_OUT_MUTE}
- KSAUDFNAME_STEREO_MIX_VOLUME : TGUID = '{1AD247ED-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_STEREO_MIX_VOLUME}
- KSAUDFNAME_STEREO_MIX_MUTE : TGUID = '{22B0EAFD-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_STEREO_MIX_MUTE}
- KSAUDFNAME_MONO_MIX_VOLUME : TGUID = '{22B0EAFE-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MONO_MIX_VOLUME}
- KSAUDFNAME_MONO_MIX_MUTE : TGUID = '{2BC31D69-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MONO_MIX_MUTE}
- KSAUDFNAME_MICROPHONE_BOOST : TGUID = '{2BC31D6A-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_MICROPHONE_BOOST}
- KSAUDFNAME_ALTERNATE_MICROPHONE : TGUID = '{2BC31D6B-96E3-11d2-AC4C-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_ALTERNATE_MICROPHONE}
- KSAUDFNAME_3D_DEPTH : TGUID = '{63FF5747-991F-11d2-AC4D-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_3D_DEPTH}
- KSAUDFNAME_3D_CENTER : TGUID = '{9F0670B4-991F-11d2-AC4D-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_3D_CENTER}
- KSAUDFNAME_VIDEO_VOLUME : TGUID = '{9B46E708-992A-11d2-AC4D-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_VIDEO_VOLUME}
- KSAUDFNAME_VIDEO_MUTE : TGUID = '{9B46E709-992A-11d2-AC4D-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_VIDEO_MUTE}
- KSAUDFNAME_VIDEO : TGUID = '{915DAEC4-A434-11d2-AC52-00C04F8EFB68}';
- {$EXTERNALSYM KSAUDFNAME_VIDEO}
- KSAUDFNAME_PEAKMETER : TGUID = '{57E24340-FC5B-4612-A562-72B11A29DFAE}';
- {$EXTERNALSYM KSAUDFNAME_PEAKMETER}
- // Internal topology node pin definitions
- KSNODEPIN_STANDARD_IN = 1;
- {$EXTERNALSYM KSNODEPIN_STANDARD_IN}
- KSNODEPIN_STANDARD_OUT = 0;
- {$EXTERNALSYM KSNODEPIN_STANDARD_OUT}
- KSNODEPIN_SUM_MUX_IN = 1; // can be >= 1
- {$EXTERNALSYM KSNODEPIN_SUM_MUX_IN}
- KSNODEPIN_SUM_MUX_OUT = 0;
- {$EXTERNALSYM KSNODEPIN_SUM_MUX_OUT}
- KSNODEPIN_DEMUX_IN = 0;
- {$EXTERNALSYM KSNODEPIN_DEMUX_IN}
- KSNODEPIN_DEMUX_OUT = 1; // can be >= 1
- {$EXTERNALSYM KSNODEPIN_DEMUX_OUT}
- KSNODEPIN_AEC_RENDER_IN = 1;
- {$EXTERNALSYM KSNODEPIN_AEC_RENDER_IN}
- KSNODEPIN_AEC_RENDER_OUT = 0;
- {$EXTERNALSYM KSNODEPIN_AEC_RENDER_OUT}
- KSNODEPIN_AEC_CAPTURE_IN = 2;
- {$EXTERNALSYM KSNODEPIN_AEC_CAPTURE_IN}
- KSNODEPIN_AEC_CAPTURE_OUT = 3;
- {$EXTERNALSYM KSNODEPIN_AEC_CAPTURE_OUT}
- //===========================================================================
- //===========================================================================
- KSMETHODSETID_Wavetable : TGUID = '{DCEF31EB-D907-11D0-9583-00C04FB925D3}';
- {$EXTERNALSYM KSMETHODSETID_Wavetable}
- type
- KSMETHOD_WAVETABLE = (
- KSMETHOD_WAVETABLE_WAVE_ALLOC,
- KSMETHOD_WAVETABLE_WAVE_FREE,
- KSMETHOD_WAVETABLE_WAVE_FIND,
- KSMETHOD_WAVETABLE_WAVE_WRITE
- );
- {$EXTERNALSYM KSMETHOD_WAVETABLE}
- TKSMethodWavetable = KSMETHOD_WAVETABLE;
- PKSWaveTableWaveDesc = ^TKSWaveTableWaveDesc;
- KSWAVETABLE_WAVE_DESC = record
- Identifier : TKSIdentifier; // wave identifier
- Size : ULONG; // wave size
- Looped : BOOL; // wave looped flag
- LoopPoint : ULONG; // wave loop point
- InROM : BOOL; // wave InROM flag
- Format : TKSDataFormat; // wave format
- end;
- {$EXTERNALSYM KSWAVETABLE_WAVE_DESC}
- PKSWAVETABLE_WAVE_DESC = ^KSWAVETABLE_WAVE_DESC;
- {$EXTERNALSYM PKSWAVETABLE_WAVE_DESC}
- TKSWaveTableWaveDesc = KSWAVETABLE_WAVE_DESC;
- //===========================================================================
- //===========================================================================
- //
- // Property sets and items
- //
- //===========================================================================
- //===========================================================================
- const
- KSPROPSETID_Itd3d : TGUID = '{6429f090-9fd9-11d0-a75b-00a0c90365e3}';
- {$EXTERNALSYM KSPROPSETID_Itd3d}
- //type
- // KSPROPERTY_ITD3D = (
- // KSPROPERTY_ITD3D_PARAMS
- // );
- // {$EXTERNALSYM KSPROPERTY_ITD3D}
- // TKSPropertyITD3D = KSPROPERTY_ITD3D;
- //===========================================================================
- //===========================================================================
- const
- KSPROPSETID_Hrtf3d: TGUID = '{b66decb0-a083-11d0-851e-00c04fd9baf3}';
- {$EXTERNALSYM KSPROPSETID_Hrtf3d}
- //type
- // KSPROPERTY_HRTF3D = (
- // KSPROPERTY_HRTF3D_PARAMS,
- // KSPROPERTY_HRTF3D_INITIALIZE,
- // KSPROPERTY_HRTF3D_FILTER_FORMAT
- // );
- // {$EXTERNALSYM KSPROPERTY_HRTF3D}
- // TKSPropertyHRTF3D = KSPROPERTY_HRTF3D;
- //===========================================================================
- //===========================================================================
- const
- KSPROPSETID_Wave_Queued : TGUID = '{16a15b10-16f0-11d0-a195-0020afd156e4}';
- {$EXTERNALSYM KSPROPSETID_Wave_Queued}
- KSPROPERTY_WAVE_QUEUED_POSITION = $00000001;
- {$EXTERNALSYM KSPROPERTY_WAVE_QUEUED_POSITION}
- KSMETHODSETID_Wave_Queued : TGUID = '{7432c160-8827-11cf-a102-0020afd156e4}';
- {$EXTERNALSYM KSMETHODSETID_Wave_Queued}
- KSMETHOD_WAVE_QUEUED_BREAKLOOP = $00000001;
- {$EXTERNALSYM KSMETHOD_WAVE_QUEUED_BREAKLOOP}
- KSPROPSETID_Wave : TGUID = '{924e54b0-630f-11cf-ada7-08003e30494a}';
- {$EXTERNALSYM KSPROPSETID_Wave}
- type
- KSPROPERTY_WAVE = (
- KSPROPERTY_WAVE_COMPATIBLE_CAPABILITIES,
- KSPROPERTY_WAVE_INPUT_CAPABILITIES,
- KSPROPERTY_WAVE_OUTPUT_CAPABILITIES,
- KSPROPERTY_WAVE_BUFFER,
- KSPROPERTY_WAVE_FREQUENCY,
- KSPROPERTY_WAVE_VOLUME,
- KSPROPERTY_WAVE_PAN
- );
- {$EXTERNALSYM KSPROPERTY_WAVE}
- TKSPropertyWave = KSPROPERTY_WAVE;
- PKSWaveCompatCaps = ^TKSWaveCompatCaps;
- KSWAVE_COMPATCAPS = record
- ulDeviceType : ULONG;
- end;
- {$EXTERNALSYM KSWAVE_COMPATCAPS}
- PKSWAVE_COMPATCAPS = ^KSWAVE_COMPATCAPS;
- {$EXTERNALSYM PKSWAVE_COMPATCAPS}
- TKSWaveCompatCaps = KSWAVE_COMPATCAPS;
- const
- KSWAVE_COMPATCAPS_INPUT = $00000000;
- {$EXTERNALSYM KSWAVE_COMPATCAPS_INPUT}
- KSWAVE_COMPATCAPS_OUTPUT = $00000001;
- {$EXTERNALSYM KSWAVE_COMPATCAPS_OUTPUT}
- type
- PKSWaveInputCapabilities = ^TKSWaveInputCapabilities;
- KSWAVE_INPUT_CAPABILITIES = record
- MaximumChannelsPerConnection : ULONG;
- MinimumBitsPerSample : ULONG;
- MaximumBitsPerSample : ULONG;
- MinimumSampleFrequency : ULONG;
- MaximumSampleFrequency : ULONG;
- TotalConnections : ULONG;
- ActiveConnections : ULONG;
- end;
- {$EXTERNALSYM KSWAVE_INPUT_CAPABILITIES}
- PKSWAVE_INPUT_CAPABILITIES = ^KSWAVE_INPUT_CAPABILITIES;
- {$EXTERNALSYM PKSWAVE_INPUT_CAPABILITIES}
- TKSWaveInputCapabilities = KSWAVE_INPUT_CAPABILITIES;
- PKSWaveOutputCapabilities = ^TKSWaveOutputCapabilities;
- KSWAVE_OUTPUT_CAPABILITIES = record
- MaximumChannelsPerConnection : ULONG;
- MinimumBitsPerSample : ULONG;
- MaximumBitsPerSample : ULONG;
- MinimumSampleFrequency : ULONG;
- MaximumSampleFrequency : ULONG;
- TotalConnections : ULONG;
- StaticConnections : ULONG;
- StreamingConnections : ULONG;
- ActiveConnections : ULONG;
- ActiveStaticConnections : ULONG;
- ActiveStreamingConnections : ULONG;
- Total3DConnections : ULONG;
- Static3DConnections : ULONG;
- Streaming3DConnections : ULONG;
- Active3DConnections : ULONG;
- ActiveStatic3DConnections : ULONG;
- ActiveStreaming3DConnections : ULONG;
- TotalSampleMemory : ULONG;
- FreeSampleMemory : ULONG;
- LargestFreeContiguousSampleMemory : ULONG;
- end;
- {$EXTERNALSYM KSWAVE_OUTPUT_CAPABILITIES}
- PKSWAVE_OUTPUT_CAPABILITIES = ^KSWAVE_OUTPUT_CAPABILITIES;
- {$EXTERNALSYM PKSWAVE_OUTPUT_CAPABILITIES}
- TKSWaveOutputCapabilities = KSWAVE_OUTPUT_CAPABILITIES;
- PKSWaveVolume = ^TKSWaveVolume;
- KSWAVE_VOLUME = record
- LeftAttenuation : longint;
- RightAttenuation : longint;
- end;
- {$EXTERNALSYM KSWAVE_VOLUME}
- PKSWAVE_VOLUME = ^KSWAVE_VOLUME;
- {$EXTERNALSYM PKSWAVE_VOLUME}
- TKSWaveVolume = KSWAVE_VOLUME;
- const
- KSWAVE_BUFFER_ATTRIBUTEF_LOOPING = $00000001;
- {$EXTERNALSYM KSWAVE_BUFFER_ATTRIBUTEF_LOOPING}
- KSWAVE_BUFFER_ATTRIBUTEF_STATIC = $00000002;
- {$EXTERNALSYM KSWAVE_BUFFER_ATTRIBUTEF_STATIC}
- type
- PKSWaveBuffer = ^TKSWaveBuffer;
- KSWAVE_BUFFER = record
- Attributes : ULONG;
- BufferSize : ULONG;
- BufferAddress : Pointer;
- end;
- {$EXTERNALSYM KSWAVE_BUFFER}
- PKSWAVE_BUFFER = ^KSWAVE_BUFFER;
- {$EXTERNALSYM PKSWAVE_BUFFER}
- TKSWaveBuffer = KSWAVE_BUFFER;
- //===========================================================================
- //===========================================================================
- const
- KSMUSIC_TECHNOLOGY_PORT : TGUID = '{86C92E60-62E8-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSMUSIC_TECHNOLOGY_PORT}
- KSMUSIC_TECHNOLOGY_SQSYNTH : TGUID = '{0ECF4380-62E9-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSMUSIC_TECHNOLOGY_SQSYNTH}
- KSMUSIC_TECHNOLOGY_FMSYNTH : TGUID = '{252C5C80-62E9-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSMUSIC_TECHNOLOGY_FMSYNTH}
- KSMUSIC_TECHNOLOGY_WAVETABLE : TGUID = '{394EC7C0-62E9-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSMUSIC_TECHNOLOGY_WAVETABLE}
- KSMUSIC_TECHNOLOGY_SWSYNTH : TGUID = '{37407736-3620-11D1-85D3-0000F8754380}';
- {$EXTERNALSYM KSMUSIC_TECHNOLOGY_SWSYNTH}
- KSPROPSETID_WaveTable : TGUID = '{8539E660-62E9-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_WaveTable}
- type
- KSPROPERTY_WAVETABLE = (
- KSPROPERTY_WAVETABLE_LOAD_SAMPLE,
- KSPROPERTY_WAVETABLE_UNLOAD_SAMPLE,
- KSPROPERTY_WAVETABLE_MEMORY,
- KSPROPERTY_WAVETABLE_VERSION
- );
- {$EXTERNALSYM KSPROPERTY_WAVETABLE}
- TKSPropertyWaveTable = KSPROPERTY_WAVETABLE;
- PKSDataRangeMusic = ^TKSDataRangeMusic;
- KSDATARANGE_MUSIC = record
- DataRange : TKSDataRange;
- Technology : TGUID;
- Channels : ULONG;
- Notes : ULONG;
- ChannelMask : ULONG;
- end;
- {$EXTERNALSYM KSDATARANGE_MUSIC}
- PKSDATARANGE_MUSIC = ^KSDATARANGE_MUSIC;
- {$EXTERNALSYM PKSDATARANGE_MUSIC}
- TKSDataRangeMusic = KSDATARANGE_MUSIC;
- //===========================================================================
- const
- KSEVENTSETID_Cyclic : TGUID = '{142C1AC0-072A-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSEVENTSETID_Cyclic}
- type
- KSEVENT_CYCLIC_TIME = (
- KSEVENT_CYCLIC_TIME_INTERVAL
- );
- {$EXTERNALSYM KSEVENT_CYCLIC_TIME}
- TKSEventCyclicTime = KSEVENT_CYCLIC_TIME;
- const
- KSPROPSETID_Cyclic: TGUID = '{3FFEAEA0-2BEE-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_Cyclic}
- type
- KSPROPERTY_CYCLIC = (
- KSPROPERTY_CYCLIC_POSITION
- );
- {$EXTERNALSYM KSPROPERTY_CYCLIC}
- TKSPropertyCyclic = KSPROPERTY_CYCLIC;
- //===========================================================================
- const
- KSEVENTSETID_AudioControlChange: TGUID = '{E85E9698-FA2F-11D1-95BD-00C04FB925D3}';
- {$EXTERNALSYM KSEVENTSETID_AudioControlChange}
- type
- KSEVENT_AUDIO_CONTROL_CHANGE = (
- KSEVENT_CONTROL_CHANGE
- );
- {$EXTERNALSYM KSEVENT_AUDIO_CONTROL_CHANGE}
- TKSEventAudioControlChange = KSEVENT_AUDIO_CONTROL_CHANGE;
- //===========================================================================
- const
- KSEVENTSETID_LoopedStreaming : TGUID = '{4682B940-C6EF-11D0-96D8-00AA0051E51D}';
- {$EXTERNALSYM KSEVENTSETID_LoopedStreaming}
- type
- KSEVENT_LOOPEDSTREAMING = (
- KSEVENT_LOOPEDSTREAMING_POSITION
- );
- {$EXTERNALSYM KSEVENT_LOOPEDSTREAMING}
- TKSEventLoopedStreaming = KSEVENT_LOOPEDSTREAMING;
- PLoopedStreamingPositionEventData = ^TLoopedStreamingPositionEventData;
- LOOPEDSTREAMING_POSITION_EVENT_DATA = record
- KsEventData : TKSEVENTDATA;
- Position : int64;
- end;
- {$EXTERNALSYM LOOPEDSTREAMING_POSITION_EVENT_DATA}
- PLOOPEDSTREAMING_POSITION_EVENT_DATA = ^LOOPEDSTREAMING_POSITION_EVENT_DATA;
- {$EXTERNALSYM PLOOPEDSTREAMING_POSITION_EVENT_DATA}
- TLoopedStreamingPositionEventData = LOOPEDSTREAMING_POSITION_EVENT_DATA;
- const
- KSEVENTSETID_Sysaudio : TGUID = '{04800320-4491-11D1-A050-405705C10000}';
- {$EXTERNALSYM KSEVENTSETID_Sysaudio}
- type
- KSEVENT_SYSAUDIO = (
- KSEVENT_SYSAUDIO_ADDREMOVE_DEVICE,
- KSEVENT_SYSAUDIO_CHANGE_DEVICE
- );
- {$EXTERNALSYM KSEVENT_SYSAUDIO}
- TKSEventSysAudio = KSEVENT_SYSAUDIO;
- const
- KSPROPSETID_Sysaudio : TGUID = '{CBE3FAA0-CC75-11D0-B465-00001A1818E6}';
- {$EXTERNALSYM KSPROPSETID_Sysaudio}
- type
- KSPROPERTY_SYSAUDIO = (
- KSPROPERTY_SYSAUDIO_DEVICE_Invalid,
- KSPROPERTY_SYSAUDIO_DEVICE_COUNT,
- KSPROPERTY_SYSAUDIO_DEVICE_FRIENDLY_NAME,
- KSPROPERTY_SYSAUDIO_DEVICE_INSTANCE,
- KSPROPERTY_SYSAUDIO_DEVICE_INTERFACE_NAME,
- KSPROPERTY_SYSAUDIO_SELECT_GRAPH,
- KSPROPERTY_SYSAUDIO_CREATE_VIRTUAL_SOURCE,
- KSPROPERTY_SYSAUDIO_DEVICE_DEFAULT,
- KSPROPERTY_SYSAUDIO_ALWAYS_CREATE_VIRTUAL_SOURCE,
- KSPROPERTY_SYSAUDIO_ADDREMOVE_LOCK,
- KSPROPERTY_SYSAUDIO_ADDREMOVE_UNLOCK,
- KSPROPERTY_SYSAUDIO_RENDER_PIN_INSTANCES,
- KSPROPERTY_SYSAUDIO_RENDER_CONNECTION_INDEX,
- KSPROPERTY_SYSAUDIO_CREATE_VIRTUAL_SOURCE_ONLY,
- KSPROPERTY_SYSAUDIO_INSTANCE_INFO,
- KSPROPERTY_SYSAUDIO_PREFERRED_DEVICE,
- KSPROPERTY_SYSAUDIO_COMPONENT_ID,
- KSPROPERTY_SYSAUDIO_ADDREMOVE_GFX
- );
- {$EXTERNALSYM KSPROPERTY_SYSAUDIO}
- TKSPropertySysAudio = KSPROPERTY_SYSAUDIO;
- PSysAudioCreateVirtualSource = ^TSysAudioCreateVirtualSource;
- SYSAUDIO_CREATE_VIRTUAL_SOURCE = record
- Property_ : KSPROPERTY;
- PinCategory : TGUID;
- PinName : TGUID;
- end;
- {$EXTERNALSYM SYSAUDIO_CREATE_VIRTUAL_SOURCE}
- PSYSAUDIO_CREATE_VIRTUAL_SOURCE = ^SYSAUDIO_CREATE_VIRTUAL_SOURCE;
- {$EXTERNALSYM PSYSAUDIO_CREATE_VIRTUAL_SOURCE}
- TSysAudioCreateVirtualSource = SYSAUDIO_CREATE_VIRTUAL_SOURCE;
- PSysAudioSelectGraph = ^TSysAudioSelectGraph;
- SYSAUDIO_SELECT_GRAPH = record
- Property_ : KSPROPERTY;
- PinId : ULONG;
- NodeId : ULONG;
- Flags : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM SYSAUDIO_SELECT_GRAPH}
- PSYSAUDIO_SELECT_GRAPH = ^SYSAUDIO_SELECT_GRAPH;
- {$EXTERNALSYM PSYSAUDIO_SELECT_GRAPH}
- TSysAudioSelectGraph = SYSAUDIO_SELECT_GRAPH;
- PSysAudioInstanceInfo = ^TSysAudioInstanceInfo;
- SYSAUDIO_INSTANCE_INFO = record
- Property_ : KSPROPERTY;
- Flags : ULONG;
- DeviceNumber : ULONG;
- end;
- {$EXTERNALSYM SYSAUDIO_INSTANCE_INFO}
- PSYSAUDIO_INSTANCE_INFO = ^SYSAUDIO_INSTANCE_INFO;
- {$EXTERNALSYM PSYSAUDIO_INSTANCE_INFO}
- TSysAudioInstanceInfo = SYSAUDIO_INSTANCE_INFO;
- const
- SYSAUDIO_FLAGS_DONT_COMBINE_PINS = $00000001;
- {$EXTERNALSYM SYSAUDIO_FLAGS_DONT_COMBINE_PINS}
- type
- SYSAUDIO_PREFERRED_DEVICE = record
- Property_ : KSPROPERTY;
- Flags : ULONG;
- Index : ULONG; // KSPROPERTY_SYSAUDIO_DEFAULT_TYPE
- end;
- {$EXTERNALSYM SYSAUDIO_PREFERRED_DEVICE}
- PSYSAUDIO_PREFERRED_DEVICE = ^SYSAUDIO_PREFERRED_DEVICE;
- {$EXTERNALSYM PSYSAUDIO_PREFERRED_DEVICE}
- TSysAudioPreferredDevice = SYSAUDIO_PREFERRED_DEVICE;
- const
- SYSAUDIO_FLAGS_CLEAR_PREFERRED = $00000002;
- {$EXTERNALSYM SYSAUDIO_FLAGS_CLEAR_PREFERRED}
- type
- KSPROPERTY_SYSAUDIO_DEFAULT_TYPE = ( // preferred device index
- KSPROPERTY_SYSAUDIO_NORMAL_DEFAULT,
- KSPROPERTY_SYSAUDIO_PLAYBACK_DEFAULT,
- KSPROPERTY_SYSAUDIO_RECORD_DEFAULT,
- KSPROPERTY_SYSAUDIO_MIDI_DEFAULT,
- KSPROPERTY_SYSAUDIO_MIXER_DEFAULT
- );
- {$EXTERNALSYM KSPROPERTY_SYSAUDIO_DEFAULT_TYPE}
- TKSPropertySysAudioDefaultType = KSPROPERTY_SYSAUDIO_DEFAULT_TYPE;
- const
- KSPROPSETID_Sysaudio_Pin : TGUID = '{A3A53220-C6E4-11D0-B465-00001A1818E6}';
- {$EXTERNALSYM KSPROPSETID_Sysaudio_Pin}
- type
- KSPROPERTY_SYSAUDIO_PIN = (
- KSPROPERTY_SYSAUDIO_TOPOLOGY_CONNECTION_INDEX,
- KSPROPERTY_SYSAUDIO_ATTACH_VIRTUAL_SOURCE,
- KSPROPERTY_SYSAUDIO_PIN_VOLUME_NODE
- );
- {$EXTERNALSYM KSPROPERTY_SYSAUDIO_PIN}
- TKSPropertySysAudioPin = KSPROPERTY_SYSAUDIO_PIN;
- PSysAudioAttachVirtualSource = ^TSysAudioAttachVirtualSource;
- SYSAUDIO_ATTACH_VIRTUAL_SOURCE = record
- Property_ : KSPROPERTY;
- MixerPinId : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM SYSAUDIO_ATTACH_VIRTUAL_SOURCE}
- PSYSAUDIO_ATTACH_VIRTUAL_SOURCE = ^SYSAUDIO_ATTACH_VIRTUAL_SOURCE;
- {$EXTERNALSYM PSYSAUDIO_ATTACH_VIRTUAL_SOURCE}
- TSysAudioAttachVirtualSource = SYSAUDIO_ATTACH_VIRTUAL_SOURCE;
- KSNODEPROPERTY = record
- Property_ : KSPROPERTY;
- NodeId : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSNODEPROPERTY}
- PKSNODEPROPERTY = ^KSNODEPROPERTY;
- {$EXTERNALSYM PKSNODEPROPERTY}
- TKSNodeProperty = KSNODEPROPERTY;
- PKSNodePropertyAudioChannel = ^TKSNodePropertyAudioChannel;
- KSNODEPROPERTY_AUDIO_CHANNEL = record
- NodeProperty : TKSNODEPROPERTY;
- Channel : Longint; // value to get or set
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSNODEPROPERTY_AUDIO_CHANNEL}
- PKSNODEPROPERTY_AUDIO_CHANNEL = ^KSNODEPROPERTY_AUDIO_CHANNEL;
- {$EXTERNALSYM PKSNODEPROPERTY_AUDIO_CHANNEL}
- TKSNodePropertyAudioChannel = KSNODEPROPERTY_AUDIO_CHANNEL;
- PKSNodePropertyAudioDevSpecific = ^TKSNodePropertyAudioDevSpecific;
- KSNODEPROPERTY_AUDIO_DEV_SPECIFIC = record
- NodeProperty :TKSNODEPROPERTY;
- DevSpecificId :ULONG;
- DeviceInfo :ULONG;
- Length :ULONG;
- end;
- {$EXTERNALSYM KSNODEPROPERTY_AUDIO_DEV_SPECIFIC}
- PKSNODEPROPERTY_AUDIO_DEV_SPECIFIC = ^KSNODEPROPERTY_AUDIO_DEV_SPECIFIC;
- {$EXTERNALSYM PKSNODEPROPERTY_AUDIO_DEV_SPECIFIC}
- TKSNodePropertyAudioDevSpecific = KSNODEPROPERTY_AUDIO_DEV_SPECIFIC;
- PKSNodePropertyAudio3DListenerp = ^TKSNodePropertyAudio3DListener;
- KSNODEPROPERTY_AUDIO_3D_LISTENER = record
- NodeProperty : TKSNODEPROPERTY;
- ListenerId : pointer;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSNODEPROPERTY_AUDIO_3D_LISTENER}
- PKSNODEPROPERTY_AUDIO_3D_LISTENER = ^KSNODEPROPERTY_AUDIO_3D_LISTENER;
- {$EXTERNALSYM PKSNODEPROPERTY_AUDIO_3D_LISTENER}
- TKSNodePropertyAudio3DListener = KSNODEPROPERTY_AUDIO_3D_LISTENER;
- PKSNodePropertyAudioProperty = ^TKSNodePropertyAudioProperty;
- KSNODEPROPERTY_AUDIO_PROPERTY = record
- NodeProperty : TKSNODEPROPERTY;
- AppContext : Pointer;
- Length : ULONG;
- Reserved : ULONG;
- end;
- {$EXTERNALSYM KSNODEPROPERTY_AUDIO_PROPERTY}
- PKSNODEPROPERTY_AUDIO_PROPERTY = ^KSNODEPROPERTY_AUDIO_PROPERTY;
- {$EXTERNALSYM PKSNODEPROPERTY_AUDIO_PROPERTY}
- TKSNodePropertyAudioProperty = KSNODEPROPERTY_AUDIO_PROPERTY;
- //===========================================================================
- const
- KSPROPSETID_Linear : TGUID = '{5A2FFE80-16B9-11D0-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSPROPSETID_Linear}
- type
- KSPROPERTY_LINEAR = (
- KSPROPERTY_LINEAR_POSITION
- );
- {$EXTERNALSYM KSPROPERTY_LINEAR}
- TKSPropertyLinear = KSPROPERTY_LINEAR;
- //===========================================================================
- //
- // Midi definitions
- //
- //
- // Formats
- //
- const
- KSDATAFORMAT_TYPE_MUSIC : TGUID = '{E725D360-62CC-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MUSIC}
- // 'mids' == MEDIATYPE_Midi
- KSDATAFORMAT_TYPE_MIDI : TGUID = '{7364696D-0000-0010-8000-00aa00389b71}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MIDI}
- KSDATAFORMAT_SUBTYPE_MIDI : TGUID = '{1D262760-E957-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MIDI}
- KSDATAFORMAT_SUBTYPE_MIDI_BUS : TGUID = '{2CA15FA0-6CFE-11CF-A5D6-28DB04C10000}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MIDI_BUS}
- KSDATAFORMAT_SUBTYPE_RIFFMIDI : TGUID = '{4995DAF0-9EE6-11D0-A40E-00A0C9223196}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_RIFFMIDI}
- //
- // KSDATAFORMAT_SUBTYPE_DIRECTMUSIC
- // see DMusicKS.h
- //
- // WARNING! This structure MUST be dword aligned
- // regardless of the number of data bytes.
- type
- KSMUSICFORMAT = record
- TimeDeltaMs : ULONG ; // Delta Milliseconds from the previous midiformat
- // in the packet. The first midiformat in the packet
- // is a delta from the PTS in the KSSTREAM_HEADER.
- ByteCount : ULONG ; // Number of bytes of data that follow this struct.
- end;
- {$EXTERNALSYM KSMUSICFORMAT}
- PKSMUSICFORMAT = ^KSMUSICFORMAT;
- {$EXTERNALSYM PKSMUSICFORMAT}
- TKSMusicFormat = KSMUSICFORMAT;
- //
- // This entire set of MPEG Standard/Dialect Guids are obsolete. Do not use them.
- //
- //====================================================================================================
- //====================================================================================================
- // The following official MPEG Formats, Subtypes and Specifiers are listed as required or optional
- // These official MPEG GUIDs are the preferred method of supporting MPEG/AC-3 media types in new code.
- // Older MPEG GUIDs should also be supported for compatibilty, but these new modes are still required.
- //====================================================================================================
- //====================================================================================================
- {
- This is a summary of what media types/specifiers will be required for all DVD+DSS+DVB+DTV MPEG decoders.
- These media types are what the decoder driver must accept, hardware support for all of these media types
- may or may not actually be provided by the decoder natively. These media types are intended to define
- the "officially" supported MPEG/AC-3 media types that all WHQL certified decoders must implement. This
- specifically includes driver and/or hardware support for all the required standards and dialects.
- All MPEG video decoders must support all of the MPEG video modes shown as [required] below.
- All MPEG audio decoders must support all of the MPEG audio modes shown as [required] below.
- All AC-3 audio decoders must support all of the AC-3 audio modes shown as [required] below.
- The line items shown as [optional] need not be implemented, but are possible formats that might be implemented.
- Note that the input/output pin formats are defined by 2 or 3 GUIDs: TYPE, SUBTYPE, and maybe SPECIFIER.
- The specifiers are included if the data format is a "dialect" that needs to be differentiated during decoding.
- The decoder MUST be prepared to deal with ALL requests for _required_ "Standard" formats OR _required_ "Dialects".
- STATIC_KSDATAFORMAT_TYPE_STANDARD_ELEMENTARY_STREAM [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_VIDEO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_VIDEO [optional]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_AUDIO [optional]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_VIDEO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_VIDEO [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_AUDIO [optional]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_AC3_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_AC3_AUDIO [optional]
- STATIC_KSDATAFORMAT_TYPE_STANDARD_PES_PACKET [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_VIDEO [optional]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_VIDEO [optional]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_AUDIO [optional]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_AUDIO [optional]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_VIDEO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_VIDEO [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_AUDIO [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_AC3_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_AC3_AUDIO [optional]
- STATIC_KSDATAFORMAT_TYPE_STANDARD_PACK_HEADER [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_VIDEO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_VIDEO [required]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_AUDIO [optional]
- STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_AC3_AUDIO [required]
- STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_AC3_AUDIO [optional]
- Note that the SPECIFIER GUIDs normally identify particular versions of MPEG such as DSS and DVD.
- This approach was taken to minimize the number of DSS/DVB/DVD/DTV etc. media SUBTYPES.
- These specifiers are currently required to disambiguate MPEG syntax _parsing_ by the decoder
- using alternate parsing routines or downloadable firmware or hardware decode settings.
- In the future these specifiers will be extended to cover new KS MPEG flavors such as DVB and DTV.
- Thus, the optional specifiers will be subject to clarification and/or definition as they are needed.
- Important note: Per the ITU MPEG specs, MPEG 2 media may contain pure MPEG 1 syntax and
- any "MPEG 2" PES packets may actually contain MPEG 1 payloads and MPEG 1 syntax. Some MPEG
- broadcasts can revert from MPEG2 to MPEG1 format data at their discretion, without warning.
- CAUTION: Decoders MUST attempt to process MPEG data AS SOON AS POSSIBLE after reception.
- In particular, elementary MPEG or MPEG PES packet streams should not be aggregated into DVD
- "pack headers" internally before submission to the codec hardware if AT ALL POSSIBLE. The
- reason is that mpeg data may need to be processed immediately but there may be no additional
- MPEG data forthcoming to fill up the PES packet OR DVD "pack" in a timely fashion. This is
- particularly true of MPEG dialects that utilize "repeat field signally" to reuse the last
- decoded MPEG video field.
- }
- /////////////////////////////////////////////////////////////////////////
- // The major data type GUIDs that define the data packet encapsulation //
- /////////////////////////////////////////////////////////////////////////
- const
- // STATIC_KSDATAFORMAT_TYPE_STANDARD_ELEMENTARY_STREAM
- KSDATAFORMAT_TYPE_STANDARD_ELEMENTARY_STREAM : TGUID = '{36523B11-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_STANDARD_ELEMENTARY_STREAM}
- // STATIC_KSDATAFORMAT_TYPE_STANDARD_PES_PACKET
- KSDATAFORMAT_TYPE_STANDARD_PES_PACKET : TGUID = '{36523B12-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_STANDARD_PES_PACKET}
- // STATIC_KSDATAFORMAT_TYPE_STANDARD_PACK_HEADER
- KSDATAFORMAT_TYPE_STANDARD_PACK_HEADER : TGUID = '{36523B13-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_STANDARD_PACK_HEADER}
- ///////////////////////////////////////////////////////////////////////////////
- // The minor data subtype GUIDs that define the exact class of the data type.//
- ///////////////////////////////////////////////////////////////////////////////
- // STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_VIDEO
- KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_VIDEO : TGUID = '{36523B21-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_VIDEO}
- // STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_AUDIO
- KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_AUDIO : TGUID = '{36523B22-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_STANDARD_MPEG1_AUDIO}
- // STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_VIDEO
- KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_VIDEO : TGUID = '{36523B23-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_VIDEO}
- // STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_AUDIO
- KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_AUDIO : TGUID = '{36523B24-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_STANDARD_MPEG2_AUDIO}
- // STATIC_KSDATAFORMAT_SUBTYPE_STANDARD_AC3_AUDIO
- KSDATAFORMAT_SUBTYPE_STANDARD_AC3_AUDIO : TGUID = '{36523B25-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_STANDARD_AC3_AUDIO}
- ///////////////////////////////////////////////////////////////////////////////
- // The low-level specifier GUIDs that define the flavor of the data subtype. //
- // Some SUBTYPES, notably MPEG2_VIDEO, MPEG2_AUDIO have different dialects. //
- // These specifiers are intended to be accompanied by a specifier structure. //
- ///////////////////////////////////////////////////////////////////////////////
- // STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_VIDEO
- KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_VIDEO : TGUID = '{36523B31-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_VIDEO}
- // STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_AUDIO
- KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_AUDIO : TGUID = '{36523B32-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_DIALECT_MPEG1_AUDIO}
- // STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_VIDEO Associated with KS_MPEGVIDEOINFO2 defined later
- KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_VIDEO : TGUID = '{36523B33-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_VIDEO}
- // STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_AUDIO Associated with KS_MPEGAUDIOINFO defined later
- KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_AUDIO : TGUID = '{36523B34-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_DIALECT_MPEG2_AUDIO}
- // STATIC_KSDATAFORMAT_SPECIFIER_DIALECT_AC3_AUDIO
- KSDATAFORMAT_SPECIFIER_DIALECT_AC3_AUDIO : TGUID = '{36523B35-8EE5-11d1-8CA3-0060B057664A}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_DIALECT_AC3_AUDIO}
- //====================================================================================================
- //====================================================================================================
- // *** COMPATIBILITY WARNING ***
- // The *following* older DSS, MPEG, DVD & AC-3 GUID definitions are retained for backward compability.
- // These MPEG GUIDs should also be supported for compatibilty, but the above newer modes are still required.
- //====================================================================================================
- //====================================================================================================
- //
- // DSS definitions
- //
- KSDATAFORMAT_SUBTYPE_DSS_VIDEO : TGUID = '{a0af4f81-e163-11d0-bad9-00609744111a}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_DSS_VIDEO}
- KSDATAFORMAT_SUBTYPE_DSS_AUDIO : TGUID = '{a0af4f82-e163-11d0-bad9-00609744111a}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_DSS_AUDIO}
- //
- // End of obsolete MPEG definitions.
- //
- //
- // mpeg 1 definitions
- //
- KSDATAFORMAT_SUBTYPE_MPEG1Packet : TGUID = '{e436eb80-524f-11ce-9F53-0020af0ba770}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MPEG1Packet}
- KSDATAFORMAT_SUBTYPE_MPEG1Payload : TGUID = '{e436eb81-524f-11ce-9F53-0020af0ba770}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MPEG1Payload}
- // MEDIASUBTYPE_MPEG1Video
- KSDATAFORMAT_SUBTYPE_MPEG1Video : TGUID = '{e436eb86-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MPEG1Video}
- //FORMAT_MPEGVideo
- KSDATAFORMAT_SPECIFIER_MPEG1_VIDEO : TGUID = '{05589f82-c356-11ce-bf01-00aa0055595a}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_MPEG1_VIDEO}
- //
- // mpeg 2 definitions
- //
- KSDATAFORMAT_TYPE_MPEG2_PES : TGUID = '{e06d8020-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MPEG2_PES}
- KSDATAFORMAT_TYPE_MPEG2_PROGRAM : TGUID = '{e06d8022-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MPEG2_PROGRAM}
- KSDATAFORMAT_TYPE_MPEG2_TRANSPORT : TGUID = '{e06d8023-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MPEG2_TRANSPORT}
- KSDATAFORMAT_SUBTYPE_MPEG2_VIDEO : TGUID = '{e06d8026-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MPEG2_VIDEO}
- // use MPEGVIDEOINFO2 (defined below) with KSDATAFORMAT_SPECIFIER_MPEG2_VIDEO
- KSDATAFORMAT_SPECIFIER_MPEG2_VIDEO : TGUID = '{e06d80e3-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_MPEG2_VIDEO}
- //
- // Mpeg2 video properties
- //
- KSPROPSETID_Mpeg2Vid : TGUID = '{C8E11B60-0CC9-11D0-BD69-003505C103A9}';
- {$EXTERNALSYM KSPROPSETID_Mpeg2Vid}
- type
- KSPROPERTY_MPEG2VID = (
- KSPROPERTY_MPEG2VID_MODES, // available output modes of decoder
- KSPROPERTY_MPEG2VID_CUR_MODE, // current mode of the decoder
- KSPROPERTY_MPEG2VID_4_3_RECT, // output coordinates for 4:3 source
- KSPROPERTY_MPEG2VID_16_9_RECT, // output coordinates for 16:9 source
- KSPROPERTY_MPEG2VID_16_9_PANSCAN // pan and scan vectors
- );
- {$EXTERNALSYM KSPROPERTY_MPEG2VID}
- TKSPropertyMPEG2Vid = KSPROPERTY_MPEG2VID;
- //
- // bit field definitions for MPEG2 VIDEO mode
- //
- const
- KSMPEGVIDMODE_PANSCAN = $0001;
- {$EXTERNALSYM KSMPEGVIDMODE_PANSCAN}
- KSMPEGVIDMODE_LTRBOX = $0002;
- {$EXTERNALSYM KSMPEGVIDMODE_LTRBOX}
- KSMPEGVIDMODE_SCALE = $0004;
- {$EXTERNALSYM KSMPEGVIDMODE_SCALE}
- //
- // rectangle definitions for the 4/3 and 16/9 cropping properties of
- // the MPEG2Video decoder
- //
- type
- PKSMPEGVidRect = ^TKSMPEGVidRect;
- _KSMPEGVID_RECT = record
- StartX : ULONG;
- StartY : ULONG;
- EndX : ULONG;
- EndY : ULONG;
- end;
- {$EXTERNALSYM _KSMPEGVID_RECT}
- KSMPEGVID_RECT = _KSMPEGVID_RECT;
- {$EXTERNALSYM KSMPEGVID_RECT}
- PKSMPEGVID_RECT = ^KSMPEGVID_RECT;
- {$EXTERNALSYM PKSMPEGVID_RECT}
- TKSMPEGVidRect = _KSMPEGVID_RECT;
- //
- // Params for pan / scan
- //
- //
- // MPEG2 Audio definition
- //
- const
- KSDATAFORMAT_SUBTYPE_MPEG2_AUDIO : TGUID = '{e06d802b-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_MPEG2_AUDIO}
- KSDATAFORMAT_SPECIFIER_MPEG2_AUDIO : TGUID = '{e06d80e5-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_MPEG2_AUDIO}
- //
- // DVD LPCM Audio definition
- //
- KSDATAFORMAT_SUBTYPE_LPCM_AUDIO : TGUID = '{e06d8032-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_LPCM_AUDIO}
- KSDATAFORMAT_SPECIFIER_LPCM_AUDIO : TGUID = '{e06d80e6-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_LPCM_AUDIO}
- //
- // AC-3 definition
- //
- KSDATAFORMAT_SUBTYPE_AC3_AUDIO : TGUID = '{e06d802c-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_AC3_AUDIO}
- KSDATAFORMAT_SPECIFIER_AC3_AUDIO : TGUID = '{e06d80e4-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_AC3_AUDIO}
- KSPROPSETID_AC3 : TGUID = '{BFABE720-6E1F-11D0-BCF2-444553540000}';
- {$EXTERNALSYM KSPROPSETID_AC3}
- type
- KSPROPERTY_AC3 = (
- KSPROPERTY_AC3_Invalid,
- KSPROPERTY_AC3_ERROR_CONCEALMENT,
- KSPROPERTY_AC3_ALTERNATE_AUDIO,
- KSPROPERTY_AC3_DOWNMIX,
- KSPROPERTY_AC3_BIT_STREAM_MODE,
- KSPROPERTY_AC3_DIALOGUE_LEVEL,
- KSPROPERTY_AC3_LANGUAGE_CODE,
- KSPROPERTY_AC3_ROOM_TYPE
- );
- {$EXTERNALSYM KSPROPERTY_AC3}
- TKSPropertyAC3 = KSPROPERTY_AC3;
- PKSAC3ErrorConcealment = ^TKSAC3ErrorConcealment;
- KSAC3_ERROR_CONCEALMENT = record
- fRepeatPreviousBlock : BOOL;
- fErrorInCurrentBlock : BOOL;
- end;
- {$EXTERNALSYM KSAC3_ERROR_CONCEALMENT}
- PKSAC3_ERROR_CONCEALMENT = ^KSAC3_ERROR_CONCEALMENT;
- {$EXTERNALSYM PKSAC3_ERROR_CONCEALMENT}
- TKSAC3ErrorConcealment = KSAC3_ERROR_CONCEALMENT;
- PKSAC3AlternateAudio = ^TKSAC3AlternateAudio;
- KSAC3_ALTERNATE_AUDIO = record
- fStereo : BOOL;
- DualMode : ULONG;
- end;
- {$EXTERNALSYM KSAC3_ALTERNATE_AUDIO}
- PKSAC3_ALTERNATE_AUDIO = ^KSAC3_ALTERNATE_AUDIO;
- {$EXTERNALSYM PKSAC3_ALTERNATE_AUDIO}
- TKSAC3AlternateAudio = KSAC3_ALTERNATE_AUDIO;
- const
- KSAC3_ALTERNATE_AUDIO_1 = 1;
- {$EXTERNALSYM KSAC3_ALTERNATE_AUDIO_1}
- KSAC3_ALTERNATE_AUDIO_2 = 2;
- {$EXTERNALSYM KSAC3_ALTERNATE_AUDIO_2}
- KSAC3_ALTERNATE_AUDIO_BOTH = 3;
- {$EXTERNALSYM KSAC3_ALTERNATE_AUDIO_BOTH}
- type
- PKSAC3DownMix = ^TKSAC3DownMix;
- KSAC3_DOWNMIX = record
- fDownMix : BOOL;
- fDolbySurround : BOOL;
- end;
- {$EXTERNALSYM KSAC3_DOWNMIX}
- PKSAC3_DOWNMIX = ^KSAC3_DOWNMIX;
- {$EXTERNALSYM PKSAC3_DOWNMIX}
- TKSAC3DownMix = KSAC3_DOWNMIX;
- PKSAC3BitStreamMode = ^TKSAC3BitStreamMode;
- KSAC3_BIT_STREAM_MODE = record
- BitStreamMode : Longint;
- end;
- {$EXTERNALSYM KSAC3_BIT_STREAM_MODE}
- PKSAC3_BIT_STREAM_MODE = ^KSAC3_BIT_STREAM_MODE;
- {$EXTERNALSYM PKSAC3_BIT_STREAM_MODE}
- TKSAC3BitStreamMode = KSAC3_BIT_STREAM_MODE;
- const
- KSAC3_SERVICE_MAIN_AUDIO = 0;
- {$EXTERNALSYM KSAC3_SERVICE_MAIN_AUDIO}
- KSAC3_SERVICE_NO_DIALOG = 1;
- {$EXTERNALSYM KSAC3_SERVICE_NO_DIALOG}
- KSAC3_SERVICE_VISUALLY_IMPAIRED = 2;
- {$EXTERNALSYM KSAC3_SERVICE_VISUALLY_IMPAIRED}
- KSAC3_SERVICE_HEARING_IMPAIRED = 3;
- {$EXTERNALSYM KSAC3_SERVICE_HEARING_IMPAIRED}
- KSAC3_SERVICE_DIALOG_ONLY = 4;
- {$EXTERNALSYM KSAC3_SERVICE_DIALOG_ONLY}
- KSAC3_SERVICE_COMMENTARY = 5;
- {$EXTERNALSYM KSAC3_SERVICE_COMMENTARY}
- KSAC3_SERVICE_EMERGENCY_FLASH = 6;
- {$EXTERNALSYM KSAC3_SERVICE_EMERGENCY_FLASH}
- KSAC3_SERVICE_VOICE_OVER = 7;
- {$EXTERNALSYM KSAC3_SERVICE_VOICE_OVER}
- type
- PKSAC3DialogueLevel = ^TKSAC3DialogueLevel;
- KSAC3_DIALOGUE_LEVEL = record
- DialogueLevel : ULONG;
- end;
- {$EXTERNALSYM KSAC3_DIALOGUE_LEVEL}
- PKSAC3_DIALOGUE_LEVEL = ^KSAC3_DIALOGUE_LEVEL;
- {$EXTERNALSYM PKSAC3_DIALOGUE_LEVEL}
- TKSAC3DialogueLevel = KSAC3_DIALOGUE_LEVEL;
- PKSAC3RoomType = ^TKSAC3RoomType;
- KSAC3_ROOM_TYPE = record
- fLargeRoom : BOOL;
- end;
- {$EXTERNALSYM KSAC3_ROOM_TYPE}
- PKSAC3_ROOM_TYPE = ^KSAC3_ROOM_TYPE;
- {$EXTERNALSYM PKSAC3_ROOM_TYPE}
- TKSAC3RoomType = KSAC3_ROOM_TYPE;
- //
- // DTS and SDDS definitions (media subtype GUIDs)
- //
- const
- KSDATAFORMAT_SUBTYPE_DTS_AUDIO : TGUID = '{e06d8033-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_DTS_AUDIO}
- KSDATAFORMAT_SUBTYPE_SDDS_AUDIO : TGUID = '{e06d8034-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_SDDS_AUDIO}
- //
- // audio decoder output properties
- //
- KSPROPSETID_AudioDecoderOut : TGUID = '{6ca6e020-43bd-11d0-bd6a-003505c103a9}';
- {$EXTERNALSYM KSPROPSETID_AudioDecoderOut}
- type
- KSPROPERTY_AUDDECOUT = (
- KSPROPERTY_AUDDECOUT_MODES, // available output modes of decoder
- KSPROPERTY_AUDDECOUT_CUR_MODE // current mode of the decoder
- );
- {$EXTERNALSYM KSPROPERTY_AUDDECOUT}
- TKSPropertyAuddecout = KSPROPERTY_AUDDECOUT;
- const
- KSAUDDECOUTMODE_STEREO_ANALOG = $0001;
- {$EXTERNALSYM KSAUDDECOUTMODE_STEREO_ANALOG}
- KSAUDDECOUTMODE_PCM_51 = $0002;
- {$EXTERNALSYM KSAUDDECOUTMODE_PCM_51}
- KSAUDDECOUTMODE_SPDIFF = $0004;
- {$EXTERNALSYM KSAUDDECOUTMODE_SPDIFF}
- //
- // subpicture definition
- //
- KSDATAFORMAT_SUBTYPE_SUBPICTURE : TGUID = '{e06d802d-db46-11cf-b4d1-00805f6cbbea}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_SUBPICTURE}
- KSPROPSETID_DvdSubPic : TGUID = '{ac390460-43af-11d0-bd6a-003505c103a9}';
- {$EXTERNALSYM KSPROPSETID_DvdSubPic}
- type
- KSPROPERTY_DVDSUBPIC = (
- KSPROPERTY_DVDSUBPIC_PALETTE,
- KSPROPERTY_DVDSUBPIC_HLI,
- KSPROPERTY_DVDSUBPIC_COMPOSIT_ON // TRUE for subpicture is displayed
- );
- {$EXTERNALSYM KSPROPERTY_DVDSUBPIC}
- TKSPropertyDVDSubPic = KSPROPERTY_DVDSUBPIC;
- PKSDVDYCrCb = ^TKSDVDYCrCb;
- _KS_DVD_YCrCb = record
- Reserved : byte;
- Y : byte;
- Cr : byte;
- Cb : byte;
- end;
- {$EXTERNALSYM _KS_DVD_YCrCb}
- KS_DVD_YCrCb = _KS_DVD_YCrCb;
- {$EXTERNALSYM KS_DVD_YCrCb}
- PKS_DVD_YCrCb = ^KS_DVD_YCrCb;
- {$EXTERNALSYM PKS_DVD_YCrCb}
- TKSDVDYCrCb = _KS_DVD_YCrCb;
- // The KS_DVD_YUV structure is now superseded by KS_DVD_YCrCb above and is
- // here for backward compatibility only
- PKSDVDYUV = ^TKSDVDYUV;
- _KS_DVD_YUV = record
- Reserved : byte;
- Y : byte;
- V : byte;
- U : byte;
- end;
- {$EXTERNALSYM _KS_DVD_YUV}
- KS_DVD_YUV = _KS_DVD_YUV;
- {$EXTERNALSYM KS_DVD_YUV}
- PKS_DVD_YUV = ^KS_DVD_YUV;
- {$EXTERNALSYM PKS_DVD_YUV}
- TKSDVDYUV = _KS_DVD_YUV;
- PKSPropertySPPAL = ^TKSPropertySPPAL;
- _KSPROPERTY_SPPAL = record
- sppal : array[0..15] of TKSDVDYUV;
- end;
- {$EXTERNALSYM _KSPROPERTY_SPPAL}
- KSPROPERTY_SPPAL = _KSPROPERTY_SPPAL;
- {$EXTERNALSYM KSPROPERTY_SPPAL}
- PKSPROPERTY_SPPAL = ^KSPROPERTY_SPPAL;
- {$EXTERNALSYM PKSPROPERTY_SPPAL}
- TKSPropertySPPAL = _KSPROPERTY_SPPAL;
- PKSColCon = ^TKSColCon;
- _KS_COLCON = record
- emph1col : byte; //:4;
- emph2col : byte; //:4;
- backcol : byte; //:4;
- patcol : byte; //:4;
- emph1con : byte; //:4;
- emph2con : byte; //:4;
- backcon : byte; //:4;
- patcon : byte; //:4;
- end;
- {$EXTERNALSYM _KS_COLCON}
- KS_COLCON = _KS_COLCON;
- {$EXTERNALSYM KS_COLCON}
- PKS_COLCON = ^KS_COLCON;
- {$EXTERNALSYM PKS_COLCON}
- TKSColCon = _KS_COLCON;
- PKSPropertySPHLI = ^TKSPropertySPHLI;
- _KSPROPERTY_SPHLI = record
- HLISS : WORD;
- Reserved : WORD;
- StartPTM : ULONG; // start presentation time in x/90000
- EndPTM : ULONG; // end PTM in x/90000
- StartX : WORD;
- StartY : WORD;
- StopX : WORD;
- StopY : WORD;
- ColCon : TKSColCon; // color contrast description (4 bytes as given in HLI)
- end;
- {$EXTERNALSYM _KSPROPERTY_SPHLI}
- KSPROPERTY_SPHLI = _KSPROPERTY_SPHLI;
- {$EXTERNALSYM KSPROPERTY_SPHLI}
- PKSPROPERTY_SPHLI = ^KSPROPERTY_SPHLI;
- {$EXTERNALSYM PKSPROPERTY_SPHLI}
- TKSPropertySPHLI = _KSPROPERTY_SPHLI;
- PKSPROPERTY_COMPOSIT_ON = ^KSPROPERTY_COMPOSIT_ON;
- {$EXTERNALSYM PKSPROPERTY_COMPOSIT_ON}
- KSPROPERTY_COMPOSIT_ON = {$IFDEF TYPE_IDENTITY}type {$ENDIF} BOOL;
- {$EXTERNALSYM KSPROPERTY_COMPOSIT_ON}
- const
- KSPROPSETID_CopyProt : TGUID = '{0E8A0A40-6AEF-11D0-9ED0-00A024CA19B3}';
- {$EXTERNALSYM KSPROPSETID_CopyProt}
- type
- KSPROPERTY_COPYPROT = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KSPROPERTY_COPYPROT}
- const
- KSPROPERTY_DVDCOPY_CHLG_KEY = $01;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_CHLG_KEY}
- KSPROPERTY_DVDCOPY_DVD_KEY1 = $02;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_DVD_KEY1}
- KSPROPERTY_DVDCOPY_DEC_KEY2 = $03;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_DEC_KEY2}
- KSPROPERTY_DVDCOPY_TITLE_KEY = $04;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_TITLE_KEY}
- KSPROPERTY_COPY_MACROVISION = $05;
- {$EXTERNALSYM KSPROPERTY_COPY_MACROVISION}
- KSPROPERTY_DVDCOPY_REGION = $06;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_REGION}
- KSPROPERTY_DVDCOPY_SET_COPY_STATE = $07;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_SET_COPY_STATE}
- KSPROPERTY_DVDCOPY_DISC_KEY = $80;
- {$EXTERNALSYM KSPROPERTY_DVDCOPY_DISC_KEY}
- type
- PKSDVDCopyCHLGKey = ^TKSDVDCopyCHLGKey;
- _KS_DVDCOPY_CHLGKEY = record
- ChlgKey : array[0..9] of BYTE;
- Reserved : array[0..1] of BYTE;
- end;
- {$EXTERNALSYM _KS_DVDCOPY_CHLGKEY}
- KS_DVDCOPY_CHLGKEY = _KS_DVDCOPY_CHLGKEY;
- {$EXTERNALSYM KS_DVDCOPY_CHLGKEY}
- PKS_DVDCOPY_CHLGKEY = ^KS_DVDCOPY_CHLGKEY;
- {$EXTERNALSYM PKS_DVDCOPY_CHLGKEY}
- TKSDVDCopyCHLGKey = _KS_DVDCOPY_CHLGKEY;
- PKSDVDCopyBusKey = ^TKSDVDCopyBusKey;
- _KS_DVDCOPY_BUSKEY = record
- BusKey : array[0..4] of BYTE;
- Reserved : array[0..0] of BYTE;
- end;
- {$EXTERNALSYM _KS_DVDCOPY_BUSKEY}
- KS_DVDCOPY_BUSKEY = _KS_DVDCOPY_BUSKEY;
- {$EXTERNALSYM KS_DVDCOPY_BUSKEY}
- PKS_DVDCOPY_BUSKEY = ^KS_DVDCOPY_BUSKEY;
- {$EXTERNALSYM PKS_DVDCOPY_BUSKEY}
- TKSDVDCopyBusKey = _KS_DVDCOPY_BUSKEY;
- PKSDVDCopyDiscKey = ^TKSDVDCopyDiscKey;
- _KS_DVDCOPY_DISCKEY = record
- DiscKey : array[0..2047] of BYTE;
- end;
- {$EXTERNALSYM _KS_DVDCOPY_DISCKEY}
- KS_DVDCOPY_DISCKEY = _KS_DVDCOPY_DISCKEY;
- {$EXTERNALSYM KS_DVDCOPY_DISCKEY}
- PKS_DVDCOPY_DISCKEY = ^KS_DVDCOPY_DISCKEY;
- {$EXTERNALSYM PKS_DVDCOPY_DISCKEY}
- TKSDVDCopyDiscKey = _KS_DVDCOPY_DISCKEY;
- PKSDVDCopyRegion = ^TKSDVDCopyRegion;
- _KS_DVDCOPY_REGION = record
- Reserved : UCHAR;
- RegionData : UCHAR;
- Reserved2 : array[0..1] of UCHAR;
- end;
- {$EXTERNALSYM _KS_DVDCOPY_REGION}
- KS_DVDCOPY_REGION = _KS_DVDCOPY_REGION;
- {$EXTERNALSYM KS_DVDCOPY_REGION}
- PKS_DVDCOPY_REGION = ^KS_DVDCOPY_REGION;
- {$EXTERNALSYM PKS_DVDCOPY_REGION}
- TKSDVDCopyRegion = _KS_DVDCOPY_REGION;
- PKSDVDCopyTitleKey = ^TKSDVDCopyTitleKey;
- _KS_DVDCOPY_TITLEKEY = record
- KeyFlags : ULONG;
- ReservedNT : array[0..1] of ULONG;
- TitleKey : array[0..5] of UCHAR;
- Reserved : array[0..1] of UCHAR;
- end;
- {$EXTERNALSYM _KS_DVDCOPY_TITLEKEY}
- KS_DVDCOPY_TITLEKEY = _KS_DVDCOPY_TITLEKEY;
- {$EXTERNALSYM KS_DVDCOPY_TITLEKEY}
- PKS_DVDCOPY_TITLEKEY = ^KS_DVDCOPY_TITLEKEY;
- {$EXTERNALSYM PKS_DVDCOPY_TITLEKEY}
- TKSDVDCopyTitleKey = _KS_DVDCOPY_TITLEKEY;
- PKSCopyMacrovision = ^TKSCopyMacrovision;
- _KS_COPY_MACROVISION = record
- MACROVISIONLevel : ULONG;
- end;
- {$EXTERNALSYM _KS_COPY_MACROVISION}
- KS_COPY_MACROVISION = _KS_COPY_MACROVISION;
- {$EXTERNALSYM KS_COPY_MACROVISION}
- PKS_COPY_MACROVISION = ^KS_COPY_MACROVISION;
- {$EXTERNALSYM PKS_COPY_MACROVISION}
- TKSCopyMacrovision = _KS_COPY_MACROVISION;
- PKSDVDCopySetCopyState = ^TKSDVDCopySetCopyState;
- _KS_DVDCOPY_SET_COPY_STATE = record
- DVDCopyState : ULONG;
- end;
- {$EXTERNALSYM _KS_DVDCOPY_SET_COPY_STATE}
- KS_DVDCOPY_SET_COPY_STATE = _KS_DVDCOPY_SET_COPY_STATE;
- {$EXTERNALSYM KS_DVDCOPY_SET_COPY_STATE}
- PKS_DVDCOPY_SET_COPY_STATE = ^KS_DVDCOPY_SET_COPY_STATE;
- {$EXTERNALSYM PKS_DVDCOPY_SET_COPY_STATE}
- TKSDVDCopySetCopyState = _KS_DVDCOPY_SET_COPY_STATE;
- KS_DVDCOPYSTATE = (
- KS_DVDCOPYSTATE_INITIALIZE, // indicates we are starting a full
- // copy protection sequence.
- KS_DVDCOPYSTATE_INITIALIZE_TITLE, // indicates we are starting a title
- // key copy protection sequence
- KS_DVDCOPYSTATE_AUTHENTICATION_NOT_REQUIRED,
- KS_DVDCOPYSTATE_AUTHENTICATION_REQUIRED,
- KS_DVDCOPYSTATE_DONE
- );
- {$EXTERNALSYM KS_DVDCOPYSTATE}
- TKSDVDCopyState = KS_DVDCOPYSTATE;
- PKSCopyMacrovisionLevel = ^TKSCopyMacrovisionLevel;
- KS_COPY_MACROVISION_LEVEL = (
- KS_MACROVISION_DISABLED,
- KS_MACROVISION_LEVEL1,
- KS_MACROVISION_LEVEL2,
- KS_MACROVISION_LEVEL3
- );
- {$EXTERNALSYM KS_COPY_MACROVISION_LEVEL}
- PKS_COPY_MACROVISION_LEVEL = ^KS_COPY_MACROVISION_LEVEL;
- {$EXTERNALSYM PKS_COPY_MACROVISION_LEVEL}
- TKSCopyMacrovisionLevel = KS_COPY_MACROVISION_LEVEL;
- //
- // CGMS Copy Protection Flags
- //
- const
- KS_DVD_CGMS_RESERVED_MASK = $00000078;
- {$EXTERNALSYM KS_DVD_CGMS_RESERVED_MASK}
- KS_DVD_CGMS_COPY_PROTECT_MASK = $00000018;
- {$EXTERNALSYM KS_DVD_CGMS_COPY_PROTECT_MASK}
- KS_DVD_CGMS_COPY_PERMITTED = $00000000;
- {$EXTERNALSYM KS_DVD_CGMS_COPY_PERMITTED}
- KS_DVD_CGMS_COPY_ONCE = $00000010;
- {$EXTERNALSYM KS_DVD_CGMS_COPY_ONCE}
- KS_DVD_CGMS_NO_COPY = $00000018;
- {$EXTERNALSYM KS_DVD_CGMS_NO_COPY}
- KS_DVD_COPYRIGHT_MASK = $00000040;
- {$EXTERNALSYM KS_DVD_COPYRIGHT_MASK}
- KS_DVD_NOT_COPYRIGHTED = $00000000;
- {$EXTERNALSYM KS_DVD_NOT_COPYRIGHTED}
- KS_DVD_COPYRIGHTED = $00000040;
- {$EXTERNALSYM KS_DVD_COPYRIGHTED}
- KS_DVD_SECTOR_PROTECT_MASK = $00000020;
- {$EXTERNALSYM KS_DVD_SECTOR_PROTECT_MASK}
- KS_DVD_SECTOR_NOT_PROTECTED = $00000000;
- {$EXTERNALSYM KS_DVD_SECTOR_NOT_PROTECTED}
- KS_DVD_SECTOR_PROTECTED = $00000020;
- {$EXTERNALSYM KS_DVD_SECTOR_PROTECTED}
- //===========================================================================
- // The following MUST match the structures in WinGDI.h and AMVideo.h
- //===========================================================================
- KSCATEGORY_TVTUNER : TGUID = '{a799a800-a46d-11d0-a18c-00a02401dcd4}';
- {$EXTERNALSYM KSCATEGORY_TVTUNER}
- KSCATEGORY_CROSSBAR : TGUID = '{a799a801-a46d-11d0-a18c-00a02401dcd4}';
- {$EXTERNALSYM KSCATEGORY_CROSSBAR}
- KSCATEGORY_TVAUDIO : TGUID = '{a799a802-a46d-11d0-a18c-00a02401dcd4}';
- {$EXTERNALSYM KSCATEGORY_TVAUDIO}
- KSCATEGORY_VPMUX : TGUID = '{a799a803-a46d-11d0-a18c-00a02401dcd4}';
- {$EXTERNALSYM KSCATEGORY_VPMUX}
- KSCATEGORY_VBICODEC : TGUID = '{07dad660-22f1-11d1-a9f4-00c04fbbde8f}';
- {$EXTERNALSYM KSCATEGORY_VBICODEC}
- // SUBTYPE_VPVideo
- KSDATAFORMAT_SUBTYPE_VPVideo : TGUID = '{5a9b6a40-1a22-11d1-bad9-00609744111a}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_VPVideo}
- // SUBTYPE_VPVBI
- KSDATAFORMAT_SUBTYPE_VPVBI : TGUID = '{5a9b6a41-1a22-11d1-bad9-00609744111a}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_VPVBI}
- // FORMAT_VideoInfo
- KSDATAFORMAT_SPECIFIER_VIDEOINFO : TGUID = '{05589f80-c356-11ce-bf01-00aa0055595a}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_VIDEOINFO}
- // FORMAT_VideoInfo2
- KSDATAFORMAT_SPECIFIER_VIDEOINFO2 : TGUID = '{f72a76A0-eb0a-11d0-ace4-0000c0cc16ba}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_VIDEOINFO2}
- // MEDIATYPE_AnalogVideo
- KSDATAFORMAT_TYPE_ANALOGVIDEO : TGUID = '{0482dde1-7817-11cf-8a03-00aa006ecb65}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_ANALOGVIDEO}
- // FORMAT_AnalogVideo
- KSDATAFORMAT_SPECIFIER_ANALOGVIDEO : TGUID = '{0482dde0-7817-11cf-8a03-00aa006ecb65}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_ANALOGVIDEO}
- // FORMAT_VBI
- KSDATAFORMAT_SPECIFIER_VBI : TGUID = '{f72a76e0-eb0a-11d0-ace4-0000c0cc16ba}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_VBI}
- // MEDIATYPE_VBI
- KSDATAFORMAT_TYPE_VBI : TGUID = '{f72a76e1-eb0a-11d0-ace4-0000c0cc16ba}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_VBI}
- // SUBTYPE_RAW8
- KSDATAFORMAT_SUBTYPE_RAW8 : TGUID = '{ca20d9a0-3e3e-11d1-9bf9-00c04fbbdebf}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_RAW8}
- // MEDIASUBTYPE_CC
- KSDATAFORMAT_SUBTYPE_CC : TGUID = '{33214CC1-011F-11D2-B4B1-00A0D102CFBE}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_CC}
- // MEDIASUBTYPE_NABTS
- KSDATAFORMAT_SUBTYPE_NABTS : TGUID = '{f72a76e2-eb0a-11d0-ace4-0000c0cc16ba}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_NABTS}
- // MEDIASUBTYPE_TELETEXT
- KSDATAFORMAT_SUBTYPE_TELETEXT : TGUID = '{f72a76e3-eb0a-11d0-ace4-0000c0cc16ba}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_TELETEXT}
- // constants for the biCompression field
- KS_BI_RGB = 0;
- {$EXTERNALSYM KS_BI_RGB}
- KS_BI_RLE8 = 1;
- {$EXTERNALSYM KS_BI_RLE8}
- KS_BI_RLE4 = 2;
- {$EXTERNALSYM KS_BI_RLE4}
- KS_BI_BITFIELDS = 3;
- {$EXTERNALSYM KS_BI_BITFIELDS}
- type
- PKSRGBQuad = ^TKSRGBQuad;
- tagKS_RGBQUAD = record // rgbq
- rgbBlue : BYTE;
- rgbGreen : BYTE;
- rgbRed : BYTE;
- rgbReserved : BYTE;
- end;
- {$EXTERNALSYM tagKS_RGBQUAD}
- KS_RGBQUAD = tagKS_RGBQUAD;
- {$EXTERNALSYM KS_RGBQUAD}
- PKS_RGBQUAD = ^KS_RGBQUAD;
- {$EXTERNALSYM PKS_RGBQUAD}
- TKSRGBQuad = tagKS_RGBQUAD;
- // constants for palettes
- const
- KS_iPALETTE_COLORS = 256; // Maximum colours in palette
- {$EXTERNALSYM KS_iPALETTE_COLORS}
- KS_iEGA_COLORS = 16; // Number colours in EGA palette
- {$EXTERNALSYM KS_iEGA_COLORS}
- KS_iMASK_COLORS = 3; // Maximum three components
- {$EXTERNALSYM KS_iMASK_COLORS}
- KS_iTRUECOLOR = 16; // Minimum true colour device
- {$EXTERNALSYM KS_iTRUECOLOR}
- KS_iRED = 0; // Index position for RED mask
- {$EXTERNALSYM KS_iRED}
- KS_iGREEN = 1; // Index position for GREEN mask
- {$EXTERNALSYM KS_iGREEN}
- KS_iBLUE = 2; // Index position for BLUE mask
- {$EXTERNALSYM KS_iBLUE}
- KS_iPALETTE = 8; // Maximum colour depth using a palette
- {$EXTERNALSYM KS_iPALETTE}
- KS_iMAXBITS = 8; // Maximum bits per colour component
- {$EXTERNALSYM KS_iMAXBITS}
- KS_SIZE_EGA_PALETTE = (KS_iEGA_COLORS * sizeof(TKSRGBQUAD));
- {$EXTERNALSYM KS_SIZE_EGA_PALETTE}
- KS_SIZE_PALETTE = (KS_iPALETTE_COLORS * sizeof(TKSRGBQUAD));
- {$EXTERNALSYM KS_SIZE_PALETTE}
- type
- PKSBitmapInfoHeader = ^TKSBitmapInfoHeader;
- tagKS_BITMAPINFOHEADER = record
- biSize : DWORD;
- biWidth : longint;
- biHeight : longint;
- biPlanes : WORD;
- biBitCount : WORD;
- biCompression : DWORD;
- biSizeImage : DWORD;
- biXPelsPerMeter : longint;
- biYPelsPerMeter : longint;
- biClrUsed : DWORD;
- biClrImportant : DWORD;
- end;
- {$EXTERNALSYM tagKS_BITMAPINFOHEADER}
- KS_BITMAPINFOHEADER = tagKS_BITMAPINFOHEADER;
- {$EXTERNALSYM KS_BITMAPINFOHEADER}
- PKS_BITMAPINFOHEADER = ^KS_BITMAPINFOHEADER;
- {$EXTERNALSYM PKS_BITMAPINFOHEADER}
- TKSBitmapInfoHeader = tagKS_BITMAPINFOHEADER;
- // Used for true colour images that also have a palette
- PKSTrueColorInfo = ^TKSTrueColorInfo;
- tag_KS_TRUECOLORINFO = record
- dwBitMasks : array[0..KS_iMASK_COLORS-1] of DWORD;
- bmiColors : array[0..KS_iPALETTE_COLORS-1] of TKSRGBQUAD;
- end;
- {$EXTERNALSYM tag_KS_TRUECOLORINFO}
- KS_TRUECOLORINFO = tag_KS_TRUECOLORINFO;
- {$EXTERNALSYM KS_TRUECOLORINFO}
- PKS_TRUECOLORINFO = ^KS_TRUECOLORINFO;
- {$EXTERNALSYM PKS_TRUECOLORINFO}
- TKSTrueColorInfo = tag_KS_TRUECOLORINFO;
- // KS_WIDTHBYTES(bits) ((DWORD)(((bits)+31) & (~31)) / 8)
- // KS_DIBWIDTHBYTES(bi) (DWORD)KS_WIDTHBYTES((DWORD)(bi).biWidth * (DWORD)(bi).biBitCount)
- // KS__DIBSIZE(bi) (KS_DIBWIDTHBYTES(bi) * (DWORD)(bi).biHeight)
- // KS_DIBSIZE(bi) ((bi).biHeight < 0 ? (-1)*(KS__DIBSIZE(bi)) : KS__DIBSIZE(bi))
- // typedef REFERENCE_TIME: int64;
- // The BITMAPINFOHEADER contains all the details about the video stream such
- // as the actual image dimensions and their pixel depth. A source filter may
- // also request that the sink take only a section of the video by providing a
- // clipping rectangle in rcSource. In the worst case where the sink filter
- // forgets to check this on connection it will simply render the whole thing
- // which isn't a disaster. Ideally a sink filter will check the rcSource and
- // if it doesn't support image extraction and the rectangle is not empty then
- // it will reject the connection. A filter should use SetRectEmpty to reset a
- // rectangle to all zeroes (and IsRectEmpty to later check the rectangle).
- // The rcTarget specifies the destination rectangle for the video, for most
- // source filters they will set this to all zeroes, a downstream filter may
- // request that the video be placed in a particular area of the buffers it
- // supplies in which case it will call QueryAccept with a non empty target
- PKSVideoInfoHeader = ^TKSVideoInfoHeader;
- tagKS_VIDEOINFOHEADER = record
- rcSource : TRECT; // The bit we really want to use
- rcTarget : TRECT; // Where the video should go
- dwBitRate : DWORD; // Approximate bit data rate
- dwBitErrorRate : DWORD; // Bit error rate for this stream
- AvgTimePerFrame : TReferenceTime; // Average time per frame (100ns units)
- bmiHeader : TKSBitmapInfoHeader;
- end;
- {$EXTERNALSYM tagKS_VIDEOINFOHEADER}
- KS_VIDEOINFOHEADER = tagKS_VIDEOINFOHEADER;
- {$EXTERNALSYM KS_VIDEOINFOHEADER}
- PKS_VIDEOINFOHEADER = ^KS_VIDEOINFOHEADER;
- {$EXTERNALSYM PKS_VIDEOINFOHEADER}
- TKSVideoInfoHeader = tagKS_VIDEOINFOHEADER;
- // !!! WARNING !!!
- // DO NOT use the following structure unless you are sure that the BITMAPINFOHEADER
- // has a normal biSize == sizeof(BITMAPINFOHEADER) !
- // !!! WARNING !!!
- PKSVideoInfo = ^TKSVideoInfo;
- tagKS_VIDEOINFO = record
- rcSource : TRECT; // The bit we really want to use
- rcTarget : TRECT; // Where the video should go
- dwBitRate : DWORD; // Approximate bit data rate
- dwBitErrorRate : DWORD; // Bit error rate for this stream
- AvgTimePerFrame : TReferenceTime; // Average time per frame (100ns units)
- bmiHeader : TKSBitmapInfoHeader;
- case integer of
- 0: (bmiColors : array[0..KS_iPALETTE_COLORS-1] of TKSRGBQUAD); // Colour palette
- 1: (dwBitMasks : array[0..KS_iMASK_COLORS-1] of DWORD); // True colour masks
- 2: (TrueColorInfo : TKSTrueColorInfo); // Both of the above
- end;
- {$EXTERNALSYM tagKS_VIDEOINFO}
- KS_VIDEOINFO = tagKS_VIDEOINFO;
- {$EXTERNALSYM KS_VIDEOINFO}
- PKS_VIDEOINFO = ^KS_VIDEOINFO;
- {$EXTERNALSYM PKS_VIDEOINFO}
- TKSVideoInfo = tagKS_VIDEOINFO;
- const
- KS_SIZE_MASKS = (KS_iMASK_COLORS * sizeof(DWORD));
- {$EXTERNALSYM KS_SIZE_MASKS}
- // KS_SIZE_PREHEADER = (FIELD_OFFSET(KS_VIDEOINFOHEADER,bmiHeader))
- // For normal size
- // #define KS_SIZE_VIDEOHEADER (sizeof(KS_BITMAPINFOHEADER) + KS_SIZE_PREHEADER)
- // !!! for abnormal biSizes
- //#define KS_SIZE_VIDEOHEADER(pbmi) ((pbmi)->bmiHeader.biSize + KS_SIZE_PREHEADER)
- // VBI
- // Used for NABTS, CC, Intercast,
- type
- PKSVBIInfoHeader = ^TKSVBIInfoHeader;
- tagKS_VBIINFOHEADER = record
- StartLine : ULONG; // inclusive
- EndLine : ULONG; // inclusive
- SamplingFrequency : ULONG; // Hz.
- MinLineStartTime : ULONG; // microSec * 100 from HSync LE
- MaxLineStartTime : ULONG; // microSec * 100 from HSync LE
- ActualLineStartTime : ULONG; // microSec * 100 from HSync LE
- ActualLineEndTime : ULONG; // microSec * 100 from HSync LE
- VideoStandard : ULONG; // KS_AnalogVideoStandard*
- SamplesPerLine : ULONG;
- StrideInBytes : ULONG; // May be > SamplesPerLine
- BufferSize : ULONG; // Bytes
- end;
- {$EXTERNALSYM tagKS_VBIINFOHEADER}
- KS_VBIINFOHEADER = tagKS_VBIINFOHEADER;
- {$EXTERNALSYM KS_VBIINFOHEADER}
- PKS_VBIINFOHEADER = ^KS_VBIINFOHEADER;
- {$EXTERNALSYM PKS_VBIINFOHEADER}
- TKSVBIInfoHeader = tagKS_VBIINFOHEADER;
- // VBI Sampling Rates
- const
- KS_VBIDATARATE_NABTS = 5727272;
- {$EXTERNALSYM KS_VBIDATARATE_NABTS}
- KS_VBIDATARATE_CC = 503493; // ~= 1/1.986125e-6
- {$EXTERNALSYM KS_VBIDATARATE_CC}
- KS_VBISAMPLINGRATE_4X_NABTS = longint(4*KS_VBIDATARATE_NABTS);
- {$EXTERNALSYM KS_VBISAMPLINGRATE_4X_NABTS}
- KS_VBISAMPLINGRATE_47X_NABTS = longint(27000000);
- {$EXTERNALSYM KS_VBISAMPLINGRATE_47X_NABTS}
- KS_VBISAMPLINGRATE_5X_NABTS = longint(5*KS_VBIDATARATE_NABTS);
- {$EXTERNALSYM KS_VBISAMPLINGRATE_5X_NABTS}
- KS_47NABTS_SCALER = KS_VBISAMPLINGRATE_47X_NABTS/KS_VBIDATARATE_NABTS;
- {$EXTERNALSYM KS_47NABTS_SCALER}
- // Analog video variant - Use this when the format is FORMAT_AnalogVideo
- //
- // rcSource defines the portion of the active video signal to use
- // rcTarget defines the destination rectangle
- // both of the above are relative to the dwActiveWidth and dwActiveHeight fields
- // dwActiveWidth is currently set to 720 for all formats (but could change for HDTV)
- // dwActiveHeight is 483 for NTSC and 575 for PAL/SECAM (but could change for HDTV)
- type
- PKSAnalogVideoInfo = ^TKSAnalogVideoInfo;
- tagKS_AnalogVideoInfo = record
- rcSource : TRECT; // Width max is 720, height varies w/ TransmissionStd
- rcTarget : TRECT; // Where the video should go
- dwActiveWidth : DWORD; // Always 720 (CCIR-601 active samples per line)
- dwActiveHeight : DWORD; // 483 for NTSC, 575 for PAL/SECAM
- AvgTimePerFrame : TReferenceTime; // Normal ActiveMovie units (100 nS)
- end;
- {$EXTERNALSYM tagKS_AnalogVideoInfo}
- KS_AnalogVideoInfo = tagKS_AnalogVideoInfo;
- {$EXTERNALSYM KS_ANALOGVIDEOINFO}
- PKS_ANALOGVIDEOINFO = ^KS_ANALOGVIDEOINFO;
- {$EXTERNALSYM PKS_ANALOGVIDEOINFO}
- TKSAnalogVideoInfo = tagKS_AnalogVideoInfo;
- //===========================================================================
- // Data packet passed on Analog video stream channel change
- //===========================================================================
- const
- KS_TVTUNER_CHANGE_BEGIN_TUNE = $0001; // Starting a tuning operation
- {$EXTERNALSYM KS_TVTUNER_CHANGE_BEGIN_TUNE}
- KS_TVTUNER_CHANGE_END_TUNE = $0002; // Ending a tuning operation
- {$EXTERNALSYM KS_TVTUNER_CHANGE_END_TUNE}
- type
- PKSTVTunerChangeInfo = ^TKSTVTunerChangeInfo;
- tagKS_TVTUNER_CHANGE_INFO = record
- dwFlags : DWORD; // KS_TVTUNER_CHANGE_*
- dwCountryCode : DWORD;
- dwAnalogVideoStandard : DWORD; // KS_AnalogVideoStandard
- dwChannel : DWORD;
- end;
- {$EXTERNALSYM tagKS_TVTUNER_CHANGE_INFO}
- KS_TVTUNER_CHANGE_INFO = tagKS_TVTUNER_CHANGE_INFO;
- {$EXTERNALSYM KS_TVTUNER_CHANGE_INFO}
- PKS_TVTUNER_CHANGE_INFO = ^KS_TVTUNER_CHANGE_INFO;
- {$EXTERNALSYM PKS_TVTUNER_CHANGE_INFO}
- TKSTVTunerChangeInfo = tagKS_TVTUNER_CHANGE_INFO;
- //===========================================================================
- // Video format blocks
- //===========================================================================
- KS_MPEG2Level = (
- KS_MPEG2Level_Low,
- KS_MPEG2Level_Main,
- KS_MPEG2Level_High1440,
- KS_MPEG2Level_High
- );
- {$EXTERNALSYM KS_MPEG2Level}
- TKSMPEG2Level = KS_MPEG2Level;
- KS_MPEG2Profile = (
- KS_MPEG2Profile_Simple,
- KS_MPEG2Profile_Main,
- KS_MPEG2Profile_SNRScalable,
- KS_MPEG2Profile_SpatiallyScalable,
- KS_MPEG2Profile_High
- );
- {$EXTERNALSYM KS_MPEG2Profile}
- TKSMPEG2Profile = KS_MPEG2Profile;
- const
- KS_INTERLACE_IsInterlaced = $00000001; // if 0, other interlace bits are irrelevent
- {$EXTERNALSYM KS_INTERLACE_IsInterlaced}
- KS_INTERLACE_1FieldPerSample = $00000002; // else 2 fields per media sample
- {$EXTERNALSYM KS_INTERLACE_1FieldPerSample}
- KS_INTERLACE_Field1First = $00000004; // else Field 2 is first; top field in PAL is field 1, top field in NTSC is field 2?
- {$EXTERNALSYM KS_INTERLACE_Field1First}
- KS_INTERLACE_UNUSED = $00000008; //
- {$EXTERNALSYM KS_INTERLACE_UNUSED}
- KS_INTERLACE_FieldPatternMask = $00000030; // use this mask with AMINTERLACE_FieldPat*
- {$EXTERNALSYM KS_INTERLACE_FieldPatternMask}
- KS_INTERLACE_FieldPatField1Only = $00000000; // Data never contains a Field2
- {$EXTERNALSYM KS_INTERLACE_FieldPatField1Only}
- KS_INTERLACE_FieldPatField2Only = $00000010; // Data never contains a Field1
- {$EXTERNALSYM KS_INTERLACE_FieldPatField2Only}
- KS_INTERLACE_FieldPatBothRegular = $00000020; // There will be a Field2 for every Field1 (required for Weave?)
- {$EXTERNALSYM KS_INTERLACE_FieldPatBothRegular}
- KS_INTERLACE_FieldPatBothIrregular = $00000030; // Random pattern of Field1s and Field2s
- {$EXTERNALSYM KS_INTERLACE_FieldPatBothIrregular}
- KS_INTERLACE_DisplayModeMask = $000000c0;
- {$EXTERNALSYM KS_INTERLACE_DisplayModeMask}
- KS_INTERLACE_DisplayModeBobOnly = $00000000;
- {$EXTERNALSYM KS_INTERLACE_DisplayModeBobOnly}
- KS_INTERLACE_DisplayModeWeaveOnly = $00000040;
- {$EXTERNALSYM KS_INTERLACE_DisplayModeWeaveOnly}
- KS_INTERLACE_DisplayModeBobOrWeave = $00000080;
- {$EXTERNALSYM KS_INTERLACE_DisplayModeBobOrWeave}
- KS_MPEG2_DoPanScan = $00000001; //if set, the MPEG-2 video decoder should crop output image
- {$EXTERNALSYM KS_MPEG2_DoPanScan} // based on pan-scan vectors in picture_display_extension
- // and change the picture aspect ratio accordingly.
- KS_MPEG2_DVDLine21Field1 = $00000002; //if set, the MPEG-2 decoder must be able to produce an output
- {$EXTERNALSYM KS_MPEG2_DVDLine21Field1} // pin for DVD style closed caption data found in GOP layer of field 1
- KS_MPEG2_DVDLine21Field2 = $00000004; //if set, the MPEG-2 decoder must be able to produce an output
- {$EXTERNALSYM KS_MPEG2_DVDLine21Field2} // pin for DVD style closed caption data found in GOP layer of field 2
- KS_MPEG2_SourceIsLetterboxed = $00000008; //if set, indicates that black bars have been encoded in the top
- {$EXTERNALSYM KS_MPEG2_SourceIsLetterboxed} // and bottom of the video.
- KS_MPEG2_FilmCameraMode = $00000010; //if set, indicates "film mode" used for 625/50 content. If cleared,
- {$EXTERNALSYM KS_MPEG2_FilmCameraMode} // indicates that "camera mode" was used.
- KS_MPEG2_LetterboxAnalogOut = $00000020; //if set and this stream is sent to an analog output, it should
- {$EXTERNALSYM KS_MPEG2_LetterboxAnalogOut}
- // be letterboxed. Streams sent to VGA should be letterboxed only by renderers.
- KS_MPEG2_DSS_UserData = $00000040; //if set, the MPEG-2 decoder must process DSS style user data
- {$EXTERNALSYM KS_MPEG2_DSS_UserData}
- KS_MPEG2_DVB_UserData = $00000080; //if set, the MPEG-2 decoder must process DVB style user data
- {$EXTERNALSYM KS_MPEG2_DVB_UserData}
- KS_MPEG2_27MhzTimebase = $00000100; //if set, the PTS,DTS timestamps advance at 27MHz rather than 90KHz
- {$EXTERNALSYM KS_MPEG2_27MhzTimebase}
- type
- PKSVideoInfoHeader2 = ^TKSVideoInfoHeader2;
- tagKS_VIDEOINFOHEADER2 = record
- rcSource : TRECT;
- rcTarget : TRECT;
- dwBitRate : DWORD;
- dwBitErrorRate : DWORD;
- AvgTimePerFrame : TReferenceTime;
- dwInterlaceFlags : DWORD; // use AMINTERLACE_* defines. Reject connection if undefined bits are not 0
- dwCopyProtectFlags : DWORD; // use AMCOPYPROTECT_* defines. Reject connection if undefined bits are not 0
- dwPictAspectRatioX : DWORD; // X dimension of picture aspect ratio, e.g. 16 for 16x9 display
- dwPictAspectRatioY : DWORD; // Y dimension of picture aspect ratio, e.g. 9 for 16x9 display
- dwReserved1 : DWORD; // must be 0; reject connection otherwise
- dwReserved2 : DWORD; // must be 0; reject connection otherwise
- bmiHeader : TKSBitmapInfoHeader;
- end;
- {$EXTERNALSYM tagKS_VIDEOINFOHEADER2}
- KS_VIDEOINFOHEADER2 = tagKS_VIDEOINFOHEADER2;
- {$EXTERNALSYM KS_VIDEOINFOHEADER2}
- PKS_VIDEOINFOHEADER2 = ^KS_VIDEOINFOHEADER2;
- {$EXTERNALSYM PKS_VIDEOINFOHEADER2}
- TKSVideoInfoHeader2 = tagKS_VIDEOINFOHEADER2;
- PKSMPEG1VideoInfo = ^TKSMPEG1VideoInfo;
- tagKS_MPEG1VIDEOINFO = record
- hdr : TKSVideoInfoHeader ; // Compatible with VIDEOINFO
- dwStartTimeCode : DWORD ; // 25-bit Group of pictures time code at start of data
- cbSequenceHeader : DWORD ; // Length in bytes of bSequenceHeader
- bSequenceHeader : array[0..0] of BYTE; // Sequence header including quantization matrices if any
- end;
- {$EXTERNALSYM tagKS_MPEG1VIDEOINFO}
- KS_MPEG1VIDEOINFO = tagKS_MPEG1VIDEOINFO;
- {$EXTERNALSYM KS_MPEG1VIDEOINFO}
- PKS_MPEG1VIDEOINFO = ^KS_MPEG1VIDEOINFO;
- {$EXTERNALSYM PKS_MPEG1VIDEOINFO}
- TKSMPEG1VideoInfo = tagKS_MPEG1VIDEOINFO;
- const
- KS_MAX_SIZE_MPEG1_SEQUENCE_INFO = 140;
- {$EXTERNALSYM KS_MAX_SIZE_MPEG1_SEQUENCE_INFO}
- // KS_SIZE_MPEG1VIDEOINFO(pv) (FIELD_OFFSET(KS_MPEG1VIDEOINFO, bSequenceHeader[0]) + (pv)->cbSequenceHeader)
- // KS_MPEG1_SEQUENCE_INFO(pv) ((const BYTE *)(pv)->bSequenceHeader)
- type
- PKSMPEGVideoInfo2 = ^TKSMPEGVideoInfo2;
- tagKS_MPEGVIDEOINFO2 = record
- hdr : TKSVideoInfoHeader2;
- dwStartTimeCode : DWORD; // ?? not used for DVD ??
- cbSequenceHeader : DWORD; // is 0 for DVD (no sequence header)
- dwProfile : DWORD; // use enum MPEG2Profile
- dwLevel : DWORD; // use enum MPEG2Level
- dwFlags : DWORD; // use AMMPEG2_* defines. Reject connection if undefined bits are not 0
- bSequenceHeader : array[0..0] of DWORD; // DWORD instead of Byte for alignment purposes
- // For MPEG-2, if a sequence_header is included, the sequence_extension
- // should also be included
- end;
- {$EXTERNALSYM tagKS_MPEGVIDEOINFO2}
- KS_MPEGVIDEOINFO2 = tagKS_MPEGVIDEOINFO2;
- {$EXTERNALSYM KS_MPEGVIDEOINFO2}
- PKS_MPEGVIDEOINFO2 = ^KS_MPEGVIDEOINFO2;
- {$EXTERNALSYM PKS_MPEGVIDEOINFO2}
- TKSMPEGVideoInfo2 = tagKS_MPEGVIDEOINFO2;
- const
- // KS_SIZE_MPEGVIDEOINFO2(pv) (FIELD_OFFSET(KS_MPEGVIDEOINFO2, bSequenceHeader[0]) + (pv)->cbSequenceHeader)
- // KS_MPEG1_SEQUENCE_INFO(pv) ((const BYTE *)(pv)->bSequenceHeader)
- //===========================================================================
- // Audio format blocks
- //===========================================================================
- //if set, the PTS,DTS timestamps advance at 27MHz rather than 90KHz
- KS_MPEGAUDIOINFO_27MhzTimebase = $00000001;
- {$EXTERNALSYM KS_MPEGAUDIOINFO_27MhzTimebase}
- type
- PKSMPEGAudioInfo = ^TKSMPEGAudioInfo;
- tagKS_MPEAUDIOINFO = record
- dwFlags : DWORD; // use KS_MPEGAUDIOINFO_* defines. Reject connection if undefined bits are not 0
- dwReserved1 : DWORD; // must be 0; reject connection otherwise
- dwReserved2 : DWORD; // must be 0; reject connection otherwise
- dwReserved3 : DWORD; // must be 0; reject connection otherwise
- end;
- {$EXTERNALSYM tagKS_MPEAUDIOINFO}
- KS_MPEGAUDIOINFO = tagKS_MPEAUDIOINFO;
- {$EXTERNALSYM KS_MPEGAUDIOINFO}
- PKS_MPEGAUDIOINFO = ^KS_MPEGAUDIOINFO;
- {$EXTERNALSYM PKS_MPEGAUDIOINFO}
- TKSMPEGAudioInfo = tagKS_MPEAUDIOINFO;
- //===========================================================================
- // Video DATAFORMATs
- //===========================================================================
- PKSDataFormatVideoInfoHeader = ^TKSDataFormatVideoInfoHeader;
- tagKS_DATAFORMAT_VIDEOINFOHEADER = record
- DataFormat : TKSDataFormat;
- VideoInfoHeader : TKSVideoInfoHeader;
- end;
- {$EXTERNALSYM tagKS_DATAFORMAT_VIDEOINFOHEADER}
- KS_DATAFORMAT_VIDEOINFOHEADER = tagKS_DATAFORMAT_VIDEOINFOHEADER;
- {$EXTERNALSYM KS_DATAFORMAT_VIDEOINFOHEADER}
- PKS_DATAFORMAT_VIDEOINFOHEADER = ^KS_DATAFORMAT_VIDEOINFOHEADER;
- {$EXTERNALSYM PKS_DATAFORMAT_VIDEOINFOHEADER}
- TKSDataFormatVideoInfoHeader = tagKS_DATAFORMAT_VIDEOINFOHEADER;
- PKSDataFormatVideoInfoHeader2 = ^TKSDataFormatVideoInfoHeader2;
- tagKS_DATAFORMAT_VIDEOINFOHEADER2 = record
- DataFormat : TKSDataFormat;
- VideoInfoHeader2 : TKSVideoInfoHeader2;
- end;
- {$EXTERNALSYM tagKS_DATAFORMAT_VIDEOINFOHEADER2}
- KS_DATAFORMAT_VIDEOINFOHEADER2 = tagKS_DATAFORMAT_VIDEOINFOHEADER2;
- {$EXTERNALSYM KS_DATAFORMAT_VIDEOINFOHEADER2}
- PKS_DATAFORMAT_VIDEOINFOHEADER2 = ^KS_DATAFORMAT_VIDEOINFOHEADER2;
- {$EXTERNALSYM PKS_DATAFORMAT_VIDEOINFOHEADER2}
- TKSDataFormatVideoInfoHeader2 = tagKS_DATAFORMAT_VIDEOINFOHEADER2;
- PKSDataFormatVideoinfoPalette = ^TKSDataFormatVideoinfoPalette;
- tagKS_DATAFORMAT_VIDEOINFO_PALETTE = record
- DataFormat : TKSDataFormat;
- VideoInfo : TKSVideoInfo;
- end;
- {$EXTERNALSYM tagKS_DATAFORMAT_VIDEOINFO_PALETTE}
- KS_DATAFORMAT_VIDEOINFO_PALETTE = tagKS_DATAFORMAT_VIDEOINFO_PALETTE;
- {$EXTERNALSYM KS_DATAFORMAT_VIDEOINFO_PALETTE}
- PKS_DATAFORMAT_VIDEOINFO_PALETTE = ^KS_DATAFORMAT_VIDEOINFO_PALETTE;
- {$EXTERNALSYM PKS_DATAFORMAT_VIDEOINFO_PALETTE}
- TKSDataFormatVideoinfoPalette = tagKS_DATAFORMAT_VIDEOINFO_PALETTE;
- PKSDataFormatVBIInfoHeader = ^TKSDataFormatVBIInfoHeader;
- tagKS_DATAFORMAT_VBIINFOHEADER = record
- DataFormat : TKSDATAFORMAT;
- VBIInfoHeader : TKSVBIInfoHeader;
- end;
- {$EXTERNALSYM tagKS_DATAFORMAT_VBIINFOHEADER}
- KS_DATAFORMAT_VBIINFOHEADER = tagKS_DATAFORMAT_VBIINFOHEADER;
- {$EXTERNALSYM KS_DATAFORMAT_VBIINFOHEADER}
- PKS_DATAFORMAT_VBIINFOHEADER = ^KS_DATAFORMAT_VBIINFOHEADER;
- {$EXTERNALSYM PKS_DATAFORMAT_VBIINFOHEADER}
- TKSDataFormatVBIInfoHeader = tagKS_DATAFORMAT_VBIINFOHEADER;
- PKSVideoStreamConfigCaps = ^TKSVideoStreamConfigCaps;
- _KS_VIDEO_STREAM_CONFIG_CAPS = record
- guid : TGUID; // will be MEDIATYPE_Video
- VideoStandard : ULONG; // logical OR of all AnalogVideoStandards
- // supported
- InputSize : TSIZE; // the inherent size of the incoming signal
- // (every pixel unique)
- MinCroppingSize : TSIZE; // smallest rcSrc cropping rect allowed
- MaxCroppingSize : TSIZE; // largest rcSrc cropping rect allowed
- CropGranularityX : integer; // granularity of cropping size
- CropGranularityY : integer;
- CropAlignX : integer; // alignment of cropping rect
- CropAlignY : integer;
- MinOutputSize : TSIZE; // smallest bitmap stream can produce
- MaxOutputSize : TSIZE; // largest bitmap stream can produce
- OutputGranularityX : integer; // granularity of output bitmap size
- OutputGranularityY : integer;
- StretchTapsX : integer; // 0, no stretch, 1 pix dup, 2 interp, ...
- StretchTapsY : integer; // Describes quality of hardware scaler
- ShrinkTapsX : integer; //
- ShrinkTapsY : integer; //
- MinFrameInterval : int64; // 100 nS units
- MaxFrameInterval : int64;
- MinBitsPerSecond : longint;
- MaxBitsPerSecond : longint;
- end;
- {$EXTERNALSYM _KS_VIDEO_STREAM_CONFIG_CAPS}
- KS_VIDEO_STREAM_CONFIG_CAPS = _KS_VIDEO_STREAM_CONFIG_CAPS;
- {$EXTERNALSYM KS_VIDEO_STREAM_CONFIG_CAPS}
- PKS_VIDEO_STREAM_CONFIG_CAPS = ^KS_VIDEO_STREAM_CONFIG_CAPS;
- {$EXTERNALSYM PKS_VIDEO_STREAM_CONFIG_CAPS}
- TKSVideoStreamConfigCaps = _KS_VIDEO_STREAM_CONFIG_CAPS;
- //===========================================================================
- // Video DATARANGEs
- //===========================================================================
- PKSDataRangeVideo = ^TKSDataRangeVideo;
- tagKS_DATARANGE_VIDEO = record
- DataRange : TKSDataRange;
- bFixedSizeSamples : BOOL; // all samples same size?
- bTemporalCompression : BOOL; // all I frames?
- StreamDescriptionFlags : DWORD; // KS_VIDEO_DESC_*
- MemoryAllocationFlags : DWORD; // KS_VIDEO_ALLOC_*
- ConfigCaps : TKSVideoStreamConfigCaps;
- VideoInfoHeader : TKSVideoInfoHeader; // default format
- end;
- {$EXTERNALSYM tagKS_DATARANGE_VIDEO}
- KS_DATARANGE_VIDEO = tagKS_DATARANGE_VIDEO;
- {$EXTERNALSYM KS_DATARANGE_VIDEO}
- PKS_DATARANGE_VIDEO = ^KS_DATARANGE_VIDEO;
- {$EXTERNALSYM PKS_DATARANGE_VIDEO}
- TKSDataRangeVideo = tagKS_DATARANGE_VIDEO;
- PKSDataRangeVideo2 = ^TKSDataRangeVideo2;
- tagKS_DATARANGE_VIDEO2 = record
- DataRange : TKSDataRange;
- bFixedSizeSamples : BOOL; // all samples same size?
- bTemporalCompression : BOOL; // all I frames?
- StreamDescriptionFlags : DWORD; // KS_VIDEO_DESC_*
- MemoryAllocationFlags : DWORD; // KS_VIDEO_ALLOC_*
- ConfigCaps : TKSVideoStreamConfigCaps;
- VideoInfoHeader : TKSVideoInfoHeader2; // default format
- end;
- {$EXTERNALSYM tagKS_DATARANGE_VIDEO2}
- KS_DATARANGE_VIDEO2 = tagKS_DATARANGE_VIDEO2;
- {$EXTERNALSYM KS_DATARANGE_VIDEO2}
- PKS_DATARANGE_VIDEO2 = ^KS_DATARANGE_VIDEO2;
- {$EXTERNALSYM PKS_DATARANGE_VIDEO2}
- TKSDataRangeVideo2 = tagKS_DATARANGE_VIDEO2;
- PKSDataRangeMPEG1Video = ^TKSDataRangeMPEG1Video;
- tagKS_DATARANGE_MPEG1_VIDEO = record
- DataRange : TKSDataRange ;
- bFixedSizeSamples : BOOL ; // all samples same size?
- bTemporalCompression : BOOL ; // all I frames?
- StreamDescriptionFlags : DWORD ; // KS_VIDEO_DESC_*
- MemoryAllocationFlags : DWORD ; // KS_VIDEO_ALLOC_*
- ConfigCaps : TKSVideoStreamConfigCaps ;
- VideoInfoHeader : TKSMPEG1VideoInfo ; // default format
- end;
- {$EXTERNALSYM tagKS_DATARANGE_MPEG1_VIDEO}
- KS_DATARANGE_MPEG1_VIDEO = tagKS_DATARANGE_MPEG1_VIDEO;
- {$EXTERNALSYM KS_DATARANGE_MPEG1_VIDEO}
- PKS_DATARANGE_MPEG1_VIDEO = ^KS_DATARANGE_MPEG1_VIDEO;
- {$EXTERNALSYM PKS_DATARANGE_MPEG1_VIDEO}
- TKSDataRangeMPEG1Video = tagKS_DATARANGE_MPEG1_VIDEO;
- PKSDataRangeMPEG2Video = ^TKSDataRangeMPEG2Video;
- tagKS_DATARANGE_MPEG2_VIDEO = record
- DataRange : TKSDataRange;
- bFixedSizeSamples : BOOL; // all samples same size?
- bTemporalCompression : BOOL; // all I frames?
- StreamDescriptionFlags : DWORD; // KS_VIDEO_DESC_*
- MemoryAllocationFlags : DWORD; // KS_VIDEO_ALLOC_*
- ConfigCaps : TKSVideoStreamConfigCaps;
- VideoInfoHeader : TKSMPEGVideoInfo2; // default format
- end;
- {$EXTERNALSYM tagKS_DATARANGE_MPEG2_VIDEO}
- KS_DATARANGE_MPEG2_VIDEO = tagKS_DATARANGE_MPEG2_VIDEO;
- {$EXTERNALSYM KS_DATARANGE_MPEG2_VIDEO}
- PKS_DATARANGE_MPEG2_VIDEO = ^KS_DATARANGE_MPEG2_VIDEO;
- {$EXTERNALSYM PKS_DATARANGE_MPEG2_VIDEO}
- TKSDataRangeMPEG2Video = tagKS_DATARANGE_MPEG2_VIDEO;
- PKSDataRangeVideoPalette = ^TKSDataRangeVideoPalette;
- tagKS_DATARANGE_VIDEO_PALETTE = record
- DataRange : TKSDataRange;
- bFixedSizeSamples : BOOL; // all samples same size?
- bTemporalCompression : BOOL; // all I frames?
- StreamDescriptionFlags : DWORD; // KS_VIDEO_DESC_*
- MemoryAllocationFlags : DWORD; // KS_VIDEO_ALLOC_*
- ConfigCaps : TKSVideoStreamConfigCaps;
- VideoInfo : TKSVideoInfo; // default format
- end;
- {$EXTERNALSYM tagKS_DATARANGE_VIDEO_PALETTE}
- KS_DATARANGE_VIDEO_PALETTE = tagKS_DATARANGE_VIDEO_PALETTE;
- {$EXTERNALSYM KS_DATARANGE_VIDEO_PALETTE}
- PKS_DATARANGE_VIDEO_PALETTE = ^KS_DATARANGE_VIDEO_PALETTE;
- {$EXTERNALSYM PKS_DATARANGE_VIDEO_PALETTE}
- TKSDataRangeVideoPalette = tagKS_DATARANGE_VIDEO_PALETTE;
- PKSDataRangeVideoVBI = ^TKSDataRangeVideoVBI;
- tagKS_DATARANGE_VIDEO_VBI = record
- DataRange : TKSDataRange;
- bFixedSizeSamples : BOOL; // all samples same size?
- bTemporalCompression : BOOL; // all I frames?
- StreamDescriptionFlags : DWORD; // KS_VIDEO_DESC_*
- MemoryAllocationFlags : DWORD; // KS_VIDEO_ALLOC_*
- ConfigCaps : TKSVideoStreamConfigCaps;
- VBIInfoHeader : TKSVBIInfoHeader; // default format
- end;
- {$EXTERNALSYM tagKS_DATARANGE_VIDEO_VBI}
- KS_DATARANGE_VIDEO_VBI = tagKS_DATARANGE_VIDEO_VBI;
- {$EXTERNALSYM KS_DATARANGE_VIDEO_VBI}
- PKS_DATARANGE_VIDEO_VBI = ^KS_DATARANGE_VIDEO_VBI;
- {$EXTERNALSYM PKS_DATARANGE_VIDEO_VBI}
- TKSDataRangeVideoVBI = tagKS_DATARANGE_VIDEO_VBI;
- PKSDataRangeAnalogVideo = ^TKSDataRangeAnalogVideo;
- tagKS_DATARANGE_ANALOGVIDEO = record
- DataRange : TKSDataRange;
- AnalogVideoInfo : TKSAnalogVideoInfo;
- end;
- {$EXTERNALSYM tagKS_DATARANGE_ANALOGVIDEO}
- KS_DATARANGE_ANALOGVIDEO = tagKS_DATARANGE_ANALOGVIDEO;
- {$EXTERNALSYM KS_DATARANGE_ANALOGVIDEO}
- PKS_DATARANGE_ANALOGVIDEO = ^KS_DATARANGE_ANALOGVIDEO;
- {$EXTERNALSYM PKS_DATARANGE_ANALOGVIDEO}
- TKSDataRangeAnalogVideo = tagKS_DATARANGE_ANALOGVIDEO;
- //===========================================================================
- // StreamDescriptionFlags
- //
- // These define the "purpose" of each video stream
- //===========================================================================
- const
- KS_VIDEOSTREAM_PREVIEW = $0001; // Preview stream
- {$EXTERNALSYM KS_VIDEOSTREAM_PREVIEW}
- KS_VIDEOSTREAM_CAPTURE = $0002; // Capture stream
- {$EXTERNALSYM KS_VIDEOSTREAM_CAPTURE}
- KS_VIDEOSTREAM_VBI = $0010; // Field1 VBI
- {$EXTERNALSYM KS_VIDEOSTREAM_VBI}
- KS_VIDEOSTREAM_NABTS = $0020; // Field1 NABTS
- {$EXTERNALSYM KS_VIDEOSTREAM_NABTS}
- KS_VIDEOSTREAM_CC = $0100; // Closed Captioning
- {$EXTERNALSYM KS_VIDEOSTREAM_CC}
- KS_VIDEOSTREAM_EDS = $0200; // Extended Data Services
- {$EXTERNALSYM KS_VIDEOSTREAM_EDS}
- KS_VIDEOSTREAM_TELETEXT = $0400; // Field1 Teletext only
- {$EXTERNALSYM KS_VIDEOSTREAM_TELETEXT}
- KS_VIDEOSTREAM_STILL = $1000; // Still image input
- {$EXTERNALSYM KS_VIDEOSTREAM_STILL}
- KS_VIDEOSTREAM_IS_VPE = $8000; // Is a VPE based stream?
- {$EXTERNALSYM KS_VIDEOSTREAM_IS_VPE}
- // MemoryAllocationFlags
- KS_VIDEO_ALLOC_VPE_SYSTEM = $0001; // VPE surface in system memory
- {$EXTERNALSYM KS_VIDEO_ALLOC_VPE_SYSTEM}
- KS_VIDEO_ALLOC_VPE_DISPLAY = $0002; // VPE surface in display memory
- {$EXTERNALSYM KS_VIDEO_ALLOC_VPE_DISPLAY}
- KS_VIDEO_ALLOC_VPE_AGP = $0004; // VPE surface in AGP memory
- {$EXTERNALSYM KS_VIDEO_ALLOC_VPE_AGP}
- //////////////////////////////////////////////////////////////
- // Capture driver VBI property sets
- //////////////////////////////////////////////////////////////
- // {F162C607-7B35-496f-AD7F-2DCA3B46B718}
- KSPROPSETID_VBICAP_PROPERTIES : TGUID = '{F162C607-7B35-496f-AD7F-2DCA3B46B718}';
- {$EXTERNALSYM KSPROPSETID_VBICAP_PROPERTIES}
- type
- KSPROPERTY_VBICAP = (
- {$IFNDEF COMPILER6_UP}
- KSPROPERTY_VBICAP_PROPERTIES_INVALID_0,
- KSPROPERTY_VBICAP_PROPERTIES_PROTECTION
- {$ELSE}
- KSPROPERTY_VBICAP_PROPERTIES_PROTECTION = 1
- {$ENDIF}
- );
- {$EXTERNALSYM KSPROPERTY_VBICAP}
- TKSPropertyVBICap = KSPROPERTY_VBICAP;
- PVBICapPropertiesProtectionS = ^TVBICapPropertiesProtectionS;
- _VBICAP_PROPERTIES_PROTECTION_S = record
- Property_ : KSPROPERTY;
- StreamIndex : ULONG; // Index of stream
- Status : ULONG;
- end;
- {$EXTERNALSYM _VBICAP_PROPERTIES_PROTECTION_S}
- VBICAP_PROPERTIES_PROTECTION_S = _VBICAP_PROPERTIES_PROTECTION_S;
- {$EXTERNALSYM VBICAP_PROPERTIES_PROTECTION_S}
- PVBICAP_PROPERTIES_PROTECTION_S = ^VBICAP_PROPERTIES_PROTECTION_S;
- {$EXTERNALSYM PVBICAP_PROPERTIES_PROTECTION_S}
- TVBICapPropertiesProtectionS = _VBICAP_PROPERTIES_PROTECTION_S;
- const
- KS_VBICAP_PROTECTION_MV_PRESENT = $0001;
- {$EXTERNALSYM KS_VBICAP_PROTECTION_MV_PRESENT}
- KS_VBICAP_PROTECTION_MV_HARDWARE = $0002;
- {$EXTERNALSYM KS_VBICAP_PROTECTION_MV_HARDWARE}
- KS_VBICAP_PROTECTION_MV_DETECTED = $0004;
- {$EXTERNALSYM KS_VBICAP_PROTECTION_MV_DETECTED}
- //***************************************************************************/
- //* VBI Related GUIDs, structs and properties for codecs(generic, cc, nabts)*/
- //***************************************************************************/
- ///////////////////////////////////////////////////////////////////////////////////////
- // IP/NABTS Protocol Reserved Group IDs - Overall Range 0x800-0x8FF [Decimal 2048-2079]
- // Intervening values(0-F) are used if there are multiple providers at a particular tier
- ///////////////////////////////////////////////////////////////////////////////////////
- // Used by individual content creators in show footage/data
- KS_NABTS_GROUPID_ORIGINAL_CONTENT_BASE = $800;
- {$EXTERNALSYM KS_NABTS_GROUPID_ORIGINAL_CONTENT_BASE}
- KS_NABTS_GROUPID_ORIGINAL_CONTENT_ADVERTISER_BASE = $810;
- {$EXTERNALSYM KS_NABTS_GROUPID_ORIGINAL_CONTENT_ADVERTISER_BASE}
- // Used by production company in finished show data
- KS_NABTS_GROUPID_PRODUCTION_COMPANY_CONTENT_BASE = $820;
- {$EXTERNALSYM KS_NABTS_GROUPID_PRODUCTION_COMPANY_CONTENT_BASE}
- KS_NABTS_GROUPID_PRODUCTION_COMPANY_ADVERTISER_BASE = $830;
- {$EXTERNALSYM KS_NABTS_GROUPID_PRODUCTION_COMPANY_ADVERTISER_BASE}
- // Used by broadcast syndicates in syndicated show data
- KS_NABTS_GROUPID_SYNDICATED_SHOW_CONTENT_BASE = $840;
- {$EXTERNALSYM KS_NABTS_GROUPID_SYNDICATED_SHOW_CONTENT_BASE}
- KS_NABTS_GROUPID_SYNDICATED_SHOW_ADVERTISER_BASE = $850;
- {$EXTERNALSYM KS_NABTS_GROUPID_SYNDICATED_SHOW_ADVERTISER_BASE}
- // Used by tv networks in network television data
- KS_NABTS_GROUPID_NETWORK_WIDE_CONTENT_BASE = $860;
- {$EXTERNALSYM KS_NABTS_GROUPID_NETWORK_WIDE_CONTENT_BASE}
- KS_NABTS_GROUPID_NETWORK_WIDE_ADVERTISER_BASE = $870;
- {$EXTERNALSYM KS_NABTS_GROUPID_NETWORK_WIDE_ADVERTISER_BASE}
- // Used by telvision stations in local programming data
- KS_NABTS_GROUPID_TELEVISION_STATION_CONTENT_BASE = $880;
- {$EXTERNALSYM KS_NABTS_GROUPID_TELEVISION_STATION_CONTENT_BASE}
- KS_NABTS_GROUPID_TELEVISION_STATION_ADVERTISER_BASE = $890;
- {$EXTERNALSYM KS_NABTS_GROUPID_TELEVISION_STATION_ADVERTISER_BASE}
- // Used by cable system in cable head-end originated data
- KS_NABTS_GROUPID_LOCAL_CABLE_SYSTEM_CONTENT_BASE = $8A0;
- {$EXTERNALSYM KS_NABTS_GROUPID_LOCAL_CABLE_SYSTEM_CONTENT_BASE}
- KS_NABTS_GROUPID_LOCAL_CABLE_SYSTEM_ADVERTISER_BASE = $8B0;
- {$EXTERNALSYM KS_NABTS_GROUPID_LOCAL_CABLE_SYSTEM_ADVERTISER_BASE}
- // The values between 0x8C0 - 0x8EF are reserved for future expansion
- // Used by Microsoft for Testing purposes (0x8F0 - 0x8FF)
- KS_NABTS_GROUPID_MICROSOFT_RESERVED_TEST_DATA_BASE = $8F0;
- {$EXTERNALSYM KS_NABTS_GROUPID_MICROSOFT_RESERVED_TEST_DATA_BASE}
- //////////////////////////////////////////////////////////////
- // Stream Format FEC-corrected NABTS bundles
- //////////////////////////////////////////////////////////////
- KSDATAFORMAT_TYPE_NABTS : TGUID = '{E757BCA0-39AC-11d1-A9F5-00C04FBBDE8F}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_NABTS}
- KSDATAFORMAT_SUBTYPE_NABTS_FEC : TGUID = '{E757BCA1-39AC-11d1-A9F5-00C04FBBDE8F}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_NABTS_FEC}
- //////////////////////////////////////////////////////////////
- // NABTS Bundle data structure definition
- //////////////////////////////////////////////////////////////
- MAX_NABTS_VBI_LINES_PER_FIELD = 11;
- {$EXTERNALSYM MAX_NABTS_VBI_LINES_PER_FIELD}
- NABTS_LINES_PER_BUNDLE = 16;
- {$EXTERNALSYM NABTS_LINES_PER_BUNDLE}
- NABTS_PAYLOAD_PER_LINE = 28;
- {$EXTERNALSYM NABTS_PAYLOAD_PER_LINE}
- NABTS_BYTES_PER_LINE = 36;
- {$EXTERNALSYM NABTS_BYTES_PER_LINE}
- type
- PNABTSFecBuffer = ^TNABTSFecBuffer;
- _NABTSFEC_BUFFER = record
- dataSize : ULONG;
- groupID : word;
- Reserved : word;
- data : array[0..(NABTS_LINES_PER_BUNDLE * NABTS_PAYLOAD_PER_LINE)-1] of UCHAR;
- end;
- {$EXTERNALSYM _NABTSFEC_BUFFER}
- NABTSFEC_BUFFER = _NABTSFEC_BUFFER;
- {$EXTERNALSYM NABTSFEC_BUFFER}
- PNABTSFEC_BUFFER = ^NABTSFEC_BUFFER;
- {$EXTERNALSYM PNABTSFEC_BUFFER}
- TNABTSFecBuffer = _NABTSFEC_BUFFER;
- //////////////////////////////////////////////////////////////
- // vbi codec filtering pin properties
- //////////////////////////////////////////////////////////////
- const
- KSPROPSETID_VBICodecFiltering : TGUID = '{cafeb0ca-8715-11d0-bd6a-0035c0edbabe}';
- {$EXTERNALSYM KSPROPSETID_VBICodecFiltering}
- type
- KSPROPERTY_VBICODECFILTERING = (
- {$IFNDEF COMPILER6_UP}
- KSPROPERTY_VBICODECFILTERING_INVALID_0,
- KSPROPERTY_VBICODECFILTERING_SCANLINES_REQUESTED_BIT_ARRAY,
- {$ELSE}
- KSPROPERTY_VBICODECFILTERING_SCANLINES_REQUESTED_BIT_ARRAY = 1,
- {$ENDIF}
- KSPROPERTY_VBICODECFILTERING_SCANLINES_DISCOVERED_BIT_ARRAY,
- KSPROPERTY_VBICODECFILTERING_SUBSTREAMS_REQUESTED_BIT_ARRAY,
- KSPROPERTY_VBICODECFILTERING_SUBSTREAMS_DISCOVERED_BIT_ARRAY,
- KSPROPERTY_VBICODECFILTERING_STATISTICS
- );
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING}
- TKSPropertyVBICodecFiltering = KSPROPERTY_VBICODECFILTERING;
- PVBICodecFilteringScanlines = ^TVBICodecFilteringScanlines;
- _VBICODECFILTERING_SCANLINES = record
- DwordBitArray : array[0..31] of DWORD; // An array of scanline bits 0..1024(32*32)
- end;
- {$EXTERNALSYM _VBICODECFILTERING_SCANLINES}
- VBICODECFILTERING_SCANLINES = _VBICODECFILTERING_SCANLINES;
- {$EXTERNALSYM VBICODECFILTERING_SCANLINES}
- PVBICODECFILTERING_SCANLINES = ^VBICODECFILTERING_SCANLINES;
- {$EXTERNALSYM PVBICODECFILTERING_SCANLINES}
- TVBICodecFilteringScanlines = _VBICODECFILTERING_SCANLINES;
- PVBICodecFilteringNABTSSubStreams = ^TVBICodecFilteringNABTSSubStreams;
- _VBICODECFILTERING_NABTS_SUBSTREAMS = record
- SubstreamMask : array[0..127] of DWORD; // An array of 4096 bits (one for each NABTS GroupID)
- end;
- {$EXTERNALSYM _VBICODECFILTERING_NABTS_SUBSTREAMS}
- VBICODECFILTERING_NABTS_SUBSTREAMS = _VBICODECFILTERING_NABTS_SUBSTREAMS;
- {$EXTERNALSYM VBICODECFILTERING_NABTS_SUBSTREAMS}
- PVBICODECFILTERING_NABTS_SUBSTREAMS = ^VBICODECFILTERING_NABTS_SUBSTREAMS;
- {$EXTERNALSYM PVBICODECFILTERING_NABTS_SUBSTREAMS}
- TVBICodecFilteringNABTSSubStreams = _VBICODECFILTERING_NABTS_SUBSTREAMS;
- PVBICodecFilteringCCSubStreams = ^TVBICodecFilteringCCSubStreams;
- _VBICODECFILTERING_CC_SUBSTREAMS = record
- SubstreamMask : DWORD; // An array of 32 bits (see KS_CC_SUBSTREAM *)
- end;
- {$EXTERNALSYM _VBICODECFILTERING_CC_SUBSTREAMS}
- VBICODECFILTERING_CC_SUBSTREAMS = _VBICODECFILTERING_CC_SUBSTREAMS;
- {$EXTERNALSYM VBICODECFILTERING_CC_SUBSTREAMS}
- PVBICODECFILTERING_CC_SUBSTREAMS = ^VBICODECFILTERING_CC_SUBSTREAMS;
- {$EXTERNALSYM PVBICODECFILTERING_CC_SUBSTREAMS}
- TVBICodecFilteringCCSubStreams = _VBICODECFILTERING_CC_SUBSTREAMS;
- const
- KS_CC_SUBSTREAM_ODD = $0001;
- {$EXTERNALSYM KS_CC_SUBSTREAM_ODD}
- KS_CC_SUBSTREAM_EVEN = $0002;
- {$EXTERNALSYM KS_CC_SUBSTREAM_EVEN}
- KS_CC_SUBSTREAM_SERVICE_MASK_DC1 = $00F0; // DataChannel1: CC1,CC3,T1,T3
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_MASK_DC1}
- KS_CC_SUBSTREAM_SERVICE_CC1 = $0010;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_CC1}
- KS_CC_SUBSTREAM_SERVICE_CC3 = $0020;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_CC3}
- KS_CC_SUBSTREAM_SERVICE_T1 = $0040;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_T1}
- KS_CC_SUBSTREAM_SERVICE_T3 = $0080;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_T3}
- KS_CC_SUBSTREAM_SERVICE_MASK_DC2 = $0F00; // DataChannel2: CC2,CC4,T2,T4
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_MASK_DC2}
- KS_CC_SUBSTREAM_SERVICE_CC2 = $0100;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_CC2}
- KS_CC_SUBSTREAM_SERVICE_CC4 = $0200;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_CC4}
- KS_CC_SUBSTREAM_SERVICE_T2 = $0400;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_T2}
- KS_CC_SUBSTREAM_SERVICE_T4 = $0800;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_T4}
- KS_CC_SUBSTREAM_SERVICE_XDS = $1000;
- {$EXTERNALSYM KS_CC_SUBSTREAM_SERVICE_XDS}
- ///////////////////////////////////////////////////////////////////
- // Hardware decoded CC stream format
- ///////////////////////////////////////////////////////////////////
- CC_MAX_HW_DECODE_LINES = 12;
- {$EXTERNALSYM CC_MAX_HW_DECODE_LINES}
- type
- PCCBytePair = ^TCCBytePair;
- _CC_BYTE_PAIR = record
- Decoded : array[0..1] of BYTE;
- Reserved : word;
- end;
- {$EXTERNALSYM _CC_BYTE_PAIR}
- CC_BYTE_PAIR = _CC_BYTE_PAIR;
- {$EXTERNALSYM CC_BYTE_PAIR}
- PCC_BYTE_PAIR = ^CC_BYTE_PAIR;
- {$EXTERNALSYM PCC_BYTE_PAIR}
- TCCBytePair = _CC_BYTE_PAIR;
- PCCHWField = ^TCCHWField;
- _CC_HW_FIELD = record
- ScanlinesRequested : TVBICodecFilteringScanlines;
- fieldFlags : ULONG; // KS_VBI_FLAG_FIELD1,2
- PictureNumber : int64;
- Lines : array[0..CC_MAX_HW_DECODE_LINES-1] of TCCBytePair;
- end;
- {$EXTERNALSYM _CC_HW_FIELD}
- CC_HW_FIELD = _CC_HW_FIELD;
- {$EXTERNALSYM CC_HW_FIELD}
- PCC_HW_FIELD = ^CC_HW_FIELD;
- {$EXTERNALSYM PCC_HW_FIELD}
- TCCHWField = _CC_HW_FIELD;
- ///////////////////////////////////////////////////////////////////
- // Raw NABTS stream format (TYPE_NABTS, SUBTYPE_NABTS)
- ///////////////////////////////////////////////////////////////////
- // These low-level structures are byte packed( -Zp1 )
- PNABTSBufferLine = ^TNABTSBufferLine;
- _NABTS_BUFFER_LINE = record
- Confidence : BYTE;
- Bytes : array[0..NABTS_BYTES_PER_LINE-1] of BYTE;
- end;
- {$EXTERNALSYM _NABTS_BUFFER_LINE}
- NABTS_BUFFER_LINE = _NABTS_BUFFER_LINE;
- {$EXTERNALSYM NABTS_BUFFER_LINE}
- PNABTS_BUFFER_LINE = ^NABTS_BUFFER_LINE;
- {$EXTERNALSYM PNABTS_BUFFER_LINE}
- TNABTSBufferLine = _NABTS_BUFFER_LINE;
- const
- NABTS_BUFFER_PICTURENUMBER_SUPPORT = 1;
- {$EXTERNALSYM NABTS_BUFFER_PICTURENUMBER_SUPPORT}
- type
- PNABTSBuffer = ^TNABTSBuffer;
- _NABTS_BUFFER = record
- ScanlinesRequested : TVBICodecFilteringScanlines;
- PictureNumber : int64;
- NabtsLines : array[0..MAX_NABTS_VBI_LINES_PER_FIELD-1] of TNABTSBufferLine;
- end;
- {$EXTERNALSYM _NABTS_BUFFER}
- NABTS_BUFFER = _NABTS_BUFFER;
- {$EXTERNALSYM NABTS_BUFFER}
- PNABTS_BUFFER = ^NABTS_BUFFER;
- {$EXTERNALSYM PNABTS_BUFFER}
- TNABTSBuffer = _NABTS_BUFFER;
- //////////////////////////////////////////////////////////////
- // WST Codec Teletext Media Sample Format
- //////////////////////////////////////////////////////////////
- const
- WST_TVTUNER_CHANGE_BEGIN_TUNE = $1000; // Starting a tuning operation
- {$EXTERNALSYM WST_TVTUNER_CHANGE_BEGIN_TUNE}
- WST_TVTUNER_CHANGE_END_TUNE = $2000; // Ending a tuning operation
- {$EXTERNALSYM WST_TVTUNER_CHANGE_END_TUNE}
- MAX_WST_VBI_LINES_PER_FIELD = 17;
- {$EXTERNALSYM MAX_WST_VBI_LINES_PER_FIELD}
- WST_BYTES_PER_LINE = 42;
- {$EXTERNALSYM WST_BYTES_PER_LINE}
- type
- PWSTBufferLine = ^TWSTBufferLine;
- _WST_BUFFER_LINE = record
- Confidence: BYTE;
- Bytes : array[0..WST_BYTES_PER_LINE-1] of BYTE;
- end;
- {$EXTERNALSYM _WST_BUFFER_LINE}
- WST_BUFFER_LINE = _WST_BUFFER_LINE;
- {$EXTERNALSYM WST_BUFFER_LINE}
- PWST_BUFFER_LINE = ^WST_BUFFER_LINE;
- {$EXTERNALSYM PWST_BUFFER_LINE}
- TWSTBufferLine = _WST_BUFFER_LINE;
- PWSTBuffer = ^TWSTBuffer;
- _WST_BUFFER = record
- ScanlinesRequested: TVBICodecFilteringScanlines;
- WstLines: array[0..MAX_WST_VBI_LINES_PER_FIELD-1] of TWSTBufferLine;
- end;
- {$EXTERNALSYM _WST_BUFFER}
- WST_BUFFER = _WST_BUFFER;
- {$EXTERNALSYM WST_BUFFER}
- PWST_BUFFER = ^WST_BUFFER;
- {$EXTERNALSYM PWST_BUFFER}
- TWSTBuffer = _WST_BUFFER;
- //
- // Common codec statistics
- //
- PVBICodecFilteringStatisticsCommon = ^TVBICodecFilteringStatisticsCommon;
- _VBICODECFILTERING_STATISTICS_COMMON = record
- InputSRBsProcessed : DWORD; // upstream SRBs received
- OutputSRBsProcessed : DWORD; // downstream SRBs sent
- SRBsIgnored : DWORD; // SRBs ignored due to no requests
- InputSRBsMissing : DWORD; // SRBs dropped upstream
- OutputSRBsMissing : DWORD; // Output dropped because no SRB pending
- OutputFailures : DWORD; // dropped because of other failure
- InternalErrors : DWORD; // could not process due to int. failure
- ExternalErrors : DWORD; // could not process due to ext. failure
- InputDiscontinuities : DWORD; // discontinuities received
- DSPFailures : DWORD; // DSP confidence failure
- TvTunerChanges : DWORD; // number of received KS_TVTUNER_CHANGE_BEGIN_TUNE and KS_TVTUNER_CHANGE_END_TUNE pairs.
- VBIHeaderChanges : DWORD; // number of received KS_VBI_FLAG_VBIINFOHEADER_CHANGE
- LineConfidenceAvg : DWORD; // Average of all DSP confidence results
- BytesOutput : DWORD; // Bytes sent downstream
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_COMMON}
- VBICODECFILTERING_STATISTICS_COMMON = _VBICODECFILTERING_STATISTICS_COMMON;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_COMMON}
- PVBICODECFILTERING_STATISTICS_COMMON = ^VBICODECFILTERING_STATISTICS_COMMON;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_COMMON}
- TVBICodecFilteringStatisticsCommon = _VBICODECFILTERING_STATISTICS_COMMON;
- PVBICodecFilteringStatisticsCommonPin = ^TVBICodecFilteringStatisticsCommonPin;
- _VBICODECFILTERING_STATISTICS_COMMON_PIN = record
- SRBsProcessed : DWORD; // SRBs sent/received
- SRBsIgnored : DWORD; // SRBs ignored due to filtering
- SRBsMissing : DWORD; // SRBs not sent/received
- InternalErrors : DWORD; // could not send/receive due to int. failure
- ExternalErrors : DWORD; // could not send/receive due to ext. failure
- Discontinuities : DWORD; // discontinuities received/sent
- LineConfidenceAvg : DWORD; // Average of all DSP confidence results for this pin
- BytesOutput : DWORD; // Bytes sent downstream
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_COMMON_PIN}
- VBICODECFILTERING_STATISTICS_COMMON_PIN = _VBICODECFILTERING_STATISTICS_COMMON_PIN;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_COMMON_PIN}
- PVBICODECFILTERING_STATISTICS_COMMON_PIN = ^VBICODECFILTERING_STATISTICS_COMMON_PIN;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_COMMON_PIN}
- TVBICodecFilteringStatisticsCommonPin = _VBICODECFILTERING_STATISTICS_COMMON_PIN;
- //
- // Codec-specific statistics - NABTS
- //
- PVBICodecFilteringStatisticsNABTS = ^TVBICodecFilteringStatisticsNABTS;
- _VBICODECFILTERING_STATISTICS_NABTS = record
- Common : TVBICodecFilteringStatisticsCommon ; // Generic VBI statistics
- FECBundleBadLines : DWORD; // Un-FEC-correctable lines
- FECQueueOverflows : DWORD; // Number of times FEC queue overflowed
- FECCorrectedLines : DWORD; // Lines CSUM corrected by FEC
- FECUncorrectableLines : DWORD; // FEC input lines not CSUM correctable
- BundlesProcessed : DWORD; // Bundles received from FEC
- BundlesSent2IP : DWORD; // Bundles sent to IP driver
- FilteredLines : DWORD; // Lines processed and then dropped
- // because no one was interested
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_NABTS}
- VBICODECFILTERING_STATISTICS_NABTS = _VBICODECFILTERING_STATISTICS_NABTS;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_NABTS}
- PVBICODECFILTERING_STATISTICS_NABTS = ^VBICODECFILTERING_STATISTICS_NABTS;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_NABTS}
- TVBICodecFilteringStatisticsNABTS = _VBICODECFILTERING_STATISTICS_NABTS;
- PVBICodecFilteringStatisticsNABTSPin = ^TVBICodecFilteringStatisticsNABTSPin;
- _VBICODECFILTERING_STATISTICS_NABTS_PIN = record
- Common : TVBICodecFilteringStatisticsCommonPin; // Generic VBI pin statistics
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_NABTS_PIN}
- VBICODECFILTERING_STATISTICS_NABTS_PIN = _VBICODECFILTERING_STATISTICS_NABTS_PIN;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_NABTS_PIN}
- PVBICODECFILTERING_STATISTICS_NABTS_PIN = ^VBICODECFILTERING_STATISTICS_NABTS_PIN;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_NABTS_PIN}
- TVBICodecFilteringStatisticsNABTSPin = _VBICODECFILTERING_STATISTICS_NABTS_PIN;
- //
- // Codec-specific statistics - Closed Caption
- //
- PVBICodecFilteringStatisticsCC = ^TVBICodecFilteringStatisticsCC;
- _VBICODECFILTERING_STATISTICS_CC = record
- Common : TVBICodecFilteringStatisticsCommon; // Generic VBI statistics
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_CC}
- VBICODECFILTERING_STATISTICS_CC = _VBICODECFILTERING_STATISTICS_CC;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_CC}
- PVBICODECFILTERING_STATISTICS_CC = ^VBICODECFILTERING_STATISTICS_CC;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_CC}
- TVBICodecFilteringStatisticsCC = _VBICODECFILTERING_STATISTICS_CC;
- PVBICodecFilteringStatisticsCCPin = ^TVBICodecFilteringStatisticsCCPin;
- _VBICODECFILTERING_STATISTICS_CC_PIN = record
- Common : TVBICodecFilteringStatisticsCommonPin; // Generic VBI pin statistics
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_CC_PIN}
- VBICODECFILTERING_STATISTICS_CC_PIN = _VBICODECFILTERING_STATISTICS_CC_PIN;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_CC_PIN}
- PVBICODECFILTERING_STATISTICS_CC_PIN = ^VBICODECFILTERING_STATISTICS_CC_PIN;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_CC_PIN}
- TVBICodecFilteringStatisticsCCPin = _VBICODECFILTERING_STATISTICS_CC_PIN;
- //
- // Codec-specific statistics - Closed Caption
- //
- PVBICodecFilteringStatisticsTeletext = ^TVBICodecFilteringStatisticsTeletext;
- _VBICODECFILTERING_STATISTICS_TELETEXT = record
- Common: TVBICodecFilteringStatisticsCommon ; // Generic VBI statistics
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_TELETEXT}
- VBICODECFILTERING_STATISTICS_TELETEXT = _VBICODECFILTERING_STATISTICS_TELETEXT;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_TELETEXT}
- PVBICODECFILTERING_STATISTICS_TELETEXT = ^VBICODECFILTERING_STATISTICS_TELETEXT;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_TELETEXT}
- TVBICodecFilteringStatisticsTeletext = _VBICODECFILTERING_STATISTICS_TELETEXT;
- PVBICodecFilteringStatisticsTeletextPin = ^TVBICodecFilteringStatisticsTeletextPin;
- _VBICODECFILTERING_STATISTICS_TELETEXT_PIN = record
- Common: TVBICodecFilteringStatisticsCommonPin ;// Generic VBI pin statistics
- end;
- {$EXTERNALSYM _VBICODECFILTERING_STATISTICS_TELETEXT_PIN}
- VBICODECFILTERING_STATISTICS_TELETEXT_PIN = _VBICODECFILTERING_STATISTICS_TELETEXT_PIN;
- {$EXTERNALSYM VBICODECFILTERING_STATISTICS_TELETEXT_PIN}
- PVBICODECFILTERING_STATISTICS_TELETEXT_PIN = ^VBICODECFILTERING_STATISTICS_TELETEXT_PIN;
- {$EXTERNALSYM PVBICODECFILTERING_STATISTICS_TELETEXT_PIN}
- TVBICodecFilteringStatisticsTeletextPin = _VBICODECFILTERING_STATISTICS_TELETEXT_PIN;
- ////////////////////////////////////////////////////////////////////////////
- // VBI codec property structures(based on KSPROPERTY_VBICODECFILTERING enum)
- ////////////////////////////////////////////////////////////////////////////
- // *** Most codecs support this property
- // KSPROPERTY_VBICODECFILTERING_SCANLINES_REQUESTED_BIT_ARRAY
- // KSPROPERTY_VBICODECFILTERING_SCANLINES_DISCOVERED_BIT_ARRAY,
- PKSPropertyVBICodecFilteringScanlinesS = ^TKSPropertyVBICodecFilteringScanlinesS;
- KSPROPERTY_VBICODECFILTERING_SCANLINES_S = record
- Property_ : KSPROPERTY;
- Scanlines : TVBICodecFilteringScanlines;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_SCANLINES_S}
- PKSPROPERTY_VBICODECFILTERING_SCANLINES_S = ^KSPROPERTY_VBICODECFILTERING_SCANLINES_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_SCANLINES_S}
- TKSPropertyVBICodecFilteringScanlinesS = KSPROPERTY_VBICODECFILTERING_SCANLINES_S;
- // *** NABTS codecs support this property
- // KSPROPERTY_VBICODECFILTERING_SUBSTREAMS_REQUESTED_BIT_ARRAY,
- // KSPROPERTY_VBICODECFILTERING_SUBSTREAMS_DISCOVERED_BIT_ARRAY,
- PKSPropertyVBICodecFilteringNABTSSubstreamsS = ^TKSPropertyVBICodecFilteringNABTSSubstreamsS;
- KSPROPERTY_VBICODECFILTERING_NABTS_SUBSTREAMS_S = record
- Property_ : KSPROPERTY;
- Substreams : TVBICodecFilteringNABTSSubStreams;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_NABTS_SUBSTREAMS_S}
- PKSPROPERTY_VBICODECFILTERING_NABTS_SUBSTREAMS_S = ^KSPROPERTY_VBICODECFILTERING_NABTS_SUBSTREAMS_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_NABTS_SUBSTREAMS_S}
- TKSPropertyVBICodecFilteringNABTSSubstreamsS = KSPROPERTY_VBICODECFILTERING_NABTS_SUBSTREAMS_S;
- // *** Closed captioning codecs support this property
- // KSPROPERTY_VBICODECFILTERING_SUBSTREAMS_REQUESTED_BIT_ARRAY,
- // KSPROPERTY_VBICODECFILTERING_SUBSTREAMS_DISCOVERED_BIT_ARRAY,
- PKSPropertyVBICodecFilteringCCSubstreamsS = ^TKSPropertyVBICodecFilteringCCSubstreamsS;
- KSPROPERTY_VBICODECFILTERING_CC_SUBSTREAMS_S = record
- Property_ : KSPROPERTY;
- Substreams : TVBICodecFilteringCCSubStreams;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_CC_SUBSTREAMS_S}
- PKSPROPERTY_VBICODECFILTERING_CC_SUBSTREAMS_S = ^KSPROPERTY_VBICODECFILTERING_CC_SUBSTREAMS_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_CC_SUBSTREAMS_S}
- TKSPropertyVBICodecFilteringCCSubstreamsS = KSPROPERTY_VBICODECFILTERING_CC_SUBSTREAMS_S;
- // *** Most codecs support these versions of the global and pin properties
- // KSPROPERTY_VBICODECFILTERING_STATISTICS
- PKSPropertyVBICodecFilteringStatisticsCommonS = ^TKSPropertyVBICodecFilteringStatisticsCommonS;
- KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_S = record
- Property_ : KSPROPERTY;
- Statistics : TVBICodecFilteringStatisticsCommon;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_S}
- PKSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_S = ^KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_S}
- TKSPropertyVBICodecFilteringStatisticsCommonS = KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_S;
- PKSPropertyVBICodecFilteringStatisticsCommonPinS = ^TKSPropertyVBICodecFilteringStatisticsCommonPinS;
- KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_PIN_S = record
- Property_ : KSPROPERTY;
- Statistics : TVBICodecFilteringStatisticsCommonPin;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_PIN_S}
- PKSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_PIN_S = ^KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_PIN_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_PIN_S}
- TKSPropertyVBICodecFilteringStatisticsCommonPinS = KSPROPERTY_VBICODECFILTERING_STATISTICS_COMMON_PIN_S;
- // *** NABTS codecs support this version of the global and pin properties
- // KSPROPERTY_VBICODECFILTERING_STATISTICS
- PKSPropertyVBICodecFilteringStatisticsNABTSS = ^TKSPropertyVBICodecFilteringStatisticsNABTSS;
- KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_S = record
- Property_ : KSPROPERTY;
- Statistics : TVBICodecFilteringStatisticsNABTS;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_S}
- PKSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_S = ^KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_S}
- TKSPropertyVBICodecFilteringStatisticsNABTSS = KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_S;
- PKSPropertyVBICodecFilteringStatisticsNABTSPinS = ^TKSPropertyVBICodecFilteringStatisticsNABTSPinS;
- KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_PIN_S = record
- Property_ : KSPROPERTY;
- Statistics : TVBICodecFilteringStatisticsNABTSPin;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_PIN_S}
- PKSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_PIN_S = ^KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_PIN_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_PIN_S}
- TKSPropertyVBICodecFilteringStatisticsNABTSPinS = KSPROPERTY_VBICODECFILTERING_STATISTICS_NABTS_PIN_S;
- // *** Closed captioning codecs support this version of the global and pin properties
- // KSPROPERTY_VBICODECFILTERING_STATISTICS
- PKSPropertyVBICodecFilteringStatisticsCCS = ^TKSPropertyVBICodecFilteringStatisticsCCS;
- KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_S = record
- Property_ : KSPROPERTY;
- Statistics : TVBICodecFilteringStatisticsCC;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_S}
- PKSPROPERTY_VBICODECFILTERING_STATISTICS_CC_S = ^KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_STATISTICS_CC_S}
- TKSPropertyVBICodecFilteringStatisticsCCS = KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_S;
- PKSPropertyVBICodecFilteringStatisticsCCPinS = ^TKSPropertyVBICodecFilteringStatisticsCCPinS;
- KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_PIN_S = record
- Property_ : KSPROPERTY;
- Statistics : TVBICodecFilteringStatisticsCCPin;
- end;
- {$EXTERNALSYM KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_PIN_S}
- PKSPROPERTY_VBICODECFILTERING_STATISTICS_CC_PIN_S = ^KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_PIN_S;
- {$EXTERNALSYM PKSPROPERTY_VBICODECFILTERING_STATISTICS_CC_PIN_S}
- TKSPropertyVBICodecFilteringStatisticsCCPinS = KSPROPERTY_VBICODECFILTERING_STATISTICS_CC_PIN_S;
- // Standard Pin Names for the video capture filter
- //===========================================================================
- const
- PINNAME_VIDEO_CAPTURE : TGUID = '{FB6C4281-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_CAPTURE}
- PINNAME_VIDEO_CC_CAPTURE : TGUID = '{1AAD8061-012D-11d2-B4B1-00A0D102CFBE}';
- {$EXTERNALSYM PINNAME_VIDEO_CC_CAPTURE}
- PINNAME_VIDEO_NABTS_CAPTURE : TGUID = '{29703660-498A-11d2-B4B1-00A0D102CFBE}';
- {$EXTERNALSYM PINNAME_VIDEO_NABTS_CAPTURE}
- PINNAME_VIDEO_PREVIEW : TGUID = '{FB6C4282-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_PREVIEW}
- PINNAME_VIDEO_ANALOGVIDEOIN : TGUID = '{FB6C4283-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_ANALOGVIDEOIN}
- PINNAME_VIDEO_VBI : TGUID = '{FB6C4284-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_VBI}
- PINNAME_VIDEO_VIDEOPORT : TGUID = '{FB6C4285-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_VIDEOPORT}
- PINNAME_VIDEO_NABTS : TGUID = '{FB6C4286-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_NABTS}
- PINNAME_VIDEO_EDS : TGUID = '{FB6C4287-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_EDS}
- PINNAME_VIDEO_TELETEXT : TGUID = '{FB6C4288-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_TELETEXT}
- PINNAME_VIDEO_CC : TGUID = '{FB6C4289-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_CC}
- PINNAME_VIDEO_STILL : TGUID = '{FB6C428A-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_STILL}
- PINNAME_VIDEO_TIMECODE : TGUID = '{FB6C428B-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_TIMECODE}
- PINNAME_VIDEO_VIDEOPORT_VBI : TGUID = '{FB6C428C-0353-11d1-905F-0000C0CC16BA}';
- {$EXTERNALSYM PINNAME_VIDEO_VIDEOPORT_VBI}
- //===========================================================================
- // KSSTREAM_HEADER extensions for digital video
- //===========================================================================
- KS_VIDEO_FLAG_FRAME = $0000; // Frame or Field (default is frame)
- {$EXTERNALSYM KS_VIDEO_FLAG_FRAME}
- KS_VIDEO_FLAG_FIELD1 = $0001;
- {$EXTERNALSYM KS_VIDEO_FLAG_FIELD1}
- KS_VIDEO_FLAG_FIELD2 = $0002;
- {$EXTERNALSYM KS_VIDEO_FLAG_FIELD2}
- KS_VIDEO_FLAG_I_FRAME = $0000; // I, B, or P (default is I)
- {$EXTERNALSYM KS_VIDEO_FLAG_I_FRAME}
- KS_VIDEO_FLAG_P_FRAME = $0010;
- {$EXTERNALSYM KS_VIDEO_FLAG_P_FRAME}
- KS_VIDEO_FLAG_B_FRAME = $0020;
- {$EXTERNALSYM KS_VIDEO_FLAG_B_FRAME}
- type
- PKSFrameInfo = ^TKSFrameInfo;
- tagKS_FRAME_INFO = record
- ExtendedHeaderSize : ULONG; // Size of this extended header
- dwFrameFlags : DWORD; // Field1, Field2, or Frame
- PictureNumber : int64;
- DropCount : int64;
- // The following are only set when using OverlayMixer
- hDirectDraw : THandle; // user mode DDraw handle
- hSurfaceHandle : THandle; // user mode surface handle
- DirectDrawRect : TRECT; // portion of surface locked
- // Reserved fields, never reference these
- Reserved1 : DWORD;
- Reserved2 : DWORD;
- Reserved3 : DWORD;
- Reserved4 : DWORD;
- end;
- {$EXTERNALSYM tagKS_FRAME_INFO}
- KS_FRAME_INFO = tagKS_FRAME_INFO;
- {$EXTERNALSYM KS_FRAME_INFO}
- PKS_FRAME_INFO = ^KS_FRAME_INFO;
- {$EXTERNALSYM PKS_FRAME_INFO}
- TKSFrameInfo = tagKS_FRAME_INFO;
- //===========================================================================
- // KSSTREAM_HEADER extensions for VBI
- //===========================================================================
- const
- KS_VBI_FLAG_FIELD1 = $0001;
- {$EXTERNALSYM KS_VBI_FLAG_FIELD1}
- KS_VBI_FLAG_FIELD2 = $0002;
- {$EXTERNALSYM KS_VBI_FLAG_FIELD2}
- KS_VBI_FLAG_MV_PRESENT = $0100;
- {$EXTERNALSYM KS_VBI_FLAG_MV_PRESENT}
- KS_VBI_FLAG_MV_HARDWARE = $0200;
- {$EXTERNALSYM KS_VBI_FLAG_MV_HARDWARE}
- KS_VBI_FLAG_MV_DETECTED = $0400;
- {$EXTERNALSYM KS_VBI_FLAG_MV_DETECTED}
- KS_VBI_FLAG_TVTUNER_CHANGE = $0010; // TvTunerChangeInfo is valid
- {$EXTERNALSYM KS_VBI_FLAG_TVTUNER_CHANGE}
- KS_VBI_FLAG_VBIINFOHEADER_CHANGE = $0020; // VBIInfoHeader is valid
- {$EXTERNALSYM KS_VBI_FLAG_VBIINFOHEADER_CHANGE}
- type
- PKSVBIFrameInfo = ^TKSVBIFrameInfo;
- tagKS_VBI_FRAME_INFO = record
- ExtendedHeaderSize : ULONG; // Size of this extended header
- dwFrameFlags : DWORD; // Field1, Field2, or Frame; & etc
- PictureNumber : int64; // Test only?
- DropCount : int64; // Test only?
- dwSamplingFrequency : DWORD;
- TvTunerChangeInfo : TKSTVTunerChangeInfo;
- VBIInfoHeader : TKSVBIInfoHeader;
- end;
- {$EXTERNALSYM tagKS_VBI_FRAME_INFO}
- KS_VBI_FRAME_INFO = tagKS_VBI_FRAME_INFO;
- {$EXTERNALSYM KS_VBI_FRAME_INFO}
- PKS_VBI_FRAME_INFO = ^KS_VBI_FRAME_INFO;
- {$EXTERNALSYM PKS_VBI_FRAME_INFO}
- TKSVBIFrameInfo = tagKS_VBI_FRAME_INFO;
- //===========================================================================
- // Analog video formats, used with:
- // Analog Video Decoders
- // TVTuners
- // Analog Video Encoders
- //
- // XXX_STANDARDS_SUPPORTED returns a bitmask
- //===========================================================================
- const
- KS_AnalogVideo_None = $00000000; // This is a digital sensor
- {$EXTERNALSYM KS_AnalogVideo_None}
- KS_AnalogVideo_NTSC_M = $00000001; // 75 IRE Setup
- {$EXTERNALSYM KS_AnalogVideo_NTSC_M}
- KS_AnalogVideo_NTSC_M_J = $00000002; // Japan, 0 IRE Setup
- {$EXTERNALSYM KS_AnalogVideo_NTSC_M_J}
- KS_AnalogVideo_NTSC_433 = $00000004;
- {$EXTERNALSYM KS_AnalogVideo_NTSC_433}
- KS_AnalogVideo_PAL_B = $00000010;
- {$EXTERNALSYM KS_AnalogVideo_PAL_B}
- KS_AnalogVideo_PAL_D = $00000020;
- {$EXTERNALSYM KS_AnalogVideo_PAL_D}
- KS_AnalogVideo_PAL_G = $00000040;
- {$EXTERNALSYM KS_AnalogVideo_PAL_G}
- KS_AnalogVideo_PAL_H = $00000080;
- {$EXTERNALSYM KS_AnalogVideo_PAL_H}
- KS_AnalogVideo_PAL_I = $00000100;
- {$EXTERNALSYM KS_AnalogVideo_PAL_I}
- KS_AnalogVideo_PAL_M = $00000200;
- {$EXTERNALSYM KS_AnalogVideo_PAL_M}
- KS_AnalogVideo_PAL_N = $00000400;
- {$EXTERNALSYM KS_AnalogVideo_PAL_N}
- KS_AnalogVideo_PAL_60 = $00000800;
- {$EXTERNALSYM KS_AnalogVideo_PAL_60}
- KS_AnalogVideo_SECAM_B = $00001000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_B}
- KS_AnalogVideo_SECAM_D = $00002000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_D}
- KS_AnalogVideo_SECAM_G = $00004000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_G}
- KS_AnalogVideo_SECAM_H = $00008000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_H}
- KS_AnalogVideo_SECAM_K = $00010000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_K}
- KS_AnalogVideo_SECAM_K1 = $00020000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_K1}
- KS_AnalogVideo_SECAM_L = $00040000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_L}
- KS_AnalogVideo_SECAM_L1 = $00080000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_L1}
- KS_AnalogVideo_PAL_N_COMBO = $00100000;
- {$EXTERNALSYM KS_AnalogVideo_PAL_N_COMBO}
- KS_AnalogVideo_NTSC_Mask = $00000007;
- {$EXTERNALSYM KS_AnalogVideo_NTSC_Mask}
- KS_AnalogVideo_PAL_Mask = $00100FF0;
- {$EXTERNALSYM KS_AnalogVideo_PAL_Mask}
- KS_AnalogVideo_SECAM_Mask = $000FF000;
- {$EXTERNALSYM KS_AnalogVideo_SECAM_Mask}
- //===========================================================================
- // Property set definitions
- // The comments show whether a given property is:
- // R : READ only
- // w : WRITE only
- // RW : READ / WRITE
- // O : Optional (return E_UNSUPPORTED if you don't handle this)
- //===========================================================================
- PROPSETID_ALLOCATOR_CONTROL : TGUID = '{53171960-148E-11d2-9979-0000C0CC16BA}';
- {$EXTERNALSYM PROPSETID_ALLOCATOR_CONTROL}
- type
- KSPROPERTY_ALLOCATOR_CONTROL = (
- KSPROPERTY_ALLOCATOR_CONTROL_HONOR_COUNT, // R O (will allocate exactly this number of buffers)
- KSPROPERTY_ALLOCATOR_CONTROL_SURFACE_SIZE // R O (return 2 DWORDs specifying surface size)
- );
- {$EXTERNALSYM KSPROPERTY_ALLOCATOR_CONTROL}
- TKSPropertyAllocatorControl = KSPROPERTY_ALLOCATOR_CONTROL;
- //===========================================================================
- const
- PROPSETID_VIDCAP_VIDEOPROCAMP : TGUID = '{C6E13360-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_VIDEOPROCAMP}
- type
- KSPROPERTY_VIDCAP_VIDEOPROCAMP = (
- KSPROPERTY_VIDEOPROCAMP_BRIGHTNESS, // RW O
- KSPROPERTY_VIDEOPROCAMP_CONTRAST, // RW O
- KSPROPERTY_VIDEOPROCAMP_HUE, // RW O
- KSPROPERTY_VIDEOPROCAMP_SATURATION, // RW O
- KSPROPERTY_VIDEOPROCAMP_SHARPNESS, // RW O
- KSPROPERTY_VIDEOPROCAMP_GAMMA, // RW O
- KSPROPERTY_VIDEOPROCAMP_COLORENABLE, // RW O
- KSPROPERTY_VIDEOPROCAMP_WHITEBALANCE, // RW O
- KSPROPERTY_VIDEOPROCAMP_BACKLIGHT_COMPENSATION, // RW O
- KSPROPERTY_VIDEOPROCAMP_GAIN, // RW O
- KSPROPERTY_VIDEOPROCAMP_DIGITAL_MULTIPLIER, // RW O
- KSPROPERTY_VIDEOPROCAMP_DIGITAL_MULTIPLIER_LIMIT,// RW O
- KSPROPERTY_VIDEOPROCAMP_WHITEBALANCE_COMPONENT, // RW O
- KSPROPERTY_VIDEOPROCAMP_POWERLINE_FREQUENCY // RW O
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_VIDEOPROCAMP}
- TKSPropertyVidcapVideoProcAmp = KSPROPERTY_VIDCAP_VIDEOPROCAMP;
- PKSPropertyVideoProcAmpS = ^TKSPropertyVideoProcAmpS;
- KSPROPERTY_VIDEOPROCAMP_S = record
- Property_ : KSPROPERTY;
- Value : longint; // Value to set or get
- Flags : ULONG; // KSPROPERTY_VIDEOPROCAMP_FLAGS_*
- Capabilities : ULONG; // KSPROPERTY_VIDEOPROCAMP_FLAGS_*
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOPROCAMP_S}
- PKSPROPERTY_VIDEOPROCAMP_S = ^KSPROPERTY_VIDEOPROCAMP_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOPROCAMP_S}
- TKSPropertyVideoProcAmpS = KSPROPERTY_VIDEOPROCAMP_S;
- PKSPropertyVideoProcAmpNodeS = ^TKSPropertyVideoProcAmpNodeS;
- KSPROPERTY_VIDEOPROCAMP_NODE_S = packed record
- NodeProperty: KSP_NODE;
- Value: Integer; // Value to set or get
- Flags: ULONG; // KSPROPERTY_VIDEOPROCAMP_FLAGS_*
- Capabilities: ULONG; // KSPROPERTY_VIDEOPROCAMP_FLAGS_*
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOPROCAMP_NODE_S}
- PKSPROPERTY_VIDEOPROCAMP_NODE_S = ^KSPROPERTY_VIDEOPROCAMP_NODE_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOPROCAMP_NODE_S}
- TKSPropertyVideoProcAmpNodeS = KSPROPERTY_VIDEOPROCAMP_NODE_S;
- PKSPropertyVideoProcAmpS2 = ^TKSPropertyVideoProcAmpS2;
- KSPROPERTY_VIDEOPROCAMP_S2 = packed record
- Property_: KSPROPERTY;
- Value1: Integer;
- Flags: ULONG;
- Capabilities: ULONG;
- Value2: Integer;
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOPROCAMP_S2}
- PKSPROPERTY_VIDEOPROCAMP_S2 = ^KSPROPERTY_VIDEOPROCAMP_S2;
- {$EXTERNALSYM PKSPROPERTY_VIDEOPROCAMP_S2}
- TKSPropertyVideoProcAmpS2 = KSPROPERTY_VIDEOPROCAMP_S2;
- PKSPropertyVideoProcAmpNodeS2 = ^TKSPropertyVideoProcAmpNodeS2;
- KSPROPERTY_VIDEOPROCAMP_NODE_S2 = packed record
- NodeProperty: KSP_NODE;
- Value1: Integer;
- Flags: ULONG;
- Capabilities: ULONG;
- Value2: Integer;
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOPROCAMP_NODE_S2}
- PKSPROPERTY_VIDEOPROCAMP_NODE_S2 = ^KSPROPERTY_VIDEOPROCAMP_NODE_S2;
- {$EXTERNALSYM PKSPROPERTY_VIDEOPROCAMP_NODE_S2}
- TKSPropertyVideoProcAmpNodeS2 = KSPROPERTY_VIDEOPROCAMP_NODE_S2;
- const
- KSPROPERTY_VIDEOPROCAMP_FLAGS_AUTO = $0001;
- {$EXTERNALSYM KSPROPERTY_VIDEOPROCAMP_FLAGS_AUTO}
- KSPROPERTY_VIDEOPROCAMP_FLAGS_MANUAL = $0002;
- {$EXTERNALSYM KSPROPERTY_VIDEOPROCAMP_FLAGS_MANUAL}
- //===========================================================================
- PROPSETID_VIDCAP_SELECTOR : TGUID = '{1ABDAECA-68B6-4F83-9371-B413907C7B9F}';
- {$EXTERNALSYM PROPSETID_VIDCAP_SELECTOR}
- type
- PKSPropertyVidCapSelector = ^TKSPropertyVidCapSelector;
- KSPROPERTY_VIDCAP_SELECTOR = (
- KSPROPERTY_SELECTOR_SOURCE_NODE_ID, // RW
- KSPROPERTY_SELECTOR_NUM_SOURCES // R
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_SELECTOR}
- PKSPROPERTY_VIDCAP_SELECTOR = ^KSPROPERTY_VIDCAP_SELECTOR;
- {$EXTERNALSYM PKSPROPERTY_VIDCAP_SELECTOR}
- TKSPropertyVidCapSelector = KSPROPERTY_VIDCAP_SELECTOR;
- PKSPropertySelectorS = ^TKSPropertySelectorS;
- KSPROPERTY_SELECTOR_S = packed record
- Property_: KSPROPERTY;
- Value: Integer; // Value to set or get
- Flags: ULONG;
- Capabilities: ULONG;
- end;
- {$EXTERNALSYM KSPROPERTY_SELECTOR_S}
- PKSPROPERTY_SELECTOR_S = ^KSPROPERTY_SELECTOR_S;
- {$EXTERNALSYM PKSPROPERTY_SELECTOR_S}
- TKSPropertySelectorS = KSPROPERTY_SELECTOR_S;
- PKSPropertySelectorNodeS = ^TKSPropertySelectorNodeS;
- KSPROPERTY_SELECTOR_NODE_S = packed record
- NodeProperty: KSP_NODE;
- Value: Integer; // Value to set or get
- Flags: ULONG;
- Capabilities: ULONG;
- end;
- {$EXTERNALSYM KSPROPERTY_SELECTOR_NODE_S}
- PKSPROPERTY_SELECTOR_NODE_S = ^KSPROPERTY_SELECTOR_NODE_S;
- {$EXTERNALSYM PKSPROPERTY_SELECTOR_NODE_S}
- TKSPropertySelectorNodeS = KSPROPERTY_SELECTOR_NODE_S;
- //===========================================================================
- const
- PROPSETID_TUNER : TGUID = '{6a2e0605-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM PROPSETID_TUNER}
- type
- KSPROPERTY_TUNER = (
- KSPROPERTY_TUNER_CAPS, // R -overall device capabilities
- KSPROPERTY_TUNER_MODE_CAPS, // R -capabilities in this mode
- KSPROPERTY_TUNER_MODE, // RW -set a mode (TV, FM, AM, DSS)
- KSPROPERTY_TUNER_STANDARD, // R -get TV standard (only if TV mode)
- KSPROPERTY_TUNER_FREQUENCY, // RW -set/get frequency
- KSPROPERTY_TUNER_INPUT, // RW -select an input
- KSPROPERTY_TUNER_STATUS, // R -tuning status
- KSPROPERTY_TUNER_IF_MEDIUM // R O-Medium for IF or Transport Pin
- );
- {$EXTERNALSYM KSPROPERTY_TUNER}
- TKSPropertyTuner = KSPROPERTY_TUNER;
- KSPROPERTY_TUNER_MODES = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODES}
- const
- KSPROPERTY_TUNER_MODE_TV = $0001;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_TV}
- KSPROPERTY_TUNER_MODE_FM_RADIO = $0002;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_FM_RADIO}
- KSPROPERTY_TUNER_MODE_AM_RADIO = $0004;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_AM_RADIO}
- KSPROPERTY_TUNER_MODE_DSS = $0008;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_DSS}
- KSPROPERTY_TUNER_MODE_ATSC = $0010; // also used for DVB-T, DVB-C
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_ATSC}
- // Describes how the device tunes. Only one of these flags may be set
- // in KSPROPERTY_TUNER_MODE_CAPS_S.Strategy
- // Describe how the driver should attempt to tune:
- // EXACT: just go to the frequency specified (no fine tuning)
- // FINE: (slow) do an exhaustive search for the best signal
- // COARSE: (fast) use larger frequency jumps to just determine if any signal
- type
- KS_TUNER_TUNING_FLAGS = (
- {$IFNDEF COMPILER6_UP}
- KS_TUNER_TUNING_INVALID_0,
- KS_TUNER_TUNING_EXACT, // No fine tuning
- {$ELSE}
- KS_TUNER_TUNING_EXACT = 1,
- {$ENDIF}
- KS_TUNER_TUNING_FINE, // Fine grained search
- KS_TUNER_TUNING_COARSE // Coarse search
- );
- {$EXTERNALSYM KS_TUNER_TUNING_FLAGS}
- KS_TUNER_STRATEGY = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_TUNER_STRATEGY}
- const
- KS_TUNER_STRATEGY_PLL = $01; // Tune by PLL offset
- {$EXTERNALSYM KS_TUNER_STRATEGY_PLL}
- KS_TUNER_STRATEGY_SIGNAL_STRENGTH = $02; // Tune by signal strength
- {$EXTERNALSYM KS_TUNER_STRATEGY_SIGNAL_STRENGTH}
- KS_TUNER_STRATEGY_DRIVER_TUNES = $04; // Driver does fine tuning
- {$EXTERNALSYM KS_TUNER_STRATEGY_DRIVER_TUNES}
- type
- PKSPropertyTunerCapsS = ^TKSPropertyTunerCapsS;
- KSPROPERTY_TUNER_CAPS_S = record
- Property_ : KSPROPERTY ;
- ModesSupported : ULONG ; // KS_PROPERTY_TUNER_MODES_*
- VideoMedium : TKSPinMedium ; // GUID_NULL (no pin), or GUID
- TVAudioMedium : TKSPinMedium ; // GUID_NULL (no pin), or GUID
- RadioAudioMedium : TKSPinMedium ; // GUID_NULL (no pin), or GUID
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_CAPS_S}
- PKSPROPERTY_TUNER_CAPS_S = ^KSPROPERTY_TUNER_CAPS_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_CAPS_S}
- TKSPropertyTunerCapsS = KSPROPERTY_TUNER_CAPS_S;
- PKSPropertyTunerIfMediumS = ^TKSPropertyTunerIfMediumS;
- KSPROPERTY_TUNER_IF_MEDIUM_S = record
- Property_ : KSPROPERTY;
- IFMedium : TKSPinMedium; // GUID_NULL (no pin), or GUID
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_IF_MEDIUM_S}
- PKSPROPERTY_TUNER_IF_MEDIUM_S = ^KSPROPERTY_TUNER_IF_MEDIUM_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_IF_MEDIUM_S}
- TKSPropertyTunerIfMediumS = KSPROPERTY_TUNER_IF_MEDIUM_S;
- PKSPropertyTunerModeCapsS = ^TKSPropertyTunerModeCapsS;
- KSPROPERTY_TUNER_MODE_CAPS_S = record
- Property_ : KSPROPERTY;
- Mode : ULONG; // IN: KSPROPERTY_TUNER_MODE
- StandardsSupported : ULONG; // KS_AnalogVideo_* (if TV or DSS)
- MinFrequency : ULONG; // Hz
- MaxFrequency : ULONG; // Hz
- TuningGranularity : ULONG; // Hz
- NumberOfInputs : ULONG; // count of inputs
- SettlingTime : ULONG; // milliSeconds
- Strategy : ULONG; // KS_TUNER_STRATEGY
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_CAPS_S}
- PKSPROPERTY_TUNER_MODE_CAPS_S = ^KSPROPERTY_TUNER_MODE_CAPS_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_MODE_CAPS_S}
- TKSPropertyTunerModeCapsS = KSPROPERTY_TUNER_MODE_CAPS_S;
- PKSPropertyTunerModeS = ^TKSPropertyTunerModeS;
- KSPROPERTY_TUNER_MODE_S = record
- Property_ : KSPROPERTY;
- Mode : ULONG; // IN: KSPROPERTY_TUNER_MODE
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_MODE_S}
- PKSPROPERTY_TUNER_MODE_S = ^KSPROPERTY_TUNER_MODE_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_MODE_S}
- TKSPropertyTunerModeS = KSPROPERTY_TUNER_MODE_S;
- PKSPropertyTunerFrequencyS = ^TKSPropertyTunerFrequencyS;
- KSPROPERTY_TUNER_FREQUENCY_S = record
- Property_ : KSPROPERTY;
- Frequency : ULONG; // Hz
- LastFrequency : ULONG; // Hz (last known good)
- TuningFlags : ULONG; // KS_TUNER_TUNING_FLAGS
- VideoSubChannel : ULONG; // DSS
- AudioSubChannel : ULONG; // DSS
- Channel : ULONG; // VBI decoders
- Country : ULONG; // VBI decoders
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_FREQUENCY_S}
- PKSPROPERTY_TUNER_FREQUENCY_S = ^KSPROPERTY_TUNER_FREQUENCY_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_FREQUENCY_S}
- TKSPropertyTunerFrequencyS = KSPROPERTY_TUNER_FREQUENCY_S;
- PKSPropertyTunerStandardS = ^TKSPropertyTunerStandardS;
- KSPROPERTY_TUNER_STANDARD_S = record
- Property_ : KSPROPERTY;
- Standard : ULONG; // KS_AnalogVideo_*
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_STANDARD_S}
- PKSPROPERTY_TUNER_STANDARD_S = ^KSPROPERTY_TUNER_STANDARD_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_STANDARD_S}
- TKSPropertyTunerStandardS = KSPROPERTY_TUNER_STANDARD_S;
- PKSPropertyTunerInputS = ^TKSPropertyTunerInputS;
- KSPROPERTY_TUNER_INPUT_S = record
- Property_ : KSPROPERTY;
- InputIndex : ULONG; // 0 to (n-1) inputs
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_INPUT_S}
- PKSPROPERTY_TUNER_INPUT_S = ^KSPROPERTY_TUNER_INPUT_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_INPUT_S}
- TKSPropertyTunerInputS = KSPROPERTY_TUNER_INPUT_S;
- PKSPropertyTunerStatusS = ^TKSPropertyTunerStatusS;
- KSPROPERTY_TUNER_STATUS_S = record
- Property_ : KSPROPERTY;
- CurrentFrequency : ULONG; // Hz
- PLLOffset : ULONG; // if Strategy.KS_TUNER_STRATEGY_PLL
- SignalStrength : ULONG; // if Stretegy.KS_TUNER_STRATEGY_SIGNAL_STRENGTH
- Busy : ULONG; // TRUE if in the process of tuning
- end;
- {$EXTERNALSYM KSPROPERTY_TUNER_STATUS_S}
- PKSPROPERTY_TUNER_STATUS_S = ^KSPROPERTY_TUNER_STATUS_S;
- {$EXTERNALSYM PKSPROPERTY_TUNER_STATUS_S}
- TKSPropertyTunerStatusS = KSPROPERTY_TUNER_STATUS_S;
- const
- EVENTSETID_TUNER : TGUID = '{6a2e0606-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM EVENTSETID_TUNER}
- type
- KSEVENT_TUNER = (
- KSEVENT_TUNER_CHANGED
- );
- {$EXTERNALSYM KSEVENT_TUNER}
- TKSEventTuner = KSEVENT_TUNER;
- //===========================================================================
- // USB Video Class Definitions
- const
- KSNODETYPE_VIDEO_STREAMING : TGUID = '{DFF229E1-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_STREAMING}
- KSNODETYPE_VIDEO_INPUT_TERMINAL : TGUID = '{DFF229E2-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_INPUT_TERMINAL}
- KSNODETYPE_VIDEO_OUTPUT_TERMINAL : TGUID = '{DFF229E3-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_OUTPUT_TERMINAL}
- KSNODETYPE_VIDEO_SELECTOR : TGUID = '{DFF229E4-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_SELECTOR}
- KSNODETYPE_VIDEO_PROCESSING : TGUID = '{DFF229E5-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_PROCESSING}
- KSNODETYPE_VIDEO_CAMERA_TERMINAL : TGUID = '{DFF229E6-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_CAMERA_TERMINAL}
- KSNODETYPE_VIDEO_INPUT_MTT : TGUID = '{DFF229E7-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_INPUT_MTT}
- KSNODETYPE_VIDEO_OUTPUT_MTT : TGUID = '{DFF229E8-F70F-11D0-B917-00A0C9223196}';
- {$EXTERNALSYM KSNODETYPE_VIDEO_OUTPUT_MTT}
- //===========================================================================
- const
- PROPSETID_VIDCAP_VIDEOENCODER : TGUID = '{6a2e0610-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_VIDEOENCODER}
- type
- KSPROPERTY_VIDCAP_VIDEOENCODER = (
- KSPROPERTY_VIDEOENCODER_CAPS, // R
- KSPROPERTY_VIDEOENCODER_STANDARD, // RW
- KSPROPERTY_VIDEOENCODER_COPYPROTECTION, // RW O
- KSPROPERTY_VIDEOENCODER_CC_ENABLE // RW O
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_VIDEOENCODER}
- TKSPropertyVidCapVideoEncoder = KSPROPERTY_VIDCAP_VIDEOENCODER;
- PKSPropertyVideoEncoderS = ^TKSPropertyVideoEncoderS;
- KSPROPERTY_VIDEOENCODER_S = record
- Property_ : KSPROPERTY;
- Value : longint; // value to get or set
- Flags : ULONG; //
- Capabilities : ULONG; //
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOENCODER_S}
- PKSPROPERTY_VIDEOENCODER_S = ^KSPROPERTY_VIDEOENCODER_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOENCODER_S}
- TKSPropertyVideoEncoderS = KSPROPERTY_VIDEOENCODER_S;
- //===========================================================================
- const
- PROPSETID_VIDCAP_VIDEODECODER : TGUID = '{C6E13350-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_VIDEODECODER}
- type
- KSPROPERTY_VIDCAP_VIDEODECODER = (
- KSPROPERTY_VIDEODECODER_CAPS, // R
- KSPROPERTY_VIDEODECODER_STANDARD, // RW
- KSPROPERTY_VIDEODECODER_STATUS, // R
- KSPROPERTY_VIDEODECODER_OUTPUT_ENABLE, // Rw O
- KSPROPERTY_VIDEODECODER_VCR_TIMING // RW O
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_VIDEODECODER}
- TKSPropertyVidCapVideoDecoder = KSPROPERTY_VIDCAP_VIDEODECODER;
- KS_VIDEODECODER_FLAGS = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_VIDEODECODER_FLAGS}
- const
- KS_VIDEODECODER_FLAGS_CAN_DISABLE_OUTPUT = $0001; // VP Output can tri-stae
- {$EXTERNALSYM KS_VIDEODECODER_FLAGS_CAN_DISABLE_OUTPUT}
- KS_VIDEODECODER_FLAGS_CAN_USE_VCR_LOCKING = $0002; // VCR PLL timings
- {$EXTERNALSYM KS_VIDEODECODER_FLAGS_CAN_USE_VCR_LOCKING}
- KS_VIDEODECODER_FLAGS_CAN_INDICATE_LOCKED = $0004; // Can indicate valid signal
- {$EXTERNALSYM KS_VIDEODECODER_FLAGS_CAN_INDICATE_LOCKED}
- type
- PKSPropertyVideoDecoderCapsS = ^TKSPropertyVideoDecoderCapsS;
- KSPROPERTY_VIDEODECODER_CAPS_S = record
- Property_ : KSPROPERTY;
- StandardsSupported : ULONG; // KS_AnalogVideo_*
- Capabilities : ULONG; // KS_VIDEODECODER_FLAGS_*
- SettlingTime : ULONG; // milliseconds
- HSyncPerVSync : ULONG; // Number of HSync Pulses per VSync
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEODECODER_CAPS_S}
- PKSPROPERTY_VIDEODECODER_CAPS_S = ^KSPROPERTY_VIDEODECODER_CAPS_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEODECODER_CAPS_S}
- TKSPropertyVideoDecoderCapsS = KSPROPERTY_VIDEODECODER_CAPS_S;
- PKSPropertyVideoDecoderStatusS = ^TKSPropertyVideoDecoderStatusS;
- KSPROPERTY_VIDEODECODER_STATUS_S = record
- Property_ : KSPROPERTY;
- NumberOfLines : ULONG; // 525 or 625 lines detected
- SignalLocked : ULONG; // TRUE if signal is locked
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEODECODER_STATUS_S}
- PKSPROPERTY_VIDEODECODER_STATUS_S = ^KSPROPERTY_VIDEODECODER_STATUS_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEODECODER_STATUS_S}
- TKSPropertyVideoDecoderStatusS = KSPROPERTY_VIDEODECODER_STATUS_S;
- PKSPropertyVideoDecoderS = ^TKSPropertyVideoDecoderS;
- KSPROPERTY_VIDEODECODER_S = record
- Property_ : KSPROPERTY;
- Value : ULONG; // Get or set a value
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEODECODER_S}
- PKSPROPERTY_VIDEODECODER_S = ^KSPROPERTY_VIDEODECODER_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEODECODER_S}
- TKSPropertyVideoDecoderS = KSPROPERTY_VIDEODECODER_S;
- const
- EVENTSETID_VIDEODECODER : TGUID = '{6a2e0621-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM EVENTSETID_VIDEODECODER}
- type
- KSEVENT_VIDEODECODER = (
- KSEVENT_VIDEODECODER_CHANGED
- );
- {$EXTERNALSYM KSEVENT_VIDEODECODER}
- TKSEventVideoDecoder = KSEVENT_VIDEODECODER;
- //===========================================================================
- const
- PROPSETID_VIDCAP_CAMERACONTROL : TGUID = '{C6E13370-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_CAMERACONTROL}
- type
- KSPROPERTY_VIDCAP_CAMERACONTROL = (
- KSPROPERTY_CAMERACONTROL_PAN, // RW O
- KSPROPERTY_CAMERACONTROL_TILT, // RW O
- KSPROPERTY_CAMERACONTROL_ROLL, // RW O
- KSPROPERTY_CAMERACONTROL_ZOOM, // RW O
- KSPROPERTY_CAMERACONTROL_EXPOSURE, // RW O
- KSPROPERTY_CAMERACONTROL_IRIS, // RW O
- KSPROPERTY_CAMERACONTROL_FOCUS, // RW O
- KSPROPERTY_CAMERACONTROL_SCANMODE, // RW O
- KSPROPERTY_CAMERACONTROL_PRIVACY, // RW O
- KSPROPERTY_CAMERACONTROL_PANTILT, // RW O
- KSPROPERTY_CAMERACONTROL_PAN_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_TILT_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_ROLL_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_ZOOM_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_EXPOSURE_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_IRIS_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_FOCUS_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_PANTILT_RELATIVE, // RW O
- KSPROPERTY_CAMERACONTROL_FOCAL_LENGTH
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_CAMERACONTROL}
- TKSPropertyVidCapCameraControl = KSPROPERTY_VIDCAP_CAMERACONTROL;
- PKSPropertyCameraControlS = ^TKSPropertyCameraControlS;
- KSPROPERTY_CAMERACONTROL_S = record
- Property_ : KSPROPERTY;
- Value : longint; // value to get or set
- Flags : ULONG; // KSPROPERTY_CAMERACONTROL_FLAGS_*
- Capabilities : ULONG; // KSPROPERTY_CAMERACONTROL_FLAGS_*
- end;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_S}
- PKSPROPERTY_CAMERACONTROL_S = ^KSPROPERTY_CAMERACONTROL_S;
- {$EXTERNALSYM PKSPROPERTY_CAMERACONTROL_S}
- TKSPropertyCameraControlS = KSPROPERTY_CAMERACONTROL_S;
- PKSPropertyCameraControlNodeS = ^TKSPropertyCameraControlNodeS;
- KSPROPERTY_CAMERACONTROL_NODE_S = packed record
- NodeProperty: KSP_NODE;
- Value: Integer; // value to get or set
- Flags: ULONG; // KSPROPERTY_CAMERACONTROL_FLAGS_*
- Capabilities: ULONG; // KSPROPERTY_CAMERACONTROL_FLAGS_*
- end;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_NODE_S}
- PKSPROPERTY_CAMERACONTROL_NODE_S = ^KSPROPERTY_CAMERACONTROL_NODE_S;
- {$EXTERNALSYM PKSPROPERTY_CAMERACONTROL_NODE_S}
- TKSPropertyCameraControlNodeS = KSPROPERTY_CAMERACONTROL_NODE_S;
- PKSPropertyCameraControlS2 = ^TKSPropertyCameraControlS2;
- KSPROPERTY_CAMERACONTROL_S2 = packed record
- Property_: KSPROPERTY;
- Value1: Integer;
- Flags: ULONG;
- Capabilities: ULONG;
- Value2: Integer;
- end;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_S2}
- PKSPROPERTY_CAMERACONTROL_S2 = ^KSPROPERTY_CAMERACONTROL_S2;
- {$EXTERNALSYM PKSPROPERTY_CAMERACONTROL_S2}
- TKSPropertyCameraControlS2 = KSPROPERTY_CAMERACONTROL_S2;
- PKSPropertyCameraControlNodeS2 = ^TKSPropertyCameraControlNodeS2;
- KSPROPERTY_CAMERACONTROL_NODE_S2 = packed record
- NodeProperty: KSP_NODE ;
- Value1: Integer;
- Flags: ULONG;
- Capabilities: ULONG;
- Value2: Integer;
- end;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_NODE_S2}
- PKSPROPERTY_CAMERACONTROL_NODE_S2 = ^KSPROPERTY_CAMERACONTROL_NODE_S2;
- {$EXTERNALSYM PKSPROPERTY_CAMERACONTROL_NODE_S2}
- TKSPropertyCameraControlNodeS2 = KSPROPERTY_CAMERACONTROL_NODE_S2;
- PKSPropertyCameraControlFocalLengthS = ^TKSPropertyCameraControlFocalLengthS;
- KSPROPERTY_CAMERACONTROL_FOCAL_LENGTH_S = packed record
- Property_: KSPROPERTY;
- lOcularFocalLength: Integer;
- lObjectiveFocalLengthMin: Integer;
- lObjectiveFocalLengthMax: Integer;
- end;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_FOCAL_LENGTH_S}
- PKSPROPERTY_CAMERACONTROL_FOCAL_LENGTH_S = ^KSPROPERTY_CAMERACONTROL_FOCAL_LENGTH_S;
- {$EXTERNALSYM PKSPROPERTY_CAMERACONTROL_FOCAL_LENGTH_S}
- TKSPropertyCameraControlFocalLengthS = KSPROPERTY_CAMERACONTROL_FOCAL_LENGTH_S;
- KSPROPERTY_CAMERACONTROL_NODE_FOCAL_LENGTH_S = packed record
- NodeProperty: KSNODEPROPERTY;
- lOcularFocalLength: Integer;
- lObjectiveFocalLengthMin: Integer;
- lObjectiveFocalLengthMax: Integer;
- end;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_NODE_FOCAL_LENGTH_S}
- TKSPropertyCameraControlNodeFocalLengthS = KSPROPERTY_CAMERACONTROL_NODE_FOCAL_LENGTH_S;
- const
- KSPROPERTY_CAMERACONTROL_FLAGS_AUTO = $0001;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_FLAGS_AUTO}
- KSPROPERTY_CAMERACONTROL_FLAGS_MANUAL = $0002;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_FLAGS_MANUAL}
- KSPROPERTY_CAMERACONTROL_FLAGS_ABSOLUTE = $0000;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_FLAGS_ABSOLUTE}
- KSPROPERTY_CAMERACONTROL_FLAGS_RELATIVE = $0010;
- {$EXTERNALSYM KSPROPERTY_CAMERACONTROL_FLAGS_RELATIVE}
- //===========================================================================
- PROPSETID_VIDCAP_CROSSBAR : TGUID = '{6a2e0640-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_CROSSBAR}
- type
- KSPROPERTY_VIDCAP_CROSSBAR = (
- KSPROPERTY_CROSSBAR_CAPS, // R
- KSPROPERTY_CROSSBAR_PININFO, // R
- KSPROPERTY_CROSSBAR_CAN_ROUTE, // R
- KSPROPERTY_CROSSBAR_ROUTE // RW
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_CROSSBAR}
- TKSPropertyVidCapCrossbar = KSPROPERTY_VIDCAP_CROSSBAR;
- PKSPropertyCrossbarCapsS = ^TKSPropertyCrossbarCapsS;
- KSPROPERTY_CROSSBAR_CAPS_S = record
- Property_ : KSPROPERTY;
- NumberOfInputs : ULONG; // the number of audio and video input pins
- NumberOfOutputs : ULONG; // the number of audio and video output pins
- end;
- {$EXTERNALSYM KSPROPERTY_CROSSBAR_CAPS_S}
- PKSPROPERTY_CROSSBAR_CAPS_S = ^KSPROPERTY_CROSSBAR_CAPS_S;
- {$EXTERNALSYM PKSPROPERTY_CROSSBAR_CAPS_S}
- TKSPropertyCrossbarCapsS = KSPROPERTY_CROSSBAR_CAPS_S;
- PKSPropertyCrossbarPinInfoS = ^TKSPropertyCrossbarPinInfoS;
- KSPROPERTY_CROSSBAR_PININFO_S = record
- Property_ : KSPROPERTY;
- Direction : TKSPinDataFlow; // KSPIN_DATAFLOW_IN or KSPIN_DATAFLOW_OUT?
- Index : ULONG; // Which pin to return data for?
- PinType : ULONG; // KS_PhysConn_Video_* or KS_PhysConn_Audio_*
- RelatedPinIndex : ULONG; // For video pins, this is the related audio pin
- Medium : TKSPinMedium; // Identifies the hardware connection
- end;
- {$EXTERNALSYM KSPROPERTY_CROSSBAR_PININFO_S}
- PKSPROPERTY_CROSSBAR_PININFO_S = ^KSPROPERTY_CROSSBAR_PININFO_S;
- {$EXTERNALSYM PKSPROPERTY_CROSSBAR_PININFO_S}
- TKSPropertyCrossbarPinInfoS = KSPROPERTY_CROSSBAR_PININFO_S;
- PKSPropertyCrossbarRouteS = ^TKSPropertyCrossbarRouteS;
- KSPROPERTY_CROSSBAR_ROUTE_S = record
- Property_ : KSPROPERTY;
- IndexInputPin : ULONG; // Zero based index of the input pin
- IndexOutputPin : ULONG; // Zero based index of the output pin
- CanRoute : ULONG; // returns non-zero on CAN_ROUTE if routing is possible
- end;
- {$EXTERNALSYM KSPROPERTY_CROSSBAR_ROUTE_S}
- PKSPROPERTY_CROSSBAR_ROUTE_S = ^KSPROPERTY_CROSSBAR_ROUTE_S;
- {$EXTERNALSYM PKSPROPERTY_CROSSBAR_ROUTE_S}
- TKSPropertyCrossbarRouteS = KSPROPERTY_CROSSBAR_ROUTE_S;
- const
- EVENTSETID_CROSSBAR : TGUID = '{6a2e0641-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM EVENTSETID_CROSSBAR}
- type
- KSEVENT_CROSSBAR = (
- KSEVENT_CROSSBAR_CHANGED
- );
- {$EXTERNALSYM KSEVENT_CROSSBAR}
- TKSEventCrossbar = KSEVENT_CROSSBAR;
- // The following IDs should match the AM equivalents
- KS_PhysicalConnectorType = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_PhysicalConnectorType}
- const
- KS_PhysConn_Video_Tuner = 1;
- {$EXTERNALSYM KS_PhysConn_Video_Tuner}
- KS_PhysConn_Video_Composite = 2;
- {$EXTERNALSYM KS_PhysConn_Video_Composite}
- KS_PhysConn_Video_SVideo = 3;
- {$EXTERNALSYM KS_PhysConn_Video_SVideo}
- KS_PhysConn_Video_RGB = 4;
- {$EXTERNALSYM KS_PhysConn_Video_RGB}
- KS_PhysConn_Video_YRYBY = 5;
- {$EXTERNALSYM KS_PhysConn_Video_YRYBY}
- KS_PhysConn_Video_SerialDigital = 6;
- {$EXTERNALSYM KS_PhysConn_Video_SerialDigital}
- KS_PhysConn_Video_ParallelDigital = 7;
- {$EXTERNALSYM KS_PhysConn_Video_ParallelDigital}
- KS_PhysConn_Video_SCSI = 8;
- {$EXTERNALSYM KS_PhysConn_Video_SCSI}
- KS_PhysConn_Video_AUX = 9;
- {$EXTERNALSYM KS_PhysConn_Video_AUX}
- KS_PhysConn_Video_1394 = 10;
- {$EXTERNALSYM KS_PhysConn_Video_1394}
- KS_PhysConn_Video_USB = 11;
- {$EXTERNALSYM KS_PhysConn_Video_USB}
- KS_PhysConn_Video_VideoDecoder = 12;
- {$EXTERNALSYM KS_PhysConn_Video_VideoDecoder}
- KS_PhysConn_Video_VideoEncoder = 13;
- {$EXTERNALSYM KS_PhysConn_Video_VideoEncoder}
- KS_PhysConn_Video_SCART = 14;
- {$EXTERNALSYM KS_PhysConn_Video_SCART}
- KS_PhysConn_Audio_Tuner = 4096;
- {$EXTERNALSYM KS_PhysConn_Audio_Tuner}
- KS_PhysConn_Audio_Line = 4097;
- {$EXTERNALSYM KS_PhysConn_Audio_Line}
- KS_PhysConn_Audio_Mic = 4098;
- {$EXTERNALSYM KS_PhysConn_Audio_Mic}
- KS_PhysConn_Audio_AESDigital = 4099;
- {$EXTERNALSYM KS_PhysConn_Audio_AESDigital}
- KS_PhysConn_Audio_SPDIFDigital = 4100;
- {$EXTERNALSYM KS_PhysConn_Audio_SPDIFDigital}
- KS_PhysConn_Audio_SCSI = 4101;
- {$EXTERNALSYM KS_PhysConn_Audio_SCSI}
- KS_PhysConn_Audio_AUX = 4102;
- {$EXTERNALSYM KS_PhysConn_Audio_AUX}
- KS_PhysConn_Audio_1394 = 4103;
- {$EXTERNALSYM KS_PhysConn_Audio_1394}
- KS_PhysConn_Audio_USB = 4104;
- {$EXTERNALSYM KS_PhysConn_Audio_USB}
- KS_PhysConn_Audio_AudioDecoder = 4105;
- {$EXTERNALSYM KS_PhysConn_Audio_AudioDecoder}
- //===========================================================================
- PROPSETID_VIDCAP_TVAUDIO : TGUID = '{6a2e0650-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_TVAUDIO}
- type
- KSPROPERTY_VIDCAP_TVAUDIO = (
- KSPROPERTY_TVAUDIO_CAPS, // R
- KSPROPERTY_TVAUDIO_MODE, // RW
- KSPROPERTY_TVAUDIO_CURRENTLY_AVAILABLE_MODES // R
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_TVAUDIO}
- TKSPropertyVidCapTVAudio = KSPROPERTY_VIDCAP_TVAUDIO;
- const
- KS_TVAUDIO_MODE_MONO = $0001; // Mono
- {$EXTERNALSYM KS_TVAUDIO_MODE_MONO}
- KS_TVAUDIO_MODE_STEREO = $0002; // Stereo
- {$EXTERNALSYM KS_TVAUDIO_MODE_STEREO}
- KS_TVAUDIO_MODE_LANG_A = $0010; // Primary language
- {$EXTERNALSYM KS_TVAUDIO_MODE_LANG_A}
- KS_TVAUDIO_MODE_LANG_B = $0020; // 2nd avail language
- {$EXTERNALSYM KS_TVAUDIO_MODE_LANG_B}
- KS_TVAUDIO_MODE_LANG_C = $0040; // 3rd avail language
- {$EXTERNALSYM KS_TVAUDIO_MODE_LANG_C}
- type
- PKSPropertyTVAudioCapsS = ^TKSPropertyTVAudioCapsS;
- KSPROPERTY_TVAUDIO_CAPS_S = record
- Property_ : KSPROPERTY;
- Capabilities : ULONG; // Bitmask of KS_TVAUDIO_MODE_*
- InputMedium : TKSPinMedium;
- OutputMedium : TKSPinMedium;
- end;
- {$EXTERNALSYM KSPROPERTY_TVAUDIO_CAPS_S}
- PKSPROPERTY_TVAUDIO_CAPS_S = ^KSPROPERTY_TVAUDIO_CAPS_S;
- {$EXTERNALSYM PKSPROPERTY_TVAUDIO_CAPS_S}
- TKSPropertyTVAudioCapsS = KSPROPERTY_TVAUDIO_CAPS_S;
- PKSPropertyTVAudioS = ^TKSPropertyTVAudioS;
- KSPROPERTY_TVAUDIO_S = record
- Property_ : KSPROPERTY;
- Mode : ULONG; // KS_TVAUDIO_MODE_*
- end;
- {$EXTERNALSYM KSPROPERTY_TVAUDIO_S}
- PKSPROPERTY_TVAUDIO_S = ^KSPROPERTY_TVAUDIO_S;
- {$EXTERNALSYM PKSPROPERTY_TVAUDIO_S}
- TKSPropertyTVAudioS = KSPROPERTY_TVAUDIO_S;
- const
- KSEVENTSETID_VIDCAP_TVAUDIO : TGUID = '{6a2e0651-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM KSEVENTSETID_VIDCAP_TVAUDIO}
- type
- KSEVENT_TVAUDIO = (
- KSEVENT_TVAUDIO_CHANGED
- );
- {$EXTERNALSYM KSEVENT_TVAUDIO}
- TKSEventTVAudio = KSEVENT_TVAUDIO;
- //===========================================================================
- const
- PROPSETID_VIDCAP_VIDEOCOMPRESSION : TGUID = '{C6E13343-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_VIDEOCOMPRESSION}
- type
- KSPROPERTY_VIDCAP_VIDEOCOMPRESSION = (
- KSPROPERTY_VIDEOCOMPRESSION_GETINFO, // R
- KSPROPERTY_VIDEOCOMPRESSION_KEYFRAME_RATE, // RW
- KSPROPERTY_VIDEOCOMPRESSION_PFRAMES_PER_KEYFRAME, // RW
- KSPROPERTY_VIDEOCOMPRESSION_QUALITY, // RW
- KSPROPERTY_VIDEOCOMPRESSION_OVERRIDE_KEYFRAME, // W
- KSPROPERTY_VIDEOCOMPRESSION_OVERRIDE_FRAME_SIZE, // W
- KSPROPERTY_VIDEOCOMPRESSION_WINDOWSIZE // RW
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_VIDEOCOMPRESSION}
- TKSPRopertyVidCapVideoCompression = KSPROPERTY_VIDCAP_VIDEOCOMPRESSION;
- KS_CompressionCaps = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_CompressionCaps}
- const
- KS_CompressionCaps_CanQuality = 1;
- {$EXTERNALSYM KS_CompressionCaps_CanQuality}
- KS_CompressionCaps_CanCrunch = 2;
- {$EXTERNALSYM KS_CompressionCaps_CanCrunch}
- KS_CompressionCaps_CanKeyFrame = 4;
- {$EXTERNALSYM KS_CompressionCaps_CanKeyFrame}
- KS_CompressionCaps_CanBFrame = 8;
- {$EXTERNALSYM KS_CompressionCaps_CanBFrame}
- KS_CompressionCaps_CanWindow = $10;
- {$EXTERNALSYM KS_CompressionCaps_CanWindow}
- type
- PKSPropertyVideoCompressionGetInfoS = ^TKSPropertyVideoCompressionGetInfoS;
- KSPROPERTY_VIDEOCOMPRESSION_GETINFO_S = record
- Property_ : KSPROPERTY;
- // Note, no VersionString!
- // Note, no DescriptionString!
- StreamIndex : ULONG; // zero based index of stream
- DefaultKeyFrameRate : longint; // Key frame rate
- DefaultPFrameRate : longint; // Predeicted frames per Key frame
- DefaultQuality : longint; // 0 to 10000
- NumberOfQualitySettings : longint; // How many discreet quality settings?
- Capabilities : longint; // KS_CompressionCaps_*
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOCOMPRESSION_GETINFO_S}
- PKSPROPERTY_VIDEOCOMPRESSION_GETINFO_S = ^KSPROPERTY_VIDEOCOMPRESSION_GETINFO_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOCOMPRESSION_GETINFO_S}
- TKSPropertyVideoCompressionGetInfoS = KSPROPERTY_VIDEOCOMPRESSION_GETINFO_S;
- PKSPropertyVideoCompressionS = ^TKSPropertyVideoCompressionS;
- KSPROPERTY_VIDEOCOMPRESSION_S = record
- Property_ : KSPROPERTY;
- StreamIndex : ULONG; // zero based index of stream
- Value : longint; // value to get or set
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOCOMPRESSION_S}
- PKSPROPERTY_VIDEOCOMPRESSION_S = ^KSPROPERTY_VIDEOCOMPRESSION_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOCOMPRESSION_S}
- TKSPropertyVideoCompressionS = KSPROPERTY_VIDEOCOMPRESSION_S;
- //===========================================================================
- // MEDIASUBTYPE_Overlay
- const
- KSDATAFORMAT_SUBTYPE_OVERLAY : TGUID = '{e436eb7f-524f-11ce-9f53-0020af0ba770}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_OVERLAY}
- KSPROPSETID_OverlayUpdate : TGUID = '{490EA5CF-7681-11D1-A21C-00A0C9223196}';
- {$EXTERNALSYM KSPROPSETID_OverlayUpdate}
- type
- KSPROPERTY_OVERLAYUPDATE = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE}
- const
- KSPROPERTY_OVERLAYUPDATE_INTERESTS = $0;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_INTERESTS}
- KSPROPERTY_OVERLAYUPDATE_CLIPLIST = $1;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_CLIPLIST}
- KSPROPERTY_OVERLAYUPDATE_PALETTE = $2;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_PALETTE}
- KSPROPERTY_OVERLAYUPDATE_COLORKEY = $4;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_COLORKEY}
- KSPROPERTY_OVERLAYUPDATE_VIDEOPOSITION = $8;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_VIDEOPOSITION}
- KSPROPERTY_OVERLAYUPDATE_DISPLAYCHANGE = $10;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_DISPLAYCHANGE}
- KSPROPERTY_OVERLAYUPDATE_COLORREF = $10000000;
- {$EXTERNALSYM KSPROPERTY_OVERLAYUPDATE_COLORREF}
- type
- KSDISPLAYCHANGE = record
- PelsWidth :ULONG;
- PelsHeight :ULONG;
- BitsPerPel :ULONG;
- DeviceID :array[0..0] of WideChar;
- end;
- {$EXTERNALSYM KSDISPLAYCHANGE}
- PKSDISPLAYCHANGE = ^KSDISPLAYCHANGE;
- {$EXTERNALSYM PKSDISPLAYCHANGE}
- TKSDisplayChange = KSDISPLAYCHANGE;
- {#define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_INTERESTS(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_INTERESTS,\
- (Handler),\
- sizeof(KSPROPERTY),\
- sizeof(ULONG),\
- NULL, NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_PALETTE(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_PALETTE,\
- NULL,\
- sizeof(KSPROPERTY),\
- 0,\
- (Handler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_COLORKEY(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_COLORKEY,\
- NULL,\
- sizeof(KSPROPERTY),\
- sizeof(COLORKEY),\
- (Handler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_CLIPLIST(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_CLIPLIST,\
- NULL,\
- sizeof(KSPROPERTY),\
- 2 * sizeof(RECT) + sizeof(RGNDATAHEADER),\
- (Handler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_VIDEOPOSITION(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_VIDEOPOSITION,\
- NULL,\
- sizeof(KSPROPERTY),\
- 2 * sizeof(RECT),\
- (Handler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_DISPLAYCHANGE(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_DISPLAYCHANGE,\
- NULL,\
- sizeof(KSPROPERTY),\
- sizeof(KSDISPLAYCHANGE),\
- (Handler),\
- NULL, 0, NULL, NULL, 0)
- #define DEFINE_KSPROPERTY_ITEM_OVERLAYUPDATE_COLORREF(Handler)\
- DEFINE_KSPROPERTY_ITEM(\
- KSPROPERTY_OVERLAYUPDATE_COLORREF,\
- (Handler),\
- sizeof(KSPROPERTY),\
- sizeof(COLORREF),\
- NULL,\
- NULL, 0, NULL, NULL, 0) }
- //===========================================================================
- const
- PROPSETID_VIDCAP_VIDEOCONTROL : TGUID = '{6a2e0670-28e4-11d0-a18c-00a0c9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_VIDEOCONTROL}
- type
- KSPROPERTY_VIDCAP_VIDEOCONTROL = (
- KSPROPERTY_VIDEOCONTROL_CAPS, // R
- KSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE, // R O
- KSPROPERTY_VIDEOCONTROL_FRAME_RATES, // R O
- KSPROPERTY_VIDEOCONTROL_MODE // RWO
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_VIDEOCONTROL}
- TKSPropertyVidCapVideoControl = KSPROPERTY_VIDCAP_VIDEOCONTROL;
- KS_VideoControlFlags = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM KS_VideoControlFlags}
- const
- KS_VideoControlFlag_FlipHorizontal = $0001;
- {$EXTERNALSYM KS_VideoControlFlag_FlipHorizontal}
- KS_VideoControlFlag_FlipVertical = $0002;
- {$EXTERNALSYM KS_VideoControlFlag_FlipVertical}
- KS_Obsolete_VideoControlFlag_ExternalTriggerEnable = $0010; // ***WARNING *** Flag msimatch with DSHOW.
- {$EXTERNALSYM KS_Obsolete_VideoControlFlag_ExternalTriggerEnable}
- KS_Obsolete_VideoControlFlag_Trigger = $0020; // ***WARNING *** Flag msimatch with DSHOW.
- {$EXTERNALSYM KS_Obsolete_VideoControlFlag_Trigger}
- KS_VideoControlFlag_ExternalTriggerEnable = $0004;
- {$EXTERNALSYM KS_VideoControlFlag_ExternalTriggerEnable}
- KS_VideoControlFlag_Trigger = $0008;
- {$EXTERNALSYM KS_VideoControlFlag_Trigger}
- type
- PKSPropertyVideoControlCapsS = ^TKSPropertyVideoControlCapsS;
- KSPROPERTY_VIDEOCONTROL_CAPS_S = record
- Property_ : KSPROPERTY;
- StreamIndex : ULONG;
- VideoControlCaps : ULONG; // KS_VideoControlFlags_*
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOCONTROL_CAPS_S}
- PKSPROPERTY_VIDEOCONTROL_CAPS_S = ^KSPROPERTY_VIDEOCONTROL_CAPS_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOCONTROL_CAPS_S}
- TKSPropertyVideoControlCapsS = KSPROPERTY_VIDEOCONTROL_CAPS_S;
- PKSPropertyVideoControlModeS = ^TKSPropertyVideoControlModeS;
- KSPROPERTY_VIDEOCONTROL_MODE_S = record
- Property_ : KSPROPERTY;
- StreamIndex : ULONG;
- Mode : longint; // KS_VideoControlFlags_*
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOCONTROL_MODE_S}
- PKSPROPERTY_VIDEOCONTROL_MODE_S = ^KSPROPERTY_VIDEOCONTROL_MODE_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOCONTROL_MODE_S}
- TKSPropertyVideoControlModeS = KSPROPERTY_VIDEOCONTROL_MODE_S;
- PKSPropertyVideoControlActualFrameRateS = ^TKSPropertyVideoControlActualFrameRateS;
- KSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE_S = record
- Property_ : KSPROPERTY;
- StreamIndex : ULONG; // Index of stream
- RangeIndex : ULONG; // Index of range
- Dimensions : TSIZE; // Size of image
- CurrentActualFrameRate : int64; // Only correct if pin is open
- CurrentMaxAvailableFrameRate : int64; // Max Rate temporarily limited on USB or 1394?
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE_S}
- PKSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE_S = ^KSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE_S}
- TKSPropertyVideoControlActualFrameRateS = KSPROPERTY_VIDEOCONTROL_ACTUAL_FRAME_RATE_S;
- // KSPROPERTY_VIDEOCONTROL_FRAME_RATES returns a list of available frame rates in 100 nS units
- PKSPropertyVideoControlFrameRatesS = ^TKSPropertyVideoControlFrameRatesS;
- KSPROPERTY_VIDEOCONTROL_FRAME_RATES_S = record
- Property_ : KSPROPERTY;
- StreamIndex : ULONG; // Index of stream
- RangeIndex : ULONG; // Index of range
- Dimensions : TSIZE; // Size of image
- end;
- {$EXTERNALSYM KSPROPERTY_VIDEOCONTROL_FRAME_RATES_S}
- PKSPROPERTY_VIDEOCONTROL_FRAME_RATES_S = ^KSPROPERTY_VIDEOCONTROL_FRAME_RATES_S;
- {$EXTERNALSYM PKSPROPERTY_VIDEOCONTROL_FRAME_RATES_S}
- TKSPropertyVideoControlFrameRatesS = KSPROPERTY_VIDEOCONTROL_FRAME_RATES_S;
- //===========================================================================
- const
- PROPSETID_VIDCAP_DROPPEDFRAMES : TGUID = '{C6E13344-30AC-11d0-A18C-00A0C9118956}';
- {$EXTERNALSYM PROPSETID_VIDCAP_DROPPEDFRAMES}
- type
- KSPROPERTY_VIDCAP_DROPPEDFRAMES = (
- KSPROPERTY_DROPPEDFRAMES_CURRENT // R
- );
- {$EXTERNALSYM KSPROPERTY_VIDCAP_DROPPEDFRAMES}
- TKSPropertyVidCapDroppedFrames = KSPROPERTY_VIDCAP_DROPPEDFRAMES;
- PKSPropertyDroppedFramesCurrentS = ^TKSPropertyDroppedFramesCurrentS;
- KSPROPERTY_DROPPEDFRAMES_CURRENT_S = record
- Property_ : KSPROPERTY;
- PictureNumber : int64; // Current Picture Number
- DropCount : int64; // Count of frames dropped
- AverageFrameSize : ULONG; // Average size of frames captured
- end;
- {$EXTERNALSYM KSPROPERTY_DROPPEDFRAMES_CURRENT_S}
- PKSPROPERTY_DROPPEDFRAMES_CURRENT_S = ^KSPROPERTY_DROPPEDFRAMES_CURRENT_S;
- {$EXTERNALSYM PKSPROPERTY_DROPPEDFRAMES_CURRENT_S}
- TKSPropertyDroppedFramesCurrentS = KSPROPERTY_DROPPEDFRAMES_CURRENT_S;
- //===========================================================================
- // VPE
- const
- KSPROPSETID_VPConfig : TGUID = '{bc29a660-30e3-11d0-9e69-00c04fd7c15b}';
- {$EXTERNALSYM KSPROPSETID_VPConfig}
- KSPROPSETID_VPVBIConfig : TGUID = '{ec529b00-1a1f-11d1-bad9-00609744111a}';
- {$EXTERNALSYM KSPROPSETID_VPVBIConfig}
- // Both of the above property sets use the same list of properties below
- type
- KSPROPERTY_VPCONFIG = (
- KSPROPERTY_VPCONFIG_NUMCONNECTINFO,
- KSPROPERTY_VPCONFIG_GETCONNECTINFO,
- KSPROPERTY_VPCONFIG_SETCONNECTINFO,
- KSPROPERTY_VPCONFIG_VPDATAINFO,
- KSPROPERTY_VPCONFIG_MAXPIXELRATE,
- KSPROPERTY_VPCONFIG_INFORMVPINPUT,
- KSPROPERTY_VPCONFIG_NUMVIDEOFORMAT,
- KSPROPERTY_VPCONFIG_GETVIDEOFORMAT,
- KSPROPERTY_VPCONFIG_SETVIDEOFORMAT,
- KSPROPERTY_VPCONFIG_INVERTPOLARITY,
- KSPROPERTY_VPCONFIG_DECIMATIONCAPABILITY, // E_NOTIMPL for VBI
- KSPROPERTY_VPCONFIG_SCALEFACTOR, // E_NOTIMPL for VBI
- KSPROPERTY_VPCONFIG_DDRAWHANDLE,
- KSPROPERTY_VPCONFIG_VIDEOPORTID,
- KSPROPERTY_VPCONFIG_DDRAWSURFACEHANDLE,
- KSPROPERTY_VPCONFIG_SURFACEPARAMS
- );
- {$EXTERNALSYM KSPROPERTY_VPCONFIG}
- TKSPropertyVPConfig = KSPROPERTY_VPCONFIG;
- //=========================
- // IBasicAudio
- //
- const
- CLSID_KsIBasicAudioInterfaceHandler : TGUID = '{b9f8ac3e-0f71-11d2-b72c-00c04fb6bd3d}';
- {$EXTERNALSYM CLSID_KsIBasicAudioInterfaceHandler}
- type
- KSVPMAXPIXELRATE = record
- Size : TAMVPSIZE;
- MaxPixelsPerSecond : DWORD;
- Reserved : DWORD;
- end;
- {$EXTERNALSYM KSVPMAXPIXELRATE}
- PKSVPMAXPIXELRATE = ^KSVPMAXPIXELRATE;
- {$EXTERNALSYM PKSVPMAXPIXELRATE}
- TKSVPMaxPixelRate = KSVPMAXPIXELRATE;
- PKSVPSizeProp = ^TKSVPSizeProp;
- KSVPSIZE_PROP = record
- Property_ : KSPROPERTY;
- Size : TAMVPSIZE;
- end;
- {$EXTERNALSYM KSVPSIZE_PROP}
- PKSVPSIZE_PROP = ^KSVPSIZE_PROP;
- {$EXTERNALSYM PKSVPSIZE_PROP}
- TKSVPSizeProp = KSVPSIZE_PROP;
- KSVPSURFACEPARAMS = record
- dwPitch : DWORD;
- dwXOrigin : DWORD;
- dwYOrigin : DWORD;
- end;
- {$EXTERNALSYM KSVPSURFACEPARAMS}
- PKSVPSURFACEPARAMS = ^KSVPSURFACEPARAMS;
- {$EXTERNALSYM PKSVPSURFACEPARAMS}
- TKSVPSurfaceParams = KSVPSURFACEPARAMS;
- //==========================================================================
- // The following definitions must be in sync with DDraw.h in DirectX SDK
- //==========================================================================
- //*
- //* The FourCC code is valid.
- //*
- // uses DirectDraw.pas
- //==========================================================================
- // End of DDraw.h header info
- //==========================================================================
- //==========================================================================
- // The following definitions must be in sync with DVP.h in DirectX SDK
- //==========================================================================
- _DDVIDEOPORTCONNECT = record
- dwSize : DWORD; // size of the DDVIDEOPORTCONNECT structure
- dwPortWidth : DWORD; // Width of the video port
- guidTypeID : TGUID; // Description of video port connection
- dwFlags : DWORD; // Connection flags
- dwReserved1 : DWORD; // Reserved, set to zero.
- end;
- {$EXTERNALSYM _DDVIDEOPORTCONNECT}
- DDVIDEOPORTCONNECT = _DDVIDEOPORTCONNECT;
- {$EXTERNALSYM DDVIDEOPORTCONNECT}
- PDDVIDEOPORTCONNECT = ^DDVIDEOPORTCONNECT;
- {$EXTERNALSYM PDDVIDEOPORTCONNECT}
- TDDVideoPortConnect = _DDVIDEOPORTCONNECT;
- const
- DDVPTYPE_E_HREFH_VREFH : TGUID = (D1:$54F39980;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
- {$EXTERNALSYM DDVPTYPE_E_HREFH_VREFH}
- DDVPTYPE_E_HREFL_VREFL : TGUID = (D1:$E09C77E0;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
- {$EXTERNALSYM DDVPTYPE_E_HREFL_VREFL}
- //==========================================================================
- // End of DVP.h header info
- //==========================================================================
- //==========================================================================
- // The following definitions must be in sync with VPType.h in AM 2.0 SDK
- //==========================================================================
- type
- // pixel aspect ratios corresponding to a 720x480 NTSC image or a 720x576 image
- KS_AMPixAspectRatio = ( // AMPixAspectRatio
- KS_PixAspectRatio_NTSC4x3,
- KS_PixAspectRatio_NTSC16x9,
- KS_PixAspectRatio_PAL4x3,
- KS_PixAspectRatio_PAL16x9
- );
- {$NODEFINE KS_AMPixAspectRatio}
- TKSAMPixAspectRatio = KS_AMPixAspectRatio;
- {$NODEFINE TKSAMPixAspectRatio}
- KS_AMVP_SELECTFORMATBY = ( // AMVP_SELECTFORMATBY
- KS_AMVP_DO_NOT_CARE,
- KS_AMVP_BEST_BANDWIDTH,
- KS_AMVP_INPUT_SAME_AS_OUTPUT
- );
- {$NODEFINE KS_AMVP_SELECTFORMATBY}
- TKSAMVPSelectFormatBy = KS_AMVP_SELECTFORMATBY;
- {$NODEFINE TKSAMVPSelectFormatBy}
-
- KS_AMVP_MODE = ( // AMVP_MODE
- KS_AMVP_MODE_WEAVE,
- KS_AMVP_MODE_BOBINTERLEAVED,
- KS_AMVP_MODE_BOBNONINTERLEAVED,
- KS_AMVP_MODE_SKIPEVEN,
- KS_AMVP_MODE_SKIPODD
- );
- {$NODEFINE KS_AMVP_MODE}
- TKSAMVPMode = KS_AMVP_MODE;
- {$NODEFINE TKSAMVPMode}
- PKSAMVPDimInfo = ^TKSAMVPDimInfo;
- {$NODEFINE PKSAMVPDimInfo}
- tagKS_AMVPDIMINFO = record // AMVPDIMINFO
- dwFieldWidth : DWORD; // [out] field width
- dwFieldHeight : DWORD; // [out] field height
- dwVBIWidth : DWORD; // [out] VBI data width
- dwVBIHeight : DWORD; // [out] VBI data height
- rcValidRegion : TRECT; // [out] valid rect for data cropping
- end;
- {$NODEFINE tagKS_AMVPDIMINFO}
- KS_AMVPDIMINFO = tagKS_AMVPDIMINFO;
- {$EXTERNALSYM KS_AMVPDIMINFO}
- PKS_AMVPDIMINFO = ^KS_AMVPDIMINFO;
- {$NODEFINE PKS_AMVPDIMINFO}
- TKSAMVPDimInfo = tagKS_AMVPDIMINFO;
- {$NODEFINE TKSAMVPDimInfo}
- PKSAMVPDataInfo = ^TKSAMVPDataInfo;
- {$NODEFINE PKSAMVPDataInfo}
- tagKS_AMVPDATAINFO = record // AMVPDATAINFO
- dwSize : DWORD; // Size of the struct
- dwMicrosecondsPerField : DWORD; // Time taken by each field
- amvpDimInfo : TKSAMVPDimInfo; // Dimensional Information
- dwPictAspectRatioX : DWORD; // Pict aspect ratio in X dimn
- dwPictAspectRatioY : DWORD; // Pict aspect ratio in Y dimn
- bEnableDoubleClock : BOOL; // Videoport should enable double clocking
- bEnableVACT : BOOL; // Videoport should use an external VACT signal
- bDataIsInterlaced : BOOL; // Indicates that the signal is interlaced
- lHalfLinesOdd : Longint; // number of halflines in the odd field
- bFieldPolarityInverted : BOOL; // Device inverts the polarity by default
- dwNumLinesInVREF : DWORD; // Number of lines of data in VREF
- lHalfLinesEven : Longint; // number of halflines in the even field
- dwReserved1 : DWORD; // Reserved for future use
- end;
- {$NODEFINE tagKS_AMVPDATAINFO}
- KS_AMVPDATAINFO = tagKS_AMVPDATAINFO;
- {$NODEFINE KS_AMVPDATAINFO}
- PKS_AMVPDATAINFO = ^KS_AMVPDATAINFO;
- {$NODEFINE PKS_AMVPDATAINFO}
- TKSAMVPDataInfo = tagKS_AMVPDATAINFO;
- {$NODEFINE TKSAMVPDataInfo}
- PKSAMVPSize = ^TKSAMVPSize;
- {$NODEFINE PKSAMVPSize}
- tagKS_AMVPSIZE = record // AMVPSIZE
- dwWidth : DWORD; // [in] width in pixels
- dwHeight : DWORD; // [in] height in pixels
- end;
- {$NODEFINE tagKS_AMVPSIZE}
- KS_AMVPSIZE = tagKS_AMVPSIZE;
- {$NODEFINE KS_AMVPSIZE}
- PKS_AMVPSIZE = ^KS_AMVPSIZE;
- {$NODEFINE PKS_AMVPSIZE}
- TKSAMVPSize = tagKS_AMVPSIZE;
- {$NODEFINE TKSAMVPSize}
- //==========================================================================
- // End of VPType.h header info
- //==========================================================================
- { // allready defined above
- PKSVPMAXPIXELRATE = ^TKSVPMAXPIXELRATE;
- TKSVPMAXPIXELRATE = record
- Size : TKS_AMVPSIZE;
- MaxPixelsPerSecond : DWORD;
- Reserved : DWORD;
- end;
- PKSVPSIZE_PROP = ^TKSVPSIZE_PROP;
- TKSVPSIZE_PROP = record
- Property_ : KSPROPERTY;
- Size : TKS_AMVPSIZE;
- end;
- PKSVPSURFACEPARAMS = ^TKSVPSURFACEPARAMS;
- TKSVPSURFACEPARAMS = record
- dwPitch : DWORD;
- dwXOrigin : DWORD;
- dwYOrigin : DWORD;
- end; }
- //
- // IVPNotify event notification
- //
- const
- KSEVENTSETID_VPNotify : TGUID = '{20c5598e-d3c8-11d0-8dfc-00c04fd7c08b}';
- {$EXTERNALSYM KSEVENTSETID_VPNotify}
- type
- KSEVENT_VPNOTIFY = (
- KSEVENT_VPNOTIFY_FORMATCHANGE
- );
- {$EXTERNALSYM KSEVENT_VPNOTIFY}
- TKSEventVPNotify = KSEVENT_VPNOTIFY;
- //
- // VIDCAPTOSTI event notification
- //
- const
- KSEVENTSETID_VIDCAPTOSTI : TGUID = '{DB47DE20-F628-11d1-BA41-00A0C90D2B05}';
- {$EXTERNALSYM KSEVENTSETID_VIDCAPTOSTI}
- type
- KSEVENT_VIDCAPTOSTI = (
- KSEVENT_VIDCAPTOSTI_EXT_TRIGGER,
- KSEVENT_VIDCAP_AUTO_UPDATE,
- KSEVENT_VIDCAP_SEARCH
- );
- {$EXTERNALSYM KSEVENT_VIDCAPTOSTI}
- TKSEventVidCapToSTI = KSEVENT_VIDCAPTOSTI;
- //
- // Extension Unit Properties
- //
- const
- KSPROPERTY_EXTENSION_UNIT_PASS_THROUGH = $ffff; // (RW)
- {$EXTERNALSYM KSPROPERTY_EXTENSION_UNIT_PASS_THROUGH}
- type
- PKSPropertyExtensionUnit = ^TKSPropertyExtensionUnit;
- KSPROPERTY_EXTENSION_UNIT = (
- KSPROPERTY_EXTENSION_UNIT_INFO, // (R)
- KSPROPERTY_EXTENSION_UNIT_CONTROL // (RW)
- );
- {$EXTERNALSYM KSPROPERTY_EXTENSION_UNIT}
- PKSPROPERTY_EXTENSION_UNIT = ^KSPROPERTY_EXTENSION_UNIT;
- {$EXTERNALSYM PKSPROPERTY_EXTENSION_UNIT}
- TKSPropertyExtensionUnit = KSPROPERTY_EXTENSION_UNIT;
- //
- // IVPVBINotify event notification
- //
- const
- KSEVENTSETID_VPVBINotify : TGUID = '{ec529b01-1a1f-11d1-bad9-00609744111a}';
- {$EXTERNALSYM KSEVENTSETID_VPVBINotify}
- type
- KSEVENT_VPVBINOTIFY = (
- KSEVENT_VPVBINOTIFY_FORMATCHANGE
- );
- {$EXTERNALSYM KSEVENT_VPVBINOTIFY}
- TKSEventVPVBINotify = KSEVENT_VPVBINOTIFY;
- //
- // closed caption information
- //
- const
- KSDATAFORMAT_TYPE_AUXLine21Data : TGUID = '{670aea80-3a82-11d0-b79b-00aa003767a7}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_AUXLine21Data}
- KSDATAFORMAT_SUBTYPE_Line21_BytePair : TGUID = '{6e8d4a22-310c-11d0-b79a-00aa003767a7}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_Line21_BytePair}
- KSDATAFORMAT_SUBTYPE_Line21_GOPPacket : TGUID = '{6e8d4a23-310c-11d0-b79a-00aa003767a7}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_Line21_GOPPacket}
- type
- PKSGopUserData = ^TKSGopUserData;
- _KSGOP_USERDATA = record
- sc : ULONG;
- reserved1 : ULONG;
- cFields : BYTE;
- l21Data : array[0..2] of CHAR;
- end;
- {$EXTERNALSYM _KSGOP_USERDATA}
- KSGOP_USERDATA = _KSGOP_USERDATA;
- {$EXTERNALSYM KSGOP_USERDATA}
- PKSGOP_USERDATA = ^KSGOP_USERDATA;
- {$EXTERNALSYM PKSGOP_USERDATA}
- TKSGopUserData = _KSGOP_USERDATA;
- //
- // DVD encrypted PACK format type definition
- //
- const
- KSDATAFORMAT_TYPE_DVD_ENCRYPTED_PACK : TGUID = '{ed0b916a-044d-11d1-aa78-00c04fc31d60}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_DVD_ENCRYPTED_PACK}
- KS_AM_UseNewCSSKey = $1;
- {$EXTERNALSYM KS_AM_UseNewCSSKey}
- // -----------------------------------------------------------------------
- // KS_AM_KSPROPSETID_TSRateChange property set definitions for time stamp
- // rate changes.
- // -----------------------------------------------------------------------
- KSPROPSETID_TSRateChange : TGUID = '{A503C5C0-1D1D-11D1-AD80-444553540000}';
- {$EXTERNALSYM KSPROPSETID_TSRateChange}
- type
- PKSAMPropertyTSRateChange = ^TKSAMPropertyTSRateChange;
- KS_AM_PROPERTY_TS_RATE_CHANGE = (
- KS_AM_RATE_Invalid,
- KS_AM_RATE_SimpleRateChange, // rw, use KS_AM_SimpleRateChange
- KS_AM_RATE_ExactRateChange, // rw, use KS_AM_ExactRateChange
- KS_AM_RATE_MaxFullDataRate, // r, use KS_AM_MaxFullDataRate
- KS_AM_RATE_Step // w, use KS_AM_Step
- );
- {$EXTERNALSYM KS_AM_PROPERTY_TS_RATE_CHANGE}
- TKSAMPropertyTSRateChange = KS_AM_PROPERTY_TS_RATE_CHANGE;
- PKSAMSimpleRateChange = ^TKSAMSimpleRateChange;
- KS_AM_SimpleRateChange = record
- // this is the simplest mechanism to set a time stamp rate change on
- // a filter (simplest for the person setting the rate change, harder
- // for the filter doing the rate change).
- StartTime : TReferenceTime; //stream time at which to start this rate
- Rate : Longint; //new rate * 10000 (decimal)
- end;
- {$EXTERNALSYM KS_AM_SimpleRateChange}
- PKS_AM_SimpleRateChange = ^KS_AM_SimpleRateChange;
- {$EXTERNALSYM PKS_AM_SimpleRateChange}
- TKSAMSimpleRateChange = KS_AM_SimpleRateChange;
- PKSAMExactRateChange = ^TKSAMExactRateChange;
- KS_AM_ExactRateChange = record
- OutputZeroTime : TReferenceTime; //input TS that maps to zero output TS
- Rate : Longint; //new rate * 10000 (decimal)
- end;
- {$EXTERNALSYM KS_AM_ExactRateChange}
- PKS_AM_ExactRateChange = ^KS_AM_ExactRateChange;
- {$EXTERNALSYM PKS_AM_ExactRateChange}
- TKSAMExactRateChange = KS_AM_ExactRateChange;
- KS_AM_MaxFullDataRate = {$IFDEF TYPE_IDENTITY}type {$ENDIF} Longint; //rate * 10000 (decimal)
- {$EXTERNALSYM KS_AM_MaxFullDataRate}
- KS_AM_Step = {$IFDEF TYPE_IDENTITY}type {$ENDIF} DWORD; // number of frame to step
- {$EXTERNALSYM KS_AM_Step}
- //===========================================================================
- //ENCODER API DEFINITIONS
- //===========================================================================
- const
- KSCATEGORY_ENCODER : TGUID = '{19689BF6-C384-48fd-AD51-90E58C79F70B}';
- {$EXTERNALSYM KSCATEGORY_ENCODER}
- KSCATEGORY_MULTIPLEXER : TGUID = '{7A5DE1D3-01A1-452c-B481-4FA2B96271E8}';
- {$EXTERNALSYM KSCATEGORY_MULTIPLEXER}
- // ENCAPIPARAM_BITRATE : TGUID = '{49CC4C43-CA83-4ad4-A9AF-F3696AF666DF}';
- // ENCAPIPARAM_PEAK_BITRATE : TGUID = '{703F16A9-3D48-44a1-B077-018DFF915D19}';
- // ENCAPIPARAM_BITRATE_MODE : TGUID = '{EE5FB25C-C713-40d1-9D58-C0D7241E250F}';
- // CODECAPI_CHANGELISTS : TGUID = '{62B12ACF-F6B0-47D9-9456-96F22C4E0B9D}';
- // CODECAPI_VIDEO_ENCODER : TGUID = '{7112E8E1-3D03-47EF-8E60-03F1CF537301}';
- // CODECAPI_AUDIO_ENCODER : TGUID = '{B9D19A3E-F897-429C-BC46-8138B7272B2D}';
- // CODECAPI_SETALLDEFAULTS : TGUID = '{6C5E6A7C-ACF8-4F55-A999-1A628109051B}';
- // CODECAPI_ALLSETTINGS : TGUID = '{6A577E92-83E1-4113-ADC2-4FCEC32F83A1}';
- // CODECAPI_SUPPORTSEVENTS : TGUID = '{0581AF97-7693-4DBD-9DCA-3F9EBD6585A1}';
- // CODECAPI_CURRENTCHANGELIST : TGUID = '{1CB14E83-7D72-4657-83FD-47A2C5B9D13D}';
- {************************************************************************
- * *
- * dmksctrl.h -- Definition of IKsControl *
- * *
- * Copyright (c) 1998-1999 Microsoft Corporation *
- * *
- * *
- * This header file contains the definition of IKsControl, which *
- * duplicates definitions from ks.h and ksproxy.h. Your code should *
- * include ks.h and ksproxy.h directly if you have them (they are *
- * provided in the Windows 98 DDK and will be in the Windows NT 5 *
- * SDK). *
- * *
- ************************************************************************}
- // IID_IKsControl : TGUID = (D1:$28F54685;D2:$06FD;D3:$11D2;D4:($B2,$7A,$00,$A0,$C9,$22,$31,$96));
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IKsControl> _di_IKsControl;'}
- {$EXTERNALSYM IKsControl}
- IKsControl = interface(IUnknown)
- ['{28F54685-06FD-11D2-B27A-00A0C9223196}']
- (*** IKsControl methods ***)
- procedure KsProperty(Property_: PKSPROPERTY; PropertyLength: ULONG; PropertyData: Pointer;
- DataLength: ULONG; out BytesReturned: ULONG); stdcall;
- procedure KsMethod(Method: PKSMETHOD; MethodLength: ULONG; MethodData: Pointer;
- DataLength: ULONG; out BytesReturned: ULONG); stdcall;
- procedure KsEvent({OPTIONAL}Event: PKSEVENT; EventLength: ULONG; EventData: Pointer;
- DataLength: ULONG; out BytesReturned: ULONG); stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: BDAMedia.h
- //
- // Desc: Broadcast Driver Architecture Multimedia Definitions.
- //
- // Copyright (c) 1996 - 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- //===========================================================================
- //
- // KSProperty Set Structure Definitions for BDA
- //
- //===========================================================================
- PKSPBDANodePin = ^TKSPBDANodePin;
- KSP_BDA_NODE_PIN = record
- Property_ : KSPROPERTY;
- ulNodeType : ULONG;
- ulInputPinId : ULONG;
- ulOutputPinId : ULONG;
- end;
- {$EXTERNALSYM KSP_BDA_NODE_PIN}
- PKSP_BDA_NODE_PIN = ^KSP_BDA_NODE_PIN;
- {$EXTERNALSYM PKSP_BDA_NODE_PIN}
- TKSPBDANodePin = KSP_BDA_NODE_PIN;
- PKSMBDAPin = ^TKSMBDAPin;
- KSM_BDA_PIN = record
- Method: KSMETHOD;
- case integer of
- 0 : (PinId : ULONG;
- Reserved : ULONG);
- 1 : (PinType : ULONG;
- Reserved_ : ULONG);
- end;
- {$EXTERNALSYM KSM_BDA_PIN}
- PKSM_BDA_PIN = ^KSM_BDA_PIN;
- {$EXTERNALSYM PKSM_BDA_PIN}
- TKSMBDAPin = KSM_BDA_PIN;
- PKSMBDAPinPair = ^TKSMBDAPinPair;
- KSM_BDA_PIN_PAIR = record
- Method: KSMETHOD;
- case integer of
- 0 : (InputPinId : ULONG;
- OutputPinId : ULONG);
- 1 : (InputPinType : ULONG;
- OutputPinType : ULONG);
- end;
- {$EXTERNALSYM KSM_BDA_PIN_PAIR}
- PKSM_BDA_PIN_PAIR = ^KSM_BDA_PIN_PAIR;
- {$EXTERNALSYM PKSM_BDA_PIN_PAIR}
- TKSMBDAPinPair = KSM_BDA_PIN_PAIR;
- PKSPNodeESPID = ^TKSPNodeESPID;
- KSP_NODE_ESPID = record
- Property_ : TKSPNode;
- EsPid : ULONG;
- end;
- {$EXTERNALSYM KSP_NODE_ESPID}
- PKSP_NODE_ESPID = ^KSP_NODE_ESPID;
- {$EXTERNALSYM PKSP_NODE_ESPID}
- TKSPNodeESPID = KSP_NODE_ESPID;
- //===========================================================================
- //
- // BDA Data Range definitions. Includes specifier definitions.
- //
- //===========================================================================
- // Antenna Signal Formats
- //
- PKSDataRangeBDAAntenna = ^TKSDataRangeBDAAntenna;
- KS_DATARANGE_BDA_ANTENNA = record
- DataRange : TKSDataRange;
- // Antenna specifier can go here if required
- //
- end;
- {$EXTERNALSYM KS_DATARANGE_BDA_ANTENNA}
- PKS_DATARANGE_BDA_ANTENNA = ^KS_DATARANGE_BDA_ANTENNA;
- {$EXTERNALSYM PKS_DATARANGE_BDA_ANTENNA}
- TKSDataRangeBDAAntenna = KS_DATARANGE_BDA_ANTENNA;
- // Transport Formats
- //
- PBDATransportInfo = ^TBDATransportInfo;
- BDA_TRANSPORT_INFO = record
- ulcbPhyiscalPacket : ULONG; // Size, in bytes, of a physical packet
- // (e.g. Satellite link payload size.
- ulcbPhyiscalFrame : ULONG; // Size, in bytes, of each physical frame
- // 0 indicates no HW requirement
- ulcbPhyiscalFrameAlignment : ULONG; // Capture buffer alignment in bytes
- // 0 and 1 indicate no alignment requirements
- AvgTimePerFrame : TReferenceTime ; // Normal ActiveMovie units (100 nS)
- end;
- {$EXTERNALSYM BDA_TRANSPORT_INFO}
- PBDA_TRANSPORT_INFO = ^BDA_TRANSPORT_INFO;
- {$EXTERNALSYM PBDA_TRANSPORT_INFO}
- TBDATransportInfo = BDA_TRANSPORT_INFO;
- PKSDataRangeBDATransport = ^TKSDataRangeBDATransport;
- KS_DATARANGE_BDA_TRANSPORT = record
- DataRange : TKSDataRange;
- BdaTransportInfo : TBDATransportInfo;
- // Transport specifier can go here if required
- //
- end;
- {$EXTERNALSYM KS_DATARANGE_BDA_TRANSPORT}
- PKS_DATARANGE_BDA_TRANSPORT = ^KS_DATARANGE_BDA_TRANSPORT;
- {$EXTERNALSYM PKS_DATARANGE_BDA_TRANSPORT}
- TKSDataRangeBDATransport = KS_DATARANGE_BDA_TRANSPORT;
- //===========================================================================
- // BDA Event Guids
- //
- // These are sent by the IBroadcastEvent service on the graph.
- // To receive,
- // 0) Implement IBroadcastEvent in your receiving object - this has one Method on it: Fire()
- // 1) QI the graphs service provider for SID_SBroadcastEventService
- // for the IID_IBroadcastEvent object
- // 2) OR create the event service (CLSID_BroadcastEventService) if not already there
- // and register it
- // 3) QI that object for it's IConnectionPoint interface (*pCP)
- // 4) Advise your object on *pCP (e.g. pCP->Advise(static_cast<IBroadCastEvent*>(this), &dwCookie)
- // 5) Unadvise when done..
- // 6) Implement IBroadcastEvent::Fire(GUID gEventID)
- // Check for relevant event below and deal with it appropriatly...
- //===========================================================================
- const
- EVENTID_TuningChanged : TGUID = '{9D7E6235-4B7D-425d-A6D1-D717C33B9C4C}';
- {$EXTERNALSYM EVENTID_TuningChanged}
- EVENTID_CADenialCountChanged : TGUID = '{2A65C528-2249-4070-AC16-00390CDFB2DD}';
- {$EXTERNALSYM EVENTID_CADenialCountChanged}
- EVENTID_SignalStatusChanged : TGUID = '{6D9CFAF2-702D-4b01-8DFF-6892AD20D191}';
- {$EXTERNALSYM EVENTID_SignalStatusChanged}
- //===========================================================================
- //
- // BDA Stream Format GUIDs
- //
- //===========================================================================
- const
- KSDATAFORMAT_TYPE_BDA_ANTENNA : TGUID = '{71985F41-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_BDA_ANTENNA}
- KSDATAFORMAT_SUBTYPE_BDA_MPEG2_TRANSPORT : TGUID = '{F4AEB342-0329-4fdd-A8FD-4AFF4926C978}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_BDA_MPEG2_TRANSPORT}
- KSDATAFORMAT_SPECIFIER_BDA_TRANSPORT : TGUID = '{8DEDA6FD-AC5F-4334-8ECF-A4BA8FA7D0F0}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_BDA_TRANSPORT}
- KSDATAFORMAT_TYPE_BDA_IF_SIGNAL : TGUID = '{61BE0B47-A5EB-499b-9A85-5B16C07F1258}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_BDA_IF_SIGNAL}
- KSDATAFORMAT_TYPE_MPEG2_SECTIONS : TGUID = '{455F176C-4B06-47CE-9AEF-8CAEF73DF7B5}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MPEG2_SECTIONS}
- KSDATAFORMAT_SUBTYPE_ATSC_SI : TGUID = '{B3C7397C-D303-414D-B33C-4ED2C9D29733}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_ATSC_SI}
- KSDATAFORMAT_SUBTYPE_DVB_SI : TGUID = '{e9dd31a3-221d-4adb-8532-9af309c1a408}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_DVB_SI}
- KSDATAFORMAT_SUBTYPE_BDA_OPENCABLE_PSIP : TGUID = '{762E3F66-336F-48d1-BF83-2B00352C11F0}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_BDA_OPENCABLE_PSIP}
- KSDATAFORMAT_SUBTYPE_BDA_OPENCABLE_OOB_PSIP : TGUID = '{951727DB-D2CE-4528-96F6-3301FABB2DE0}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_BDA_OPENCABLE_OOB_PSIP}
- //===========================================================================
- //
- // KSPinName Definitions for BDA
- //
- //===========================================================================
- // Pin name for a BDA transport pin
- PINNAME_BDA_TRANSPORT : TGUID = '{78216A81-CFA8-493e-9711-36A61C08BD9D}';
- {$EXTERNALSYM PINNAME_BDA_TRANSPORT}
- // Pin name for a BDA analog video pin
- PINNAME_BDA_ANALOG_VIDEO : TGUID = '{5C0C8281-5667-486c-8482-63E31F01A6E9}';
- {$EXTERNALSYM PINNAME_BDA_ANALOG_VIDEO}
- // Pin name for a BDA analog audio pin
- PINNAME_BDA_ANALOG_AUDIO : TGUID = '{D28A580A-9B1F-4b0c-9C33-9BF0A8EA636B}';
- {$EXTERNALSYM PINNAME_BDA_ANALOG_AUDIO}
- // Pin name for a BDA FM Radio pin
- PINNAME_BDA_FM_RADIO : TGUID = '{D2855FED-B2D3-4eeb-9BD0-193436A2F890}';
- {$EXTERNALSYM PINNAME_BDA_FM_RADIO}
- // Pin name for a BDA Intermediate Frequency pin
- PINNAME_BDA_IF_PIN : TGUID = '{1A9D4A42-F3CD-48a1-9AEA-71DE133CBE14}';
- {$EXTERNALSYM PINNAME_BDA_IF_PIN}
- // Pin name for a BDA Open Cable PSIP pin
- PINNAME_BDA_OPENCABLE_PSIP_PIN : TGUID = '{297BB104-E5C9-4ACE-B123-95C3CBB24D4F}';
- {$EXTERNALSYM PINNAME_BDA_OPENCABLE_PSIP_PIN}
- //===========================================================================
- //
- // KSProperty Set Definitions for BDA
- //
- //===========================================================================
- //------------------------------------------------------------
- //
- // BDA Network Ethernet Filter Property Set
- KSPROPSETID_BdaEthernetFilter : TGUID = '{71985F43-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSPROPSETID_BdaEthernetFilter}
- type
- KSPROPERTY_BDA_ETHERNET_FILTER = (
- KSPROPERTY_BDA_ETHERNET_FILTER_MULTICAST_LIST_SIZE,
- KSPROPERTY_BDA_ETHERNET_FILTER_MULTICAST_LIST,
- KSPROPERTY_BDA_ETHERNET_FILTER_MULTICAST_MODE
- );
- {$EXTERNALSYM KSPROPERTY_BDA_ETHERNET_FILTER}
- TKSPropertyBDAEthernetFilter = KSPROPERTY_BDA_ETHERNET_FILTER;
- //------------------------------------------------------------
- //
- // BDA Network IPv4 Filter Property Set
- //
- // {71985F44-1CA1-11d3-9CC8-00C04F7971E0}
- //
- const
- KSPROPSETID_BdaIPv4Filter : TGUID ='{71985F44-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSPROPSETID_BdaIPv4Filter}
- type
- KSPROPERTY_BDA_IPv4_FILTER = (
- KSPROPERTY_BDA_IPv4_FILTER_MULTICAST_LIST_SIZE,
- KSPROPERTY_BDA_IPv4_FILTER_MULTICAST_LIST,
- KSPROPERTY_BDA_IPv4_FILTER_MULTICAST_MODE
- );
- {$EXTERNALSYM KSPROPERTY_BDA_IPv4_FILTER}
- TKSPropertyBDAIPv4Filter = KSPROPERTY_BDA_IPv4_FILTER;
- //------------------------------------------------------------
- //
- // BDA Network IPv6 Filter Property Set
- //
- // {E1785A74-2A23-4fb3-9245-A8F88017EF33}
- //
- const
- KSPROPSETID_BdaIPv6Filter : TGUID = '{E1785A74-2A23-4fb3-9245-A8F88017EF33}';
- {$EXTERNALSYM KSPROPSETID_BdaIPv6Filter}
- type
- KSPROPERTY_BDA_IPv6_FILTER = (
- KSPROPERTY_BDA_IPv6_FILTER_MULTICAST_LIST_SIZE,
- KSPROPERTY_BDA_IPv6_FILTER_MULTICAST_LIST,
- KSPROPERTY_BDA_IPv6_FILTER_MULTICAST_MODE
- );
- {$EXTERNALSYM KSPROPERTY_BDA_IPv6_FILTER}
- TKSPropertyBDAIPv6Filter = KSPROPERTY_BDA_IPv6_FILTER;
- //------------------------------------------------------------
- // BDA Signal Statistics Property Set
- //
- const
- KSPROPSETID_BdaSignalStats : TGUID = '{1347D106-CF3A-428a-A5CB-AC0D9A2A4338}';
- {$EXTERNALSYM KSPROPSETID_BdaSignalStats}
- type
- KSPROPERTY_BDA_SIGNAL_STATS = (
- KSPROPERTY_BDA_SIGNAL_STRENGTH,
- KSPROPERTY_BDA_SIGNAL_QUALITY,
- KSPROPERTY_BDA_SIGNAL_PRESENT,
- KSPROPERTY_BDA_SIGNAL_LOCKED,
- KSPROPERTY_BDA_SAMPLE_TIME
- );
- {$EXTERNALSYM KSPROPERTY_BDA_SIGNAL_STATS}
- TKSPropertyBDASignalStats = KSPROPERTY_BDA_SIGNAL_STATS;
- //------------------------------------------------------------
- // BDA Signal Property Set
- //
- // {D2F1644B-B409-11d2-BC69-00A0C9EE9E16}
- const
- KSPROPSETID_BdaSignal : TGUID = '{D2F1644B-B409-11d2-BC69-00A0C9EE9E16}';
- {$EXTERNALSYM KSPROPSETID_BdaSignal}
- //type
- // KSPROPERTY_BDA_SIGNAL = (
- // KSPROPERTY_BDA_SIGNAL_SOURCE,
- // KSPROPERTY_BDA_SIGNAL_TUNING_SPACE,
- // KSPROPERTY_BDA_SIGNAL_NETWORK_TYPE,
- // KSPROPERTY_BDA_SIGNAL_STATE
- // );
- // {$NODEFINE KSPROPERTY_BDA_SIGNAL}
- // TKSPropertyBDASignal = KSPROPERTY_BDA_SIGNAL;
- // {$NODEFINE TKSPropertyBDASignal}
- //------------------------------------------------------------
- //
- //
- // BDA Change Sync Method Set
- //
- const
- KSMETHODSETID_BdaChangeSync : TGUID = '{FD0A5AF3-B41D-11d2-9C95-00C04F7971E0}';
- {$EXTERNALSYM KSMETHODSETID_BdaChangeSync}
- type
- KSMETHOD_BDA_CHANGE_SYNC = (
- KSMETHOD_BDA_START_CHANGES,
- KSMETHOD_BDA_CHECK_CHANGES,
- KSMETHOD_BDA_COMMIT_CHANGES,
- KSMETHOD_BDA_GET_CHANGE_STATE
- );
- {$EXTERNALSYM KSMETHOD_BDA_CHANGE_SYNC}
- TKSMethodBDAChangeSync = KSMETHOD_BDA_CHANGE_SYNC;
- //------------------------------------------------------------
- //
- //
- // BDA Device Configuration Method Set
- //
- const
- KSMETHODSETID_BdaDeviceConfiguration : TGUID = '{71985F45-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSMETHODSETID_BdaDeviceConfiguration}
- type
- KSMETHOD_BDA_DEVICE_CONFIGURATION = (
- KSMETHOD_BDA_CREATE_PIN_FACTORY,
- KSMETHOD_BDA_DELETE_PIN_FACTORY,
- KSMETHOD_BDA_CREATE_TOPOLOGY
- );
- {$EXTERNALSYM KSMETHOD_BDA_DEVICE_CONFIGURATION}
- TKSMethodBDADeviceConfiguration = KSMETHOD_BDA_DEVICE_CONFIGURATION;
- //------------------------------------------------------------
- //
- //
- // BDA Topology Property Set
- //
- const
- KSPROPSETID_BdaTopology : TGUID = '{A14EE835-0A23-11d3-9CC7-00C04F7971E0}';
- {$EXTERNALSYM KSPROPSETID_BdaTopology}
- type
- KSPROPERTY_BDA_TOPOLOGY = (
- KSPROPERTY_BDA_NODE_TYPES,
- KSPROPERTY_BDA_PIN_TYPES,
- KSPROPERTY_BDA_TEMPLATE_CONNECTIONS,
- KSPROPERTY_BDA_NODE_METHODS,
- KSPROPERTY_BDA_NODE_PROPERTIES,
- KSPROPERTY_BDA_NODE_EVENTS,
- KSPROPERTY_BDA_CONTROLLING_PIN_ID,
- KSPROPERTY_BDA_NODE_DESCRIPTORS
- );
- {$EXTERNALSYM KSPROPERTY_BDA_TOPOLOGY}
- TKSPropertyBDATopology = KSPROPERTY_BDA_TOPOLOGY;
- //------------------------------------------------------------
- //
- //
- // BDA Pin Control Property Set
- //
- // {0DED49D5-A8B7-4d5d-97A1-12B0C195874D}
- //
- const
- KSPROPSETID_BdaPinControl : TGUID = '{0DED49D5-A8B7-4d5d-97A1-12B0C195874D}';
- {$EXTERNALSYM KSPROPSETID_BdaPinControl}
- type
- KSPROPERTY_BDA_PIN_CONTROL = (
- KSPROPERTY_BDA_PIN_ID,
- KSPROPERTY_BDA_PIN_TYPE
- );
- {$EXTERNALSYM KSPROPERTY_BDA_PIN_CONTROL}
- TKSPropertyBDAPinControl = KSPROPERTY_BDA_PIN_CONTROL;
- //------------------------------------------------------------
- //
- //
- // BDA Pin Event Set
- const
- KSEVENTSETID_BdaPinEvent : TGUID = '{104781CD-50BD-40d5-95FB-087E0E86A591}';
- {$EXTERNALSYM KSEVENTSETID_BdaPinEvent}
- type
- KSPROPERTY_BDA_PIN_EVENT = (
- {$EXTERNALSYM KSPROPERTY_BDA_PIN_EVENT}
- KSEVENT_BDA_PIN_CONNECTED,
- KSEVENT_BDA_PIN_DISCONNECTED
- );
- TKSPropertyBDAPinEvent = KSPROPERTY_BDA_PIN_EVENT;
- //------------------------------------------------------------
- //
- //
- // BDA Void Transform Property Set
- //
- const
- KSPROPSETID_BdaVoidTransform : TGUID = '{71985F46-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSPROPSETID_BdaVoidTransform}
- type
- KSPROPERTY_BDA_VOID_TRANSFORM = (
- KSPROPERTY_BDA_VOID_TRANSFORM_START,
- KSPROPERTY_BDA_VOID_TRANSFORM_STOP
- );
- {$EXTERNALSYM KSPROPERTY_BDA_VOID_TRANSFORM}
- TKSPropertyBDAVoidTransform = KSPROPERTY_BDA_VOID_TRANSFORM;
- //------------------------------------------------------------
- //
- //
- // BDA Null Transform Property Set
- //
- const
- KSPROPSETID_BdaNullTransform : TGUID = '{DDF15B0D-BD25-11d2-9CA0-00C04F7971E0}';
- {$EXTERNALSYM KSPROPSETID_BdaNullTransform}
- type
- KSPROPERTY_BDA_NULL_TRANSFORM = (
- KSPROPERTY_BDA_NULL_TRANSFORM_START,
- KSPROPERTY_BDA_NULL_TRANSFORM_STOP
- );
- {$EXTERNALSYM KSPROPERTY_BDA_NULL_TRANSFORM}
- TKSPropertyBDANullTransform = KSPROPERTY_BDA_NULL_TRANSFORM;
- //------------------------------------------------------------
- //
- //
- // BDA Frequency Filter Property Set
- //
- const
- KSPROPSETID_BdaFrequencyFilter : TGUID = '{71985F47-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSPROPSETID_BdaFrequencyFilter}
- type
- KSPROPERTY_BDA_FREQUENCY_FILTER = (
- KSPROPERTY_BDA_RF_TUNER_FREQUENCY,
- KSPROPERTY_BDA_RF_TUNER_POLARITY,
- KSPROPERTY_BDA_RF_TUNER_RANGE,
- KSPROPERTY_BDA_RF_TUNER_TRANSPONDER,
- KSPROPERTY_BDA_RF_TUNER_BANDWIDTH,
- KSPROPERTY_BDA_RF_TUNER_FREQUENCY_MULTIPLIER
- );
- {$EXTERNALSYM KSPROPERTY_BDA_FREQUENCY_FILTER}
- TKSPropertyBDAFrequencyFilter = KSPROPERTY_BDA_FREQUENCY_FILTER;
- //------------------------------------------------------------
- // BDA LNB Info Property Set
- //
- // {992CF102-49F9-4719-A664-C4F23E2408F4}
- const
- KSPROPSETID_BdaLNBInfo : TGUID = '{992CF102-49F9-4719-A664-C4F23E2408F4}';
- {$EXTERNALSYM KSPROPSETID_BdaLNBInfo}
- type
- KSPROPERTY_BDA_LNB_INFO = (
- KSPROPERTY_BDA_LNB_LOF_LOW_BAND,
- KSPROPERTY_BDA_LNB_LOF_HIGH_BAND,
- KSPROPERTY_BDA_LNB_SWITCH_FREQUENCY
- );
- {$EXTERNALSYM KSPROPERTY_BDA_LNB_INFO}
- TKSPropertyBDALNBInfo = KSPROPERTY_BDA_LNB_INFO;
- //------------------------------------------------------------
- //
- //
- // BDA Digital Demodulator Property Set
- //
- const
- KSPROPSETID_BdaDigitalDemodulator : TGUID = '{EF30F379-985B-4d10-B640-A79D5E04E1E0}';
- {$EXTERNALSYM KSPROPSETID_BdaDigitalDemodulator}
- type
- KSPROPERTY_BDA_DIGITAL_DEMODULATOR = (
- KSPROPERTY_BDA_MODULATION_TYPE,
- KSPROPERTY_BDA_INNER_FEC_TYPE,
- KSPROPERTY_BDA_INNER_FEC_RATE,
- KSPROPERTY_BDA_OUTER_FEC_TYPE,
- KSPROPERTY_BDA_OUTER_FEC_RATE,
- KSPROPERTY_BDA_SYMBOL_RATE,
- KSPROPERTY_BDA_SPECTRAL_INVERSION,
- KSPROPERTY_BDA_GUARD_INTERVAL,
- KSPROPERTY_BDA_TRANSMISSION_MODE
- );
- {$EXTERNALSYM KSPROPERTY_BDA_DIGITAL_DEMODULATOR}
- TKSPropertyBDADigitalDemodulator = KSPROPERTY_BDA_DIGITAL_DEMODULATOR;
- //------------------------------------------------------------
- //
- //
- // BDA Table Section Property Set
- //
- // {516B99C5-971C-4aaf-B3F3-D9FDA8A15E16}
- //
- const
- KSPROPSETID_BdaTableSection : TGUID = '{516B99C5-971C-4aaf-B3F3-D9FDA8A15E16}';
- {$EXTERNALSYM KSPROPSETID_BdaTableSection}
- type
- KSPROPERTY_IDS_BDA_TABLE = (
- KSPROPERTY_BDA_TABLE_SECTION
- );
- {$EXTERNALSYM KSPROPERTY_IDS_BDA_TABLE}
- TKSPropertyIdsBDATable = KSPROPERTY_IDS_BDA_TABLE;
- //------------------------------------------------------------
- //
- // BDA PID Filter Property Set
- //
- const
- KSPROPSETID_BdaPIDFilter : TGUID = '{D0A67D65-08DF-4fec-8533-E5B550410B85}';
- {$EXTERNALSYM KSPROPSETID_BdaPIDFilter}
- type
- KSPROPERTY_BDA_PIDFILTER = (
- KSPROPERTY_BDA_PIDFILTER_MAP_PIDS,
- KSPROPERTY_BDA_PIDFILTER_UNMAP_PIDS,
- KSPROPERTY_BDA_PIDFILTER_LIST_PIDS
- );
- {$EXTERNALSYM KSPROPERTY_BDA_PIDFILTER}
- TKSPropertyBDAPIDFilter = KSPROPERTY_BDA_PIDFILTER;
- //------------------------------------------------------------
- //
- // BDA CA Property Set
- //
- const
- KSPROPSETID_BdaCA : TGUID = '{B0693766-5278-4ec6-B9E1-3CE40560EF5A}';
- {$EXTERNALSYM KSPROPSETID_BdaCA}
- type
- KSPROPERTY_BDA_CA = (
- KSPROPERTY_BDA_ECM_MAP_STATUS,
- KSPROPERTY_BDA_CA_MODULE_STATUS,
- KSPROPERTY_BDA_CA_SMART_CARD_STATUS,
- KSPROPERTY_BDA_CA_MODULE_UI,
- KSPROPERTY_BDA_CA_SET_PROGRAM_PIDS,
- KSPROPERTY_BDA_CA_REMOVE_PROGRAM
- );
- {$EXTERNALSYM KSPROPERTY_BDA_CA}
- TKSPropertyBDACA = KSPROPERTY_BDA_CA;
- //------------------------------------------------------------
- //
- // BDA CA Event Set
- //
- const
- KSEVENTSETID_BdaCAEvent : TGUID = '{488C4CCC-B768-4129-8EB1-B00A071F9068}';
- {$EXTERNALSYM KSEVENTSETID_BdaCAEvent}
- type
- KSPROPERTY_BDA_CA_EVENT = (
- KSEVENT_BDA_PROGRAM_FLOW_STATUS_CHANGED,
- KSEVENT_BDA_CA_MODULE_STATUS_CHANGED,
- KSEVENT_BDA_CA_SMART_CARD_STATUS_CHANGED,
- KSEVENT_BDA_CA_MODULE_UI_REQUESTED
- );
- {$EXTERNALSYM KSPROPERTY_BDA_CA_EVENT}
- TKSPropertyBDACAEvent = KSPROPERTY_BDA_CA_EVENT;
- //===========================================================================
- //
- // BDA Filter Categories
- //
- //===========================================================================
- const
- KSCATEGORY_BDA_RECEIVER_COMPONENT : TGUID = '{FD0A5AF4-B41D-11d2-9C95-00C04F7971E0}';
- {$EXTERNALSYM KSCATEGORY_BDA_RECEIVER_COMPONENT}
- KSCATEGORY_BDA_NETWORK_TUNER : TGUID = '{71985F48-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSCATEGORY_BDA_NETWORK_TUNER}
- KSCATEGORY_BDA_NETWORK_EPG : TGUID = '{71985F49-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSCATEGORY_BDA_NETWORK_EPG}
- KSCATEGORY_BDA_IP_SINK : TGUID = '{71985F4A-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSCATEGORY_BDA_IP_SINK}
- KSCATEGORY_BDA_NETWORK_PROVIDER : TGUID = '{71985F4B-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSCATEGORY_BDA_NETWORK_PROVIDER}
- KSCATEGORY_BDA_TRANSPORT_INFORMATION : TGUID = '{A2E3074F-6C3D-11d3-B653-00C04F79498E}';
- {$EXTERNALSYM KSCATEGORY_BDA_TRANSPORT_INFORMATION}
- //===========================================================================
- //
- // BDA Node Categories
- //
- //===========================================================================
- KSNODE_BDA_RF_TUNER : TGUID = '{71985F4C-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSNODE_BDA_RF_TUNER}
- KSNODE_BDA_QAM_DEMODULATOR : TGUID = '{71985F4D-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSNODE_BDA_QAM_DEMODULATOR}
- KSNODE_BDA_QPSK_DEMODULATOR : TGUID = '{6390C905-27C1-4d67-BDB7-77C50D079300}';
- {$EXTERNALSYM KSNODE_BDA_QPSK_DEMODULATOR}
- KSNODE_BDA_8VSB_DEMODULATOR : TGUID = '{71985F4F-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSNODE_BDA_8VSB_DEMODULATOR}
- KSNODE_BDA_OPENCABLE_POD : TGUID = '{D83EF8FC-F3B8-45ab-8B71-ECF7C339DEB4}';
- {$EXTERNALSYM KSNODE_BDA_OPENCABLE_POD}
- KSNODE_BDA_PID_FILTER : TGUID = '{F5412789-B0A0-44e1-AE4F-EE999B1B7FBE}';
- {$EXTERNALSYM KSNODE_BDA_PID_FILTER}
- KSNODE_BDA_IP_SINK : TGUID = '{71985F4E-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM KSNODE_BDA_IP_SINK}
- KSNODE_BDA_COFDM_DEMODULATOR: TGUID = '{2DAC6E05-EDBE-4b9c-B387-1B6FAD7D6495}';
- {$EXTERNALSYM KSNODE_BDA_COFDM_DEMODULATOR}
- KSNODE_BDA_COMMON_CA_POD : TGUID = '{D83EF8FC-F3B8-45ab-8B71-ECF7C339DEB4}';
- {$EXTERNALSYM KSNODE_BDA_COMMON_CA_POD}
- //===========================================================================
- //
- // IPSink PINNAME GUID
- //
- //===========================================================================
- PINNAME_IPSINK_INPUT : TGUID = '{3fdffa70-ac9a-11d2-8f17-00c04f7971e2}';
- {$EXTERNALSYM PINNAME_IPSINK_INPUT}
- //===========================================================================
- //
- // BDA IPSink Categories/Types
- //
- //===========================================================================
- KSDATAFORMAT_TYPE_BDA_IP : TGUID = '{e25f7b8e-cccc-11d2-8f25-00c04f7971e2}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_BDA_IP}
- KSDATAFORMAT_SUBTYPE_BDA_IP : TGUID = '{5a9a213c-db08-11d2-8f32-00c04f7971e2}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_BDA_IP}
- KSDATAFORMAT_SPECIFIER_BDA_IP : TGUID = '{6B891420-DB09-11d2-8F32-00C04F7971E2}';
- {$EXTERNALSYM KSDATAFORMAT_SPECIFIER_BDA_IP}
- KSDATAFORMAT_TYPE_BDA_IP_CONTROL : TGUID = '{DADD5799-7D5B-4b63-80FB-D1442F26B621}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_BDA_IP_CONTROL}
- KSDATAFORMAT_SUBTYPE_BDA_IP_CONTROL : TGUID = '{499856E8-E85B-48ed-9BEA-410D0DD4EF81}';
- {$EXTERNALSYM KSDATAFORMAT_SUBTYPE_BDA_IP_CONTROL}
- //===========================================================================
- //
- // MPE PINNAME GUID
- //
- //===========================================================================
- PINNAME_MPE : TGUID = '{C1B06D73-1DBB-11d3-8F46-00C04F7971E2}';
- {$EXTERNALSYM PINNAME_MPE}
- /////////////////////////////////////////////////////////////
- //
- // BDA MPE Categories/Types
- //
- KSDATAFORMAT_TYPE_MPE : TGUID = '{455F176C-4B06-47ce-9AEF-8CAEF73DF7B5}';
- {$EXTERNALSYM KSDATAFORMAT_TYPE_MPE}
- //------------------------------------------------------------------------------
- // File: BDAIface.idl
- //
- // Desc: This file defines the Ring 3 BDA interfaces that are common to
- // all BDA network and device types.
- //
- // The interfaces specific to a particular Network Type or filter
- // implementation are defined in a separate include file for that
- // Network Type or filter implementation.
- //
- // Copyright (c) 1999 - 2001, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- const
- IID_IBDA_NetworkProvider : TGUID = '{fd501041-8ebe-11ce-8183-00aa00577da2}';
- {$EXTERNALSYM IID_IBDA_NetworkProvider}
- IID_IBDA_EthernetFilter : TGUID = '{71985F43-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_EthernetFilter}
- IID_IBDA_IPV4Filter : TGUID = '{71985F44-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_IPV4Filter}
- IID_IBDA_IPV6Filter : TGUID = '{E1785A74-2A23-4fb3-9245-A8F88017EF33}';
- {$EXTERNALSYM IID_IBDA_IPV6Filter}
- IID_IBDA_DeviceControl : TGUID = '{FD0A5AF3-B41D-11d2-9C95-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_DeviceControl}
- IID_IBDA_PinControl : TGUID = '{0DED49D5-A8B7-4d5d-97A1-12B0C195874D}';
- {$EXTERNALSYM IID_IBDA_PinControl}
- IID_IBDA_SignalProperties : TGUID = '{D2F1644B-B409-11d2-BC69-00A0C9EE9E16}';
- {$EXTERNALSYM IID_IBDA_SignalProperties}
- IID_IBDA_VoidTransform : TGUID = '{71985F46-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_VoidTransform}
- IID_IBDA_NullTransform : TGUID = '{DDF15B0D-BD25-11d2-9CA0-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_NullTransform}
- IID_IBDA_FrequencyFilter : TGUID = '{71985F47-1CA1-11d3-9CC8-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_FrequencyFilter}
- IID_IBDA_AutoDemodulate : TGUID = '{DDF15B12-BD25-11d2-9CA0-00C04F7971E0}';
- {$EXTERNALSYM IID_IBDA_AutoDemodulate}
- IID_IBDA_DigitalDemodulator : TGUID = '{EF30F379-985B-4d10-B640-A79D5E04E1E0}';
- {$EXTERNALSYM IID_IBDA_DigitalDemodulator}
- IID_IBDA_IPSinkControl : TGUID = '{3F4DC8E2-4050-11d3-8F4B-00C04F7971E2}';
- {$EXTERNALSYM IID_IBDA_IPSinkControl}
- IID_IEnumPIDMap : TGUID = '{afb6c2a2-2c41-11d3-8a60-0000f81e0e4a}';
- {$EXTERNALSYM IID_IEnumPIDMap}
- IID_IMPEG2PIDMap : TGUID = '{afb6c2a1-2c41-11d3-8a60-0000f81e0e4a}';
- {$EXTERNALSYM IID_IMPEG2PIDMap}
- IID_IBDA_SignalStatistics : TGUID = '{1347D106-CF3A-428a-A5CB-AC0D9A2A4338}';
- {$EXTERNALSYM IID_IBDA_SignalStatistics}
- IID_IBDA_Topology : TGUID = '{79B56888-7FEA-4690-B45D-38FD3C7849BE}';
- {$EXTERNALSYM IID_IBDA_Topology}
- IID_IBDA_LNBInfo : TGUID = '{992CF102-49F9-4719-A664-C4F23E2408F4}';
- {$EXTERNALSYM IID_IBDA_LNBInfo}
- IID_IBDA_IPSinkInfo : TGUID = '{A750108F-492E-4d51-95F7-649B23FF7AD7}';
- {$EXTERNALSYM IID_IBDA_IPSinkInfo}
- IID_IFrequencyMap : TGUID = '{06FB45C1-693C-4ea7-B79F-7A6A54D8DEF2}'; //DX9
- {$EXTERNALSYM IID_IFrequencyMap}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_NetworkProvider> _di_IBDA_NetworkProvider;'}
- {$EXTERNALSYM IBDA_NetworkProvider}
- IBDA_NetworkProvider = interface(IUnknown)
- ['{fd501041-8ebe-11ce-8183-00aa00577da2}']
- (*** IBDA_NetworkProvider methods ***)
- function PutSignalSource(ulSignalSource: ULONG): HResult; stdcall;
- function GetSignalSource(out pulSignalSource: ULONG): HResult; stdcall;
- function GetNetworkType(var pguidNetworkType: TGUID): HResult; stdcall;
- function PutTuningSpace(const guidTuningSpace: TGUID): HResult; stdcall;
- function GetTuningSpace(out pguidTuingSpace: TGUID): HResult; stdcall;
- function RegisterDeviceFilter(pUnkFilterControl: IUnknown;
- var ppvRegisitrationContext: ULONG): HResult; stdcall;
- function UnRegisterDeviceFilter(pvRegistrationContext: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_EthernetFilter> _di_IBDA_EthernetFilter;'}
- {$EXTERNALSYM IBDA_EthernetFilter}
- IBDA_EthernetFilter = interface(IUnknown)
- ['{71985F43-1CA1-11d3-9CC8-00C04F7971E0}']
- (*** IBDA_EthernetFilter methods ***)
- function GetMulticastListSize(out pulcbAddresses: ULONG): HResult; stdcall;
- function PutMulticastList(ulcbAddresses: ULONG; pAddressList: Pointer): HResult; stdcall;
- function GetMulticastList(out pulcbAddresses: ULONG;
- out pAddressList): HResult; stdcall;
- function PutMulticastMode(ulModeMask: ULONG): HResult; stdcall;
- function GetMulticastMode(out pulModeMask: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_IPV4Filter> _di_IBDA_IPV4Filter;'}
- {$EXTERNALSYM IBDA_IPV4Filter}
- IBDA_IPV4Filter = interface(IUnknown)
- ['{71985F44-1CA1-11d3-9CC8-00C04F7971E0}']
- (*** IBDA_IPV4Filter methods ***)
- function GetMulticastListSize(out pulcbAddresses: ULONG): HResult; stdcall;
- function PutMulticastList(ulcbAddresses: ULONG; pAddressList: Pointer): HResult; stdcall;
- function GetMulticastList(var pulcbAddresses: ULONG; out pAddressList): HResult; stdcall;
- function PutMulticastMode(ulModeMask: ULONG): HResult; stdcall;
- function GetMulticastMode(out pulModeMask: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_IPV6Filter> _di_IBDA_IPV6Filter;'}
- {$EXTERNALSYM IBDA_IPV6Filter}
- IBDA_IPV6Filter = interface(IUnknown)
- ['{E1785A74-2A23-4fb3-9245-A8F88017EF33}']
- (*** IBDA_IPV6Filter methods ***)
- function GetMulticastListSize(out pulcbAddresses: ULONG): HResult; stdcall;
- function PutMulticastList(ulcbAddresses: ULONG; pAddressList: Pointer): HResult; stdcall;
- function GetMulticastList(var pulcbAddresses: ULONG; out pAddressList): HResult; stdcall;
- function PutMulticastMode(ulModeMask: ULONG): HResult; stdcall;
- function GetMulticastMode(out pulModeMask: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_DeviceControl> _di_IBDA_DeviceControl;'}
- {$EXTERNALSYM IBDA_DeviceControl}
- IBDA_DeviceControl = interface(IUnknown)
- ['{FD0A5AF3-B41D-11d2-9C95-00C04F7971E0}']
- (*** IBDA_DeviceControl methods ***)
- function StartChanges : HResult; stdcall;
- function CheckChanges : HResult; stdcall;
- function CommitChanges : HResult; stdcall;
- function GetChangeState(var pState: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_PinControl> _di_IBDA_PinControl;'}
- {$EXTERNALSYM IBDA_PinControl}
- IBDA_PinControl = interface(IUnknown)
- ['{0DED49D5-A8B7-4d5d-97A1-12B0C195874D}']
- (*** IBDA_PinControl methods ***)
- function GetPinID(var pulPinID: ULONG): HResult; stdcall;
- function GetPinType(var pulPinType: ULONG): HResult; stdcall;
- function RegistrationContext(var pulRegistrationCtx: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_SignalProperties> _di_IBDA_SignalProperties;'}
- {$EXTERNALSYM IBDA_SignalProperties}
- IBDA_SignalProperties = interface(IUnknown)
- ['{D2F1644B-B409-11d2-BC69-00A0C9EE9E16}']
- (*** IBDA_SignalProperties methods ***)
- function PutNetworkType(const guidNetworkType: TGUID): HResult; stdcall;
- function GetNetworkType(out pguidNetworkType: TGUID): HResult; stdcall;
- function PutSignalSource(ulSignalSource: ULONG): HResult; stdcall;
- function GetSignalSource(out pulSignalSource: ULONG): HResult; stdcall;
- function PutTuningSpace(const guidTuningSpace: TGUID): HResult; stdcall;
- function GetTuningSpace(out pguidTuingSpace: TGUID): HResult; stdcall;
- end;
- //---------------------------------------------------------------------
- //
- // IBDA_SignalStatistics interface
- //
- // Implemented by a BDA Control Node
- //
- // A BDA Control Node may return these properties to describe
- // the condition of a signal that is being received.
- //
- //---------------------------------------------------------------------
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_SignalStatistics> _di_IBDA_SignalStatistics;'}
- {$EXTERNALSYM IBDA_SignalStatistics}
- IBDA_SignalStatistics = interface(IUnknown)
- ['{1347D106-CF3A-428a-A5CB-AC0D9A2A4338}']
- (*** IBDA_SignalStatistics methods ***)
- function put_SignalStrength(lDbStrength: LongInt): HResult; stdcall;
- function get_SignalStrength(out plDbStrength: LongInt): HResult; stdcall;
- function put_SignalQuality(lPercentQuality: LongInt): HResult; stdcall;
- function get_SignalQuality(out lPercentQuality: LongInt): HResult; stdcall;
- function put_SignalPresent(fPresent: BOOL): HResult; stdcall;
- function get_SignalPresent(out fPresent: BOOL): HResult; stdcall;
- function put_SignalLocked(fLocked: BOOL): HResult; stdcall;
- function get_SignalLocked(out pfLocked: BOOL): HResult; stdcall;
- function put_SampleTime(lmsSampleTime: LongInt): HResult; stdcall;
- function get_SampleTime(out plmsSampleTime: LongInt): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_Topology> _di_IBDA_Topology;'}
- {$EXTERNALSYM IBDA_Topology}
- IBDA_Topology = interface(IUnknown)
- ['{79B56888-7FEA-4690-B45D-38FD3C7849BE}']
- (*** IBDA_Topology methods ***)
- function GetNodeTypes(var pulcNodeTypes: ULONG; ulcNodeTypesMax: ULONG;
- var rgulNodeTypes: ULONG): HResult; stdcall;
- function GetNodeDescriptors(var ulcNodeDescriptors: ULONG; ulcNodeDescriptorsMax: ULONG;
- rgNodeDescriptors: PBDANodeDescriptor): HResult; stdcall;
- function GetNodeInterfaces(ulNodeType: ULONG; var pulcInterfaces: ULONG;
- ulcInterfacesMax: ULONG; rgguidInterfaces: PGUID): HResult; stdcall;
- function GetPinTypes(var pulcPinTypes: ULONG; ulcPinTypesMax: ULONG;
- var rgulPinTypes: ULONG): HResult; stdcall;
- function GetTemplateConnections(var pulcConnections: ULONG; ulcConnectionsMax: ULONG;
- var rgConnections: TBDATemplateConnection): HResult; stdcall;
- function CreatePin(ulPinType: ULONG; var pulPinId: ULONG): HResult; stdcall;
- function DeletePin(ulPinId: ULONG): HResult; stdcall;
- function SetMediaType(ulPinId :ULONG; pMediaType: PAMMediaType): HResult; stdcall;
- function SetMedium(ulPinId: ULONG; pMedium: PREGPINMEDIUM): HResult; stdcall;
- function CreateTopology(ulInputPinId, ulOutputPinId: ULONG): HResult; stdcall;
- function GetControlNode(ulInputPinId, ulOutputPinId, ulNodeType: ULONG;
- ppControlNode: IUnknown): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_VoidTransform> _di_IBDA_VoidTransform;'}
- {$EXTERNALSYM IBDA_VoidTransform}
- IBDA_VoidTransform = interface(IUnknown)
- ['{71985F46-1CA1-11d3-9CC8-00C04F7971E0}']
- (*** IBDA_VoidTransform methods ***)
- function Start: HResult; stdcall;
- function Stop: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_NullTransform> _di_IBDA_NullTransform;'}
- {$EXTERNALSYM IBDA_NullTransform}
- IBDA_NullTransform = interface(IUnknown)
- ['{DDF15B0D-BD25-11d2-9CA0-00C04F7971E0}']
- (*** IBDA_NullTransform methods ***)
- function Start: HResult; stdcall;
- function Stop: HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_FrequencyFilter> _di_IBDA_FrequencyFilter;'}
- {$EXTERNALSYM IBDA_FrequencyFilter}
- IBDA_FrequencyFilter = interface(IUnknown)
- ['{71985F47-1CA1-11d3-9CC8-00C04F7971E0}']
- (*** IBDA_FrequencyFilter methods ***)
- function put_Autotune(pulTransponder: PULONG): HResult; stdcall;
- function get_Autotune(pulTransponder: PULONG): HResult; stdcall;
- function put_Frequency(pulFrequency: PULONG): HResult; stdcall;
- function get_Frequency(pulFrequency: PULONG): HResult; stdcall;
- function put_Polarity(pulPolarity: PULONG): HResult; stdcall;
- function get_Polarity(pulPolarity: PULONG): HResult; stdcall;
- function put_Range(pulRange: PULONG): HResult; stdcall;
- function get_Range(pulRange: PULONG): HResult; stdcall;
- function put_Bandwidth(ulBandwidth: ULONG): HResult; stdcall;
- function get_Bandwidth(out pulBandwidth: ULONG): HResult; stdcall;
- function put_FrequencyMultiplier(ulMultiplier: ULONG): HResult; stdcall;
- function get_FrequencyMultiplier(out pulMultiplier: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_LNBInfo> _di_IBDA_LNBInfo;'}
- {$EXTERNALSYM IBDA_LNBInfo}
- IBDA_LNBInfo = interface(IUnknown)
- ['{992CF102-49F9-4719-A664-C4F23E2408F4}']
- (*** IBDA_LNBInfo methods ***)
- function put_LocalOscilatorFrequencyLowBand(ulLOFLow: ULONG): HResult; stdcall;
- function get_LocalOscilatorFrequencyLowBand(out pulLOFLow: ULONG): HResult; stdcall;
- function put_LocalOscilatorFrequencyHighBand(ulLOFHigh: ULONG): HResult; stdcall;
- function get_LocalOscilatorFrequencyHighBand(out pulLOFHigh: ULONG): HResult; stdcall;
- function put_HighLowSwitchFrequency(ulSwitchFrequency: ULONG): HResult; stdcall;
- function get_HighLowSwitchFrequency(out pulSwitchFrequency: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_AutoDemodulate> _di_IBDA_AutoDemodulate;'}
- {$EXTERNALSYM IBDA_AutoDemodulate}
- IBDA_AutoDemodulate = interface(IUnknown)
- ['{DDF15B12-BD25-11d2-9CA0-00C04F7971E0}']
- (*** IBDA_AutoDemodulate methods ***)
- function put_AutoDemodulate : HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_DigitalDemodulator> _di_IBDA_DigitalDemodulator;'}
- {$EXTERNALSYM IBDA_DigitalDemodulator}
- IBDA_DigitalDemodulator = interface(IUnknown)
- ['{EF30F379-985B-4d10-B640-A79D5E04E1E0}']
- (*** IBDA_DigitalDemodulator methods ***)
- function put_ModulationType(var pModulationType: ModulationType): HResult; stdcall;
- function get_ModulationType(out pModulationType: ModulationType): HResult; stdcall;
- function put_InnerFECMethod(var pFECMethod: FECMethod): HResult; stdcall;
- function get_InnerFECMethod(out pFECMethod: FECMethod): HResult; stdcall;
- function put_InnerFECRate(var pFECRate: BinaryConvolutionCodeRate): HResult; stdcall;
- function get_InnerFECRate(out pFECRate: BinaryConvolutionCodeRate): HResult; stdcall;
- function put_OuterFECMethod(var pFECMethod: FECMethod): HResult; stdcall;
- function get_OuterFECMethod(out pFECMethod: FECMethod): HResult; stdcall;
- function put_OuterFECRate(var pFECRate: BinaryConvolutionCodeRate): HResult; stdcall;
- function get_OuterFECRate(out pFECRate: BinaryConvolutionCodeRate): HResult; stdcall;
- function put_SymbolRate(var pSymbolRate: ULONG): HResult; stdcall;
- function get_SymbolRate(out pSymbolRate: ULONG): HResult; stdcall;
- function put_SpectralInversion(var pSpectralInversion: SpectralInversion): HResult; stdcall;
- function get_SpectralInversion(out pSpectralInversion: SpectralInversion): HResult; stdcall;
- end;
- KSPROPERTY_IPSINK = (
- KSPROPERTY_IPSINK_MULTICASTLIST,
- KSPROPERTY_IPSINK_ADAPTER_DESCRIPTION,
- KSPROPERTY_IPSINK_ADAPTER_ADDRESS
- );
- {$EXTERNALSYM KSPROPERTY_IPSINK}
- TKSPropertyIPSink = KSPROPERTY_IPSINK;
- //---------------------------------------------------------------------
- // IBDA_IPSinkControl interface (mutlimedia\filters.ks\ipsink)
- // IBDA_IPSinkInfo interface
- //
- // IBDA_IPSinkControl is no longer being supported for Ring3 clients.
- // Use the BDA_IPSinkInfo interface instead.
- //---------------------------------------------------------------------
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_IPSinkControl> _di_IBDA_IPSinkControl;'}
- {$EXTERNALSYM IBDA_IPSinkControl}
- IBDA_IPSinkControl = interface(IUnknown)
- ['{3F4DC8E2-4050-11d3-8F4B-00C04F7971E2}']
- (*** IBDA_IPSinkControl methods ***)
- function GetMulticastList(var pulcbSize: ULONG; pbBuffer: Pointer): HResult; stdcall;
- function GetAdapterIPAddress(var pulcbSize: ULONG; pbBuffer: Pointer): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_IPSinkInfo> _di_IBDA_IPSinkInfo;'}
- {$EXTERNALSYM IBDA_IPSinkInfo}
- IBDA_IPSinkInfo = interface(IUnknown)
- ['{A750108F-492E-4d51-95F7-649B23FF7AD7}']
- (*** IBDA_IPSinkInfo methods ***)
- // returns N 6-byte 802.3 IP addreses.
- function get_MulticastList(pulcbAddresses: PULONG; // 6*N
- out ppbAddressList: PBYTE // Allocated by caller, must deallocate in callee with CoTaskMemFree()
- ): HResult; stdcall;
- function get_AdapterIPAddress(out pbstrBuffer: WideString): HResult; stdcall;
- function get_AdapterDescription(out pbstrBuffer: WideString): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumPIDMap> _di_IEnumPIDMap;'}
- {$EXTERNALSYM IEnumPIDMap}
- IEnumPIDMap = interface(IUnknown)
- ['{afb6c2a2-2c41-11d3-8a60-0000f81e0e4a}']
- (*** IEnumPIDMap methods ***)
- function Next(cRequest: ULONG; var pPIDMap: TPIDMap; out pcReceived: ULONG): HResult; stdcall;
- function Skip(cRecords: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppIEnumPIDMap: IEnumPIDMap): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2PIDMap> _di_IMPEG2PIDMap;'}
- {$EXTERNALSYM IMPEG2PIDMap}
- IMPEG2PIDMap = interface(IUnknown)
- ['{afb6c2a1-2c41-11d3-8a60-0000f81e0e4a}']
- (*** IMPEG2PIDMap methods ***)
- function MapPID(culPID: ULONG; pulPID: PULONG;
- MediaSampleContent: TMediaSampleContent): HResult; stdcall;
- function UnmapPID(culPID: ULONG; pulPID: PULONG): HResult; stdcall;
- function EnumPIDMap(out pIEnumPIDMap: IEnumPIDMap): HResult; stdcall;
- end;
- //---------------------------------------------------------------------
- // IFrequencyMap interface
- // Currently implemented on the TIF. The interface can be QIed on the NP
- //---------------------------------------------------------------------
- // DirectX9 Specific
- {$HPPEMIT 'typedef System::DelphiInterface<IFrequencyMap> _di_IFrequencyMap;'}
- {$EXTERNALSYM IFrequencyMap}
- IFrequencyMap = interface(IUnknown)
- ['{06FB45C1-693C-4ea7-B79F-7A6A54D8DEF2}']
- (*** IFrequencyMap methods ***)
- function get_FrequencyMapping(out ulCount: ULONG; out ppulList: PULONG): HResult; stdcall;
- function put_FrequencyMapping(ulCount: ULONG; pList: PULONG): HResult; stdcall;
- function get_CountryCode(out pulCountryCode: ULONG): HResult; stdcall;
- function put_CountryCode(ulCountryCode: ULONG): HResult; stdcall;
- function get_DefaultFrequencyMapping(ulCountryCode: ULONG; out pulCount: ULONG;
- out ppulList: PULONG): HResult; stdcall;
- function get_CountryCodeList(out pulCount: ULONG; out ppulList: PULONG): HResult; stdcall;
- end;
- //---------------------------------------------------------------------
- //
- // Copyright (c) 1999-2001 Microsoft Corporation
- //
- // BDATIF.idl
- //
- //---------------------------------------------------------------------
- const
- IID_IMPEG2_TIF_CONTROL : TGUID = '{F9BAC2F9-4149-4916-B2EF-FAA202326862}';
- {$EXTERNALSYM IID_IMPEG2_TIF_CONTROL}
- IID_ITuneRequestInfo : TGUID = '{A3B152DF-7A90-4218-AC54-9830BEE8C0B6}';
- {$EXTERNALSYM IID_ITuneRequestInfo}
- IID_IGuideDataEvent : TGUID = '{EFDA0C80-F395-42c3-9B3C-56B37DEC7BB7}';
- {$EXTERNALSYM IID_IGuideDataEvent}
- IID_IGuideDataProperty : TGUID = '{88EC5E58-BB73-41d6-99CE-66C524B8B591}';
- {$EXTERNALSYM IID_IGuideDataProperty}
- IID_IEnumGuideDataProperties : TGUID = '{AE44423B-4571-475c-AD2C-F40A771D80EF}';
- {$EXTERNALSYM IID_IEnumGuideDataProperties}
- IID_IEnumTuneRequests : TGUID = '{1993299C-CED6-4788-87A3-420067DCE0C7}';
- {$EXTERNALSYM IID_IEnumTuneRequests}
- IID_IGuideData : TGUID = '{61571138-5B01-43cd-AEAF-60B784A0BF93}';
- {$EXTERNALSYM IID_IGuideData}
- IID_IGuideDataLoader : TGUID = '{4764ff7c-fa95-4525-af4d-d32236db9e38}';
- {$EXTERNALSYM IID_IGuideDataLoader}
- IID_IBDA_TIF_REGISTRATION : TGUID = '{DFEF4A68-EE61-415f-9CCB-CD95F2F98A3A}'; // DX9
- {$EXTERNALSYM IID_IBDA_TIF_REGISTRATION}
- LIBID_PSISLOAD : TGUID = '{8224A083-7F8C-432D-B83E-3C5E9BDE3528}';
- {$EXTERNALSYM LIBID_PSISLOAD}
- CLSID_TIFLoad : TGUID = '{14EB8748-1753-4393-95AE-4F7E7A87AAD6}';// default interface IGuideDataEvent
- {$EXTERNALSYM CLSID_TIFLoad}
- //******************************************************************************
- //
- // IBDA_TIF_REGISTRATION interface
- //
- // Implemented by the Microsoft ATSC/DVB BDA Network Provider
- //
- // Used by a transport information filter (TIF) to Register with the NP
- // AND obtain an Interface to the Demux to set/ Remove PIDs.The TIF here passes
- // IUNKNOWN of the pin it is connecting to and obtains the IMPEG2PIDMAP interface
- // implemented by the NP to Map/ UnMap pids.
- //
- type
- // DirectX9 Specific
- {$HPPEMIT 'typedef System::DelphiInterface<IBDA_TIF_REGISTRATION> _di_IBDA_TIF_REGISTRATION;'}
- {$EXTERNALSYM IBDA_TIF_REGISTRATION}
- IBDA_TIF_REGISTRATION = interface(IUnknown)
- ['{DFEF4A68-EE61-415f-9CCB-CD95F2F98A3A}']
- (*** IBDA_TIF_REGISTRATION methods ***)
- // Used to register a transport analyzer with the Network Provider.
- function RegisterTIFEx(pTIFInputPin: IPin; out ppvRegistrationContext: ULONG;
- out ppMpeg2DataControl: IUnknown): HResult; stdcall;
- // Used to unregister TIF with the Network Provider.
- function UnregisterTIF(pvRegistrationContext: ULONG): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IMPEG2_TIF_CONTROL interface
- //
- // Implemented by the Microsoft ATSC/DVB BDA Network Provider
- //
- // Used by a transport information filter (TIF) to request table
- // sections carried on specific PIDs within the transport stream.
- // The Network Provider Filter will, in turn, do the necessary
- // control on the Demux Filter. All sections are delivered as comlete
- // mpeg2 table sections via the TIF's connection to the Demux Filter.
- //
- {$HPPEMIT 'typedef System::DelphiInterface<IMPEG2_TIF_CONTROL> _di_IMPEG2_TIF_CONTROL;'}
- {$EXTERNALSYM IMPEG2_TIF_CONTROL}
- IMPEG2_TIF_CONTROL = interface(IUnknown)
- ['{F9BAC2F9-4149-4916-B2EF-FAA202326862}']
- (*** IMPEG2_TIF_CONTROL methods ***)
- // Used to register a transport analyzer with the Network Provider
- function RegisterTIF(pUnkTIF: IUnknown; out ppvRegistrationContext: ULONG): HResult; stdcall;
- // Used to unregister TIF with the Network Provider
- function UnregisterTIF(pvRegistrationContext: ULONG): HResult; stdcall;
- // Used to add PSI/SI MPEG2 packet IDs to the TIF's data stream
- function AddPIDs(ulcPIDs: ULONG; pulPIDs: array of ULONG): HResult; stdcall;
- // Used to remove PSI/SI MPEG2 packet IDs from the TIF's data stream
- function DeletePIDs(ulcPIDs: ULONG; pulPIDs: array of ULONG): HResult; stdcall;
- // Returns the number of MPEG2 Packet IDs being filtered into the TIF's input data.
- function GetPIDCount(out pulcPIDs: ULONG): HResult; stdcall;
- // Returns the the list of MPEG2 Packet IDs being filtered into the TIF's input data.
- function GetPIDs(out pulcPIDs: ULONG; pulPIDs: array of ULONG): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // ITuneRequestInfo interface
- //
- // Implemented by a BDA transport information filter (TIF)
- //
- // Used by the BDA Network Provider to obtain network specific
- // information about locating transport streams and aquiring
- // services.
- //
- // GetLocatorData -
- // GetComponentData -
- // CreateComponentList -
- // GetNextService -
- // GetPreviouService -
- // GetNextLocator -
- // GetPreviousLocator -
- {$HPPEMIT 'typedef System::DelphiInterface<ITuneRequestInfo> _di_ITuneRequestInfo;'}
- {$EXTERNALSYM ITuneRequestInfo}
- ITuneRequestInfo = interface(IUnknown)
- ['{A3B152DF-7A90-4218-AC54-9830BEE8C0B6}']
- (*** ITuneRequestInfo methods ***)
- // TIF fills in channel/program locator information for the given tune request.
- function GetLocatorData(Request: ITuneRequest): HResult; stdcall;
- // TIF fills in all network specific component data for the existing component
- // list on the given tune request.
- function GetComponentData(CurrentRequest: ITuneRequest): HResult; stdcall;
- // TIF creates a complete component list and fills in all network specific
- // component data on the given tune request
- function CreateComponentList(CurrentRequest: ITuneRequest): HResult; stdcall;
- // TIF creates a new TuneRequest with channel/program locator information
- // for the next service.
- function GetNextProgram(CurrentRequest: ITuneRequest; out TuneRequest: ITuneRequest): HResult; stdcall;
- // TIF creates a new TuneRequest with channel/program locator information
- // for the previous service.
- function GetPreviousProgram(CurrentRequest: ITuneRequest; out TuneRequest: ITuneRequest): HResult; stdcall;
- // TIF creates a new TuneRequest with locator information for the next transport stream.
- function GetNextLocator(CurrentRequest: ITuneRequest; out TuneRequest: ITuneRequest): HResult; stdcall;
- // TIF creates a new TuneRequest with locator information for the previous transport stream.
- function GetPreviousLocator(CurrentRequest: ITuneRequest; out TuneRequest: ITuneRequest): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IGuideDataEvent
- //
- // This is the guide data event notification callback interface. The
- // callback interface is registered on a transport analyzer's
- // IConnectionPoint by the event consumer.
- //
- // The event consumer MUST NOT BLOCK THE CALLING THREAD.
- //
- // If the consumer requires additional information about the event, it
- // should queue the event to a separate thread.
- //
- // {EFDA0C80-F395-42c3-9B3C-56B37DEC7BB7}
- //
- {$HPPEMIT 'typedef System::DelphiInterface<IGuideDataEvent> _di_IGuideDataEvent;'}
- {$EXTERNALSYM IGuideDataEvent}
- IGuideDataEvent = interface(IUnknown)
- ['{EFDA0C80-F395-42c3-9B3C-56B37DEC7BB7}']
- (*** IGuideDataEvent methods ***)
- // Indicates that a complete set of guide data has been acquire from
- // the current transport stream.
- //
- // MANDATORY - If a transport analyzer supports IGuideDataEvent then
- // it must supply this event.
- //
- function GuideDataAcquired: HResult; stdcall;
- // Indicates that information about one or more programs changed.
- //
- // If varProgramDescriptionID is NULL then the consumer
- // must get properties for all programs to determine which ones
- // changed.
- //
- // MANDATORY - If a transport analyzer supports IGuideDataEvent then
- // it must supply this event.
- //
- function ProgramChanged(varProgramDescriptionID: OLEVARIANT): HResult; stdcall;
- // Indicates that information about one or more services changed.
- //
- // If varServiceDescriptionID is NULL then the consumer
- // must get properties for all services to determine which ones
- // changed.
- //
- // MANDATORY - If a transport analyzer supports IGuideDataEvent then
- // it must supply this event.
- //
- function ServiceChanged(varServiceDescriptionID: OLEVARIANT): HResult; stdcall;
- // Indicates that information about one or more schedule entries
- // changed.
- //
- // If varScheduleEntryDescriptionID is NULL then the consumer
- // must get properties for all schedule entries to determine which ones
- // changed.
- //
- // MANDATORY - If a transport analyzer supports IGuideDataEvent then
- // it must supply this event.
- //
- function ScheduleEntryChanged(varScheduleEntryDescriptionID: OLEVARIANT): HResult; stdcall;
- // Indicates that the program with the given Description.ID
- // has been deleted.
- //
- //
- // Optional - Transport analyzer may supply this event. Consumer
- // may return E_NOTIMPL.
- //
- function ProgramDeleted(varProgramDescriptionID: OLEVARIANT): HResult; stdcall;
- // Indicates that the service with the given Description.ID
- // has been deleted.
- //
- //
- // Optional - Transport analyzer may supply this event. Consumer
- // may return E_NOTIMPL.
- //
- function ServiceDeleted(varServiceDescriptionID: OLEVARIANT): HResult; stdcall;
- // Indicates that the schedule entry with the given Description.ID
- // has been deleted.
- //
- //
- // Optional - Transport analyzer may supply this event. Consumer
- // may return E_NOTIMPL.
- //
- function ScheduleDeleted(varScheduleEntryDescriptionID: OLEVARIANT): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IGuideDataPropery
- //
- // {88EC5E58-BB73-41d6-99CE-66C524B8B591}
- //
- // interface provided by a transport analyzer to represent a guide data property.
- {$HPPEMIT 'typedef System::DelphiInterface<IGuideDataProperty> _di_IGuideDataProperty;'}
- {$EXTERNALSYM IGuideDataProperty}
- IGuideDataProperty = interface(IUnknown)
- ['{88EC5E58-BB73-41d6-99CE-66C524B8B591}']
- (*** IGuideDataProperty methods ***)
- function Name(out pbstrName: TBSTR): HResult; stdcall;
- function Language(out idLang: longint): HResult; stdcall;
- function Value(out pvar: OLEVARIANT): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IEnumGuideDataProperties
- //
- // {AE44423B-4571-475c-AD2C-F40A771D80EF}
- //
- // Interface provided by a transport analyzer to enumerate guide data properties.
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumGuideDataProperties> _di_IEnumGuideDataProperties;'}
- {$EXTERNALSYM IEnumGuideDataProperties}
- IEnumGuideDataProperties = interface(IUnknown)
- ['{AE44423B-4571-475c-AD2C-F40A771D80EF}']
- (*** IEnumGuideDataProperties methods ***)
- function Next(celt: ULONG; out ppprop: IGuideDataProperty ; out pcelt: ULONG): HResult; stdcall;
- function Skip(celt: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppenum: IEnumGuideDataProperties): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IEnumTuneRequests
- //
- // {1993299C-CED6-4788-87A3-420067DCE0C7}
- //
- // Interface provided by a transport analyzer to enumerate service tune requests
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumTuneRequests> _di_IEnumTuneRequests;'}
- {$EXTERNALSYM IEnumTuneRequests}
- IEnumTuneRequests = interface(IUnknown)
- ['{1993299C-CED6-4788-87A3-420067DCE0C7}']
- (*** IEnumTuneRequests methods ***)
- function Next(celt: ULONG; out ppprop: ITuneRequest; out pcelt: ULONG): HResult; stdcall;
- function Skip(celt: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppenum: IEnumTuneRequests): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IGuideData
- //
- // {61571138-5B01-43cd-AEAF-60B784A0BF93}
- //
- // Interface provided by a transport analyzer to supply guide data information.
- {$HPPEMIT 'typedef System::DelphiInterface<IGuideData> _di_IGuideData;'}
- {$EXTERNALSYM IGuideData}
- IGuideData = interface(IUnknown)
- ['{61571138-5B01-43cd-AEAF-60B784A0BF93}']
- (*** IGuideData methods ***)
- //-------------------------------------------------------------------------
- //
- // GetServices
- // Returns an enumeration of tune requests for all services whose
- // information is found in the current transport stream.
- //
- // Parameters
- //
- // IEnumTuneRequests **
- // Location in which a reference to the resulting
- // IEnumTuneRequests is placed. The caller must release
- // this reference when finished with it.
- //
- // Comments
- // This call is used to enumerate all services whose information
- // can be found in the service descriptor table. Each tune request
- // in the IEnumTuneRequest * contains the tune request including the
- // locator data for the service.
- //
- // Returns an enumeration of services whose information is found in the given transport stream
- function GetServices(out ppEnumTuneRequests: IEnumTuneRequests): HResult; stdcall;
- //-------------------------------------------------------------------------
- //
- // GetServiceProperties
- // Returns an enumeration of all guide data properties for
- // the service with the given Description.ID.
- //
- // Parameters
- // ITuneRequest *
- // Pointer to a tune request that contains information needed
- // to indentify the requested transport stream.
- // A NULL ITuneRequest * indicates that information about the
- // current transport stream is requested.
- //
- // IEnumGuideDataProperties **
- // Location in which a reference to the resulting
- // IEnumGuideDataProperties is placed. The caller must release
- // this reference when finished with it.
- //
- // Required Properties
- // The following properties MUST be included in the returned
- // property enumeration.
- //
- // Description.ID
- // Uniquely identifies a service.
- //
- // Description.Name
- // The default name to use for this service in the channel lineup.
- //
- // Description.Version
- // Identifies the current version of the properties associated
- // with this service.
- //
- // Provider.Name
- // Name of the service provider (e.g. "KCTS")
- //
- // Provider.NetworkName
- // Name of the network on which the service is provided.
- // (e.g. "PBS")
- //
- // Service.TuneRequest
- // Contains a tune request in the variant
- //
- //
- // Returns an enumeration of all guide data properties for the service specified by a tune request.
- function GetServiceProperties(pTuneRequest: ITuneRequest; out ppEnumProperties: IEnumGuideDataProperties): HResult; stdcall;
- //-------------------------------------------------------------------------
- //
- // GetProgramIDs
- // Returns an enumeration of the unique identifiers (Description.ID)
- // of programs with description contained in all transport
- // streams
- //
- // Parameters
- //
- // IEnumVARIANT **
- // Location in which a reference to the resulting
- // IEnumVARIANT is placed. The caller must release
- // this reference when finished with it.
- //
- // Comments
- // This call is used to get a list of programs that have
- // guide data properties in all transport streams.
- // Each variant returned in the IEnumVARIANT * contains the
- // unique Description.ID property for a program.
- // Note that more than on transport stream may contain properties
- // for the same program. In this case the properties should be
- // merged.
- //
- // Returns an enumeration of the Description.ID property for all programs on
- // the given transport stream.
- function GetGuideProgramIDs(out pEnumPrograms: IEnumVARIANT): HResult; stdcall;
- //-------------------------------------------------------------------------
- //
- // GetProgramProperties
- // Returns an enumeration of all guide data properties for
- // the program with the given Description.ID.
- //
- // Parameters
- // varProgramDescriptionID
- // Variant containing the unique identifier for the program
- // for which properties are requested.
- //
- // IEnumGuideDataProperties **
- // Location in which a reference to the resulting
- // IEnumGuideDataProperties is placed. The caller must release
- // this reference when finished with it.
- //
- // Required Properties
- // The following properties MUST be included in the returned
- // property enumeration.
- //
- // Description.ID
- // Uniquely identifies a program.
- //
- // Description.Version
- // Identifies the current version of the properties associated
- // with this program.
- //
- // Description.Title
- // Human readable title of the program (e.g. "")
- //
- // Description.Long
- // A description of the program.
- //
- // Returns an enumeration of all guide data properties for the program with
- // the given Description.ID.
- function GetProgramProperties(varProgramDescriptionID: OLEVARIANT;
- out ppEnumProperties: IEnumGuideDataProperties): HResult; stdcall;
- //-------------------------------------------------------------------------
- //
- // GetScheduleIDs
- // Returns an enumeration of the unique identifiers (Description.ID)
- // transport of schedule entries with description contained in the
- // given transport stream.
- //
- // Parameters
- //
- // IEnumVARIANT **
- // Location in which a reference to the resulting
- // IEnumVARIANT is placed. The caller must release
- // this reference when finished with it.
- //
- // Comments
- // This call is used to get a list of schedule entries that have
- // guide data properties in all transport streams.
- // Each variant returned in the IEnumVARIANT * contains the
- // unique Description.ID property for a schedule entry.
- // Note that more than on transport stream may contain properties
- // for the same schedule entry. In this case the properties
- // should be merged.
- //
- // Returns an enumeration of the Description.ID property for all schedule
- // entries in the transport stream specified by a tune request.
- function GetScheduleEntryIDs(out pEnumScheduleEntries: IEnumVARIANT): HResult; stdcall;
- //-------------------------------------------------------------------------
- //
- // GetScheduleEntryProperties
- // Returns an enumeration of all guide data properties for
- // the schedule entry with the given Description.ID.
- //
- // Parameters
- // varScheduleEntryDescriptionID
- // Variant containing the unique identifier for the schedule
- // entry for which properties are requested.
- //
- // IEnumGuideDataProperties **
- // Location in which a reference to the resulting
- // IEnumGuideDataProperties is placed. The caller must release
- // this reference when finished with it.
- //
- // Required Properties
- // The following properties MUST be included in the returned
- // property enumeration.
- //
- // Description.ID
- // Uniquely identifies a schedule entry.
- //
- // Description.Version
- // Identifies the current version of the properties associated
- // with this program.
- //
- // Time.Start
- // The starting time and date of this schedule entry.
- //
- // Time.End
- // The ending time and date of this schedule entry.
- //
- // Schedule.Program
- // The Description.ID of the program that will play at the
- // time specified by this schedule entry.
- //
- // Schedule.Service
- // The Description.ID of the Service that carries the
- // program that will play at the time specified by this
- // schedule entry.
- //
- // Returns an enumeration of all guide data properties for the schedule
- // entry with the given Description.ID.")]
- function GetScheduleEntryProperties(varScheduleEntryDescriptionID: OLEVARIANT;
- out ppEnumProperties: IEnumGuideDataProperties): HResult; stdcall;
- end;
- //******************************************************************************
- //
- // IGuideDataLoader
- //
- // All Guide Data Loaders MUST implement this interface. It is how they are
- // provided with the IGuideData interface that they will use.
- //
- //
- {$HPPEMIT 'typedef System::DelphiInterface<IGuideDataLoader> _di_IGuideDataLoader;'}
- {$EXTERNALSYM IGuideDataLoader}
- IGuideDataLoader = interface(IUnknown)
- ['{4764ff7c-fa95-4525-af4d-d32236db9e38}']
- (*** IGuideDataLoader methods ***)
- function Init(pGuideStore: IGuideData): HResult; stdcall;
- function Terminate: HResult; stdcall;
- end;
- //******************************************************************************
- // Copyright (c) 1998 Microsoft Corporation. All Rights Reserved.
- // FileName: Mixerocx.idl
- const
- IID_IMixerOCXNotify : TGUID = '{81A3BD31-DEE1-11d1-8508-00A0C91F9CA0}';
- {$EXTERNALSYM IID_IMixerOCXNotify}
- IID_IMixerOCX : TGUID = '{81A3BD32-DEE1-11d1-8508-00A0C91F9CA0}';
- {$EXTERNALSYM IID_IMixerOCX}
- // data id flags, used to notify the client whenever pertinent data changes
- MIXER_DATA_ASPECT_RATIO = $00000001; // picture aspect ratio changed
- {$EXTERNALSYM MIXER_DATA_ASPECT_RATIO}
- MIXER_DATA_NATIVE_SIZE = $00000002; // native size of video changed
- {$EXTERNALSYM MIXER_DATA_NATIVE_SIZE}
- MIXER_DATA_PALETTE = $00000004; // palette of video changed
- {$EXTERNALSYM MIXER_DATA_PALETTE}
- // status flags defined here
- MIXER_STATE_MASK = $00000003; // use this mask with state status bits
- {$EXTERNALSYM MIXER_STATE_MASK}
- MIXER_STATE_UNCONNECTED = $00000000; // mixer is unconnected and stopped
- {$EXTERNALSYM MIXER_STATE_UNCONNECTED}
- MIXER_STATE_CONNECTED_STOPPED = $00000001; // mixer is connected and stopped
- {$EXTERNALSYM MIXER_STATE_CONNECTED_STOPPED}
- MIXER_STATE_CONNECTED_PAUSED = $00000002; // mixer is connected and paused
- {$EXTERNALSYM MIXER_STATE_CONNECTED_PAUSED}
- MIXER_STATE_CONNECTED_PLAYING = $00000003; // mixer is connected and playing
- {$EXTERNALSYM MIXER_STATE_CONNECTED_PLAYING}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IMixerOCXNotify> _di_IMixerOCXNotify;'}
- {$EXTERNALSYM IMixerOCXNotify}
- IMixerOCXNotify = interface(IUnknown)
- ['{81A3BD31-DEE1-11d1-8508-00A0C91F9CA0}']
- (*** IMixerOCXNotify methods ***)
- // invalidates the rect
- function OnInvalidateRect(lpcRect: PRECT): HResult; stdcall;
- // informs that a status change has occured, new status bits provided in ulStatusFlags
- function OnStatusChange(ulStatusFlags: ULONG): HResult; stdcall;
- // informs that data parameters, whose id is present in ilDataFlags has changed
- function OnDataChange(ulDataFlags: ULONG): HResult; stdcall;
- end;
- {$HPPEMIT 'typedef System::DelphiInterface<IMixerOCX> _di_IMixerOCX;'}
- {$EXTERNALSYM IMixerOCX}
- IMixerOCX = interface(IUnknown)
- ['{81A3BD32-DEE1-11d1-8508-00A0C91F9CA0}']
- (*** IMixerOCX methods ***)
- // used to notify the mixer that the display mode has changed, the mixer handles this
- // asynchronously and the calls OnStatusChange(MIXER_DISPLAYCHANGE_HANDLED) when processing
- // is done
- function OnDisplayChange(ulBitsPerPixel, ulScreenWidth, ulScreenHeight: ULONG): HResult; stdcall;
- function GetAspectRatio(out pdwPictAspectRatioX, pdwPictAspectRatioY: DWORD): HResult; stdcall;
- function GetVideoSize(out pdwVideoWidth, pdwVideoHeight: DWORD): HResult; stdcall;
- function GetStatus(out pdwStatus: DWORD): HResult; stdcall;
- // the dc provided here is not supposed to be cached. If apps have set a dc using
- // SetDrawInfo, then it is illegal to provide a non NULL argument here
- function OnDraw(hdcDraw: HDC; prcDraw: PRECT): HResult; stdcall;
- // lpptTopLeftSC should be NULL unless MIXER_DRAW_DC_ONSCREEN is set to TRUE
- // specifying a NULL value for lprcClip means no clipping
- // lpptTopLeftSC - top left corner of surface/dc in screen coordinates
- // prcDrawCC - draw rectangle in surface/dc coordinates
- // lprcClip - clipping rect in surface/dc coordinates (optional)
- function SetDrawRegion(lpptTopLeftSC: PPOINT; prcDrawCC, lprcClip: PRECT): HResult; stdcall;
- // function to set the sink interface for client notification
- function Advise(pmdns: IMixerOCXNotify): HResult; stdcall;
- // function to remove the sink interface
- function UnAdvise: HResult; stdcall;
- end;
- /////////////////////////////////////////////////////////////////////////////
- //
- // Copyright (c) Microsoft Corporation. All rights reserved.
- //
- // Module Name:
- //
- // Mpeg2Bits.h
- //
- // Abstract:
- //
- // This file defines the MPEG-2 section header bitfields. These are
- // defined here instead of in mpegstructs.idl because of MIDL
- // compiler conflicts with bitfield definitions.
- //
- /////////////////////////////////////////////////////////////////////////////
- // PID structure
- // WORD Reserved : 3;
- // WORD ProgramId : 13;
- PPIDBits = ^TPIDBits;
- PID_BITS = packed record
- Bits: WORD;
- end;
- {$EXTERNALSYM PID_BITS}
- PPID_BITS = ^PID_BITS;
- {$EXTERNALSYM PPID_BITS}
- TPIDBits = PID_BITS;
- // Generic MPEG packet header structure
- // WORD SectionLength : 12;
- // WORD Reserved : 2;
- // WORD PrivateIndicator : 1;
- // WORD SectionSyntaxIndicator : 1;
- PMPEGHeaderBits = ^TMPEGHeaderBits;
- MPEG_HEADER_BITS = packed record
- Bits: WORD;
- end;
- {$EXTERNALSYM MPEG_HEADER_BITS}
- PMPEG_HEADER_BITS = ^MPEG_HEADER_BITS;
- {$EXTERNALSYM PMPEG_HEADER_BITS}
- TMPEGHeaderBits = MPEG_HEADER_BITS;
- // Long MPEG packet header structure
- // BYTE CurrentNextIndicator : 1;
- // BYTE VersionNumber : 5;
- // BYTE Reserved : 2;
- PMPEGHeaderVersionBits = ^TMPEGHeaderVersionBits;
- MPEG_HEADER_VERSION_BITS = packed record
- Bits: BYTE;
- end;
- {$EXTERNALSYM MPEG_HEADER_VERSION_BITS}
- PMPEG_HEADER_VERSION_BITS = ^MPEG_HEADER_VERSION_BITS;
- {$EXTERNALSYM PMPEG_HEADER_VERSION_BITS}
- TMPEGHeaderVersionBits = MPEG_HEADER_VERSION_BITS;
- /////////////////////////////////////////////////////////////////////////////
- //
- // Copyright (c) Microsoft Corporation. All rights reserved.
- //
- // Module Name:
- //
- // Mpeg2Structs.idl
- //
- // Abstract:
- //
- // Definitions for the common structures used in Mpeg2Data
- //
- // Notes:
- //
- // This IDL file is not built independently, but is included and built
- // in the master IDL file Mpeg2Data.idl
- //
- /////////////////////////////////////////////////////////////////////////////
- type
- // Basic Type Aliases
- PPID = ^PID;
- {$EXTERNALSYM PPID}
- PID = WORD;
- {$EXTERNALSYM PID}
- PTID = ^TID;
- {$EXTERNALSYM PTID}
- TID = BYTE;
- {$EXTERNALSYM TID}
- ClientKey = UINT;
- {$EXTERNALSYM ClientKey}
- // MPEG-2 Current/Next bit field
- MPEG_CURRENT_NEXT_BIT = (
- {$EXTERNALSYM MPEG_CURRENT_NEXT_BIT}
- MPEG_SECTION_IS_NEXT,
- MPEG_SECTION_IS_CURRENT
- );
- TMPEGCurrentNextBit = MPEG_CURRENT_NEXT_BIT;
- // MPEG-2 TID Extension structure
- PTidExtension = ^TTidExtension;
- TID_EXTENSION = packed record
- wTidExt: WORD;
- wCount : WORD;
- end;
- {$EXTERNALSYM TID_EXTENSION}
- PTID_EXTENSION = ^TID_EXTENSION;
- {$EXTERNALSYM PTID_EXTENSION}
- TTidExtension = TID_EXTENSION;
- // MPEG-2 packet "small" header structure
- SECTION = packed record
- TableId : TID;
- Header : TMPEGHeaderBits;
- SectionData : array[0..0] of BYTE; // Array size is Header.S.SectionLength
- end;
- {$EXTERNALSYM SECTION}
- PSECTION = ^SECTION;
- {$EXTERNALSYM PSECTION}
- TSection = SECTION;
- // MPEG-2 packet "long" header structure
- PLongSection = ^TLongSection;
- LONG_SECTION = packed record
- TableId : TID;
- Header : TMPEGHeaderBits;
- TableIdExtension : WORD;
- Version : TMPEGHeaderVersionBits;
- SectionNumber : BYTE;
- LastSectionNumber : BYTE;
- RemainingData : array[0..0] of BYTE; // Array size is Header.S.SectionLength - 5
- end;
- {$EXTERNALSYM LONG_SECTION}
- PLONG_SECTION = ^LONG_SECTION;
- {$EXTERNALSYM PLONG_SECTION}
- TLongSection = LONG_SECTION;
- // DSM-CC packet header structure
- PDSMCCSection = ^TDSMCCSection;
- DSMCC_SECTION = packed record
- TableId : TID;
- Header : TMPEGHeaderBits;
- TableIdExtension : WORD;
- Version : TMPEGHeaderVersionBits;
- SectionNumber : BYTE;
- LastSectionNumber : BYTE;
- ProtocolDiscriminator : BYTE;
- DsmccType : BYTE;
- MessageId : WORD;
- TransactionId : DWORD;
- Reserved : BYTE;
- AdaptationLength : BYTE;
- MessageLength : WORD;
- RemainingData: array[0..0] of BYTE;
- end;
- {$EXTERNALSYM DSMCC_SECTION}
- PDSMCC_SECTION = ^DSMCC_SECTION;
- {$EXTERNALSYM PDSMCC_SECTION}
- TDSMCCSection = DSMCC_SECTION;
- // MPEG-2 request/response packets structures
- PMPEGRQSTPacket = ^TMPEGRQSTPacket;
- MPEG_RQST_PACKET = packed record
- dwLength: DWORD;
- pSection: PSECTION;
- end;
- {$EXTERNALSYM MPEG_RQST_PACKET}
- PMPEG_RQST_PACKET = ^MPEG_RQST_PACKET;
- {$EXTERNALSYM PMPEG_RQST_PACKET}
- TMPEGRQSTPacket = MPEG_RQST_PACKET;
- PMPEGPacketList = ^TMPEGPacketList;
- MPEG_PACKET_LIST = packed record
- wPacketCount : WORD ;
- PacketList : array[0..0] of PMPEG_RQST_PACKET; // Array size is wPacketCount;
- end;
- {$EXTERNALSYM MPEG_PACKET_LIST}
- PMPEG_PACKET_LIST = ^MPEG_PACKET_LIST;
- {$EXTERNALSYM PMPEG_PACKET_LIST}
- TMPEGPacketList = MPEG_PACKET_LIST;
- // DSM-CC request filter options
- PDSMCCFilterOptions = ^TDSMCCFilterOptions;
- DSMCC_FILTER_OPTIONS = packed record
- fSpecifyProtocol : BOOL; // If true, Protocol should be set to desired value
- Protocol : BYTE;
- fSpecifyType : BOOL; // If true, Type should be set to desired value
- Type_ : BYTE;
- fSpecifyMessageId : BOOL; // If true, MessageId should be set to desired value
- MessageId : WORD;
- fSpecifyTransactionId : BOOL; // If true, TransactionId (or DownloadId for DDB msgs) should be set to desired value
- fUseTrxIdMessageIdMask : BOOL; // If false, TransactionId is filtered as is.
- // If true, TransactionId is masked to look
- // for any version of message with associated
- // message identifier. See DVB - Data
- // Broadcasting Guidlines 4.6.5. (Assignment
- // and use of transactionId values).
- TransactionId : DWORD;
- fSpecifyModuleVersion : BOOL; // If true, ModuleVersion should be set to the desired value
- ModuleVersion : BYTE;
- fSpecifyBlockNumber : BOOL; // If true, BlockNumber should be set to desired value
- BlockNumber : WORD;
- fGetModuleCall : BOOL; // If true, NumberOfBlocksInModule should be set
- NumberOfBlocksInModule : WORD;
- end;
- // 45 BYTES
- {$EXTERNALSYM DSMCC_FILTER_OPTIONS}
- PDSMCC_FILTER_OPTIONS = ^DSMCC_FILTER_OPTIONS;
- {$EXTERNALSYM PDSMCC_FILTER_OPTIONS}
- TDSMCCFilterOptions = DSMCC_FILTER_OPTIONS;
- // ATSC request filter options
- PATSCFilterOptions = ^TATSCFilterOptions;
- ATSC_FILTER_OPTIONS = packed record
- fSpecifyEtmId : BOOL; // If true, EtmId should be set to desired value
- EtmId : DWORD;
- end;
- // 8 BYTES
- {$EXTERNALSYM ATSC_FILTER_OPTIONS}
- TATSCFilterOptions = ATSC_FILTER_OPTIONS;
- // MPEG-2 request filter structure
- PMPEG2Filter = ^TMPEG2Filter;
- MPEG2_FILTER = packed record
- bVersionNumber : BYTE; // Must be set to 1 or more to match filter definition
- wFilterSize : WORD; // Size of total filter structure. Version 1 filter is 73 bytes.
- fUseRawFilteringBits : BOOL; // If true, Filter and Mask fields should be set to desired value, all other
- // fields with be ignored.
- Filter : array[0..15] of BYTE; // Bits with values to compare against for a match.
- Mask : array[0..15] of BYTE; // Bits set to 0 are bits that are compared to those in the filter, those
- // bits set to 1 are ignored.
- fSpecifyTableIdExtension : BOOL; // If true, TableIdExtension should be set to desired value (false = don't care)
- TableIdExtension : WORD;
- fSpecifyVersion : BOOL; // If true, Version should be set to desired value (false = don't care)
- Version : BYTE;
- fSpecifySectionNumber : BOOL; // If true, SectionNumber should be set to desired value (false = don't care)
- SectionNumber : BYTE;
- fSpecifyCurrentNext : BOOL; // If true, fNext should be set to desired value (false = don't care)
- fNext : BOOL; // If true, next table is queried. Else, current
- fSpecifyDsmccOptions : BOOL; // If true, Dsmcc should be set with desired filter options
- Dsmcc : TDSMCCFilterOptions;
- fSpecifyAtscOptions : BOOL; // If true, Atsc should be set with desired filter options
- Atsc : TATSCFilterOptions;
- end;
- // 124 BYTES
- {$EXTERNALSYM MPEG2_FILTER}
- PMPEG2_FILTER = ^MPEG2_FILTER;
- {$EXTERNALSYM PMPEG2_FILTER}
- TMPEG2Filter = MPEG2_FILTER;
- const
- MPEG2_FILTER_VERSION_1_SIZE = 124;
- {$EXTERNALSYM MPEG2_FILTER_VERSION_1_SIZE}
- type
- // Mpeg-2 Stream buffer structure
- PMPEGStreamBuffer = ^TMPEGStreamBuffer;
- MPEG_STREAM_BUFFER = packed record
- hr : HResult;
- dwDataBufferSize : DWORD;
- dwSizeOfDataRead : DWORD;
- pDataBuffer : PBYTE;
- end;
- {$EXTERNALSYM MPEG_STREAM_BUFFER}
- PMPEG_STREAM_BUFFER = ^MPEG_STREAM_BUFFER;
- {$EXTERNALSYM PMPEG_STREAM_BUFFER}
- TMPEGStreamBuffer = MPEG_STREAM_BUFFER;
- // MPEG-2 Time and Date structures
- PMPEGTime = ^TMPEGTime;
- MPEG_TIME = packed record
- Hours : BYTE; // Legal Range: 0 to 23
- Minutes : BYTE; // Legal Range: 0 to 59
- Seconds : BYTE; // Legal Range: 0 to 59
- end;
- {$EXTERNALSYM MPEG_TIME}
- TMPEGTime = MPEG_TIME;
- MPEG_DURATION = MPEG_TIME;
- {$EXTERNALSYM MPEG_DURATION}
- PMPEGDate = ^TMPEGDate;
- MPEG_DATE = packed record
- Date : BYTE; // Legal Range: 1 to 31
- Month : BYTE; // Legal Range: 1 to 12
- Year : WORD; // Legal Range: 1900 to 2100
- end;
- {$EXTERNALSYM MPEG_DATE}
- TMPEGDate = MPEG_DATE;
- PMPEGDateAndTime = ^TMPEGDateAndTime;
- MPEG_DATE_AND_TIME = packed record
- D: TMPEGDate;
- T: TMPEGTime;
- end;
- {$EXTERNALSYM MPEG_DATE_AND_TIME}
- TMPEGDateAndTime = MPEG_DATE_AND_TIME;
- // MPEG-2 API Context structures
- MPEG_CONTEXT_TYPE = (
- MPEG_CONTEXT_BCS_DEMUX,
- MPEG_CONTEXT_WINSOCK
- );
- {$EXTERNALSYM MPEG_CONTEXT_TYPE}
- TMPEGContextType = MPEG_CONTEXT_TYPE;
- MPEG_BCS_DEMUX = packed record
- AVMGraphId: DWORD;
- end;
- {$EXTERNALSYM MPEG_BCS_DEMUX}
- TMPEGBCSDemux = MPEG_BCS_DEMUX;
- MPEG_WINSOCK = record
- AVMGraphId: DWORD;
- end;
- {$EXTERNALSYM MPEG_WINSOCK}
- TMPEGWinsock = MPEG_WINSOCK;
- PMPEGContext = ^TMPEGContext;
- MPEG_CONTEXT = packed record
- Type_ : TMPEGContextType;
- case byte of
- 0: (Demux: TMPEGBCSDemux);
- 1: (Winsock: TMPEGWinsock);
- end;
- {$EXTERNALSYM MPEG_CONTEXT}
- PMPEG_CONTEXT = ^MPEG_CONTEXT;
- {$EXTERNALSYM PMPEG_CONTEXT}
- TMPEGContext = MPEG_CONTEXT;
- // MPEG-2 Service Request and Responses
- MPEG_REQUEST_TYPE = (
- MPEG_RQST_UNKNOWN,
- MPEG_RQST_GET_SECTION,
- MPEG_RQST_GET_SECTION_ASYNC,
- MPEG_RQST_GET_TABLE,
- MPEG_RQST_GET_TABLE_ASYNC,
- MPEG_RQST_GET_SECTIONS_STREAM,
- MPEG_RQST_GET_PES_STREAM,
- MPEG_RQST_GET_TS_STREAM,
- MPEG_RQST_START_MPE_STREAM
- );
- {$EXTERNALSYM MPEG_REQUEST_TYPE}
- TMPEGRequestType = MPEG_REQUEST_TYPE;
- PMPEGServiceRequest = ^TMPEGServiceRequest;
- MPEG_SERVICE_REQUEST = packed record
- Type_ : TMPEGRequestType;
- Context : TMPEGContext;
- Pid : PID;
- TableId : TID;
- Filter : TMPEG2Filter;
- Flags : DWORD;
- end;
- {$EXTERNALSYM MPEG_SERVICE_REQUEST}
- PMPEG_SERVICE_REQUEST = ^MPEG_SERVICE_REQUEST;
- {$EXTERNALSYM PMPEG_SERVICE_REQUEST}
- TMPEGServiceRequest = MPEG_SERVICE_REQUEST;
- PMPEGServiceResponse = ^TMPEGServiceResponse;
- MPEG_SERVICE_RESPONSE = packed record
- IPAddress : DWORD;
- Port : WORD;
- end;
- {$EXTERNALSYM MPEG_SERVICE_RESPONSE}
- PMPEG_SERVICE_RESPONSE = ^MPEG_SERVICE_RESPONSE;
- {$EXTERNALSYM PMPEG_SERVICE_RESPONSE}
- TMPEGServiceResponse = MPEG_SERVICE_RESPONSE;
- // DSM-CC & MPE Query Results
- PDSMCCElement = ^TDSMCCElement;
- DSMCC_ELEMENT = packed record
- pid : PID;
- bComponentTag : BYTE;
- dwCarouselId : DWORD;
- dwTransactionId : DWORD;
- pNext : PDSMCCElement;
- end;
- {$EXTERNALSYM DSMCC_ELEMENT}
- PDSMCC_ELEMENT = ^DSMCC_ELEMENT;
- {$EXTERNALSYM PDSMCC_ELEMENT}
- TDSMCCElement = DSMCC_ELEMENT;
- PMPEElement = ^TMPEElement;
- MPE_ELEMENT = packed record
- pid : PID;
- bComponentTag : BYTE;
- pNext : PMPEElement;
- end;
- {$EXTERNALSYM MPE_ELEMENT}
- PMPE_ELEMENT = ^MPE_ELEMENT;
- {$EXTERNALSYM PMPE_ELEMENT}
- TMPEElement = MPE_ELEMENT;
- // MPEG-2 Stream Filtering Structure
- PMPEGStreamFilter = ^TMPEGStreamFilter;
- MPEG_STREAM_FILTER = packed record
- wPidValue : WORD; // PID value
- dwFilterSize : DWORD; // size of filter in bits
- fCrcEnabled : BOOL; // enable/disable CRC check
- rgchFilter : array[0..15] of BYTE; // filter data
- rgchMask : array[0..15] of BYTE; // filter mask
- end;
- {$EXTERNALSYM MPEG_STREAM_FILTER}
- TMPEGStreamFilter = MPEG_STREAM_FILTER;
- /////////////////////////////////////////////////////////////////////////////
- //
- // Copyright (c) Microsoft Corporation. All rights reserved.
- //
- // Module Name:
- //
- // Mpeg2Data.idl
- //
- // Abstract:
- //
- // Main Mpeg2Data Library Definition, and interface definitions for
- // the MPEG-2 Section and Table acquisition functionality
- //
- /////////////////////////////////////////////////////////////////////////////
- const
- // Declare well known PID/TID values for MPEG-2 tables
- MPEG_PAT_PID = $0000;
- {$EXTERNALSYM MPEG_PAT_PID}
- MPEG_PAT_TID = $00;
- {$EXTERNALSYM MPEG_PAT_TID}
- MPEG_CAT_PID = $0001;
- {$EXTERNALSYM MPEG_CAT_PID}
- MPEG_CAT_TID = $01;
- {$EXTERNALSYM MPEG_CAT_TID}
- MPEG_PMT_TID = $02;
- {$EXTERNALSYM MPEG_PMT_TID}
- MPEG_TSDT_PID = $0002;
- {$EXTERNALSYM MPEG_TSDT_PID}
- MPEG_TSDT_TID = $03;
- {$EXTERNALSYM MPEG_TSDT_TID}
- // Declare well known PID/TID values for ATSC tables
- ATSC_MGT_PID = $1FFB;
- {$EXTERNALSYM ATSC_MGT_PID}
- ATSC_MGT_TID = $C7;
- {$EXTERNALSYM ATSC_MGT_TID}
- ATSC_VCT_PID = $1FFB;
- {$EXTERNALSYM ATSC_VCT_PID}
- ATSC_VCT_TERR_TID = $C8;
- {$EXTERNALSYM ATSC_VCT_TERR_TID}
- ATSC_VCT_CABL_TID = $C9;
- {$EXTERNALSYM ATSC_VCT_CABL_TID}
- ATSC_RRT_PID = $1FFB;
- {$EXTERNALSYM ATSC_RRT_PID}
- ATSC_RRT_TID = $CA;
- {$EXTERNALSYM ATSC_RRT_TID}
- ATSC_EIT_TID = $CB;
- {$EXTERNALSYM ATSC_EIT_TID}
- ATSC_ETT_TID = $CC;
- {$EXTERNALSYM ATSC_ETT_TID}
- ATSC_STT_PID = $1FFB;
- {$EXTERNALSYM ATSC_STT_PID}
- ATSC_STT_TID = $CD;
- {$EXTERNALSYM ATSC_STT_TID}
- ATSC_PIT_TID = $D0;
- {$EXTERNALSYM ATSC_PIT_TID}
- // Declare well known PID/TID values for DVB tables
- DVB_NIT_PID = $0010;
- {$EXTERNALSYM DVB_NIT_PID}
- DVB_NIT_ACTUAL_TID = $40;
- {$EXTERNALSYM DVB_NIT_ACTUAL_TID}
- DVB_NIT_OTHER_TID = $41;
- {$EXTERNALSYM DVB_NIT_OTHER_TID}
- DVB_SDT_PID = $0011;
- {$EXTERNALSYM DVB_SDT_PID}
- DVB_SDT_ACTUAL_TID = $42;
- {$EXTERNALSYM DVB_SDT_ACTUAL_TID}
- DVB_SDT_OTHER_TID = $46;
- {$EXTERNALSYM DVB_SDT_OTHER_TID}
- DVB_BAT_PID = $0011;
- {$EXTERNALSYM DVB_BAT_PID}
- DVB_BAT_TID = $4A;
- {$EXTERNALSYM DVB_BAT_TID}
- DVB_EIT_PID = $0012;
- {$EXTERNALSYM DVB_EIT_PID}
- DVB_EIT_ACTUAL_TID = $4E;
- {$EXTERNALSYM DVB_EIT_ACTUAL_TID}
- DVB_EIT_OTHER_TID = $4F;
- {$EXTERNALSYM DVB_EIT_OTHER_TID}
- DVB_RST_PID = $0013;
- {$EXTERNALSYM DVB_RST_PID}
- DVB_RST_TID = $71;
- {$EXTERNALSYM DVB_RST_TID}
- DVB_TDT_PID = $0014;
- {$EXTERNALSYM DVB_TDT_PID}
- DVB_TDT_TID = $70;
- {$EXTERNALSYM DVB_TDT_TID}
- DVB_ST_PID_16 = $0010;
- {$EXTERNALSYM DVB_ST_PID_16}
- DVB_ST_PID_17 = $0011;
- {$EXTERNALSYM DVB_ST_PID_17}
- DVB_ST_PID_18 = $0012;
- {$EXTERNALSYM DVB_ST_PID_18}
- DVB_ST_PID_19 = $0013;
- {$EXTERNALSYM DVB_ST_PID_19}
- DVB_ST_PID_20 = $0014;
- {$EXTERNALSYM DVB_ST_PID_20}
- DVB_ST_TID = $72;
- {$EXTERNALSYM DVB_ST_TID}
- DVB_TOT_PID = $0014;
- {$EXTERNALSYM DVB_TOT_PID}
- DVB_TOT_TID = $73;
- {$EXTERNALSYM DVB_TOT_TID}
- DVB_DIT_PID = $001E;
- {$EXTERNALSYM DVB_DIT_PID}
- DVB_DIT_TID = $7E;
- {$EXTERNALSYM DVB_DIT_TID}
- DVB_SIT_PID = $001F;
- {$EXTERNALSYM DVB_SIT_PID}
- DVB_SIT_TID = $7F;
- {$EXTERNALSYM DVB_SIT_TID}
- // Declare well known PID/TID values for ISDB tables
- ISDB_DCT_PID = $0017;
- {$EXTERNALSYM ISDB_DCT_PID}
- ISDB_DCT_TID = $C0;
- {$EXTERNALSYM ISDB_DCT_TID}
- ISDB_LIT_PID = $0020;
- {$EXTERNALSYM ISDB_LIT_PID}
- ISDB_LIT_TID = $D0;
- {$EXTERNALSYM ISDB_LIT_TID}
- ISDB_ERT_PID = $0021;
- {$EXTERNALSYM ISDB_ERT_PID}
- ISDB_ERT_TID = $D1;
- {$EXTERNALSYM ISDB_ERT_TID}
- ISDB_ITT_TID = $D2;
- {$EXTERNALSYM ISDB_ITT_TID}
- ISDB_DLT_TID = $C1;
- {$EXTERNALSYM ISDB_DLT_TID}
- ISDB_PCAT_PID = $0022;
- {$EXTERNALSYM ISDB_PCAT_PID}
- ISDB_PCAT_TID = $C2;
- {$EXTERNALSYM ISDB_PCAT_TID}
- ISDB_SDTT_PID = $0023;
- {$EXTERNALSYM ISDB_SDTT_PID}
- ISDB_SDTT_TID = $C3;
- {$EXTERNALSYM ISDB_SDTT_TID}
- ////////////////////////////////////
- //
- // Mpeg2DataLib Library
- //
- ////////////////////////////////////
- const
- LIBID_Mpeg2DataLib : TGUID = '{DBAF6C1B-B6A4-4898-AE65-204F0D9509A1}';
- {$EXTERNALSYM LIBID_Mpeg2DataLib}
- IID_IMpeg2Data : TGUID = '{9B396D40-F380-4e3c-A514-1A82BF6EBFE6}';
- {$EXTERNALSYM IID_IMpeg2Data}
- IID_ISectionList : TGUID = '{AFEC1EB5-2A64-46c6-BF4B-AE3CCB6AFDB0}';
- {$EXTERNALSYM IID_ISectionList}
- IID_IMpeg2FilterControl : TGUID = '{7066CCDA-5C09-4e4f-85BC-2A2D6E0E310D}';
- {$EXTERNALSYM IID_IMpeg2FilterControl}
- IID_IMpeg2Stream : TGUID = '{400CC286-32A0-4ce4-9041-39571125A635}';
- {$EXTERNALSYM IID_IMpeg2Stream}
- CLSID_SectionList : TGUID = '{73DA5D04-4347-45d3-A9DC-FAE9DDBE558D}'; // ISectionList
- {$EXTERNALSYM CLSID_SectionList}
- CLSID_Mpeg2Stream : TGUID = '{F91D96C7-8509-4d0b-AB26-A0DD10904BB7}'; // IMpeg2Stream
- {$EXTERNALSYM CLSID_Mpeg2Stream}
- CLSID_Mpeg2Data : TGUID = '{C666E115-BB62-4027-A113-82D643FE2D99}'; // IMpeg2FilterControl (IAtscPsipParser IDvbSiParser Not available in DX9)
- {$NODEFINE CLSID_Mpeg2Data}
- type
- ////////////////////////////////////
- //
- // IMpeg2Data Interface
- //
- ////////////////////////////////////
- ISectionList = interface;
- IMpeg2Stream = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IMpeg2Data> _di_IMpeg2Data;'}
- {$EXTERNALSYM IMpeg2Data}
- IMpeg2Data = interface(IUnknown)
- ['{9B396D40-F380-4e3c-A514-1A82BF6EBFE6}']
- (*** IMpeg2Data methods ***)
- function GetSection(pid: PID; tid: TID; pFilter: PMPEG2_FILTER {OPTIONAL};
- dwTimeout: DWORD; out ppSectionList: ISectionList): HResult; stdcall;
- function GetTable(pid: PID; tid: TID; pFilter: PMPEG2_FILTER {OPTIONAL};
- dwTimeout: DWORD; out ppSectionList: ISectionList): HResult; stdcall;
- function GetStreamOfSections(pid: PID; tid: TID; pFilter: PMPEG2_FILTER {OPTIONAL};
- hDataReadyEvent: THandle; out ppMpegStream: IMpeg2Stream): HResult; stdcall;
- end;
- ////////////////////////////////////
- //
- // ISectionList Interface
- //
- ////////////////////////////////////
- {$HPPEMIT 'typedef System::DelphiInterface<ISectionList> _di_ISectionList;'}
- {$EXTERNALSYM ISectionList}
- ISectionList = interface(IUnknown)
- ['{AFEC1EB5-2A64-46c6-BF4B-AE3CCB6AFDB0}']
- (*** ISectionList methods ***)
- function Initialize(requestType: TMPEGRequestType; pMpeg2Data: IMpeg2Data;
- pContext: PMPEG_CONTEXT; pid: PID; tid: TID; pFilter: PMPEG2_FILTER {OPTIONAL};
- timeout: DWORD; hDoneEvent: THandle {OPTIONAL}): HResult; stdcall;
- function InitializeWithRawSections(pmplSections: PMPEG_PACKET_LIST): HResult; stdcall;
- function CancelPendingRequest: HResult; stdcall;
- function GetNumberOfSections(out pCount: WORD): HResult; stdcall;
- function GetSectionData(sectionNumber: WORD; out pdwRawPacketLength: DWORD;
- out ppSection: PSECTION): HResult; stdcall;
- function GetProgramIdentifier(pPid: PPID): HResult; stdcall;
- function GetTableIdentifier(pTableId: PTID): HResult; stdcall;
- end;
- ////////////////////////////////////
- //
- // IMpeg2FilterControl Interface
- //
- ////////////////////////////////////
- // Defined in DX9 RC0 but removed in RC1 ???
- {$NODEFINE IMpeg2FilterControl}
- IMpeg2FilterControl = interface(IUnknown)
- ['{7066CCDA-5C09-4e4f-85BC-2A2D6E0E310D}']
- (*** IMpeg2FilterControl methods ***)
- function SetFilter(culFilterItems: ULONG; prgFilterCriteria: PMPEGStreamFilter;
- MediaSampleContent: TMediaSampleContent; hEvent: THandle;
- out pClientKey: ClientKey): HResult; stdcall;
- function ClearFilter(clientKey: ClientKey): HResult; stdcall;
- function GetData(pbDataBuffer: PBYTE; dwBufferSize: DWORD;
- out pdwBytesWritten: DWORD; clientKey: ClientKey): HResult;
- end;
- ////////////////////////////////////
- //
- // IMpeg2Stream Interface
- //
- ////////////////////////////////////
- {$HPPEMIT 'typedef System::DelphiInterface<IMpeg2Stream> _di_IMpeg2Stream;'}
- {$EXTERNALSYM IMpeg2Stream}
- IMpeg2Stream = interface(IUnknown)
- ['{400CC286-32A0-4ce4-9041-39571125A635}']
- (*** IMpeg2Stream methods ***)
- function Initialize(requestType: TMPEGRequestType; pMpeg2Data: IMpeg2Data;
- pContext: PMPEG_CONTEXT; pid: PID; tid: TID; pFilter: PMPEG2_FILTER {OPTIONAL};
- hDataReadyEvent: THandle): HResult; stdcall;
- function SupplyDataBuffer(pStreamBuffer: PMPEG_STREAM_BUFFER): HResult; stdcall;
- end;
- /////////////////////////////////////////////////////////////////////////////
- //
- // Copyright (c) Microsoft Corporation. All rights reserved.
- //
- // Module Name:
- //
- // MPEG2Error.h
- //
- // Abstract:
- //
- // Interface specific HResult error codes for MPEG-2 tables.
- //
- /////////////////////////////////////////////////////////////////////////////
- // Interface specific SUCCESS and ERROR macros
- const
- // MPEG-2 base HResult code (must be at least 0x200)
- MPEG2_BASE = Cardinal($200);
- {$EXTERNALSYM MPEG2_BASE}
- // MPEG-2 Success HRESULTs
- MPEG2_S_MORE_DATA_AVAILABLE = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 0));
- {$EXTERNALSYM MPEG2_S_MORE_DATA_AVAILABLE}
- MPEG2_S_NO_MORE_DATA_AVAILABLE = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 1));
- {$EXTERNALSYM MPEG2_S_NO_MORE_DATA_AVAILABLE}
- MPEG2_S_SG_INFO_FOUND = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 2));
- {$EXTERNALSYM MPEG2_S_SG_INFO_FOUND}
- MPEG2_S_SG_INFO_NOT_FOUND = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 3));
- {$EXTERNALSYM MPEG2_S_SG_INFO_NOT_FOUND}
- MPEG2_S_MPE_INFO_FOUND = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 4));
- {$EXTERNALSYM MPEG2_S_MPE_INFO_FOUND}
- MPEG2_S_MPE_INFO_NOT_FOUND = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 5));
- {$EXTERNALSYM MPEG2_S_MPE_INFO_NOT_FOUND}
- MPEG2_S_NEW_MODULE_VERSION = HResult((SEVERITY_SUCCESS shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 6));
- {$EXTERNALSYM MPEG2_S_NEW_MODULE_VERSION}
- // MPEG-2 Error HRESULTs
- MPEG2_E_UNINITIALIZED = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 0));
- {$EXTERNALSYM MPEG2_E_UNINITIALIZED}
- MPEG2_E_ALREADY_INITIALIZED = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 1));
- {$EXTERNALSYM MPEG2_E_ALREADY_INITIALIZED}
- MPEG2_E_OUT_OF_BOUNDS = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 2));
- {$EXTERNALSYM MPEG2_E_OUT_OF_BOUNDS}
- MPEG2_E_MALFORMED_TABLE = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 3));
- {$EXTERNALSYM MPEG2_E_MALFORMED_TABLE}
- MPEG2_E_UNDEFINED = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 4));
- {$EXTERNALSYM MPEG2_E_UNDEFINED}
- MPEG2_E_NOT_PRESENT = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 5));
- {$EXTERNALSYM MPEG2_E_NOT_PRESENT}
- MPEG2_E_SECTION_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 6));
- {$EXTERNALSYM MPEG2_E_SECTION_NOT_FOUND}
- MPEG2_E_TX_STREAM_UNAVAILABLE = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 7));
- {$EXTERNALSYM MPEG2_E_TX_STREAM_UNAVAILABLE}
- MPEG2_E_SERVICE_ID_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 8));
- {$EXTERNALSYM MPEG2_E_SERVICE_ID_NOT_FOUND}
- MPEG2_E_SERVICE_PMT_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 9));
- {$EXTERNALSYM MPEG2_E_SERVICE_PMT_NOT_FOUND}
- MPEG2_E_DSI_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 10));
- {$EXTERNALSYM MPEG2_E_DSI_NOT_FOUND}
- MPEG2_E_SERVER_UNAVAILABLE = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 11));
- {$EXTERNALSYM MPEG2_E_SERVER_UNAVAILABLE}
- MPEG2_E_INVALID_CAROUSEL_ID = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 12));
- {$EXTERNALSYM MPEG2_E_INVALID_CAROUSEL_ID}
- MPEG2_E_MALFORMED_DSMCC_MESSAGE = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 13));
- {$EXTERNALSYM MPEG2_E_MALFORMED_DSMCC_MESSAGE}
- MPEG2_E_INVALID_SG_OBJECT_KIND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 14));
- {$EXTERNALSYM MPEG2_E_INVALID_SG_OBJECT_KIND}
- MPEG2_E_OBJECT_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 15));
- {$EXTERNALSYM MPEG2_E_OBJECT_NOT_FOUND}
- MPEG2_E_OBJECT_KIND_NOT_A_DIRECTORY = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 16));
- {$EXTERNALSYM MPEG2_E_OBJECT_KIND_NOT_A_DIRECTORY}
- MPEG2_E_OBJECT_KIND_NOT_A_FILE = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 17));
- {$EXTERNALSYM MPEG2_E_OBJECT_KIND_NOT_A_FILE}
- MPEG2_E_FILE_OFFSET_TOO_BIG = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 18));
- {$EXTERNALSYM MPEG2_E_FILE_OFFSET_TOO_BIG}
- MPEG2_E_STREAM_STOPPED = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 19));
- {$EXTERNALSYM MPEG2_E_STREAM_STOPPED}
- MPEG2_E_REGISTRY_ACCESS_FAILED = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 20));
- {$EXTERNALSYM MPEG2_E_REGISTRY_ACCESS_FAILED}
- MPEG2_E_INVALID_UDP_PORT = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 21));
- {$EXTERNALSYM MPEG2_E_INVALID_UDP_PORT}
- MPEG2_E_DATA_SOURCE_FAILED = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 22));
- {$EXTERNALSYM MPEG2_E_DATA_SOURCE_FAILED}
- MPEG2_E_DII_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 23));
- {$EXTERNALSYM MPEG2_E_DII_NOT_FOUND}
- MPEG2_E_DSHOW_PIN_NOT_FOUND = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 24));
- {$EXTERNALSYM MPEG2_E_DSHOW_PIN_NOT_FOUND}
- MPEG2_E_BUFFER_TOO_SMALL = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 25));
- {$EXTERNALSYM MPEG2_E_BUFFER_TOO_SMALL}
- MPEG2_E_MISSING_SECTIONS = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 26));
- {$EXTERNALSYM MPEG2_E_MISSING_SECTIONS}
- MPEG2_E_TOO_MANY_SECTIONS = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 27));
- {$EXTERNALSYM MPEG2_E_TOO_MANY_SECTIONS}
- MPEG2_E_NEXT_TABLE_OPS_NOT_AVAILABLE = HResult((SEVERITY_ERROR shl 31) or (FACILITY_ITF shl 16) or (MPEG2_BASE + 28));
- {$EXTERNALSYM MPEG2_E_NEXT_TABLE_OPS_NOT_AVAILABLE}
- ////////////////////////////////////////////////////////////////////////////////
- // Copyright (C) Microsoft Corporation, 1998 - 1999
- //
- // Module Name:
- // EDevCtrl.h
- //
- // Abstract:
- // This header contain structures and peroperty sets for
- // interfacing to an external device, like a DV.
- // The code is modeled after DirectShow's Vcrctrl Sample
- // (VCR Control Filter). It contain IAMExtDevice,
- // IAMExtTransport, and IAMTimecodeReader interfaces, and
- // a new interface IAMAdvancedAVControl() is added
- // for additional advanced device controls.
- //
- // Note: (From DShow DDK)
- // The VCR control sample filter, Vcrctrl, is a simple
- // implementation of the external device control interfaces
- // that DirectShow provides. Vcrctrl provides basic transport
- // control and SMPTE timecode-reading capabilities for certain
- // Betacam and SVHS videocassette recorders with RS-422 or RS-232
- // serial interfaces (see source code for specific machine types
- // supported).
- //
- // Note: some methods in IAM* interfaces may not be
- // used and will return not implemented.
- //
- // Created:
- // September 23, 1998
- // Yee J. Wu
- //
- // Revision: 0.6
- //
- ////////////////////////////////////////////////////////////////////////////////
- type
- // Device Capabilities
- tagDEVCAPS = record
- CanRecord : LongInt;
- CanRecordStrobe : LongInt;
- HasAudio : LongInt;
- HasVideo : LongInt;
- UsesFiles : LongInt;
- CanSave : LongInt;
- DeviceType : LongInt;
- TCRead : LongInt;
- TCWrite : LongInt;
- CTLRead : LongInt;
- IndexRead : LongInt;
- Preroll : LongInt;
- Postroll : LongInt;
- SyncAcc : LongInt;
- NormRate : LongInt;
- CanPreview : LongInt;
- CanMonitorSrc : LongInt;
- CanTest : LongInt;
- VideoIn : LongInt;
- AudioIn : LongInt;
- Calibrate : LongInt;
- SeekType : LongInt;
- SimulatedHardware : LongInt; // private
- end;
- {$EXTERNALSYM tagDEVCAPS}
- DEVCAPS = tagDEVCAPS;
- {$EXTERNALSYM DEVCAPS}
- PDEVCAPS = ^DEVCAPS;
- {$EXTERNALSYM PDEVCAPS}
- TDevCaps = tagDEVCAPS;
- // transport status
- tagTRANSPORTSTATUS = record
- Mode : LongInt;
- LastError : LongInt;
- RecordInhibit : LongInt;
- ServoLock : LongInt;
- MediaPresent : LongInt;
- MediaLength : LongInt;
- MediaSize : LongInt;
- MediaTrackCount : LongInt;
- MediaTrackLength : LongInt;
- MediaTrackSide : LongInt;
- MediaType : LongInt;
- LinkMode : LongInt;
- NotifyOn : LongInt;
- end;
- {$EXTERNALSYM tagTRANSPORTSTATUS}
- TRANSPORTSTATUS = tagTRANSPORTSTATUS;
- {$EXTERNALSYM TRANSPORTSTATUS}
- PTRANSPORTSTATUS = ^TRANSPORTSTATUS;
- {$EXTERNALSYM PTRANSPORTSTATUS}
- TTransportStatus = tagTRANSPORTSTATUS;
- // transport basic parameters
- tagTRANSPORTBASICPARMS = record
- TimeFormat : LongInt;
- TimeReference : LongInt;
- Superimpose : LongInt;
- EndStopAction : LongInt;
- RecordFormat : LongInt;
- StepFrames : LongInt;
- SetpField : LongInt;
- Preroll : LongInt;
- RecPreroll : LongInt;
- Postroll : LongInt;
- EditDelay : LongInt;
- PlayTCDelay : LongInt;
- RecTCDelay : LongInt;
- EditField : LongInt;
- FrameServo : LongInt;
- ColorFrameServo : LongInt;
- ServoRef : LongInt;
- WarnGenlock : LongInt;
- SetTracking : LongInt;
- VolumeName: array[0..39] of Char;
- Ballistic: array[0..19] of LongInt;
- Speed : LongInt;
- CounterFormat : LongInt;
- TunerChannel : LongInt;
- TunerNumber : LongInt;
- TimerEvent : LongInt;
- TimerStartDay : LongInt;
- TimerStartTime : LongInt;
- TimerStopDay : LongInt;
- TimerStopTime : LongInt;
- end;
- {$EXTERNALSYM tagTRANSPORTBASICPARMS}
- TRANSPORTBASICPARMS = tagTRANSPORTBASICPARMS;
- {$EXTERNALSYM TRANSPORTBASICPARMS}
- PTRANSPORTBASICPARMS = ^TRANSPORTBASICPARMS;
- {$EXTERNALSYM PTRANSPORTBASICPARMS}
- TTransportBasicParms = tagTRANSPORTBASICPARMS;
- // transport video parameters
- tagTRANSPORTVIDEOPARMS = record
- OutputMode : LongInt;
- Input : LongInt;
- end;
- {$EXTERNALSYM tagTRANSPORTVIDEOPARMS}
- TRANSPORTVIDEOPARMS = tagTRANSPORTVIDEOPARMS;
- {$EXTERNALSYM TRANSPORTVIDEOPARMS}
- PTRANSPORTVIDEOPARMS = ^TRANSPORTVIDEOPARMS;
- {$EXTERNALSYM PTRANSPORTVIDEOPARMS}
- TTransportVideoParms = tagTRANSPORTVIDEOPARMS;
- // transport audio parameters
- tagTRANSPORTAUDIOPARMS = record
- EnableOutput : LongInt;
- EnableRecord : LongInt;
- EnableSelsync : LongInt;
- Input : LongInt;
- MonitorSource : LongInt;
- end;
- {$EXTERNALSYM tagTRANSPORTAUDIOPARMS}
- TRANSPORTAUDIOPARMS = tagTRANSPORTAUDIOPARMS;
- {$EXTERNALSYM TRANSPORTAUDIOPARMS}
- PTRANSPORTAUDIOPARMS = ^TRANSPORTAUDIOPARMS;
- {$EXTERNALSYM PTRANSPORTAUDIOPARMS}
- TTransportAudioParms = tagTRANSPORTAUDIOPARMS;
- // low level machine status structure filled in after
- // REQUEST_STATUS command from above. This structure would
- // grow in a full implementation
- tagVCRSTATUS = record
- bCassetteOut : BOOL; // OATRUE means no cassette
- bLocal : BOOL; // OATRUE means front panel switch in local
- end;
- {$NODEFINE tagVCRSTATUS}
- VCRSTATUS = tagVCRSTATUS;
- {$NODEFINE VCRSTATUS}
- PVCRSTATUS = ^VCRSTATUS;
- {$NODEFINE PVCRSTATUS}
- TVCRStatus = tagVCRSTATUS;
- {$NODEFINE TVCRStatus}
- //---------------------------------------------------------
- // STATIC_PROPSETID_VIDCAP_EXT_DEVICE
- //---------------------------------------------------------
- // This guid and interface is defined in strmif.h
- const
- PROPSETID_EXT_DEVICE : TGUID = '{B5730A90-1A2C-11cf-8C23-00AA006B6814}';
- {$EXTERNALSYM PROPSETID_EXT_DEVICE}
- type
- // KS properties and structure for this interface
- KSPROPERTY_EXTDEVICE = (
- KSPROPERTY_EXTDEVICE_ID, // ID (such as Symbolic Lin) that can uniquely idenfy this device
- KSPROPERTY_EXTDEVICE_VERSION, // Device model number and version (such AV/C VCR Subunit Spec. 2.01)
- KSPROPERTY_EXTDEVICE_POWER_STATE, // Return current device power state.
- KSPROPERTY_EXTDEVICE_PORT, // Can use this to return DEV_PORT_1394
- KSPROPERTY_EXTDEVICE_CAPABILITIES // Device specific capabilities
- );
- {$EXTERNALSYM KSPROPERTY_EXTDEVICE}
- TKSPropertyExtDevice = KSPROPERTY_EXTDEVICE;
- PKSPropertyExtDeviceS = ^TKSPropertyExtDeviceS;
- KSPROPERTY_EXTDEVICE_S = record
- Property_ : KSPROPERTY;
- // Client is responsible for allocating this.
- case byte of
- 0: (Capabilities: TDEVCAPS);
- 1: (DevPort: ULONG);
- 2: (PowerState: ULONG);
- 3: (pawchString: array[0..MAX_PATH-1] of WideChar);
- 4: (NodeUniqueID: array[0..1] of DWORD);
- end;
- {$EXTERNALSYM KSPROPERTY_EXTDEVICE_S}
- PKSPROPERTY_EXTDEVICE_S = ^KSPROPERTY_EXTDEVICE_S;
- {$EXTERNALSYM PKSPROPERTY_EXTDEVICE_S}
- TKSPropertyExtDeviceS = KSPROPERTY_EXTDEVICE_S;
- //---------------------------------------------------------
- // STATIC_PROPSETID_VIDCAP_EXT_TRANSPORT
- //---------------------------------------------------------
- const
- // This guid and interface is defined in strmif.h
- PROPSETID_EXT_TRANSPORT : TGUID = '{A03CD5F0-3045-11cf-8C44-00AA006B6814}';
- {$EXTERNALSYM PROPSETID_EXT_TRANSPORT}
- type
- // KS properties and structure for this interface
- KSPROPERTY_EXTXPORT = (
- KSPROPERTY_EXTXPORT_CAPABILITIES, // Transport specific capability
- KSPROPERTY_EXTXPORT_INPUT_SIGNAL_MODE, // MPEG, D-VHS, Analog VHS etc.
- KSPROPERTY_EXTXPORT_OUTPUT_SIGNAL_MODE, // MPEG, D-VHS, Analog VHS etc.
- KSPROPERTY_EXTXPORT_LOAD_MEDIUM, // Eject, open tray, close tray
- KSPROPERTY_EXTXPORT_MEDIUM_INFO, // cassettte_type and tape_grade_and_write_protect
- KSPROPERTY_EXTXPORT_STATE, // Get/Set transport mode and state
- KSPROPERTY_EXTXPORT_STATE_NOTIFY, // NOTIFY: Mode + State (Table 4-8)
- KSPROPERTY_EXTXPORT_TIMECODE_SEARCH, // Request VCR subunit to search for a specific timecode on the medium
- KSPROPERTY_EXTXPORT_ATN_SEARCH, // Request VCR subunit to search for a specific ATN on the medium
- KSPROPERTY_EXTXPORT_RTC_SEARCH, // Request VCR subunit to search for a specific RelativeTimeCounter on the medium
- // Implemented for testing purpose
- // Will remove this later...
- KSPROPERTY_RAW_AVC_CMD // Send/Rcv raw AVC commnad with a FCP packet.
- );
- {$EXTERNALSYM KSPROPERTY_EXTXPORT}
- TKSPropertyExtXPort = KSPROPERTY_EXTXPORT;
- PMediumInfo = ^TMediumInfo;
- MEDIUM_INFO = record
- MediaPresent : BOOL; // TRUE/FALSE
- MediaType : ULONG; // DVCR standard, small, medium; VHS; VHS-C; unknown
- RecordInhibit : BOOL; // TRUE/FALSE
- end;
- {$EXTERNALSYM MEDIUM_INFO}
- PMEDIUM_INFO = ^MEDIUM_INFO;
- {$EXTERNALSYM PMEDIUM_INFO}
- TMediumInfo = MEDIUM_INFO;
- PTransportState = ^TTransportState;
- TRANSPORT_STATE = record
- Mode : ULONG; // LOAD MEDIUM, RECORD, PLAY or WIND
- State : ULONG; // Vary depend on mode (Table 4-8)
- end;
- {$EXTERNALSYM TRANSPORT_STATE}
- PTRANSPORT_STATE = ^TRANSPORT_STATE;
- {$EXTERNALSYM PTRANSPORT_STATE}
- TTransportState = TRANSPORT_STATE;
- PKSPropertyExtXPortS = ^TKSPropertyExtXPortS;
- KSPROPERTY_EXTXPORT_S = record
- Property_: KSPROPERTY;
- case byte of
- 0: (Capabilities: ULONG); // May need to expand on the existing structure
- 1: (SignalMode: ULONG); // May need to expand on the existing structure
- 2: (LoadMedium: ULONG); // MPEG, D-VHS, Analog VHS etc.
- 3: (MediumInfo: TMediumInfo); // Eject, open tray, close tray
- 4: (XPrtState: TTransportState);
- 5: (Timecode: record
- frame : BYTE;
- second : BYTE;
- minute : BYTE;
- hour : BYTE;
- end;
- );
- 6: (dwTimecode: DWORD); // hour:minute:second:frame
- 7: (dwAbsTrackNumber: DWORD); // absolute track number
- // Implemented for testing purpose
- // Will remove this later or will keep this for
- // packet specific command.
- 8: (RawAVC: record
- PayloadSize : ULONG;
- Payload : array[0..511] of BYTE; // This is only for testing sending AVC command from User mode.
- end;);
- end;
- {$EXTERNALSYM KSPROPERTY_EXTXPORT_S}
- PKSPROPERTY_EXTXPORT_S = ^KSPROPERTY_EXTXPORT_S;
- {$EXTERNALSYM PKSPROPERTY_EXTXPORT_S}
- TKSPropertyExtXPortS = KSPROPERTY_EXTXPORT_S;
- PKSPropertyExtxportNodeS = ^TKSPropertyExtxportNodeS;
- KSPROPERTY_EXTXPORT_NODE_S = packed record
- NodeProperty: KSP_NODE;
- case byte of
- 0: (Capabilities: ULONG);
- 1: (SignalMode: ULONG);
- 2: (LoadMedium: ULONG);
- 3: (MediumInfo: MEDIUM_INFO);
- 4: (XPrtState: TRANSPORT_STATE);
- 5: (Timecode: record
- frame: byte;
- second: byte;
- minute: byte;
- hour: byte;
- end);
- 6: (dwTimecode: DWORD);
- 7: (dwAbsTrackNumber: DWORD);
- 8: (RawAVC: record
- PayloadSize: ULONG;
- Payload: array[0..511] of byte;
- end);
- end;
- {$EXTERNALSYM KSPROPERTY_EXTXPORT_NODE_S}
- PKSPROPERTY_EXTXPORT_NODE_S = KSPROPERTY_EXTXPORT_NODE_S;
- {$EXTERNALSYM PKSPROPERTY_EXTXPORT_NODE_S}
- TKSPropertyExtxportNodeS = KSPROPERTY_EXTXPORT_NODE_S;
- //---------------------------------------------------------
- // PROPSETID_TIMECODE
- //---------------------------------------------------------
- // This guid and interface is defined in strmif.h
- const
- PROPSETID_TIMECODE_READER : TGUID = '{9B496CE1-811B-11cf-8C77-00AA006B6814}';
- {$EXTERNALSYM PROPSETID_TIMECODE_READER}
- type
- // KS properties and structure for this interface
- KSPROPERTY_TIMECODE = (
- KSPROPERTY_TIMECODE_READER, // Timecode for the current medium position
- KSPROPERTY_ATN_READER, // Absolute track number the current medium position
- KSPROPERTY_RTC_READER // Relative time counter for the current medium position
- );
- {$EXTERNALSYM KSPROPERTY_TIMECODE}
- TKSPropertyTimeCode = KSPROPERTY_TIMECODE;
- KSPROPERTY_TIMECODE_S = record
- Property_: KSPROPERTY;
- TimecodeSamp: TTimeCodeSample;
- end;
- {$EXTERNALSYM KSPROPERTY_TIMECODE_S}
- PKSPROPERTY_TIMECODE_S = ^KSPROPERTY_TIMECODE_S;
- {$EXTERNALSYM PKSPROPERTY_TIMECODE_S}
- TKSPropertyTimeCodeS = KSPROPERTY_TIMECODE_S;
- PKSPropertyTimecodeNodeS = ^TKSPropertyTimecodeNodeS;
- KSPROPERTY_TIMECODE_NODE_S = packed record
- NodeProperty: KSP_NODE;
- TimecodeSamp: TIMECODE_SAMPLE;
- end;
- {$EXTERNALSYM KSPROPERTY_TIMECODE_NODE_S}
- PKSPROPERTY_TIMECODE_NODE_S = ^KSPROPERTY_TIMECODE_NODE_S;
- {$EXTERNALSYM PKSPROPERTY_TIMECODE_NODE_S}
- TKSPropertyTimecodeNodeS = PKSPROPERTY_TIMECODE_NODE_S;
- //---------------------------------------------------------
- // External Device Command event notification
- //---------------------------------------------------------
- const
- KSEVENTSETID_EXTDEV_Command : TGUID = '{109c7988-b3cb-11d2-b48e-006097b3391b}';
- {$EXTERNALSYM KSEVENTSETID_EXTDEV_Command}
- type
- KSEVENT_DEVCMD = (
- KSEVENT_EXTDEV_COMMAND_NOTIFY_INTERIM_READY,
- KSEVENT_EXTDEV_COMMAND_CONTROL_INTERIM_READY,
- KSEVENT_EXTDEV_COMMAND_BUSRESET,
- KSEVENT_EXTDEV_TIMECODE_UPDATE,
- KSEVENT_EXTDEV_OPERATION_MODE_UPDATE, // Notify mode of operation change (VCR,OFF,Camera)
- KSEVENT_EXTDEV_TRANSPORT_STATE_UPDATE, // XPrt state change
- KSEVENT_EXTDEV_NOTIFY_REMOVAL, // Notify device removal
- KSEVENT_EXTDEV_NOTIFY_MEDIUM_CHANGE // Notify medium (tape) is removed or added
- );
- {$EXTERNALSYM KSEVENT_DEVCMD}
- TKSEventDevCmd = KSEVENT_DEVCMD;
-
- ////////////////////////////////////////////////////////////////////////////////
- // Copyright (c) 2002 Microsoft Corporation
- //
- // Module Name:
- //
- // sbe.idl
- //
- // Abstract:
- //
- // This module the StreamBuffer interface definitions & CLSIDs, public
- //
- ////////////////////////////////////////////////////////////////////////////////
- const
- IID_IStreamBufferSink : TGUID = '{afd1f242-7efd-45ee-ba4e-407a25c9a77a}'; // get recording objects
- {$EXTERNALSYM IID_IStreamBufferSink}
- IID_IStreamBufferSource : TGUID = '{1c5bd776-6ced-4f44-8164-5eab0e98db12}'; // associates with IStreamBufferSink
- {$EXTERNALSYM IID_IStreamBufferSource}
- IID_IStreamBufferRecordControl : TGUID = '{ba9b6c99-f3c7-4ff2-92db-cfdd4851bf31}'; // recording control
- {$EXTERNALSYM IID_IStreamBufferRecordControl}
- IID_IStreamBufferRecComp : TGUID = '{9E259A9B-8815-42ae-B09F-221970B154FD}';
- {$EXTERNALSYM IID_IStreamBufferRecComp}
- IID_IStreamBufferRecordingAttribute : TGUID = '{16CA4E03-FE69-4705-BD41-5B7DFC0C95F3}'; // StreamBuffer attribute creation
- {$EXTERNALSYM IID_IStreamBufferRecordingAttribute}
- IID_IEnumStreamBufferRecordingAttrib : TGUID = '{C18A9162-1E82-4142-8C73-5690FA62FE33}'; // StreamBuffer attribute enumeration
- {$EXTERNALSYM IID_IEnumStreamBufferRecordingAttrib}
- IID_IStreamBufferConfigure : TGUID = '{ce14dfae-4098-4af7-bbf7-d6511f835414}'; // configuration interface
- {$EXTERNALSYM IID_IStreamBufferConfigure}
- IID_IStreamBufferMediaSeeking : TGUID = '{f61f5c26-863d-4afa-b0ba-2f81dc978596}'; // IMediaSeeking but with different GUID
- {$EXTERNALSYM IID_IStreamBufferMediaSeeking}
- IID_IStreamBufferInitialize : TGUID = '{9ce50f2d-6ba7-40fb-a034-50b1a674ec78}'; // allows 3rd party app to set HKEY
- {$EXTERNALSYM IID_IStreamBufferInitialize}
- // ??? IID_IStreamBufferPolicy : TGUID = '{}'; // StreamBuffer policies
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferInitialize> _di_IStreamBufferInitialize;'}
- {$EXTERNALSYM IStreamBufferInitialize}
- IStreamBufferInitialize = interface(IUnknown)
- ['{9ce50f2d-6ba7-40fb-a034-50b1a674ec78}']
- (*** IStreamBufferInitialize methods ***)
- // Implemented on StreamBufferStreamSink and StreamBufferSource filters.
- // Gives a hosting application the ability to specify HKEY root in
- // registry. This method must called **early**: after the filter is
- // instantiated, but before StreamBufferSource is locked (explicitly or
- // implicitely) if calling the method on StreamBufferSource, or before
- // a source is set (via IStreamBufferSource or IFileSourceFilter) if
- // calling the method on StreamBufferStreamSource. If a call is made
- // after either filter has been initialized internally, the call will
- // fail with E_UNEXPECTED. The hosting application is responsible for
- // ensuring that the HKEY passed in is writable & readable per the
- // logged-on user privileges. The HKEY is duplicated internally,
- // so the caller can close it after making this call.
- function SetHKEY(hkeyRoot: HKEY): HResult; stdcall;
- // Implemented on StreamBufferStreamSink and StreamBufferSource filters.
- // Provides a way for the hosting application to specify security-level
- // sharing between capture and render processes and contexts. By
- // default security attributes are inherited from the hosting process,
- // unless the application overrides the defaults and provides them via
- // this method.
- function SetSIDs(cSIDs: DWORD; var ppSID: PSID): HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferSink
- //
- // Stream Source interface;
- // implemented on the StreamBufferSink filter;
- // Only way to get a recorder object's IUnknown (object will subsequently
- // be associated with this Sink)
- const
- RECORDING_TYPE_CONTENT = 0; // no post-recording or overlapped
- {$EXTERNALSYM RECORDING_TYPE_CONTENT}
- RECORDING_TYPE_REFERENCE = 1; // allows post-recording & overlapped
- {$EXTERNALSYM RECORDING_TYPE_REFERENCE}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferSink> _di_IStreamBufferSink;'}
- {$EXTERNALSYM IStreamBufferSink}
- IStreamBufferSink = interface(IUnknown)
- ['{afd1f242-7efd-45ee-ba4e-407a25c9a77a}']
- (*** IStreamBufferSink methods ***)
- // 1. Locks the profile;
- // 2. No *new* input pin connections will be accepted;
- // 3. Existing pins that are, or have ever been, connected can be
- // reconnected if the media type is exactly the same as the first
- // successful connection;
- // 4. Can be called multiple times safely with NULL parameter, but only
- // once with non-NULL parameter; returns E_UNEXPECTED if called more
- // than once with non-NULL param, or after the hosting filter has run;
- // 5. Must be called before the filter that implements this interface is
- // ever run; when it is run, it locks implicitely and this method has
- // no effect if called with NULL parameters, or fails if called with
- // non-NULL parameter for the reasons listed above;
- // 6. Errors with VFW_E_UNSUPPORTED_STREAM if there are no streams in the
- // profile;
- // Parameter Detail
- // ----------------
- //
- // pszStreamBufferFilename
- //
- // Is a NULL-terminated filename string. If the content written by
- // this sink is to be shared cross-process, this parameter specifies a
- // filename that will be opened by any reader(s) to read & render the
- // content sent into the sink.
- //
- // Can be NULL (not specified)
- //
- // Must be a full-path filename; if no path is specified, the file is
- // created in a "current" directory
- //
- // If the file already exists, the call fails
- //
- // Is opened with DELETE_ON_CLOSE flag, so is automatically deleted
- // when the sink is unlocked, or when the hosting process terminates
- function LockProfile(pszStreamBufferFilename: PWideChar): HResult; stdcall;
- // 1. Returns a *new* recorder object's IUnknown;
- // 2. Caller can call QueryInterface() on the returned pointer to get
- // interface pointers to configure & control the recording;
- // 3. Returned IUnknown pointer is ref'd & must be Release()'d by the
- // caller
- // 4. IStreamBufferSink interface must have been locked (explicitely or
- // implicitely) prior to call
- //
- // To create an ordinary recording, specify RECORDING_TYPE_CONTENT for the
- // dwRecordType parammeter. This will record the content directly into
- // the specified file. These recording types only accept start and stop
- // times that occur in the future.
- //
- // A recording of type RECORDING_TYPE_REFERENCE generates a small file
- // that references content saved in temporary storage. Recordings of this
- // type can have start and stop times that occurs in the past, and can
- // overlap other same-type recordings.
- //
- // Reference recording *content* will be saved in the same subdirectory as
- // the specified reference file, but with hidden and system attributes.
- // The naming convention of the files will append a _1.sbe, _2.sbe, etc...
- // to the filename (minus extension) specified in the call e.g. a
- // "seinfeld01.sbe" reference file will have saved content in hidden
- // and system files "seinfeld01_1.sbe", "seinfeld01_2.sbe", etc...
- function CreateRecorder(pszFilename: PWideChar; dwRecordType: DWORD; // RECORDING_TYPE_CONTENT or RECORDING_TYPE_REFERENCE
- out pRecordingIUnknown: IUnknown): HResult; stdcall;
- // 1. Returns S_OK if the profile is locked and S_FALSE if it is not.
- // 2. Returns E_FAIL on error.
- function IsProfileLocked: HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferSource ()
- //
- // Stream Source reader interface;
- // Implemented on the StreamBufferSource filter;
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferSource> _di_IStreamBufferSource;'}
- {$EXTERNALSYM IStreamBufferSource}
- IStreamBufferSource = interface(IUnknown)
- ['{1c5bd776-6ced-4f44-8164-5eab0e98db12}']
- (*** IStreamBufferSource methods ***)
- //------------------------------------------------------------------------
- // SetStreamSink ()
- //
- // 1. Sets the StreamBuffer Sink that streams from this Source;
- // 2. IStreamBufferSink object must be in the same process as this object;
- // 3. Interface is AddRef()'d if the call succeeds;
- //
- // Parameter Detail
- // ----------------
- //
- // pIStreamBufferSink
- // Sink that will stream to this Source
- function SetStreamSink(pIStreamBufferSink: IStreamBufferSink): HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferRecordControl
- //
- // obtained by QIing IStreamBufferSink::CreateRecorder()-returned IUnknown *
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferRecordControl> _di_IStreamBufferRecordControl;'}
- {$EXTERNALSYM IStreamBufferRecordControl}
- IStreamBufferRecordControl = interface(IUnknown)
- ['{ba9b6c99-f3c7-4ff2-92db-cfdd4851bf31}']
- (*** IStreamBufferRecordControl methods ***)
- // 1. Starts a recording;
- // 2. Will save to the filename that is specified when this interface's
- // IUnknown is requested (IStreamBufferSink::CreateRecorder());
- //
- // Parameter Detail
- // ----------------
- //
- // rtStart
- //
- // Start time relative to "now;
- //
- // If the recording type is a content recording, can only refer to
- // seconds in the future; allowed seconds are [0,5]
- //
- // If the recording type is a reference recording, can refer to any
- // time that still has valid content i.e. content that has not yet
- // become stale
- //
- // If the recording is a reference recording and (* prtStart) is
- // earlier than the earliest still-valid content, the call will reset
- // it to the earliest content; the value when the recording was
- // actually started will be [out]
- function Start(prtStart: PReferenceTime): HResult; stdcall;
- // 1. Stops a recording;
- // 2. Closes out the file;
- //
- // Parameter Detail
- // ----------------
- //
- // rtStart
- //
- // Stop time relative to "now;
- //
- // If the recording type is a content recording, can only refer to
- // seconds in the future; allowed seconds are [0,5]
- //
- // If the recording type is a reference recording, can refer to any
- // time that still has valid content i.e. content that has not yet
- // become stale; stop time cannot be <= start time
- function Stop(rtStop: TReferenceTime): HResult; stdcall;
- // 1. Retrieves the status of the recording
- //
- // Parameter Detail
- // ----------------
- //
- // phResult
- //
- // The (current) status of writing or closing the recording file;
- //
- // Can be NULL;
- //
- // pbStarted
- //
- // If supplied, set to a non-zero value if the recording has been
- // started
- //
- // Can be NULL;
- //
- // pbStopped
- //
- // If supplied, set to a non-zero value if the recording has been
- // stopped;
- //
- // Can be NULL;
- //
- // NOTE: If the recording has never been started, it will not be flagged
- // as stopped.
- function GetRecordingStatus(phResult: PHRESULT; pbStarted, pbStopped: PBOOL): HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferRecComp
- //
- // CoCreateInstance CLSID_StreamBufferComposeRecording and QueryInterface for
- // this interface; this interface allows the creation of a single target
- // content recording which consists of a number of concatenated recordings
- // (reference or content; can mix & match if desired)
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferRecComp> _di_IStreamBufferRecComp;'}
- {$EXTERNALSYM IStreamBufferRecComp}
- IStreamBufferRecComp = interface(IUnknown)
- ['{9E259A9B-8815-42ae-B09F-221970B154FD}']
- (*** IStreamBufferRecComp methods ***)
- // 1. Initializes for a target recording
- //
- // Parameter Detail
- // ----------------
- //
- // pszTargetFilename
- //
- // Sets the target filename
- //
- // Fails if the file already exists
- //
- // pszSBRecProfileRef
- //
- // Must be a completed, SBE-generated recording
- //
- // This recording's profile will be used to define the target profile
- //
- // Appended files must have exactly the same profile
- function Initialize(pszTargetFilename, pszSBRecProfileRef: PWideChar): HResult; stdcall;
- // 1. appends an entire recording
- // 2. fails if the recording is live
- function Append (pszSBRecording: PwideChar): HResult; stdcall;
- // 1. appends the specified portion of the recording; the parameters must
- // be accurate; the call will not readjust them within the boundaries
- // 2. the time spread must be at least 2 seconds
- // 3. fails if the recording is live
- function AppendEx(pszSBRecording: PWideChar; rtStart, rtStop: TReferenceTime): HResult; stdcall;
- // 1. returns the current length of the recording; updates as recordings
- // are appended;
- // 2. can be called repeatedly during a Append() call on another
- // thread;
- function GetCurrentLength(out pcSeconds: DWORD): HResult; stdcall;
- // 1. explicitely closes the recording
- // 2. final release of interface closes the recording as well
- function Close: HResult; stdcall;
- // 1. cancels an in-progress appending operation; has no effect otherwise
- function Cancel: HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferRecordingAttribute
- //
- // obtained by calling QueryInterface on a recorder
- //
- // well-known attributes:
- //
- // NAME DESCRIPTION
- // ------------------- ----------------------------------------------------
- //
- // Title String containing the content title.
- //
- // Author String containing the name of the content author.
- //
- // Description String containing a description of the content.
- //
- // Rating String containing a content rating.
- //
- // Copyright String containing a content copyright message.
- //
- // Duration Quadruple word value containing the playing duration
- // of the file, in 100-nanosecond units.
- //
- // Bitrate Double word value containing the bit rate.
- //
- // Seekable Boolean value; true denoting that the content is
- // seekable.
- //
- // Stridable Boolean value, true denoting that the content is
- // stridable (fast forward and rewind are enabled).
- //
- // Broadcast Boolean value; true denoting that the content is not
- // copyright-protected, and can be broadcast.
- //
- // Use_DRM reserved
- //
- // DRM_Flags reserved
- //
- // DRM_Level reserved
- //
- // Is_Protected reserved
- //
- // Is_Trusted reserved
- //
- // Signature_Name reserved
- //
- // HasAudio Boolean, true denoting the content includes an
- // audio stream.
- //
- // HasImage Boolean, true denoting the content includes a still
- // image stream (such as JPEG images).
- //
- // HasScript Boolean, true denoting the content includes a script
- // stream.
- //
- // HasVideo Boolean, true denoting the content includes a video
- // stream.
- //
- // CurrentBitrate Double word containing the current total bitrate,
- // usually used for MEB (multi-bit rate) streams.
- //
- // OptimalBitrate Double word containing the minimum total bitrate
- // recommended to stream the content and get
- // maximum quality.
- //
- // WM/AlbumTitle String containing the album title.
- //
- // WM/Track Double word containing the track number.
- //
- // WM/PromotionURL String with a URL to an HTML page that contains
- // information about products and events (such as
- // concerts) that are related to this music.
- //
- // WM/AlbumCoverURL String with a URL to an HTML page that contains an
- // image of the album cover and information about
- // the album.
- //
- // WM/Genre String with the genre of the music.
- //
- // WM/Year String with the year of publication of the music.
- //
- // WM/GenreID
- //
- // WM/MCDI
- //
- // BannerImageType One member of the WMT_ATTR_IMAGETYPE enumeration
- // type.
- //
- // BannerImageData The actual image data: a bitmap, JPEG, or GIF image.
- //
- //
- // BannerImageURL If the banner image is clicked on then this URL is
- // activated.
- //
- // CopyrightURL An URL to a copyright page.
- //
- // NSC_Name String containing the multicast station contact
- // name (read-only).
- //
- // NSC_Address String containing the multicast station contact
- // address (read-only).
- //
- // NSC_Phone String containing the multicast station contact
- // phone number (read-only).
- //
- // NSC_Email String containing the multicast station contact
- // email address (read-only).
- //
- // NSC_Description String containing the multicast station contact
- // description (read-only).
- ////////////////////////////////////////////////////////////////
- //
- // List of pre-defined attributes
- const
- g_wszStreamBufferRecordingDuration = WideString('Duration');
- {$EXTERNALSYM g_wszStreamBufferRecordingDuration}
- g_wszStreamBufferRecordingBitrate = WideString('Bitrate');
- {$EXTERNALSYM g_wszStreamBufferRecordingBitrate}
- g_wszStreamBufferRecordingSeekable = WideString('Seekable');
- {$EXTERNALSYM g_wszStreamBufferRecordingSeekable}
- g_wszStreamBufferRecordingStridable = WideString('Stridable');
- {$EXTERNALSYM g_wszStreamBufferRecordingStridable}
- g_wszStreamBufferRecordingBroadcast = WideString('Broadcast');
- {$EXTERNALSYM g_wszStreamBufferRecordingBroadcast}
- g_wszStreamBufferRecordingProtected = WideString('Is_Protected');
- {$EXTERNALSYM g_wszStreamBufferRecordingProtected}
- g_wszStreamBufferRecordingTrusted = WideString('Is_Trusted');
- {$EXTERNALSYM g_wszStreamBufferRecordingTrusted}
- g_wszStreamBufferRecordingSignature_Name = WideString('Signature_Name');
- {$EXTERNALSYM g_wszStreamBufferRecordingSignature_Name}
- g_wszStreamBufferRecordingHasAudio = WideString('HasAudio');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasAudio}
- g_wszStreamBufferRecordingHasImage = WideString('HasImage');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasImage}
- g_wszStreamBufferRecordingHasScript = WideString('HasScript');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasScript}
- g_wszStreamBufferRecordingHasVideo = WideString('HasVideo');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasVideo}
- g_wszStreamBufferRecordingCurrentBitrate = WideString('CurrentBitrate');
- {$EXTERNALSYM g_wszStreamBufferRecordingCurrentBitrate}
- g_wszStreamBufferRecordingOptimalBitrate = WideString('OptimalBitrate');
- {$EXTERNALSYM g_wszStreamBufferRecordingOptimalBitrate}
- g_wszStreamBufferRecordingHasAttachedImages = WideString('HasAttachedImages');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasAttachedImages}
- g_wszStreamBufferRecordingSkipBackward = WideString('Can_Skip_Backward');
- {$EXTERNALSYM g_wszStreamBufferRecordingSkipBackward}
- g_wszStreamBufferRecordingSkipForward = WideString('Can_Skip_Forward');
- {$EXTERNALSYM g_wszStreamBufferRecordingSkipForward}
- g_wszStreamBufferRecordingNumberOfFrames = WideString('NumberOfFrames');
- {$EXTERNALSYM g_wszStreamBufferRecordingNumberOfFrames}
- g_wszStreamBufferRecordingFileSize = WideString('FileSize');
- {$EXTERNALSYM g_wszStreamBufferRecordingFileSize}
- g_wszStreamBufferRecordingHasArbitraryDataStream = WideString('HasArbitraryDataStream');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasArbitraryDataStream}
- g_wszStreamBufferRecordingHasFileTransferStream = WideString('HasFileTransferStream');
- {$EXTERNALSYM g_wszStreamBufferRecordingHasFileTransferStream}
- ////////////////////////////////////////////////////////////////
- //
- // The content description object supports 5 basic attributes.
- g_wszStreamBufferRecordingTitle = WideString('Title');
- {$EXTERNALSYM g_wszStreamBufferRecordingTitle}
- g_wszStreamBufferRecordingAuthor = WideString('Author');
- {$EXTERNALSYM g_wszStreamBufferRecordingAuthor}
- g_wszStreamBufferRecordingDescription = WideString('Description');
- {$EXTERNALSYM g_wszStreamBufferRecordingDescription}
- g_wszStreamBufferRecordingRating = WideString('Rating');
- {$EXTERNALSYM g_wszStreamBufferRecordingRating}
- g_wszStreamBufferRecordingCopyright = WideString('Copyright');
- {$EXTERNALSYM g_wszStreamBufferRecordingCopyright}
- ////////////////////////////////////////////////////////////////
- //
- // These attributes are used to configure DRM using IWMDRMWriter::SetDRMAttribute.
- g_wszStreamBufferRecordingUse_DRM = WideString('Use_DRM');
- {$EXTERNALSYM g_wszStreamBufferRecordingUse_DRM}
- g_wszStreamBufferRecordingDRM_Flags = WideString('DRM_Flags');
- {$EXTERNALSYM g_wszStreamBufferRecordingDRM_Flags}
- g_wszStreamBufferRecordingDRM_Level = WideString('DRM_Level');
- {$EXTERNALSYM g_wszStreamBufferRecordingDRM_Level}
- ////////////////////////////////////////////////////////////////
- //
- // These are the additional attributes defined in the WM attribute
- // namespace that give information about the content.
- g_wszStreamBufferRecordingAlbumTitle = WideString('WM/AlbumTitle');
- {$EXTERNALSYM g_wszStreamBufferRecordingAlbumTitle}
- g_wszStreamBufferRecordingTrack = WideString('WM/Track');
- {$EXTERNALSYM g_wszStreamBufferRecordingTrack}
- g_wszStreamBufferRecordingPromotionURL = WideString('WM/PromotionURL');
- {$EXTERNALSYM g_wszStreamBufferRecordingPromotionURL}
- g_wszStreamBufferRecordingAlbumCoverURL = WideString('WM/AlbumCoverURL');
- {$EXTERNALSYM g_wszStreamBufferRecordingAlbumCoverURL}
- g_wszStreamBufferRecordingGenre = WideString('WM/Genre');
- {$EXTERNALSYM g_wszStreamBufferRecordingGenre}
- g_wszStreamBufferRecordingYear = WideString('WM/Year');
- {$EXTERNALSYM g_wszStreamBufferRecordingYear}
- g_wszStreamBufferRecordingGenreID = WideString('WM/GenreID');
- {$EXTERNALSYM g_wszStreamBufferRecordingGenreID}
- g_wszStreamBufferRecordingMCDI = WideString('WM/MCDI');
- {$EXTERNALSYM g_wszStreamBufferRecordingMCDI}
- g_wszStreamBufferRecordingComposer = WideString('WM/Composer');
- {$EXTERNALSYM g_wszStreamBufferRecordingComposer}
- g_wszStreamBufferRecordingLyrics = WideString('WM/Lyrics');
- {$EXTERNALSYM g_wszStreamBufferRecordingLyrics}
- g_wszStreamBufferRecordingTrackNumber = WideString('WM/TrackNumber');
- {$EXTERNALSYM g_wszStreamBufferRecordingTrackNumber}
- g_wszStreamBufferRecordingToolName = WideString('WM/ToolName');
- {$EXTERNALSYM g_wszStreamBufferRecordingToolName}
- g_wszStreamBufferRecordingToolVersion = WideString('WM/ToolVersion');
- {$EXTERNALSYM g_wszStreamBufferRecordingToolVersion}
- g_wszStreamBufferRecordingIsVBR = WideString('IsVBR');
- {$EXTERNALSYM g_wszStreamBufferRecordingIsVBR}
- // WM/AlbumArtist is a potentially different value than Author
- g_wszStreamBufferRecordingAlbumArtist = WideString('WM/AlbumArtist');
- {$EXTERNALSYM g_wszStreamBufferRecordingAlbumArtist}
- ////////////////////////////////////////////////////////////////
- //
- // These optional attributes may be used to give information
- // about the branding of the content.
- g_wszStreamBufferRecordingBannerImageType = WideString('BannerImageType');
- {$EXTERNALSYM g_wszStreamBufferRecordingBannerImageType}
- g_wszStreamBufferRecordingBannerImageData = WideString('BannerImageData');
- {$EXTERNALSYM g_wszStreamBufferRecordingBannerImageData}
- g_wszStreamBufferRecordingBannerImageURL = WideString('BannerImageURL');
- {$EXTERNALSYM g_wszStreamBufferRecordingBannerImageURL}
- g_wszStreamBufferRecordingCopyrightURL = WideString('CopyrightURL');
- {$EXTERNALSYM g_wszStreamBufferRecordingCopyrightURL}
- ////////////////////////////////////////////////////////////////
- //
- // Optional attributes, used to give information
- // about video stream properties.
- g_wszStreamBufferRecordingAspectRatioX = WideString('AspectRatioX');
- {$EXTERNALSYM g_wszStreamBufferRecordingAspectRatioX}
- g_wszStreamBufferRecordingAspectRatioY = WideString('AspectRatioY');
- {$EXTERNALSYM g_wszStreamBufferRecordingAspectRatioY}
- ////////////////////////////////////////////////////////////////
- //
- // The NSC file supports the following attributes.
- g_wszStreamBufferRecordingNSCName = WideString('NSC_Name');
- {$EXTERNALSYM g_wszStreamBufferRecordingNSCName}
- g_wszStreamBufferRecordingNSCAddress = WideString('NSC_Address');
- {$EXTERNALSYM g_wszStreamBufferRecordingNSCAddress}
- g_wszStreamBufferRecordingNSCPhone = WideString('NSC_Phone');
- {$EXTERNALSYM g_wszStreamBufferRecordingNSCPhone}
- g_wszStreamBufferRecordingNSCEmail = WideString('NSC_Email');
- {$EXTERNALSYM g_wszStreamBufferRecordingNSCEmail}
- g_wszStreamBufferRecordingNSCDescription = WideString('NSC_Description');
- {$EXTERNALSYM g_wszStreamBufferRecordingNSCDescription}
- type
- // StreamBuffer Attribute datatypes;
- STREAMBUFFER_ATTR_DATATYPE = (
- STREAMBUFFER_TYPE_DWORD,
- STREAMBUFFER_TYPE_STRING,
- STREAMBUFFER_TYPE_BINARY,
- STREAMBUFFER_TYPE_BOOL,
- STREAMBUFFER_TYPE_QWORD,
- STREAMBUFFER_TYPE_WORD,
- STREAMBUFFER_TYPE_GUID
- );
- {$EXTERNALSYM STREAMBUFFER_ATTR_DATATYPE}
- TStreamBufferAttrDataType = STREAMBUFFER_ATTR_DATATYPE;
- IEnumStreamBufferRecordingAttrib = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferRecordingAttribute> _di_IStreamBufferRecordingAttribute;'}
- {$EXTERNALSYM IStreamBufferRecordingAttribute}
- IStreamBufferRecordingAttribute = interface(IUnknown)
- ['{16CA4E03-FE69-4705-BD41-5B7DFC0C95F3}']
- (*** IStreamBufferRecordingAttribute methods ***)
- // 1. Sets an attribute on a recording object;
- // 2. Fails if the IStreamBufferRecordControl::Start has already been successfully
- // called;
- // 3. If an attribute of the same name already exists, overwrites the old;
- function SetAttribute(ulReserved: ULONG; pszAttributeName: PWideChar;
- StreamBufferAttributeType: TStreamBufferAttrDataType; pbAttribute: PBYTE;
- cbAttributeLength: WORD): HResult; stdcall;
- // 1. Returns the count of attributes currently set;
- function GetAttributeCount(ulReserved: ULONG; out pcAttributes: WORD): HResult; stdcall;
- // 1. Given a name, returns the attribute data;
- // 2. If the provided buffer is too small, returns VFW_E_BUFFER_OVERFLOW,
- // and (* pcbLength) contains the minimum required length of the buffer
- // 3. To learn the length of the attribute, pass in non-NULL pcbLength,
- // and NULL pbAttribute parameter; [out] value will be the length of
- // the attribute
- function GetAttributeByName(pszAttributeName: PWideChar; pulReserved: PULONG;
- out pStreamBufferAttributeType: TStreamBufferAttrDataType;
- {out} pbAttribute: PBYTE; var pcbLength: WORD): HResult; stdcall;
- // 1. Given an 0-based index, returns the attribute name and data
- // 2. If either buffer is too small, returns VFW_E_BUFFER_OVERFLOW, and
- // (* pcbLength) and (* pcchNameLength) contain the minimum required
- // length of each buffer
- // 3. The length returned by pcchNameLength includes the null-terminator
- // 4. To learn the length of the name & attribute, pass in non-NULL
- // pcchNameLength & pcbLength, and NULL pszAttributeName & pbAttribute
- // parameters; [out] value of the non-NULL parameters will be the
- // lengths of the name and attribute
- function GetAttributeByIndex(wIndex: WORD; pulReserved: PULONG;
- pszAttributeName: PWideChar; var pcchNameLength: WORD; // includes NULL-terminator; in BYTES
- out pStreamBufferAttributeType: TStreamBufferAttrDataType;
- pbAttribute: PBYTE; pcbLength: PWORD): HResult; stdcall;
- // 1. Returns a StreamBuffer attribute enumeration object that snapshots
- // the attributes at time-of-call
- function EnumAttributes(out ppIEnumStreamBufferAttrib: IEnumStreamBufferRecordingAttrib): HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IEnumStreamBufferRecordingAttrib
- //
- // obtained by calling IStreamBufferRecordingAttribute::EnumAttributes, or
- // calling clone on this interface
- PStreamBufferAttribute = ^TStreamBufferAttribute;
- STREAMBUFFER_ATTRIBUTE = record
- pszName : PWideChar; // allocated by callee; freed by caller
- StreamBufferAttributeType : TStreamBufferAttrDataType;
- pbAttribute : PBYTE; // allocated by caller; freed by caller
- cbLength : WORD;
- end;
- {$EXTERNALSYM STREAMBUFFER_ATTRIBUTE}
- TStreamBufferAttribute = STREAMBUFFER_ATTRIBUTE;
- {$HPPEMIT 'typedef System::DelphiInterface<IEnumStreamBufferRecordingAttrib> _di_IEnumStreamBufferRecordingAttrib;'}
- {$EXTERNALSYM IEnumStreamBufferRecordingAttrib}
- IEnumStreamBufferRecordingAttrib = interface(IUnknown)
- ['{C18A9162-1E82-4142-8C73-5690FA62FE33}']
- (*** IEnumStreamBufferRecordingAttrib methods ***)
- function Next(cRequest: ULONG; pStreamBufferAttribute: PStreamBufferAttribute;
- out pcReceived: ULONG): HResult; stdcall;
- function Skip(cRecords: ULONG): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out ppIEnumStreamBufferAttrib: IEnumStreamBufferRecordingAttrib): HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferConfigure
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferConfigure> _di_IStreamBufferConfigure;'}
- {$EXTERNALSYM IStreamBufferConfigure}
- IStreamBufferConfigure = interface(IUnknown)
- ['{ce14dfae-4098-4af7-bbf7-d6511f835414}']
- (*** IStreamBufferConfigure methods ***)
- // 1. Sets the directory where all content is saved, ringbuffer &
- // StreamBuffer;
- // 2. Creates directory if necessary;
- // 3. All TEMP files have hidden+system attributes
- function SetDirectory(pszDirectoryName: PWideChar): HResult; stdcall;
- // 1. Retrieves previously set backing store directory, or default
- // location if none was specified
- function GetDirectory(out ppszDirectoryName: PWideChar): HResult; stdcall;
- // 1. Sets the number of backing files
- // 2. valid values
- //
- // 4 <= min <= 100
- // 6 <= max <= 102
- // min max delta >= 2
- function SetBackingFileCount(dwMin, dwMax: DWORD): HResult; stdcall;
- // 1. Retrieves previously set backing file counts, or defaults if none
- // have have been set
- function GetBackingFileCount(out pdwMin, pdwMax: DWORD): HResult; stdcall;
- // 1. Sets the seconds of content each backing file will hold
- // 2. valid values:
- // dwSeconds >= 15
- function SetBackingFileDuration(dwSeconds: DWORD): HResult; stdcall;
- // 1. Retrieves previously set backing file duration, or default of none
- // is set
- function GetBackingFileDuration(out pdwSeconds: DWORD): HResult; stdcall;
- end;
- // ============================================================================
- // ============================================================================
- // IStreamBufferMediaSeeking
- //
- // Implemented on the StreamBufferSource filter. Used to seek and set the
- // playback rate.
- {$HPPEMIT 'typedef System::DelphiInterface<IStreamBufferMediaSeeking> _di_IStreamBufferMediaSeeking;'}
- {$EXTERNALSYM IStreamBufferMediaSeeking}
- IStreamBufferMediaSeeking = interface(IMediaSeeking)
- ['{f61f5c26-863d-4afa-b0ba-2f81dc978596}']
- (*** IStreamBufferMediaSeeking methods ***)
- // no additional methods have been added
- end;
- // ============================================================================
- // ============================================================================
- // events
- // see evcode.h comment for range
- // stream buffer engine (PVR) 0x0326 - 0x0350 (sbe.idl)
- const
- STREAMBUFFER_EC_BASE = $0326;
- {$EXTERNALSYM STREAMBUFFER_EC_BASE}
- // timehole event
- // param1 = timehole stream offset ms
- // param1 = timehole size ms
- STREAMBUFFER_EC_TIMEHOLE = STREAMBUFFER_EC_BASE;
- {$EXTERNALSYM STREAMBUFFER_EC_TIMEHOLE}
- STREAMBUFFER_EC_STALE_DATA_READ = STREAMBUFFER_EC_TIMEHOLE + 1;
- {$EXTERNALSYM STREAMBUFFER_EC_STALE_DATA_READ}
- STREAMBUFFER_EC_STALE_FILE_DELETED = STREAMBUFFER_EC_STALE_DATA_READ + 1;
- {$EXTERNALSYM STREAMBUFFER_EC_STALE_FILE_DELETED}
- STREAMBUFFER_EC_CONTENT_BECOMING_STALE = STREAMBUFFER_EC_STALE_FILE_DELETED + 1;
- {$EXTERNALSYM STREAMBUFFER_EC_CONTENT_BECOMING_STALE}
- STREAMBUFFER_EC_WRITE_FAILURE = STREAMBUFFER_EC_CONTENT_BECOMING_STALE + 1;
- {$EXTERNALSYM STREAMBUFFER_EC_WRITE_FAILURE}
- // unexpected read failure
- // param1 = HResult failure
- // param2 = undefined
- STREAMBUFFER_EC_READ_FAILURE = STREAMBUFFER_EC_WRITE_FAILURE + 1;
- {$EXTERNALSYM STREAMBUFFER_EC_READ_FAILURE}
- // playback rate change
- // param1 = old_playback_rate * 10000 e.g. 2x is 20000
- // param2 = new_playback_rate * 10000
- STREAMBUFFER_EC_RATE_CHANGED = STREAMBUFFER_EC_READ_FAILURE + 1;
- {$EXTERNALSYM STREAMBUFFER_EC_RATE_CHANGED}
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Public Interfaces for the DX9 Video Mixing Renderer DShow filter
- //
- // Copyright (c) 1999 - 2002, Microsoft Corporation. All rights reserved.
- ///////////////////////////////////////////////////////////////////////////////
- // public interfaces supported by the VMR9
- const
- IID_IVMRSurface9 : TGUID = '{dfc581a1-6e1f-4c3a-8d0a-5e9792ea2afc}';
- {$EXTERNALSYM IID_IVMRSurface9}
- IID_IVMRSurfaceAllocator9 : TGUID = '{8d5148ea-3f5d-46cf-9df1-d1b896eedb1f}';
- {$EXTERNALSYM IID_IVMRSurfaceAllocator9}
- IID_IVMRSurfaceAllocatorNotify9 : TGUID = '{dca3f5df-bb3a-4d03-bd81-84614bfbfa0c}';
- {$EXTERNALSYM IID_IVMRSurfaceAllocatorNotify9}
- IID_IVMRImagePresenter9 : TGUID = '{69188c61-12a3-40f0-8ffc-342e7b433fd7}';
- {$EXTERNALSYM IID_IVMRImagePresenter9}
- IID_IVMRImagePresenterConfig9 : TGUID = '{45c15cab-6e22-420a-8043-ae1f0ac02c7d}';
- {$EXTERNALSYM IID_IVMRImagePresenterConfig9}
- IID_IVMRMonitorConfig9 : TGUID = '{46c2e457-8ba0-4eef-b80b-0680f0978749}';
- {$EXTERNALSYM IID_IVMRMonitorConfig9}
- IID_IVMRWindowlessControl9 : TGUID = '{8f537d09-f85e-4414-b23b-502e54c79927}';
- {$EXTERNALSYM IID_IVMRWindowlessControl9}
- IID_IVMRMixerControl9 : TGUID = '{1a777eaa-47c8-4930-b2c9-8fee1c1b0f3b}';
- {$EXTERNALSYM IID_IVMRMixerControl9}
- IID_IVMRImageCompositor9 : TGUID = '{4a5c89eb-df51-4654-ac2a-e48e02bbabf6}';
- {$EXTERNALSYM IID_IVMRImageCompositor9}
- IID_IVMRMixerBitmap9 : TGUID = '{ced175e5-1935-4820-81bd-ff6ad00c9108}';
- {$EXTERNALSYM IID_IVMRMixerBitmap9}
- IID_IVMRFilterConfig9 : TGUID = '{5a804648-4f66-4867-9c43-4f5c822cf1b8}';
- {$EXTERNALSYM IID_IVMRFilterConfig9}
- IID_IVMRAspectRatioControl9 : TGUID = '{00d96c29-bbde-4efc-9901-bb5036392146}';
- {$EXTERNALSYM IID_IVMRAspectRatioControl9}
- IID_IVMRVideoStreamControl9 : TGUID = '{d0cfe38b-93e7-4772-8957-0400c49a4485}';
- {$EXTERNALSYM IID_IVMRVideoStreamControl9}
- IID_IVMRDeinterlaceControl9 : TGUID = '{a215fb8d-13c2-4f7f-993c-003d6271a459}';
- {$EXTERNALSYM IID_IVMRDeinterlaceControl9}
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Allocator Presenter interfaces
- //
- ///////////////////////////////////////////////////////////////////////////////
- //=====================================================================
- //
- // IVMRImagePresenter9
- //
- //=====================================================================
- type
- VMR9PresentationFlags = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9PresentationFlags}
- const
- VMR9Sample_SyncPoint = $00000001;
- {$EXTERNALSYM VMR9Sample_SyncPoint}
- VMR9Sample_Preroll = $00000002;
- {$EXTERNALSYM VMR9Sample_Preroll}
- VMR9Sample_Discontinuity = $00000004;
- {$EXTERNALSYM VMR9Sample_Discontinuity}
- VMR9Sample_TimeValid = $00000008;
- {$EXTERNALSYM VMR9Sample_TimeValid}
- VMR9Sample_SrcDstRectsValid = $00000010;
- {$EXTERNALSYM VMR9Sample_SrcDstRectsValid}
- type
- PVMR9PresentationInfo = ^TVMR9PresentationInfo;
- VMR9PresentationInfo = record
- dwFlags : DWORD;
- lpSurf : IDirect3DSurface9;
- rtStart : TReferenceTime;
- rtEnd : TReferenceTime;
- szAspectRatio : TSIZE;
- rcSrc : TRECT;
- rcDst : TRECT;
- dwReserved1 : DWORD;
- dwReserved2 : DWORD;
- end;
- {$EXTERNALSYM VMR9PresentationInfo}
- TVMR9PresentationInfo = VMR9PresentationInfo;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImagePresenter9> _di_IVMRImagePresenter9;'}
- {$EXTERNALSYM IVMRImagePresenter9}
- IVMRImagePresenter9 = interface(IUnknown)
- ['{69188c61-12a3-40f0-8ffc-342e7b433fd7}']
- (*** IVMRImagePresenter9 methods ***)
- function StartPresenting(dwUserID: DWORD): HResult; stdcall;
- function StopPresenting(dwUserID: DWORD): HResult; stdcall;
- function PresentImage(dwUserID: DWORD; lpPresInfo: PVMR9PresentationInfo): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRSurfaceAllocator
- //
- //=====================================================================
- VMR9SurfaceAllocationFlags = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9SurfaceAllocationFlags}
- const
- // surface types/usage
- VMR9AllocFlag_3DRenderTarget = $0001;
- {$EXTERNALSYM VMR9AllocFlag_3DRenderTarget}
- VMR9AllocFlag_DXVATarget = $0002;
- {$EXTERNALSYM VMR9AllocFlag_DXVATarget}
- // VMR9AllocFlag_TextureSurface can be combined with
- // DXVATarget and 3DRenderTarget
- VMR9AllocFlag_TextureSurface = $0004;
- {$EXTERNALSYM VMR9AllocFlag_TextureSurface}
- VMR9AllocFlag_OffscreenSurface = $0008;
- {$EXTERNALSYM VMR9AllocFlag_OffscreenSurface}
- VMR9AllocFlag_UsageReserved = $00F0;
- {$EXTERNALSYM VMR9AllocFlag_UsageReserved}
- VMR9AllocFlag_UsageMask = $00FF;
- {$EXTERNALSYM VMR9AllocFlag_UsageMask}
- type
- PVMR9AllocationInfo = ^TVMR9AllocationInfo;
- _VMR9AllocationInfo = record
- dwFlags : DWORD; // see VMR9SurfaceAllocationFlags
- dwWidth : DWORD;
- dwHeight : DWORD;
- Format : TD3DFORMAT; // 0 means use a format compatible with the display
- Pool : TD3DPOOL;
- MinBuffers : DWORD;
- szAspectRatio : TSIZE;
- szNativeSize : TSIZE;
- end;
- {$EXTERNALSYM _VMR9AllocationInfo}
- VMR9AllocationInfo = _VMR9AllocationInfo;
- {$EXTERNALSYM VMR9AllocationInfo}
- TVMR9AllocationInfo = _VMR9AllocationInfo;
- IVMRSurfaceAllocatorNotify9 = interface;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRSurfaceAllocator9> _di_IVMRSurfaceAllocator9;'}
- {$EXTERNALSYM IVMRSurfaceAllocator9}
- IVMRSurfaceAllocator9 = interface(IUnknown)
- ['{8d5148ea-3f5d-46cf-9df1-d1b896eedb1f}']
- (*** IVMRSurfaceAllocator9 methods ***)
- function InitializeDevice(dwUserID: DWORD; lpAllocInfo: PVMR9AllocationInfo;
- var lpNumBuffers: DWORD): HResult; stdcall;
- function TerminateDevice(dwID: DWORD): HResult; stdcall;
- function GetSurface(dwUserID: DWORD; SurfaceIndex: DWORD; SurfaceFlags: DWORD;
- out lplpSurface: IDirect3DSurface9): HResult; stdcall;
- function AdviseNotify(lpIVMRSurfAllocNotify: IVMRSurfaceAllocatorNotify9): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRSurfaceAllocatorNotify9
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRSurfaceAllocatorNotify9> _di_IVMRSurfaceAllocatorNotify9;'}
- {$EXTERNALSYM IVMRSurfaceAllocatorNotify9}
- IVMRSurfaceAllocatorNotify9 = interface(IUnknown)
- ['{dca3f5df-bb3a-4d03-bd81-84614bfbfa0c}']
- (*** IVMRSurfaceAllocatorNotify9 methods ***)
- function AdviseSurfaceAllocator(dwUserID: DWORD;
- lpIVRMSurfaceAllocator: IVMRSurfaceAllocator9): HResult; stdcall;
- function SetD3DDevice(lpD3DDevice: IDirect3DDevice9;
- hMonitor: HMONITOR): HResult; stdcall;
- function ChangeD3DDevice(lpD3DDevice: IDirect3DDevice9;
- hMonitor: HMONITOR): HResult; stdcall;
- function AllocateSurfaceHelper(lpAllocInfo: PVMR9AllocationInfo;
- var lpNumBuffers: DWORD; out lplpSurface: IDirect3DSurface9): HResult; stdcall;
- function NotifyEvent(EventCode: LongInt; Param1, Param2: LongInt): HResult; stdcall;
- end;
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Application control and configuration interfaces
- //
- ///////////////////////////////////////////////////////////////////////////////
- //=====================================================================
- //
- // IVMRWindowlessControl9
- //
- //=====================================================================
- VMR9AspectRatioMode= (
- VMR9ARMode_None,
- VMR9ARMode_LetterBox
- );
- {$EXTERNALSYM VMR9AspectRatioMode}
- TVMR9AspectRatioMode = VMR9AspectRatioMode;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRWindowlessControl9> _di_IVMRWindowlessControl9;'}
- {$EXTERNALSYM IVMRWindowlessControl9}
- IVMRWindowlessControl9 = interface(IUnknown)
- ['{8f537d09-f85e-4414-b23b-502e54c79927}']
- (*** IVMRWindowlessControl9 methods ***)
- //////////////////////////////////////////////////////////
- // Video size and position information
- //////////////////////////////////////////////////////////
- function GetNativeVideoSize(out lpWidth, lpHeight, lpARWidth, lpARHeigh: LongInt): HResult; stdcall;
- function GetMinIdealVideoSize(out lpWidth, lpHeight: LongInt): HResult; stdcall;
- function GetMaxIdealVideoSize(out lpWidth, lpHeight: LongInt): HResult; stdcall;
- function SetVideoPosition(lpSRCRect, lpDSTRect: PRECT): HResult; stdcall;
- function GetVideoPosition(out lpSRCRect, lpDSTRect: TRECT): HResult; stdcall;
- function GetAspectRatioMode(out lpAspectRatioMode: TVMR9AspectRatioMode): HResult; stdcall;
- function SetAspectRatioMode(AspectRatioMode: TVMR9AspectRatioMode): HResult; stdcall;
- //////////////////////////////////////////////////////////
- // Display and clipping management
- //////////////////////////////////////////////////////////
- function SetVideoClippingWindow(hwnd: HWND): HResult; stdcall;
- function RepaintVideo(hwnd: HWND; hdc: HDC): HResult; stdcall;
- function DisplayModeChanged: HResult; stdcall;
- //////////////////////////////////////////////////////////
- // GetCurrentImage
- //
- // Returns the current image being displayed. This images
- // is returned in the form of packed Windows DIB.
- //
- // GetCurrentImage can be called at any time, also
- // the caller is responsible for free the returned memory
- // by calling CoTaskMemFree.
- //
- // Excessive use of this function will degrade video
- // playback performed.
- //////////////////////////////////////////////////////////
- function GetCurrentImage(out lpDib: PBYTE): HResult; stdcall;
- //////////////////////////////////////////////////////////
- // Border Color control
- //
- // The border color is color used to fill any area of the
- // the destination rectangle that does not contain video.
- // It is typically used in two instances. When the video
- // straddles two monitors and when the VMR is trying
- // to maintain the aspect ratio of the movies by letter
- // boxing the video to fit within the specified destination
- // rectangle. See SetAspectRatioMode above.
- //////////////////////////////////////////////////////////
- function SetBorderColor(Clr: COLORREF): HResult; stdcall;
- function GetBorderColor(out lpClr: COLORREF): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRMixerControl9
- //
- //=====================================================================
- VMR9MixerPrefs = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9MixerPrefs}
- const
- MixerPref9_NoDecimation = $00000001; // No decimation - full size
- {$EXTERNALSYM MixerPref9_NoDecimation}
- MixerPref9_DecimateOutput = $00000002; // decimate output by 2 in x & y
- {$EXTERNALSYM MixerPref9_DecimateOutput}
- MixerPref9_ARAdjustXorY = $00000004; // adjust the aspect ratio in x or y
- {$EXTERNALSYM MixerPref9_ARAdjustXorY}
- MixerPref9_NonSquareMixing = $00000008; // assume AP can handle non-square mixing, avoids intermediate scales
- {$EXTERNALSYM MixerPref9_NonSquareMixing}
- MixerPref9_DecimateMask = $0000000F;
- {$EXTERNALSYM MixerPref9_DecimateMask}
- MixerPref9_BiLinearFiltering = $00000010; // use bi-linear filtering
- {$EXTERNALSYM MixerPref9_BiLinearFiltering}
- MixerPref9_PointFiltering = $00000020; // use point filtering
- {$EXTERNALSYM MixerPref9_PointFiltering}
- MixerPref9_AnisotropicFiltering = $00000040; //
- {$EXTERNALSYM MixerPref9_AnisotropicFiltering}
- MixerPref9_PyramidalQuadFiltering = $00000080; // 4-sample tent
- {$EXTERNALSYM MixerPref9_PyramidalQuadFiltering}
- MixerPref9_GaussianQuadFiltering = $00000100; // 4-sample gaussian
- {$EXTERNALSYM MixerPref9_GaussianQuadFiltering}
- MixerPref9_FilteringReserved = $00000E00; // bits reserved for future use.
- {$EXTERNALSYM MixerPref9_FilteringReserved}
- MixerPref9_FilteringMask = $00000FF0; // OR of all above flags
- {$EXTERNALSYM MixerPref9_FilteringMask}
- MixerPref9_RenderTargetRGB = $00001000;
- {$EXTERNALSYM MixerPref9_RenderTargetRGB}
- MixerPref9_RenderTargetYUV = $00002000; // Uses DXVA to perform mixing
- {$EXTERNALSYM MixerPref9_RenderTargetYUV}
- MixerPref9_RenderTargetReserved = $000FC000; // bits reserved for future use.
- {$EXTERNALSYM MixerPref9_RenderTargetReserved}
- MixerPref9_RenderTargetMask = $000FF000; // OR of all above flags
- {$EXTERNALSYM MixerPref9_RenderTargetMask}
- //
- // Dynamic changes that can be performed when the VMR's mixer is
- // configured to use the YUV Render target (see MixerPref_RenderTargetYUV)
- // These preferences can be applied while the graph is running and take effect
- // when the next frame is composed by the mixer.
- //
- MixerPref9_DynamicSwitchToBOB = $00100000;
- {$EXTERNALSYM MixerPref9_DynamicSwitchToBOB}
- MixerPref9_DynamicDecimateBy2 = $00200000;
- {$EXTERNALSYM MixerPref9_DynamicDecimateBy2}
- MixerPref9_DynamicReserved = $00C00000;
- {$EXTERNALSYM MixerPref9_DynamicReserved}
- MixerPref9_DynamicMask = $00F00000;
- {$EXTERNALSYM MixerPref9_DynamicMask}
- type
- // Normalized relative rectangle
- // Coordinate ranges: x=[0...1) y=[0...1)
- // Where the output window goes from 0,0 (closed inclusive lower bound)
- // to 1,1 (open exclusive upper bound)
- PVMR9NormalizedRect = ^TVMR9NormalizedRect;
- _VMR9NormalizedRect = record
- left : Single;
- top : Single;
- right : Single;
- bottom : Single;
- end;
- {$EXTERNALSYM _VMR9NormalizedRect}
- VMR9NormalizedRect = _VMR9NormalizedRect;
- {$EXTERNALSYM VMR9NormalizedRect}
- TVMR9NormalizedRect = _VMR9NormalizedRect;
- VMR9ProcAmpControlFlags = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9ProcAmpControlFlags}
- const
- ProcAmpControl9_Brightness = $00000001;
- {$EXTERNALSYM ProcAmpControl9_Brightness}
- ProcAmpControl9_Contrast = $00000002;
- {$EXTERNALSYM ProcAmpControl9_Contrast}
- ProcAmpControl9_Hue = $00000004;
- {$EXTERNALSYM ProcAmpControl9_Hue}
- ProcAmpControl9_Saturation = $00000008;
- {$EXTERNALSYM ProcAmpControl9_Saturation}
- ProcAmpControl9_Mask = $0000000F;
- {$EXTERNALSYM ProcAmpControl9_Mask}
- type
- PVMR9ProcAmpControl = ^TVMR9ProcAmpControl;
- _VMR9ProcAmpControl = record
- dwSize : DWORD;
- dwFlags : DWORD;
- Brightness : Single;
- Contrast : Single;
- Hue : Single;
- Saturation : Single;
- end;
- {$EXTERNALSYM _VMR9ProcAmpControl}
- VMR9ProcAmpControl = _VMR9ProcAmpControl;
- {$EXTERNALSYM VMR9ProcAmpControl}
- TVMR9ProcAmpControl = _VMR9ProcAmpControl;
- PVMR9ProcAmpControlRange = ^TVMR9ProcAmpControlRange;
- _VMR9ProcAmpControlRange = record
- dwSize : DWORD;
- dwProperty : VMR9ProcAmpControlFlags; // see VMR9ProcAmpControlFlags above;
- MinValue : Single;
- MaxValue : Single;
- DefaultValue : Single;
- StepSize : Single;
- end;
- {$EXTERNALSYM _VMR9ProcAmpControlRange}
- VMR9ProcAmpControlRange = _VMR9ProcAmpControlRange;
- {$EXTERNALSYM VMR9ProcAmpControlRange}
- TVMR9ProcAmpControlRange = _VMR9ProcAmpControlRange;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRMixerControl9> _di_IVMRMixerControl9;'}
- {$EXTERNALSYM IVMRMixerControl9}
- IVMRMixerControl9 = interface(IUnknown)
- ['{1a777eaa-47c8-4930-b2c9-8fee1c1b0f3b}']
- (*** IVMRMixerControl9 methods ***)
- // Source alpha premultication factor (global alpha for source)
- function SetAlpha(dwStreamID: DWORD; Alpha: Single): HResult; stdcall;
- function GetAlpha(dwStreamID: DWORD; out pAlpha: Single): HResult; stdcall;
- function SetZOrder(dwStreamID: DWORD; dwZ: DWORD): HResult; stdcall;
- function GetZOrder(dwStreamID: DWORD; out pZ: DWORD): HResult; stdcall;
- function SetOutputRect(dwStreamID: DWORD; pRect: PVMR9NormalizedRect): HResult; stdcall;
- function GetOutputRect(dwStreamID: DWORD; {out} pRect: PVMR9NormalizedRect): HResult; stdcall;
- function SetBackgroundClr(ClrBkg: COLORREF): HResult; stdcall;
- function GetBackgroundClr(out lpClrBkg: COLORREF): HResult; stdcall;
- // a combination of VMRMixingPrefFlags
- function SetMixingPrefs(dwMixerPrefs: DWORD): HResult; stdcall;
- function GetMixingPrefs(out pdwMixerPrefs: DWORD): HResult; stdcall;
- function SetProcAmpControl(dwStreamID: DWORD; lpClrControl: PVMR9ProcAmpControl): HResult; stdcall;
- function GetProcAmpControl(dwStreamID: DWORD; {in/out} lpClrControl: PVMR9ProcAmpControl): HResult; stdcall;
- function GetProcAmpControlRange(dwStreamID: DWORD; {in/out} lpClrControl: PVMR9ProcAmpControlRange): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRMixerBitmap9
- //
- //=====================================================================
- PVMR9AlphaBitmap = ^TVMR9AlphaBitmap;
- _VMR9AlphaBitmap = record
- dwFlags : DWORD; // flags word
- hdc : HDC; // DC for the bitmap to copy
- pDDS : IDirect3DSurface9; // D3D surface to copy
- rSrc : TRECT; // rectangle to copy from the DC/DDS
- rDest : TVMR9NormalizedRect; // output rectangle in composition space
- fAlpha : Single; // opacity of the bitmap
- clrSrcKey : COLORREF; // src color key
- dwFilterMode : DWORD; // See "SetMixerPrefs"
- end;
- {$EXTERNALSYM _VMR9AlphaBitmap}
- VMR9AlphaBitmap = _VMR9AlphaBitmap;
- {$EXTERNALSYM VMR9AlphaBitmap}
- TVMR9AlphaBitmap = _VMR9AlphaBitmap;
- VMR9AlphaBitmapFlags = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9AlphaBitmapFlags}
- const
- // Disable the alpha bitmap for now
- VMR9AlphaBitmap_Disable = $00000001;
- {$EXTERNALSYM VMR9AlphaBitmap_Disable}
- // Take the bitmap from the HDC rather than the DirectDraw surface
- VMR9AlphaBitmap_hDC = $00000002;
- {$EXTERNALSYM VMR9AlphaBitmap_hDC}
- // Take the entire DDraw surface - rSrc is ignored
- VMR9AlphaBitmap_EntireDDS = $00000004;
- {$EXTERNALSYM VMR9AlphaBitmap_EntireDDS}
- // Indicates that the clrTrans value is valid and should be
- // used when blending
- VMR9AlphaBitmap_SrcColorKey = $00000008;
- {$EXTERNALSYM VMR9AlphaBitmap_SrcColorKey}
- // Indicates that the rSrc rectangle is valid and specifies a
- // sub-rectangle of the of original app image to be blended.
- // Use of this parameter enables "Image Strips"
- VMR9AlphaBitmap_SrcRect = $00000010;
- {$EXTERNALSYM VMR9AlphaBitmap_SrcRect}
- // Indicates that dwFilterMode parameter is valid and should be
- // used to overide the default filtering method used by the VMR.
- // MixerPref_PointFiltering is particulaly useful for images that
- // contain text and do not need to be stretch prior to blending with
- // the video content.
- VMR9AlphaBitmap_FilterMode = $00000020;
- {$EXTERNALSYM VMR9AlphaBitmap_FilterMode}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRMixerBitmap9> _di_IVMRMixerBitmap9;'}
- {$EXTERNALSYM IVMRMixerBitmap9}
- IVMRMixerBitmap9 = interface(IUnknown)
- ['{ced175e5-1935-4820-81bd-ff6ad00c9108}']
- (*** IVMRMixerBitmap9 methods ***)
- // Set bitmap, location to blend it, and blending value
- function SetAlphaBitmap(pBmpParms: PVMR9AlphaBitmap): HResult; stdcall;
- // Change bitmap location, size and blending value,
- // graph must be running for change to take effect.
- function UpdateAlphaBitmapParameters(pBmpParms: PVMR9AlphaBitmap): HResult; stdcall;
- // Get bitmap, location to blend it, and blending value
- function GetAlphaBitmapParameters(out pBmpParms: TVMR9AlphaBitmap): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRSurface9
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRSurface9> _di_IVMRSurface9;'}
- {$EXTERNALSYM IVMRSurface9}
- IVMRSurface9 = interface(IUnknown)
- ['{dfc581a1-6e1f-4c3a-8d0a-5e9792ea2afc}']
- (*** IVMRSurface9 methods ***)
- function IsSurfaceLocked: HResult; stdcall;
- function LockSurface(out lpSurface: PBYTE): HResult; stdcall;
- function UnlockSurface: HResult; stdcall;
- function GetSurface(out lplpSurface: IDirect3DSurface9): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IID_IVMRImagePresenterConfig9 - this interface allows applications
- // to configure the default Microsoft provided allocator-presenter
- // inorder to simplify the implementation of their own
- // allocator-presenter plug-in.
- //
- //=====================================================================
- VMR9RenderPrefs = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9RenderPrefs}
- const
- RenderPrefs9_DoNotRenderBorder = $00000001; // app paints color keys
- {$EXTERNALSYM RenderPrefs9_DoNotRenderBorder}
- RenderPrefs9_Mask = $00000001; // OR of all above flags
- {$EXTERNALSYM RenderPrefs9_Mask}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImagePresenterConfig9> _di_IVMRImagePresenterConfig9;'}
- {$EXTERNALSYM IVMRImagePresenterConfig9}
- IVMRImagePresenterConfig9 = interface(IUnknown)
- ['{45c15cab-6e22-420a-8043-ae1f0ac02c7d}']
- (*** IVMRImagePresenterConfig9 methods ***)
- function SetRenderingPrefs(dwRenderFlags: DWORD): HResult; stdcall;
- function GetRenderingPrefs(out dwRenderFlags: DWORD): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRDeinterlaceControl
- //
- // New interfaced introduced into the WindowsXP SP1 release of the VMR.
- // This interface allows applications to control the DX-VA deinterlacing
- // support provided by the VMR.
- //
- // The VMR needs to be set into "mixing" mode for this interface to work.
- //
- // SetDeinterlaceMode is only effective for new connections made to the
- // VMR. It should be noted that the graphics device driver may refuse
- // to use the specified deinterlace mode, in which case 3 fallback
- // policies are offered by the VMR, these being:
- //
- // 1. Fallback to the next best mode offered by the driver.
- // 2. Fallback to the BOB deinterlace mode.
- // 3. Fallback to the WEAVE deinterlace mode (ie. turn deinterlacing off).
- //
- //=====================================================================
- VMR9DeinterlacePrefs = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9DeinterlacePrefs}
- const
- DeinterlacePref9_NextBest = $01;
- {$EXTERNALSYM DeinterlacePref9_NextBest}
- DeinterlacePref9_BOB = $02;
- {$EXTERNALSYM DeinterlacePref9_BOB}
- DeinterlacePref9_Weave = $04;
- {$EXTERNALSYM DeinterlacePref9_Weave}
- DeinterlacePref9_Mask = $07;
- {$EXTERNALSYM DeinterlacePref9_Mask}
- type
- VMR9DeinterlaceTech = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9DeinterlaceTech}
- const
- // the algorithm is unknown or proprietary
- DeinterlaceTech9_Unknown = $0000;
- {$EXTERNALSYM DeinterlaceTech9_Unknown}
- // the algorithm creates the missing lines by repeating
- // the line either above or below it - this method will look very jaggy and
- // isn't recommended
- DeinterlaceTech9_BOBLineReplicate = $0001;
- {$EXTERNALSYM DeinterlaceTech9_BOBLineReplicate}
- // the algorithm creates the missing lines by vertically stretching each
- // video field by a factor of two, for example by averaging two lines or
- // using a [-1, 9, 9, -1]/16 filter across four lines.
- // Slight vertical adjustments are made to ensure that the resulting image
- // does not "bob" up and down.
- DeinterlaceTech9_BOBVerticalStretch = $0002;
- {$EXTERNALSYM DeinterlaceTech9_BOBVerticalStretch}
- // the pixels in the missing line are recreated by a median filtering operation
- DeinterlaceTech9_MedianFiltering = $0004;
- {$EXTERNALSYM DeinterlaceTech9_MedianFiltering}
- // the pixels in the missing line are recreated by an edge filter.
- // In this process, spatial directional filters are applied to determine
- // the orientation of edges in the picture content, and missing
- // pixels are created by filtering along (rather than across) the
- // detected edges.
- DeinterlaceTech9_EdgeFiltering = $0010;
- {$EXTERNALSYM DeinterlaceTech9_EdgeFiltering}
- // the pixels in the missing line are recreated by switching on a field by
- // field basis between using either spatial or temporal interpolation
- // depending on the amount of motion.
- DeinterlaceTech9_FieldAdaptive = $0020;
- {$EXTERNALSYM DeinterlaceTech9_FieldAdaptive}
- // the pixels in the missing line are recreated by switching on a pixel by pixel
- // basis between using either spatial or temporal interpolation depending on
- // the amount of motion..
- DeinterlaceTech9_PixelAdaptive = $0040;
- {$EXTERNALSYM DeinterlaceTech9_PixelAdaptive}
- // Motion Vector Steering identifies objects within a sequence of video
- // fields. The missing pixels are recreated after first aligning the
- // movement axes of the individual objects in the scene to make them
- // parallel with the time axis.
- DeinterlaceTech9_MotionVectorSteered = $0080;
- {$EXTERNALSYM DeinterlaceTech9_MotionVectorSteered}
- type
- PVMR9Frequency = ^TVMR9Frequency;
- _VMR9Frequency = record
- dwNumerator : DWORD;
- dwDenominator : DWORD;
- end;
- {$EXTERNALSYM _VMR9Frequency}
- VMR9Frequency = _VMR9Frequency;
- {$EXTERNALSYM VMR9Frequency}
- TVMR9Frequency = _VMR9Frequency;
- _VMR9_SampleFormat = (
- {$IFNDEF COMPILER6_UP}
- VMR9_Sample_INVALID_0,
- VMR9_SampleReserved,
- {$ELSE}
- VMR9_SampleReserved = 1,
- {$ENDIF}
- VMR9_SampleProgressiveFrame,
- VMR9_SampleFieldInterleavedEvenFirst,
- VMR9_SampleFieldInterleavedOddFirst,
- VMR9_SampleFieldSingleEven,
- VMR9_SampleFieldSingleOdd
- );
- {$EXTERNALSYM _VMR9_SampleFormat}
- VMR9_SampleFormat = _VMR9_SampleFormat;
- {$EXTERNALSYM VMR9_SampleFormat}
- TVMR9SampleFormat = _VMR9_SampleFormat;
- PVMR9VideoDesc = ^TVMR9VideoDesc;
- _VMR9VideoDesc = record
- dwSize : DWORD;
- dwSampleWidth : DWORD;
- dwSampleHeight : DWORD;
- SampleFormat : TVMR9SampleFormat;
- dwFourCC : DWORD;
- InputSampleFreq : TVMR9Frequency;
- OutputFrameFreq : TVMR9Frequency;
- end;
- {$EXTERNALSYM _VMR9VideoDesc}
- VMR9VideoDesc = _VMR9VideoDesc;
- {$EXTERNALSYM VMR9VideoDesc}
- TVMR9VideoDesc = _VMR9VideoDesc;
- PVMR9DeinterlaceCaps = ^TVMR9DeinterlaceCaps;
- _VMR9DeinterlaceCaps = record
- dwSize : DWORD;
- dwNumPreviousOutputFrames : DWORD;
- dwNumForwardRefSamples : DWORD;
- dwNumBackwardRefSamples : DWORD;
- DeinterlaceTechnology : VMR9DeinterlaceTech;
- end;
- {$EXTERNALSYM _VMR9DeinterlaceCaps}
- VMR9DeinterlaceCaps = _VMR9DeinterlaceCaps;
- {$EXTERNALSYM VMR9DeinterlaceCaps}
- TVMR9DeinterlaceCaps = _VMR9DeinterlaceCaps;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRDeinterlaceControl9> _di_IVMRDeinterlaceControl9;'}
- {$EXTERNALSYM IVMRDeinterlaceControl9}
- IVMRDeinterlaceControl9 = interface(IUnknown)
- ['{a215fb8d-13c2-4f7f-993c-003d6271a459}']
- (*** IVMRDeinterlaceControl9 methods ***)
- // For the specified video description returns the
- // number of deinterlacing modes available to the VMR.
- // The deinterlacing modes are returned in descending
- // quality order ie. the best quality mode is at
- // lpdwNumDeinterlaceModes[0], the next best at
- // lpdwNumDeinterlaceModes[1] and so on.
- //
- // To determine how big an array of guids to pass to the
- // GetNumberOfDeinterlaceModes method call
- // GetNumberOfDeinterlaceModes(lpVideoDescription, &dwNumModes, NULL);
- //
- function GetNumberOfDeinterlaceModes(out lpVideoDescription: TVMR9VideoDesc;
- var lpdwNumDeinterlaceModes: DWORD; lpDeinterlaceModes: PGUID): HResult; stdcall;
- // For the given video description get the capabilities of the
- // specified de-interlace mode.
- function GetDeinterlaceModeCaps(const lpDeinterlaceMode: TGUID;
- lpVideoDescription: PVMR9VideoDesc;
- out lpDeinterlaceCaps: TVMR9DeinterlaceCaps): HResult; stdcall;
- // Get/Set the deinterlace mode that you would like the
- // VMR to use when de-interlacing the specified stream.
- // It should be noted that the VMR may not actually be able
- // to use the requested deinterlace mode, in which case the
- // the VMR will fall back to other de-interlace modes as specified
- // by the de-interlace preferences (see SetDeinterlacePrefs below).
- function GetDeinterlaceMode(dwStreamID: DWORD;
- out lpDeinterlaceMode: TGUID // returns GUID_NULL if SetDeinterlaceMode
- ): HResult; stdcall; // has not been called yet.
- function SetDeinterlaceMode(
- dwStreamID: DWORD; // use 0xFFFFFFFF to set mode for all streams
- const lpDeinterlaceMode: TGUID // GUID_NULL == turn deinterlacing off
- ): HResult; stdcall;
- function GetDeinterlacePrefs(out lpdwDeinterlacePrefs: DWORD): HResult; stdcall;
- function SetDeinterlacePrefs(dwDeinterlacePrefs: DWORD): HResult; stdcall;
- // Get the DeinterlaceMode currently in use for the specified
- // video stream (ie. pin). The returned GUID will be NULL if
- // the de-interlacing h/w has not been created by the VMR at the
- // time the function is called, or if the VMR determines that
- // this stream should not or can be de-interlaced.
- function GetActualDeinterlaceMode(dwStreamID: DWORD;
- out lpDeinterlaceMode: TGUID): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRImageCompositor9
- //
- //=====================================================================
- PVMR9VideoStreamInfo = ^TVMR9VideoStreamInfo;
- _VMR9VideoStreamInfo = record
- pddsVideoSurface : IDirect3DSurface9;
- dwWidth, dwHeight : DWORD;
- dwStrmID : DWORD;
- fAlpha : Single;
- rNormal : TVMR9NormalizedRect;
- rtStart : TReferenceTime;
- rtEnd : TReferenceTime;
- SampleFormat : TVMR9SampleFormat;
- end;
- {$EXTERNALSYM _VMR9VideoStreamInfo}
- VMR9VideoStreamInfo = _VMR9VideoStreamInfo;
- {$EXTERNALSYM VMR9VideoStreamInfo}
- TVMR9VideoStreamInfo = _VMR9VideoStreamInfo;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRImageCompositor9> _di_IVMRImageCompositor9;'}
- {$EXTERNALSYM IVMRImageCompositor9}
- IVMRImageCompositor9 = interface(IUnknown)
- ['{4a5c89eb-df51-4654-ac2a-e48e02bbabf6}']
- (*** IVMRImageCompositor9 methods ***)
- function InitCompositionDevice(pD3DDevice: IUnknown): HResult; stdcall;
- function TermCompositionDevice(pD3DDevice: IUnknown): HResult; stdcall;
- function SetStreamMediaType(dwStrmID: DWORD; pmt: PAMMediaType;
- fTexture: BOOL): HResult; stdcall;
- function CompositeImage(pD3DDevice: IUnknown; pddsRenderTarget: IDirect3DSurface9;
- pmtRenderTarget: PAMMediaType; rtStart, rtEnd: TReferenceTime;
- dwClrBkGnd: TD3DCOLOR; pVideoStreamInfo: PVMR9VideoStreamInfo;
- cStreams: UINT): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRVideoStreamControl9
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRVideoStreamControl9> _di_IVMRVideoStreamControl9;'}
- {$EXTERNALSYM IVMRVideoStreamControl9}
- IVMRVideoStreamControl9 = interface(IUnknown)
- ['{d0cfe38b-93e7-4772-8957-0400c49a4485}']
- (*** IVMRVideoStreamControl9 methods ***)
- function SetStreamActiveState(fActive: BOOL): HResult; stdcall;
- function GetStreamActiveState(out lpfActive: BOOL): HResult; stdcall;
- end;
- VMR9Mode = {$IFDEF TYPE_IDENTITY}type {$ENDIF} LongWord;
- {$EXTERNALSYM VMR9Mode}
- const
- VMR9Mode_Windowed = $00000001;
- {$EXTERNALSYM VMR9Mode_Windowed}
- VMR9Mode_Windowless = $00000002;
- {$EXTERNALSYM VMR9Mode_Windowless}
- VMR9Mode_Renderless = $00000004;
- {$EXTERNALSYM VMR9Mode_Renderless}
- // not a valid value to pass to SetRenderMode
- VMR9Mode_Mask = $00000007; // OR of all above flags
- {$EXTERNALSYM VMR9Mode_Mask}
- type
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRFilterConfig9> _di_IVMRFilterConfig9;'}
- {$EXTERNALSYM IVMRFilterConfig9}
- IVMRFilterConfig9 = interface(IUnknown)
- ['{5a804648-4f66-4867-9c43-4f5c822cf1b8}']
- (*** IVMRFilterConfig9 methods ***)
- function SetImageCompositor(lpVMRImgCompositor: IVMRImageCompositor9): HResult; stdcall;
- function SetNumberOfStreams(dwMaxStreams: DWORD): HResult; stdcall;
- function GetNumberOfStreams(out pdwMaxStreams: DWORD): HResult; stdcall;
- function SetRenderingPrefs(dwRenderFlags: DWORD): HResult; stdcall;
- function GetRenderingPrefs(out pdwRenderFlags: DWORD): HResult; stdcall;
- function SetRenderingMode(Mode: DWORD): HResult; stdcall;
- function GetRenderingMode(out pMode: DWORD): HResult; stdcall;
- end;
- //=====================================================================
- //
- // IVMRAspectRatioControl9
- //
- //=====================================================================
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRAspectRatioControl9> _di_IVMRAspectRatioControl9;'}
- {$EXTERNALSYM IVMRAspectRatioControl9}
- IVMRAspectRatioControl9 = interface(IUnknown)
- ['{00d96c29-bbde-4efc-9901-bb5036392146}']
- (*** IVMRAspectRatioControl9 methods ***)
- function GetAspectRatioMode(out lpdwARMode: TVMRAspectRatioMode): HResult; stdcall;
- function SetAspectRatioMode(dwARMode: TVMRAspectRatioMode): HResult; stdcall;
- end;
- ///////////////////////////////////////////////////////////////////////////////
- //
- // VMR Multimon configuration interface
- //
- ///////////////////////////////////////////////////////////////////////////////
- const
- VMR9DEVICENAMELEN = 32;
- {$EXTERNALSYM VMR9DEVICENAMELEN}
- VMR9DEVICEDESCRIPTIONLEN = 512;
- {$EXTERNALSYM VMR9DEVICEDESCRIPTIONLEN}
- type
- PVMR9MonitorInfo = ^TVMR9MonitorInfo;
- _VMR9MonitorInfo = record
- uDevID : UINT;
- rcMonitor : TRECT;
- hMon : HMONITOR;
- dwFlags : DWORD; // described in MONITORINFOEX, currently only MONITORINFOF_PRIMARY
- szDevice: array[0..VMR9DEVICENAMELEN-1]of WideChar;
- szDescription: array[0..VMR9DEVICEDESCRIPTIONLEN-1] of WideChar;
- liDriverVersion : LARGE_INTEGER;
- dwVendorId : DWORD;
- dwDeviceId : DWORD;
- dwSubSysId : DWORD;
- dwRevision : DWORD;
- end;
- {$EXTERNALSYM _VMR9MonitorInfo}
- VMR9MonitorInfo = _VMR9MonitorInfo;
- {$EXTERNALSYM VMR9MonitorInfo}
- TVMR9MonitorInfo = _VMR9MonitorInfo;
- {$HPPEMIT 'typedef System::DelphiInterface<IVMRMonitorConfig9> _di_IVMRMonitorConfig9;'}
- {$EXTERNALSYM IVMRMonitorConfig9}
- IVMRMonitorConfig9 = interface(IUnknown)
- ['{46c2e457-8ba0-4eef-b80b-0680f0978749}']
- (*** IVMRMonitorConfig9 methods ***)
- // Use this method on a Multi-Monitor system to specify to the
- // mixer filter which Direct Draw driver should be used when connecting
- // to an upstream decoder filter.
- function SetMonitor(uDev: UINT): HResult; stdcall;
- // Use this method to determine the direct draw object that will be used when
- // connecting the mixer filter to an upstream decoder filter.
- function GetMonitor(out puDev: UINT): HResult; stdcall;
- // Use this method on a multi-monitor system to specify to the
- // mixer filter the default Direct Draw device to use when
- // connecting to an upstream filter. The default direct draw device
- // can be overriden for a particular connection by SetMonitor method
- // described above.
- function SetDefaultMonitor(uDev: UINT): HResult; stdcall;
- // Use this method on a multi-monitor system to determine which
- // is the default direct draw device the overlay mixer filter
- // will use when connecting to an upstream filter.
- function GetDefaultMonitor(out puDev: UINT): HResult; stdcall;
- // Use this method to get a list of Direct Draw device GUIDs and thier
- // associated monitor information that the mixer can use when
- // connecting to an upstream decoder filter. Passing down a NULL pInfo
- // parameter allows the app to determine the required array size (returned
- // in pdwNumDevices). Otherwise, dwNumDevices returns the actual
- // number of devices retrieved.
- function GetAvailableMonitors(
- {out} pInfo: PVMR9MonitorInfo;
- dwMaxInfoArraySize: DWORD; // in array members
- out pdwNumDevices: DWORD // actual number of devices retrieved
- ): HResult; stdcall;
- end;
- //------------------------------------------------------------------------------
- // File: DMOImpl.h
- //
- // Desc: Classes to implement a DMO.
- //
- // Copyright (c) 2000, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- {$IFDEF DELPHI4_UP}
- type
- TMOinplIOInfo = record
- fTypeSet : DWORD; //:1;
- fIncomplete : DWORD; //:1;
- CurrentMediaType: TDMOMediaType;
- end;
- // Class to implement a DMO
- //
- //
- // Assumes the number of input and output streams is fixed
- // (these are template parameters)
- //
- // Provides following services:
- //
- // Basic parameter checking and locking
- // Fully implements :
- // GetStreamCount
- // SetInputType
- // SetOutputType
- // GetCurrentInputType
- // GetCurrentOutputType
- //
- // Checks if all types are set before streaming
- // Automatically calls AllocateStreamingResources before streaming
- // if it's not been called already
- // Prevents streaming until the types on all non-optional streams
- // have been set
- //
- //
- // Derived class implements the following methods :
- //
- {
- HResult InternalGetInputStreamInfo(DWORD dwInputStreamIndex, DWORD *pdwFlags);
- HResult InternalGetOutputStreamInfo(DWORD dwOutputStreamIndex, DWORD *pdwFlags);
- HResult InternalCheckInputType(DWORD dwInputStreamIndex, const DMO_MEDIA_TYPE *pmt);
- HResult InternalCheckOutputType(DWORD dwOutputStreamIndex, const DMO_MEDIA_TYPE *pmt);
- HResult InternalGetInputType(DWORD dwInputStreamIndex, DWORD dwTypeIndex,
- DMO_MEDIA_TYPE *pmt);
- HResult InternalGetOutputType(DWORD dwOutputStreamIndex, DWORD dwTypeIndex,
- DMO_MEDIA_TYPE *pmt);
- HResult InternalGetInputSizeInfo(DWORD dwInputStreamIndex, DWORD *pcbSize,
- DWORD *pcbMaxLookahead, DWORD *pcbAlignment);
- HResult InternalGetOutputSizeInfo(DWORD dwOutputStreamIndex, DWORD *pcbSize,
- DWORD *pcbAlignment);
- HResult InternalGetInputMaxLatency(DWORD dwInputStreamIndex, REFERENCE_TIME *prtMaxLatency);
- HResult InternalSetInputMaxLatency(DWORD dwInputStreamIndex, REFERENCE_TIME rtMaxLatency);
- HResult InternalFlush();
- HResult InternalDiscontinuity(DWORD dwInputStreamIndex);
- HResult InternalAllocateStreamingResources();
- HResult InternalFreeStreamingResources();
- HResult InternalProcessInput(DWORD dwInputStreamIndex, IMediaBuffer *pBuffer,
- DWORD dwFlags, REFERENCE_TIME rtTimestamp,
- REFERENCE_TIME rtTimelength);
- HResult InternalProcessOutput(DWORD dwFlags, DWORD cOutputBufferCount,
- DMO_OUTPUT_DATA_BUFFER *pOutputBuffers,
- DWORD *pdwStatus);
- HResult InternalAcceptingInput(DWORD dwInputStreamIndex);
- void Lock();
- void Unlock();
- Notes:
- The derived class is meant to do most work to initialize streaming
- in AllocateStreamingResources rather than when types are set.
- This centralizes the work to one
- clear place based on the types set for all streams.
- The derived class implements locking.
- The derived class implements the IUnknown methods
- Usage example (1 input and 1 output) :
- class CMyDMO : public IMediaObjectImpl<CMyDmo, 1, 1>,
- ...
- }
- //////////////////////////////////////////////////////////////////////
- ///// Translator comments /////
- //////////////////////////////////////////////////////////////////////
- {
- Delphi class tries to follow C++ template class as much as possible.
- But in addition to original C++ template it's already implements
- multi-threading support due to:
- 1) AddRef, Release - realized as thread safe in TComObject
- 2) Lock(), Unlock() - uses critical section.
- If you do not need support for thread-safe processing you can save some
- system resources by not calling Windows functions (InterlockedInclerent,
- InterlockedDecrement, EnterCriticalSection, LeaveCriticalSection). This
- can be don by overriding these funtions in derived class:
- ObjAddRef, ObjRelease, Lock(), Unlock()
- }
- TMediaObjectImpl = class(TComObject, IMediaObject)
- private
- m_fTypesSet : Boolean;
- m_fFlushed : Boolean;
- m_fResourcesAllocated: Boolean;
- // Syncronizing
- fCritSection: TCriticalSection;
- protected
- // init this variables !!
- NUMBEROFINPUTS : DWORD;
- NUMBEROFOUTPUTS : DWORD;
- // Member variables
- m_InputInfo : array of TMOinplIOInfo;// [0..NUMBEROFINPUTS-1]
- m_OutputInfo : array of TMOinplIOInfo;// [0..NUMBEROFOUTPUTS-1]
- // Implement these functions !!!
- function InternalGetInputStreamInfo(dwInputStreamIndex: DWORD; out pdwFlags: DWORD): HResult; virtual; abstract;
- function InternalGetOutputStreamInfo(dwOutputStreamIndex: DWORD; out pdwFlags: DWORD): HResult; virtual; abstract;
- function InternalCheckInputType(dwInputStreamIndex: DWORD; const pmt: PDMOMediaType): HResult; virtual; abstract;
- function InternalCheckOutputType(dwOutputStreamIndex: DWORD; const pmt: PDMOMediaType): HResult; virtual; abstract;
- function InternalGetInputType(dwInputStreamIndex, dwTypeIndex: DWORD; out pmt: TDMOMediaType): HResult; virtual; abstract;
- function InternalGetOutputType(dwOutputStreamIndex, dwTypeIndex:DWORD; out pmt: TDMOMediaType): HResult; virtual; abstract;
- function InternalGetInputSizeInfo(dwInputStreamIndex: DWORD; out pcbSize, pcbMaxLookahead, pcbAlignment: DWORD): HResult; virtual; abstract;
- function InternalGetOutputSizeInfo(dwOutputStreamIndex: DWORD; out pcbSize, pcbAlignment: DWORD): HResult; virtual; abstract;
- function InternalGetInputMaxLatency(dwInputStreamIndex: DWORD; out prtMaxLatency: TReferenceTime): HResult; virtual; abstract;
- function InternalSetInputMaxLatency(dwInputStreamIndex: DWORD; rtMaxLatency: TReferenceTime): HResult; virtual; abstract;
- function InternalFlush: HResult; virtual; abstract;
- function InternalDiscontinuity(dwInputStreamIndex: DWORD): HResult; virtual; abstract;
- function InternalAllocateStreamingResources: HResult; virtual; abstract;
- function InternalFreeStreamingResources: HResult; virtual; abstract;
- function InternalProcessInput(dwInputStreamIndex: DWORD; pBuffer: IMediaBuffer; dwFlags: DWORD; rtTimestamp, rtTimelength: TReferenceTime): HResult; virtual; abstract;
- function InternalProcessOutput(dwFlags, cOutputBufferCount: DWORD; var pOutputBuffers: TDMOOutputDataBufferArray; out pdwStatus: DWORD): HResult; virtual; abstract;
- function InternalAcceptingInput(dwInputStreamIndex: DWORD): HResult; virtual; abstract;
- procedure Lock; overload; virtual;
- procedure Unlock; virtual;
- // Helpers
- function InputTypeSet(ulInputStreamIndex: DWORD): BOOL; // const
- function OutputTypeSet(ulOutputStreamIndex: DWORD): BOOL; // const
- function InputType(ulInputStreamIndex: DWORD): PDMOMediaType;// const
- function OutputType(ulOutputStreamIndex: DWORD): PDMOMediaType; // const
- function CheckTypesSet: bool;
- public
- destructor Destroy; override;
- procedure Initialize; override;
- function GetStreamCount(out pulNumberOfInputStreams, pulNumberOfOutputStreams: DWORD): HResult; stdcall;
- function GetInputStreamInfo(ulStreamIndex: DWORD; out pdwFlags: DWORD): HResult; stdcall;
- function GetOutputStreamInfo(ulStreamIndex: DWORD; out pdwFlags: DWORD): HResult; stdcall;
- function GetInputType(ulStreamIndex, ulTypeIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetOutputType(ulStreamIndex, ulTypeIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetInputCurrentType(ulStreamIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetOutputCurrentType(ulStreamIndex: DWORD; out pmt: TDMOMediaType): HResult; stdcall;
- function GetInputSizeInfo(ulStreamIndex: DWORD; out pcbSize, pcbMaxLookahead, pcbAlignment: DWORD): HResult; stdcall;
- function GetOutputSizeInfo(ulStreamIndex: DWORD; out pcbSize, pcbAlignment: DWORD): HResult; stdcall;
- function SetInputType(ulStreamIndex: DWORD; const pmt: PDMOMediaType; dwFlags: DWORD): HResult; stdcall;
- function SetOutputType(ulStreamIndex: DWORD; const pmt: PDMOMediaType; dwFlags: DWORD): HResult; stdcall;
- function GetInputStatus(ulStreamIndex: DWORD; out pdwStatus: DWORD): HResult; stdcall;
- function GetInputMaxLatency(ulStreamIndex: DWORD; out prtLatency: TReferenceTime): HResult; stdcall;
- function SetInputMaxLatency(ulStreamIndex: DWORD; rtLatency: TReferenceTime): HResult; stdcall;
- function Flush: HResult; stdcall;
- function Discontinuity(ulStreamIndex: DWORD): HResult; stdcall;
- function AllocateStreamingResources: HResult; stdcall;
- function FreeStreamingResources: HResult; stdcall;
- function ProcessInput(ulStreamIndex: DWORD; pBuffer: IMediaBuffer; dwFlags: DWORD; rtTimestamp, rtTimelength: TReferenceTime): HResult; stdcall;
- function ProcessOutput(dwFlags, cOutputBufferCount: DWORD; var pOutputBuffers: TDMOOutputDataBufferArray; out pdwStatus: DWORD): HResult; stdcall;
- function Lock(bLock: Longint): HResult; overload; stdcall;
- end;
- {$ENDIF}
- //------------------------------------------------------------------------------
- // File: iwstdec.h
- //
- // Desc: WST Decoder related definitions and interfaces for ActiveMovie
- //
- // Copyright (c) 1999 - 2001, Microsoft Corporation. All rights reserved.
- //------------------------------------------------------------------------------
- //
- type
- PAM_WST_PAGE = ^TAM_WST_PAGE;
- _AM_WST_PAGE = record
- dwPageNr : DWORD;
- dwSubPageNr : DWORD;
- pucPageData : PByte;
- end;
- {$EXTERNALSYM _AM_WST_PAGE}
- AM_WST_PAGE = _AM_WST_PAGE;
- {$EXTERNALSYM AM_WST_PAGE}
- TAM_WST_PAGE = _AM_WST_PAGE;
- PAM_WST_LEVEL = ^TAM_WST_LEVEL;
- _AM_WST_LEVEL = (
- AM_WST_LEVEL_1_5
- );
- {$EXTERNALSYM _AM_WST_PAGE}
- AM_WST_LEVEL = _AM_WST_LEVEL;
- {$EXTERNALSYM AM_WST_LEVEL}
- TAM_WST_LEVEL = _AM_WST_LEVEL;
- PAM_WST_SERVICE = ^TAM_WST_SERVICE;
- _AM_WST_SERVICE = (
- AM_WST_SERVICE_None,
- AM_WST_SERVICE_Text,
- AM_WST_SERVICE_IDS,
- AM_WST_SERVICE_Invalid
- );
- {$EXTERNALSYM _AM_WST_SERVICE}
- AM_WST_SERVICE = _AM_WST_SERVICE;
- {$EXTERNALSYM AM_WST_SERVICE}
- TAM_WST_SERVICE = _AM_WST_SERVICE;
- PAM_WST_STATE = ^TAM_WST_STATE;
- _AM_WST_STATE = (
- AM_WST_STATE_Off,
- AM_WST_STATE_On
- );
- {$EXTERNALSYM _AM_WST_STATE}
- AM_WST_STATE = _AM_WST_STATE;
- {$EXTERNALSYM AM_WST_STATE}
- TAM_WST_STATE = _AM_WST_STATE;
- PAM_WST_STYLE = ^TAM_WST_STYLE;
- _AM_WST_STYLE = (
- AM_WST_STYLE_None,
- AM_WST_STYLE_Invers
- );
- {$EXTERNALSYM _AM_WST_STYLE}
- AM_WST_STYLE = _AM_WST_STYLE;
- {$EXTERNALSYM AM_WST_STYLE}
- TAM_WST_STYLE = _AM_WST_STYLE;
- PAM_WST_DRAWBGMODE = ^TAM_WST_DRAWBGMODE;
- _AM_WST_DRAWBGMODE = (
- AM_WST_DRAWBGMODE_Opaque,
- AM_WST_DRAWBGMODE_Transparent
- );
- {$EXTERNALSYM _AM_WST_DRAWBGMODE}
- AM_WST_DRAWBGMODE = _AM_WST_DRAWBGMODE;
- {$EXTERNALSYM AM_WST_DRAWBGMODE}
- TAM_WST_DRAWBGMODE = _AM_WST_DRAWBGMODE;
- //
- // WST Decoder standard COM interface
- //
- {$HPPEMIT 'typedef System::DelphiInterface<IAMWstDecoder> _di_IAMWstDecoder;'}
- {$EXTERNALSYM IAMWstDecoder}
- IAMWstDecoder = interface(IUnknown)
- ['{C056DE21-75C2-11d3-A184-00105AEF9F33}']
- // Decoder options to be used by apps
- // What is the decoder's level
- function GetDecoderLevel(out lpLevel : TAM_WST_LEVEL) : HRESULT; stdcall;
- // function SetDecoderLevel(Level : TAM_WST_LEVEL) : HRESULT; stdcall;
- // Which of the services is being currently used
- function GetCurrentService(out lpService : TAM_WST_SERVICE) : HRESULT; stdcall;
- // function SetCurrentService(Service : AM_WST_SERVICE) : HRESULT; stdcall;
- // Query/Set the service state (On/Off)
- // supported state values are AM_WSTState_On and AM_WSTState_Off
- function GetServiceState(out lpState : TAM_WST_STATE) : HRESULT; stdcall;
- function SetServiceState(State : TAM_WST_STATE) : HRESULT; stdcall;
- //
- // Output options to be used by downstream filters
- //
- // What size, bitdepth etc should the output video be
- function GetOutputFormat(out lpbmih : TBITMAPINFOHEADER) : HRESULT; stdcall;
- // GetOutputFormat() method, if successful, returns
- // 1. S_FALSE if no output format has so far been defined by downstream filters
- // 2. S_OK if an output format has already been defined by downstream filters
- function SetOutputFormat(lpbmi : PBITMAPINFO) : HRESULT; stdcall;
- // Specify physical color to be used in colorkeying the background
- // for overlay mixing
- function GetBackgroundColor(out pdwPhysColor : DWORD) : HRESULT; stdcall;
- function SetBackgroundColor(dwPhysColor : DWORD) : HRESULT; stdcall;
- // Specify if whole output bitmap should be redrawn for each sample
- function GetRedrawAlways(out lpbOption : BOOL) : HRESULT; stdcall;
- function SetRedrawAlways(bOption : BOOL) : HRESULT; stdcall;
- // Specify if the caption text background should be opaque/transparent
- function GetDrawBackgroundMode(out lpMode : TAM_WST_DRAWBGMODE) : HRESULT; stdcall;
- function SetDrawBackgroundMode(Mode : TAM_WST_DRAWBGMODE) : HRESULT; stdcall;
- // supported mode values are AM_WST_DrawBGMode_Opaque and
- // AM_WST_DrawBGMode_Transparent
- function SetAnswerMode(bAnswer : BOOL) : HRESULT; stdcall;
- function GetAnswerMode(out pbAnswer : BOOL) : HRESULT; stdcall;
- function SetHoldPage(bHoldPage : BOOL) : HRESULT; stdcall;
- function GetHoldPage(out pbHoldPage : BOOL) : HRESULT; stdcall;
- function GetCurrentPage(out pWstPage : TAM_WST_PAGE) : HRESULT; stdcall;
- function SetCurrentPage(WstPage : AM_WST_PAGE) : HRESULT; stdcall;
- end;
-
- implementation
- const
- Ole32 = 'ole32.dll';
- Quartz = 'quartz.dll';
- MSDmo = 'msdmo.dll';
- ksUser = 'Ksuser.dll';
- ksProxy = 'Ksproxy.ax';
- {$IFDEF DIRECTSHOW9_DYNAMIC_LINK}
- var
- Ole32Lib : THandle = 0;
- QuartzLib : THandle = 0;
- MSDmoLib : THandle = 0;
- ksUserLib : THandle = 0;
- ksProxyLib : THandle = 0;
- { Ole32 }
- _QzInitialize : function(pvReserved: Pointer): HResult; stdcall;
- _QzUninitialize : procedure; stdcall;
- _QzFreeUnusedLibraries : procedure; stdcall;
- _QzGetMalloc : function(dwMemContext: Longint; out malloc: IMalloc): HResult; stdcall;
- _QzTaskMemAlloc : function(cb: Longint): Pointer; stdcall;
- _QzTaskMemRealloc : function(pv: Pointer; cb: Longint): Pointer; stdcall;
- _QzTaskMemFree : procedure(pv: Pointer); stdcall;
- _QzCreateFilterObject : function(const clsid: TCLSID; unkOuter: IUnknown; dwClsContext: Longint; const iid: TIID; out pv): HResult; stdcall;
- _QzCLSIDFromString : function(psz: POleStr; out clsid: TCLSID): HResult; stdcall;
- _QzStringFromGUID2 : function(const guid: TGUID; psz: POleStr; cbMax: Integer): Integer; stdcall;
- { Quartz }
- _AMGetErrorTextA: function(hr: HResult; pbuffer: PChar; MaxLen: DWORD): DWORD; stdcall;
- _AMGetErrorTextW: function(hr: HResult; pbuffer: PWideChar; MaxLen: DWORD): DWORD; stdcall;
- // [pjh, 2003-07-14] ANSI and UNICODE declaration exchange
- {$IFDEF UNICODE}
- _AMGetErrorText: function(hr: HResult; pbuffer: PWideChar; MaxLen: DWORD): DWORD; stdcall;
- {$ELSE}
- _AMGetErrorText: function(hr: HResult; pbuffer: PChar; MaxLen: DWORD): DWORD; stdcall;
- {$ENDIF}
- { MSDmo }
- _DMORegister : function(szName: PWideChar; const clsidDMO, guidCategory: TGUID; dwFlags: DWORD; cInTypes: DWORD; const pInTypes: PDMO_PARTIAL_MEDIATYPE; cOutTypes: DWORD; const pOutTypes: PDMO_PARTIAL_MEDIATYPE): HResult; stdcall;
- _DMOUnregister : function(const clsidDMO, guidCategory: TGUID): HResult; stdcall;
- _DMOEnum : function(const guidCategory: TGUID; dwFlags: DWORD; cInTypes: DWORD; pInTypes: PDMO_PARTIAL_MEDIATYPE; cOutTypes: DWORD; pOutTypes: PDMO_PARTIAL_MEDIATYPE; out ppEnum: IEnumDMO): HResult; stdcall;
- _DMOGetTypes : function(const clsidDMO: TGUID; ulInputTypesRequested: ULONG; pulInputTypesSupplied: PULONG; pInputTypes: PDMO_PARTIAL_MEDIATYPE; ulOutputTypesRequested: ULONG; pulOutputTypesSupplied: PULONG; pOutputTypes: PDMO_PARTIAL_MEDIATYPE): HResult; stdcall;
- _DMOGetName : function(const clsidDMO: TGUID; szName: TDMOName): HResult; stdcall;
- _MoInitMediaType : function(pmt: PDMOMediaType; cbFormat: DWORD): HResult; stdcall;
- _MoFreeMediaType : function(pmt: PDMOMediaType): HResult; stdcall;
- _MoCopyMediaType : function(out pmtDest: TDMOMediaType; const pmtSrc: PDMOMediaType): HResult; stdcall;
- _MoCreateMediaType : function(out ppmt: PDMOMediaType; cbFormat: DWORD): HResult; stdcall;
- _MoDeleteMediaType : function(pmt: PDMOMediaType): HResult; stdcall;
- _MoDuplicateMediaType : function(out ppmtDest: PDMOMediaType; const pmtSrc: PDMOMediaType): HResult; stdcall;
- { KsUser }
- _KsCreateAllocator : function(ConnectionHandle: THandle; AllocatorFraming: PKSAllocatorFraming; out AllocatorHandle: PHandle): DWORD; stdcall;
- _KsCreateClock : function(ConnectionHandle: THandle; ClockCreate: PKSClockCreate; out ClockHandle: PHandle): DWORD; stdcall;
- _KsCreatePin : function(FilterHandle: THandle; Connect: PKSPinConnect; DesiredAccess: ACCESS_MASK; out ConnectionHandle: PHandle): DWORD; stdcall;
- _KsCreateTopologyNode : function(ParentHandle: THandle; NodeCreate: PKSNodeCreate; DesiredAccess: ACCESS_MASK; out NodeHandle: PHandle): DWORD; stdcall;
- { KsProxy }
- _KsResolveRequiredAttributes : function(DataRange: PKSDATARANGE; Attributes: PKSMULTIPLE_ITEM): HResult; stdcall;
- _KsOpenDefaultDevice : function(Category: TGUID; Access: ACCESS_MASK; DeviceHandle: PHANDLE): HResult; stdcall;
- _KsSynchronousDeviceControl : function(Handle: THandle; IoControl: ULONG; InBuffer: Pointer; InLength: ULONG; OutBuffer: Pointer; OutLength: ULONG; BytesReturned: PULONG): HResult; stdcall;
- _KsGetMultiplePinFactoryItems : function(FilterHandle: THandle; PinFactoryId: ULONG; PropertyId: ULONG; Items: Pointer): HResult; stdcall;
- _KsGetMediaTypeCount : function(FilterHandle: THandle; PinFactoryId: ULONG; out MediaTypeCount: ULONG): HResult; stdcall;
- _KsGetMediaType : function(Position: integer; out AmMediaType: TAMMediaType; FilterHandle: THandle; PinFactoryId: ULONG): HResult; stdcall;
- { Ole32 }
- function Ole32Loaded: Boolean;
- begin
- Result := ole32Lib <> 0;
- end;
- function UnLoadOle32: Boolean;
- begin
- Result:= True;
- if Ole32Loaded then
- begin
- Result := FreeLibrary(Ole32Lib);
- _QzInitialize := nil;
- _QzUninitialize := nil;
- _QzFreeUnusedLibraries := nil;
- _QzGetMalloc := nil;
- _QzTaskMemAlloc := nil;
- _QzTaskMemRealloc := nil;
- _QzTaskMemFree := nil;
- _QzCreateFilterObject := nil;
- _QzCLSIDFromString := nil;
- _QzStringFromGUID2 := nil;
- Ole32Lib := 0;
- end;
- end;
- function LoadOle32: Boolean;
- begin
- Result := Ole32Loaded;
- if (not Result) then
- begin
- Ole32Lib := LoadLibrary(Ole32);
- if Ole32Loaded then
- begin
- _QzInitialize := GetProcAddress(Ole32Lib, 'CoInitialize');
- _QzUninitialize := GetProcAddress(Ole32Lib, 'CoUninitialize');
- _QzFreeUnusedLibraries := GetProcAddress(Ole32Lib, 'CoFreeUnusedLibraries');
- _QzGetMalloc := GetProcAddress(Ole32Lib, 'CoGetMalloc');
- _QzTaskMemAlloc := GetProcAddress(Ole32Lib, 'CoTaskMemAlloc');
- _QzTaskMemRealloc := GetProcAddress(Ole32Lib, 'CoTaskMemRealloc');
- _QzTaskMemFree := GetProcAddress(Ole32Lib, 'CoTaskMemFree');
- _QzCreateFilterObject := GetProcAddress(Ole32Lib, 'CoCreateInstance');
- _QzCLSIDFromString := GetProcAddress(Ole32Lib, 'CLSIDFromString');
- _QzStringFromGUID2 := GetProcAddress(Ole32Lib, 'StringFromGUID2');
- Result:= Assigned(_QzInitialize) and Assigned(_QzUninitialize) and
- Assigned(_QzFreeUnusedLibraries) and Assigned(_QzGetMalloc) and
- Assigned(_QzTaskMemAlloc) and Assigned(_QzTaskMemRealloc) and
- Assigned(_QzTaskMemFree) and Assigned(_QzCreateFilterObject) and
- Assigned(_QzCLSIDFromString) and Assigned(_QzStringFromGUID2);
- if not Result then UnLoadOle32;
- end;
- end;
- end;
- function QzInitialize(pvReserved: Pointer): HResult; stdcall;
- begin
- LoadOle32;
- Result := _QzInitialize(pvReserved);
- end;
- procedure QzUninitialize; stdcall;
- begin
- LoadOle32;
- _QzUninitialize;
- end;
- procedure QzFreeUnusedLibraries; stdcall;
- begin
- LoadOle32;
- _QzFreeUnusedLibraries;
- end;
- function QzGetMalloc(dwMemContext: Longint; out malloc: IMalloc): HResult; stdcall;
- begin
- LoadOle32;
- Result := _QzGetMalloc(dwMemContext, malloc);
- end;
- function QzTaskMemAlloc(cb: Longint): Pointer; stdcall;
- begin
- LoadOle32;
- Result := _QzTaskMemAlloc(cb);
- end;
- function QzTaskMemRealloc(pv: Pointer; cb: Longint): Pointer; stdcall;
- begin
- LoadOle32;
- Result := _QzTaskMemRealloc(pv, cb);
- end;
- procedure QzTaskMemFree(pv: Pointer); stdcall;
- begin
- LoadOle32;
- _QzTaskMemFree(pv);
- end;
- function QzCreateFilterObject(const clsid: TCLSID; unkOuter: IUnknown;
- dwClsContext: Longint; const iid: TIID; out pv): HResult; stdcall;
- begin
- LoadOle32;
- Result := _QzCreateFilterObject(clsid, unkOuter, dwClsContext, iid, pv);
- end;
- function QzCLSIDFromString(psz: POleStr; out clsid: TCLSID): HResult; stdcall;
- begin
- LoadOle32;
- Result := _QzCLSIDFromString(psz, clsid);
- end;
- function QzStringFromGUID2(const guid: TGUID; psz: POleStr; cbMax: Integer): Integer; stdcall;
- begin
- LoadOle32;
- Result := _QzStringFromGUID2(guid, psz, cbMax);
- end;
- { Quartz }
- function QuartzLoaded: Boolean;
- begin
- Result := QuartzLib <> 0;
- end;
- function UnLoadQuartz: Boolean;
- begin
- Result:= True;
- if QuartzLoaded then
- begin
- Result := FreeLibrary(QuartzLib);
- _AMGetErrorTextA := nil;
- _AMGetErrorTextW := nil;
- _AMGetErrorText := nil;
- QuartzLib := 0;
- end;
- end;
- function LoadQuartz: Boolean;
- begin
- Result := QuartzLoaded;
- if (not Result) then
- begin
- QuartzLib := LoadLibrary(Quartz);
- if QuartzLoaded then
- begin
- _AMGetErrorTextA := GetProcAddress(QuartzLib, 'AMGetErrorTextA');
- _AMGetErrorTextW := GetProcAddress(QuartzLib, 'AMGetErrorTextW');
- // [pjh, 2003-07-14] ANSI and UNICODE declaration exchange
- {$IFDEF UNICODE}
- _AMGetErrorText := _AMGetErrorTextW;
- {$ELSE}
- _AMGetErrorText := _AMGetErrorTextA;
- {$ENDIF}
- Result:= Assigned(_AMGetErrorTextA) and Assigned(_AMGetErrorTextW);
- if not Result then UnLoadQuartz;
- end;
- end;
- end;
- function AMGetErrorTextA(hr: HResult; pbuffer: PChar; MaxLen: DWORD): DWORD; stdcall;
- begin
- LoadQuartz;
- Result := _AMGetErrorTextA(hr, pbuffer, MaxLen);
- end;
- function AMGetErrorTextW(hr: HResult; pbuffer: PWideChar; MaxLen: DWORD): DWORD; stdcall;
- begin
- LoadQuartz;
- Result := _AMGetErrorTextW(hr, pbuffer, MaxLen);
- end;
- // [pjh, 2003-07-14] ANSI and UNICODE declaration exchange
- {$IFDEF UNICODE}
- function AMGetErrorText(hr: HResult; pbuffer: PWideChar; MaxLen: DWORD): DWORD; stdcall;
- {$ELSE}
- function AMGetErrorText(hr: HResult; pbuffer: PChar; MaxLen: DWORD): DWORD; stdcall;
- {$ENDIF}
- begin
- LoadQuartz;
- Result := _AMGetErrorText(hr, pbuffer, MaxLen);
- end;
- { MSDmo }
- function MSDmoLoaded: Boolean;
- begin
- Result := MSDmoLib <> 0;
- end;
- function UnLoadMSDmo: Boolean;
- begin
- Result:= True;
- if MSDmoLoaded then
- begin
- Result := FreeLibrary(MSDmoLib);
- _DMORegister := nil;
- _DMOEnum := nil;
- _DMOUnregister := nil;
- _DMOGetTypes := nil;
- _DMOGetName := nil;
- _MoInitMediaType := nil;
- _MoFreeMediaType := nil;
- _MoCopyMediaType := nil;
- _MoCreateMediaType := nil;
- _MoDeleteMediaType := nil;
- _MoDuplicateMediaType := nil;
- MSDmoLib := 0;
- end;
- end;
- function LoadMSDmo: Boolean;
- begin
- Result := MSDmoLoaded;
- if (not Result) then
- begin
- MSDmoLib := LoadLibrary(MSDmo);
- if MSDmoLoaded then
- begin
- _DMORegister := GetProcAddress(MSDmoLib, 'DMORegister');
- _DMOEnum := GetProcAddress(MSDmoLib, 'DMOEnum');
- _DMOUnregister := GetProcAddress(MSDmoLib, 'DMOUnregister');
- _DMOGetTypes := GetProcAddress(MSDmoLib, 'DMOGetTypes');
- _DMOGetName := GetProcAddress(MSDmoLib, 'DMOGetName');
- _MoInitMediaType := GetProcAddress(MSDmoLib, 'MoInitMediaType');
- _MoFreeMediaType := GetProcAddress(MSDmoLib, 'MoFreeMediaType');
- _MoCopyMediaType := GetProcAddress(MSDmoLib, 'MoCopyMediaType');
- _MoCreateMediaType := GetProcAddress(MSDmoLib, 'MoCreateMediaType');
- _MoDeleteMediaType := GetProcAddress(MSDmoLib, 'MoDeleteMediaType');
- _MoDuplicateMediaType := GetProcAddress(MSDmoLib, 'MoDuplicateMediaType');
- Result:= Assigned(_DMORegister) and Assigned(_DMOEnum) and
- Assigned(_DMOUnregister) and Assigned(_DMOGetTypes) and
- Assigned(_DMOGetName) and Assigned(_MoInitMediaType) and
- Assigned(_MoFreeMediaType) and Assigned(_MoCopyMediaType) and
- Assigned(_MoCreateMediaType) and Assigned(_MoDeleteMediaType) and
- Assigned(_MoDuplicateMediaType);
- if not Result then UnLoadMSDmo;
- end;
- end;
- end;
- function DMORegister(szName: PWideChar; const clsidDMO, guidCategory: TGUID; dwFlags: DWORD;
- cInTypes: DWORD; const pInTypes: PDMO_PARTIAL_MEDIATYPE; cOutTypes: DWORD;
- const pOutTypes: PDMO_PARTIAL_MEDIATYPE): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _DMORegister(szName, clsidDMO, guidCategory, dwFlags, cInTypes,
- pInTypes, cOutTypes, pOutTypes);
- end;
- function DMOUnregister(const clsidDMO, guidCategory: TGUID): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _DMOUnregister(clsidDMO, guidCategory);
- end;
- function DMOEnum(const guidCategory: TGUID; dwFlags: DWORD; cInTypes: DWORD;
- pInTypes: PDMO_PARTIAL_MEDIATYPE; cOutTypes: DWORD;
- pOutTypes: PDMO_PARTIAL_MEDIATYPE; out ppEnum: IEnumDMO): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _DMOEnum(guidCategory, dwFlags, cInTypes, pInTypes, cOutTypes, pOutTypes, ppEnum);
- end;
- function DMOGetTypes(const clsidDMO: TGUID; ulInputTypesRequested: ULONG;
- pulInputTypesSupplied: PULONG; pInputTypes: PDMO_PARTIAL_MEDIATYPE;
- ulOutputTypesRequested: ULONG; pulOutputTypesSupplied: PULONG;
- pOutputTypes: PDMO_PARTIAL_MEDIATYPE): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _DMOGetTypes(clsidDMO, ulInputTypesRequested, pulInputTypesSupplied,
- pInputTypes, ulOutputTypesRequested, pulOutputTypesSupplied, pOutputTypes);
- end;
- function DMOGetName(const clsidDMO: TGUID; szName: TDMOName): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _DMOGetName(clsidDMO, szName);
- end;
- function MoInitMediaType(pmt: PDMOMediaType; cbFormat: DWORD): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _MoInitMediaType(pmt, cbFormat);
- end;
- function MoFreeMediaType(pmt: PDMOMediaType): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _MoFreeMediaType(pmt);
- end;
- function MoCopyMediaType(out pmtDest: TDMOMediaType; const pmtSrc: PDMOMediaType): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _MoCopyMediaType(pmtDest, pmtSrc);
- end;
- function MoCreateMediaType(out ppmt: PDMOMediaType; cbFormat: DWORD): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _MoCreateMediaType(ppmt, cbFormat);
- end;
- function MoDeleteMediaType(pmt: PDMOMediaType): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _MoDeleteMediaType(pmt);
- end;
- function MoDuplicateMediaType(out ppmtDest: PDMOMediaType; const pmtSrc: PDMOMediaType): HResult; stdcall;
- begin
- LoadMSDmo;
- Result := _MoDuplicateMediaType(ppmtDest, pmtSrc);
- end;
- { ksUser }
- function ksUserLoaded: Boolean;
- begin
- Result := ksUserLib <> 0;
- end;
- function UnLoadksUser: Boolean;
- begin
- Result:= True;
- if ksUserLoaded then
- begin
- Result := FreeLibrary(ksUserLib);
- _KsCreateAllocator := nil;
- _KsCreateClock := nil;
- _KsCreatePin := nil;
- _KsCreateTopologyNode := nil;
- ksUserLib := 0;
- end;
- end;
- function LoadksUser: Boolean;
- begin
- Result := ksUserLoaded;
- if (not Result) then
- begin
- ksUserLib := LoadLibrary(ksUser);
- if ksUserLoaded then
- begin
- _KsCreateAllocator := GetProcAddress(ksUserLib, 'KsCreateAllocator');
- _KsCreateClock := GetProcAddress(ksUserLib, 'KsCreateClock');
- _KsCreatePin := GetProcAddress(ksUserLib, 'KsCreatePin');
- _KsCreateTopologyNode := GetProcAddress(ksUserLib, 'KsCreateTopologyNode');
- Result:=
- Assigned(_KsCreateAllocator) and Assigned(_KsCreateClock) and
- Assigned(_KsCreatePin) and Assigned(_KsCreateTopologyNode);
- if not Result then UnLoadksUser;
- end;
- end;
- end;
- function KsCreateAllocator(ConnectionHandle: THandle; AllocatorFraming: PKSAllocatorFraming; out AllocatorHandle: PHandle): DWORD; stdcall;
- begin
- LoadksUser;
- Result := _KsCreateAllocator(ConnectionHandle, AllocatorFraming, AllocatorHandle);
- end;
- function KsCreateClock(ConnectionHandle: THandle; ClockCreate: PKSClockCreate; out ClockHandle: PHandle): DWORD; stdcall;
- begin
- LoadksUser;
- Result := _KsCreateClock(ConnectionHandle, ClockCreate, ClockHandle);
- end;
- function KsCreatePin(FilterHandle: THandle; Connect: PKSPinConnect; DesiredAccess: ACCESS_MASK; out ConnectionHandle: PHandle): DWORD; stdcall;
- begin
- LoadksUser;
- Result := _KsCreatePin(FilterHandle, Connect, DesiredAccess, ConnectionHandle);
- end;
- function KsCreateTopologyNode(ParentHandle: THandle; NodeCreate: PKSNodeCreate; DesiredAccess: ACCESS_MASK; out NodeHandle: PHandle): DWORD; stdcall;
- begin
- LoadksUser;
- Result := _KsCreateTopologyNode(ParentHandle, NodeCreate, DesiredAccess, NodeHandle);
- end;
- { KsProxy }
- function KsProxyLoaded: Boolean;
- begin
- Result := ksProxyLib <> 0;
- end;
- function UnLoadKsProxy: Boolean;
- begin
- Result:= True;
- if KsProxyLoaded then
- begin
- Result := FreeLibrary(KsProxyLib);
- _KsResolveRequiredAttributes := nil;
- _KsOpenDefaultDevice := nil;
- _KsSynchronousDeviceControl := nil;
- _KsGetMultiplePinFactoryItems := nil;
- _KsGetMediaTypeCount := nil;
- _KsGetMediaType := nil;
- KsProxyLib := 0;
- end;
- end;
- function LoadKsProxy: Boolean;
- begin
- Result := KsProxyLoaded;
- if (not Result) then
- begin
- KsProxyLib := LoadLibrary(KsProxy);
- if KsProxyLoaded then
- begin
- _KsResolveRequiredAttributes := GetProcAddress(KsProxyLib, 'KsResolveRequiredAttributes');
- _KsOpenDefaultDevice := GetProcAddress(KsProxyLib, 'KsOpenDefaultDevice');
- _KsSynchronousDeviceControl := GetProcAddress(KsProxyLib, 'KsSynchronousDeviceControl');
- _KsGetMultiplePinFactoryItems := GetProcAddress(KsProxyLib, 'KsGetMultiplePinFactoryItems');
- _KsGetMediaTypeCount := GetProcAddress(KsProxyLib, 'KsGetMediaTypeCount');
- _KsGetMediaType := GetProcAddress(KsProxyLib, 'KsGetMediaType');
- Result:= Assigned(_KsResolveRequiredAttributes) and Assigned(_KsOpenDefaultDevice) and
- Assigned(_KsSynchronousDeviceControl) and Assigned(_KsGetMultiplePinFactoryItems) and
- Assigned(_KsGetMediaTypeCount) and Assigned(_KsGetMediaType);
- if not Result then UnLoadKsProxy;
- end;
- end;
- end;
- function KsResolveRequiredAttributes(DataRange: PKSDATARANGE; Attributes: PKSMULTIPLE_ITEM): HResult; stdcall;
- begin
- LoadKsProxy;
- Result := _KsResolveRequiredAttributes(DataRange, Attributes);
- end;
- function KsOpenDefaultDevice(Category: TGUID; Access: ACCESS_MASK; DeviceHandle: PHANDLE): HResult; stdcall;
- begin
- LoadKsProxy;
- Result := _KsOpenDefaultDevice(Category, Access, DeviceHandle);
- end;
- function KsSynchronousDeviceControl(Handle: THandle; IoControl: ULONG; InBuffer: Pointer; InLength: ULONG; OutBuffer: Pointer; OutLength: ULONG; BytesReturned: PULONG): HResult; stdcall;
- begin
- LoadKsProxy;
- Result := _KsSynchronousDeviceControl(Handle, IoControl, InBuffer, InLength, OutBuffer, OutLength, BytesReturned);
- end;
- function KsGetMultiplePinFactoryItems(FilterHandle: THandle; PinFactoryId: ULONG; PropertyId: ULONG; Items: Pointer): HResult; stdcall;
- begin
- LoadKsProxy;
- Result := _KsGetMultiplePinFactoryItems(FilterHandle, PinFactoryId, PropertyId, Items);
- end;
- function KsGetMediaTypeCount(FilterHandle: THandle; PinFactoryId: ULONG; out MediaTypeCount: ULONG): HResult; stdcall;
- begin
- LoadKsProxy;
- Result := _KsGetMediaTypeCount(FilterHandle, PinFactoryId, MediaTypeCount);
- end;
- function KsGetMediaType(Position: integer; out AmMediaType: TAMMediaType; FilterHandle: THandle; PinFactoryId: ULONG): HResult; stdcall;
- begin
- LoadKsProxy;
- Result := _KsGetMediaType(Position, AmMediaType, FilterHandle, PinFactoryId);
- end;
- {$ELSE}
- function QzInitialize; external ole32 name 'CoInitialize';
- procedure QzUninitialize; external ole32 name 'CoUninitialize';
- procedure QzFreeUnusedLibraries; external ole32 name 'CoFreeUnusedLibraries';
- function QzGetMalloc; external ole32 name 'CoGetMalloc';
- function QzTaskMemAlloc; external ole32 name 'CoTaskMemAlloc';
- function QzTaskMemRealloc; external ole32 name 'CoTaskMemRealloc';
- procedure QzTaskMemFree; external ole32 name 'CoTaskMemFree';
- function QzCreateFilterObject; external ole32 name 'CoCreateInstance';
- function QzCLSIDFromString; external ole32 name 'CLSIDFromString';
- function QzStringFromGUID2; external ole32 name 'StringFromGUID2';
- function AMGetErrorTextA; external quartz name 'AMGetErrorTextA';
- function AMGetErrorTextW; external quartz name 'AMGetErrorTextW';
- function AMGetErrorText; external quartz name {$IFDEF UNICODE}'AMGetErrorTextW'{$ELSE}'AMGetErrorTextA'{$ENDIF};
- function DMORegister ; external msdmo name 'DMORegister';
- function DMOUnregister ; external msdmo name 'DMOUnregister';
- function DMOEnum ; external msdmo name 'DMOEnum';
- function DMOGetTypes ; external msdmo name 'DMOGetTypes';
- function DMOGetName ; external msdmo name 'DMOGetName';
- function MoInitMediaType ; external msdmo name 'MoInitMediaType';
- function MoFreeMediaType ; external msdmo name 'MoFreeMediaType';
- function MoCopyMediaType ; external msdmo name 'MoCopyMediaType';
- function MoCreateMediaType ; external msdmo name 'MoCreateMediaType';
- function MoDeleteMediaType ; external msdmo name 'MoDeleteMediaType';
- function MoDuplicateMediaType; external msdmo name 'MoDuplicateMediaType';
- function KsCreateAllocator ; external ksuser name 'KsCreateAllocator';
- function KsCreateClock ; external ksuser name 'KsCreateClock';
- function KsCreatePin ; external ksuser name 'KsCreatePin';
- function KsCreateTopologyNode; external ksuser name 'KsCreateTopologyNode';
- function KsGetMediaType ; external ksproxy name 'KsGetMediaType';
- function KsGetMediaTypeCount ; external ksproxy name 'KsGetMediaTypeCount';
- function KsGetMultiplePinFactoryItems; external ksproxy name 'KsGetMultiplePinFactoryItems';
- function KsOpenDefaultDevice ; external ksproxy name 'KsOpenDefaultDevice';
- function KsResolveRequiredAttributes ; external ksproxy name 'KsResolveRequiredAttributes';
- function KsSynchronousDeviceControl ; external ksproxy name 'KsSynchronousDeviceControl';
- {$ENDIF}
- {$IFDEF DELPHI4_UP}
- ////////////////////////////////////////////////////////////////////////////////
- //
- // TMediaObjectImpl
- //
- ///////////////////////////////////////////////////////////////////////////////
- type
- ILockIt = interface
- end;
- TLockIt = class(TInterfacedObject, ILockIt)
- private
- FMOI: TMediaObjectImpl;
- public
- constructor Create(MOI: TMediaObjectImpl);
- destructor Destroy; override;
- end;
- constructor TLockIt.Create(MOI: TMediaObjectImpl);
- begin
- FMOI := MOI;
- FMOI.Lock;
- end;
- destructor TLockIt.Destroy;
- begin
- FMOI.Unlock;
- FMOI := nil;
- end;
- //===================================================================
- // Helpers
- function TMediaObjectImpl.InputTypeSet(ulInputStreamIndex: DWORD): BOOL;
- begin
- ASSERT(ulInputStreamIndex < NUMBEROFINPUTS);
- Result := (0 <> m_InputInfo[ulInputStreamIndex].fTypeSet);
- end;
- function TMediaObjectImpl.OutputTypeSet(ulOutputStreamIndex: DWORD): BOOL;
- begin
- ASSERT(ulOutputStreamIndex < NUMBEROFOUTPUTS);
- Result := (0 <> m_OutputInfo[ulOutputStreamIndex].fTypeSet);
- end;
- function TMediaObjectImpl.InputType(ulInputStreamIndex: DWORD): PDMOMediaType;
- begin
- if (not InputTypeSet(ulInputStreamIndex)) then Result := nil
- else Result := @m_InputInfo[ulInputStreamIndex].CurrentMediaType;
- end;
- function TMediaObjectImpl.OutputType(ulOutputStreamIndex: DWORD): PDMOMediaType;
- begin
- if (not OutputTypeSet(ulOutputStreamIndex)) then Result := nil
- else Result := @m_OutputInfo[ulOutputStreamIndex].CurrentMediaType;
- end;
- function TMediaObjectImpl.CheckTypesSet: bool;
- var
- dw: Integer;
- dwFlags: DWORD;
- begin
- m_fTypesSet := False;
- for dw := 0 to (NUMBEROFINPUTS - 1) do
- begin
- if (not InputTypeSet(dw)) then
- begin
- Result := False;
- Exit;
- end;
- end;
- for dw := 0 to (NUMBEROFOUTPUTS - 1) do
- begin
- if (not OutputTypeSet(dw)) then
- begin
- // Check if it's optional
- {$IFDEF DEBUG}
- dwFlags := $FFFFFFFF;
- {$ENDIF}
- InternalGetOutputStreamInfo(dw, dwFlags);
- ASSERT(0 = (dwFlags and not (DMO_OUTPUT_STREAMF_WHOLE_SAMPLES or
- DMO_OUTPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER or
- DMO_OUTPUT_STREAMF_FIXED_SAMPLE_SIZE or
- DMO_OUTPUT_STREAMF_DISCARDABLE or
- DMO_OUTPUT_STREAMF_OPTIONAL)));
- if not ((dwFlags and DMO_OUTPUT_STREAMF_OPTIONAL) <> 0) then
- begin
- Result := False;
- Exit;
- end;
- end;
- end;
- m_fTypesSet := True;
- Result := True;
- end;
- procedure TMediaObjectImpl.Initialize;
- begin
- inherited;
- Assert((NUMBEROFINPUTS <> 0) or (NUMBEROFOUTPUTS <> 0),'NUMBEROFINPUTS or NUMBEROFOUTPUTS = 0');
- m_fTypesSet := False;
- m_fFlushed := True;
- m_fResourcesAllocated := False;
- SetLength(m_InputInfo, NUMBEROFINPUTS);
- SetLength(m_OutputInfo, NUMBEROFOUTPUTS);
- ZeroMemory(m_InputInfo, SizeOf(TMOinplIOInfo)*NUMBEROFINPUTS);
- ZeroMemory(m_OutputInfo, SizeOf(TMOinplIOInfo)*NUMBEROFOUTPUTS);
- fCritSection:= TCriticalSection.Create;
- end;
- destructor TMediaObjectImpl.Destroy;
- var
- dwCurrentType: Integer;
- begin
- for dwCurrentType := 0 to (NUMBEROFINPUTS - 1) do
- begin
- if (InputTypeSet(dwCurrentType)) then
- MoFreeMediaType(@m_InputInfo[dwCurrentType].CurrentMediaType);
- end;
- for dwCurrentType := 0 to (NUMBEROFOUTPUTS - 1) do
- begin
- if (OutputTypeSet(dwCurrentType)) then
- MoFreeMediaType(@m_OutputInfo[dwCurrentType].CurrentMediaType);
- end;
- fCritSection.Free;
- inherited Destroy;
- end;
- //
- // IMediaObject methods
- //
- function TMediaObjectImpl.GetStreamCount(out pulNumberOfInputStreams, pulNumberOfOutputStreams: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- lck := TLockIt.Create(Self);
- pulNumberOfInputStreams := NUMBEROFINPUTS;
- pulNumberOfOutputStreams := NUMBEROFOUTPUTS;
- Result := S_OK;
- end;
- function TMediaObjectImpl.GetInputStreamInfo(ulStreamIndex: DWORD; out pdwFlags: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- lck := TLockIt.Create(Self);
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (@pdwFlags = nil) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- Result := InternalGetInputStreamInfo(ulStreamIndex, pdwFlags);
- ASSERT(0 = (pdwFlags and not (DMO_INPUT_STREAMF_WHOLE_SAMPLES or
- DMO_INPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER or
- DMO_INPUT_STREAMF_FIXED_SAMPLE_SIZE or
- DMO_INPUT_STREAMF_HOLDS_BUFFERS)));
- end;
- function TMediaObjectImpl.GetOutputStreamInfo(ulStreamIndex: DWORD; out pdwFlags: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- lck:= TLockIt.Create(Self);
- if (ulStreamIndex >= NUMBEROFOUTPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (@pdwFlags = nil) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- Result := InternalGetOutputStreamInfo(ulStreamIndex, pdwFlags);
- ASSERT(0 = (pdwFlags and not(DMO_OUTPUT_STREAMF_WHOLE_SAMPLES or
- DMO_OUTPUT_STREAMF_SINGLE_SAMPLE_PER_BUFFER or
- DMO_OUTPUT_STREAMF_FIXED_SAMPLE_SIZE or
- DMO_OUTPUT_STREAMF_DISCARDABLE or
- DMO_OUTPUT_STREAMF_OPTIONAL)));
- end;
- function TMediaObjectImpl.GetInputType(ulStreamIndex, ulTypeIndex: DWORD;
- out pmt: TDMOMediaType): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- lck:= TLockIt.Create(Self);
- Result := InternalGetInputType(ulStreamIndex, ulTypeIndex, pmt);
- end;
- function TMediaObjectImpl.GetOutputType(ulStreamIndex, ulTypeIndex: DWORD;
- out pmt: TDMOMediaType): HResult; stdcall;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFOUTPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- lck := TLockIt.Create(Self);
- Result := InternalGetOutputType(ulStreamIndex, ulTypeIndex, pmt);
- end;
- function TMediaObjectImpl.GetInputCurrentType(ulStreamIndex: DWORD;
- out pmt: TDMOMediaType): HResult; stdcall;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (nil = @pmt) then
- begin
- Result:= E_POINTER;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if (InputTypeSet(ulStreamIndex))
- then Result := MoCopyMediaType(pmt, @m_InputInfo[ulStreamIndex].CurrentMediaType)
- else
- {$IFDEF VER120}
- Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- end;
- function TMediaObjectImpl.GetOutputCurrentType(ulStreamIndex: DWORD;
- out pmt: TDMOMediaType): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFOUTPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (nil = @pmt) then
- begin
- Result:= E_POINTER;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if (OutputTypeSet(ulStreamIndex))
- then Result := MoCopyMediaType(pmt, @m_OutputInfo[ulStreamIndex].CurrentMediaType)
- {$IFDEF VER120}
- else Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- else Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- end;
- function TMediaObjectImpl.GetInputSizeInfo(ulStreamIndex: DWORD; out pcbSize, pcbMaxLookahead, pcbAlignment: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (nil = @pcbSize) or (nil = @pcbMaxLookahead) or (nil = @pcbAlignment) then
- begin
- Result:= E_POINTER;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if (not InputTypeSet(ulStreamIndex)) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- Exit;
- end;
- Result := InternalGetInputSizeInfo(ulStreamIndex, pcbSize, pcbMaxLookahead, pcbAlignment);
- end;
- function TMediaObjectImpl.GetOutputSizeInfo(ulStreamIndex: DWORD; out pcbSize, pcbAlignment: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFOUTPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (nil = @pcbSize) or (nil = @pcbAlignment) then
- begin
- Result:= E_POINTER;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if ((not m_fTypesSet) or (not OutputTypeSet(ulStreamIndex))) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- Exit;
- end;
- Result := InternalGetOutputSizeInfo(ulStreamIndex, pcbSize, pcbAlignment);
- end;
- function TMediaObjectImpl.SetInputType(ulStreamIndex: DWORD; const pmt: PDMOMediaType; dwFlags: DWORD): HResult;
- var
- lck: ILockIt;
- mtTemp: TDMOMediaType;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if ((dwFlags and not(DMO_SET_TYPEF_CLEAR or DMO_SET_TYPEF_TEST_ONLY)) <> 0) then
- begin
- Result := E_INVALIDARG;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if ((dwFlags and DMO_SET_TYPEF_CLEAR) <> 0) then
- begin
- MoFreeMediaType(@m_InputInfo[ulStreamIndex].CurrentMediaType);
- m_InputInfo[ulStreamIndex].fTypeSet := Integer(False);
- if (not CheckTypesSet) then
- begin
- Flush;
- FreeStreamingResources;
- end;
- Result := NOERROR;
- Exit;
- end;
- if (nil = pmt) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- Result := InternalCheckInputType(ulStreamIndex, pmt); // DMO_E_TYPE_NOT_ACCEPTED, S_FALSE
- if FAILED(Result) or (Result = S_FALSE) then Exit;
- if ((dwFlags and DMO_SET_TYPEF_TEST_ONLY) <> 0) then
- begin
- Result := NOERROR;
- Exit;
- end;
- // actually set the type
- if (S_OK = MoCopyMediaType(mtTemp, pmt)) then
- begin
- // Free any previous mediatype
- if (InputTypeSet(ulStreamIndex)) then
- MoFreeMediaType(@m_InputInfo[ulStreamIndex].CurrentMediaType);
- m_InputInfo[ulStreamIndex].CurrentMediaType := mtTemp;
- m_InputInfo[ulStreamIndex].fTypeSet := Integer(True);
- CheckTypesSet;
- end else
- begin
- Result := E_OUTOFMEMORY;
- Exit;
- end;
- Result := NOERROR;
- end;
- function TMediaObjectImpl.SetOutputType(ulStreamIndex: DWORD; const pmt: PDMOMediaType; dwFlags: DWORD): HResult;
- var
- lck: ILockIt;
- mtTemp: TDMOMediaType;
- begin
- if (ulStreamIndex >= NUMBEROFOUTPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (dwFlags and not(DMO_SET_TYPEF_CLEAR or DMO_SET_TYPEF_TEST_ONLY) <> 0) then
- begin
- Result := E_INVALIDARG;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if ((dwFlags and DMO_SET_TYPEF_CLEAR) <> 0) then
- begin
- MoFreeMediaType(@m_OutputInfo[ulStreamIndex].CurrentMediaType);
- m_OutputInfo[ulStreamIndex].fTypeSet := 0;
- if (not CheckTypesSet) then
- begin
- Flush;
- FreeStreamingResources;
- end;
- Result := NOERROR;
- Exit;
- end;
- if (nil = pmt) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- Result := InternalCheckOutputType(ulStreamIndex, pmt);
- if FAILED(Result) or (Result = S_FALSE) then Exit;
- if ((dwFlags and DMO_SET_TYPEF_TEST_ONLY) <> 0) then
- begin
- Result := NOERROR;
- Exit;
- end;
- // actually set the type
- if (S_OK = MoCopyMediaType(mtTemp, pmt)) then
- begin
- // Free any previous mediatype
- if (OutputTypeSet(ulStreamIndex)) then
- MoFreeMediaType(@m_OutputInfo[ulStreamIndex].CurrentMediaType);
- m_OutputInfo[ulStreamIndex].CurrentMediaType := mtTemp;
- m_OutputInfo[ulStreamIndex].fTypeSet := Integer(True);
- CheckTypesSet;
- end
- else
- begin
- Result := E_OUTOFMEMORY;
- Exit;
- end;
- Result := NOERROR;
- end;
- function TMediaObjectImpl.GetInputStatus(ulStreamIndex: DWORD; out pdwStatus: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if (nil = @pdwStatus) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- pdwStatus := 0;
- lck := TLockIt.Create(Self);
- if (not m_fTypesSet) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- Exit;
- end;
- if (InternalAcceptingInput(ulStreamIndex) = S_OK) then
- pdwStatus := pdwStatus or DMO_INPUT_STATUSF_ACCEPT_DATA;
- Result := NOERROR;
- end;
- function TMediaObjectImpl.GetInputMaxLatency(ulStreamIndex: DWORD; out prtLatency: TReferenceTime): HResult;
- var
- lck: ILockIt;
- begin
- if (@prtLatency = nil) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- lck := TLockIt.Create(Self);
- Result := InternalGetInputMaxLatency(ulStreamIndex, prtLatency);
- end;
- function TMediaObjectImpl.SetInputMaxLatency(ulStreamIndex: DWORD; rtLatency: TReferenceTime): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- lck := TLockIt.Create(Self);
- Result := InternalSetInputMaxLatency(ulStreamIndex, rtLatency);
- end;
- function TMediaObjectImpl.Discontinuity(ulStreamIndex: DWORD): HResult;
- var
- lck: ILockIt;
- begin
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- lck := TLockIt.Create(Self);
- if (not m_fTypesSet) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- Exit;
- end;
- if (S_OK <> InternalAcceptingInput(ulStreamIndex)) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_NOTACCEPTING;
- {$ELSE}
- Result := Longint(DMO_E_NOTACCEPTING);
- {$ENDIF}
- Exit;
- end;
- Result := InternalDiscontinuity(ulStreamIndex);
- end;
- function TMediaObjectImpl.Flush: HResult;
- var
- lck: ILockIt;
- begin
- lck := TLockIt.Create(Self);
- if (not m_fTypesSet) then
- begin
- Result := S_OK;
- Exit;
- end;
- if (m_fFlushed) then
- begin
- Result := S_OK;
- Exit;
- end;
- Result := InternalFlush;
- m_fFlushed := True;
- end;
- function TMediaObjectImpl.AllocateStreamingResources: HResult;
- var
- lck: ILockIt;
- begin
- lck := TLockIt.Create(Self);
- if (not m_fTypesSet) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_TYPE_NOT_SET;
- {$ELSE}
- Result := Longint(DMO_E_TYPE_NOT_SET);
- {$ENDIF}
- Exit;
- end;
- if (m_fResourcesAllocated) then
- begin
- Result := S_OK;
- Exit;
- end;
- Result := InternalAllocateStreamingResources;
- if SUCCEEDED(Result) then m_fResourcesAllocated := True;
- end;
- function TMediaObjectImpl.FreeStreamingResources: HResult;
- var
- lck: ILockIt;
- begin
- lck := TLockIt.Create(Self);
- if (m_fResourcesAllocated) then
- begin
- m_fResourcesAllocated := False;
- InternalFlush;
- Result := InternalFreeStreamingResources;
- Exit;
- end;
- Result := S_OK;
- end;
- //
- // Processing methods - public entry points
- //
- function TMediaObjectImpl.ProcessInput(ulStreamIndex: DWORD; pBuffer: IMediaBuffer; dwFlags: DWORD;
- rtTimestamp, rtTimelength: TReferenceTime): HResult; stdcall;
- var
- lck: ILockIt;
- begin
- if (nil = pBuffer) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- if (ulStreamIndex >= NUMBEROFINPUTS) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_INVALIDSTREAMINDEX;
- {$ELSE}
- Result := Longint(DMO_E_INVALIDSTREAMINDEX);
- {$ENDIF}
- Exit;
- end;
- if ((dwFlags and not (DMO_INPUT_DATA_BUFFERF_SYNCPOINT or
- DMO_INPUT_DATA_BUFFERF_TIME or
- DMO_INPUT_DATA_BUFFERF_TIMELENGTH)) <> 0) then
- begin
- Result := E_INVALIDARG;
- Exit;
- end;
- lck := TLockIt.Create(Self);
- // Make sure all streams have media types set and resources are allocated
- Result := AllocateStreamingResources;
- if FAILED(Result) then Exit;
- if (InternalAcceptingInput(ulStreamIndex) <> S_OK) then
- begin
- {$IFDEF VER120}
- Result := DMO_E_NOTACCEPTING;
- {$ELSE}
- Result := Longint(DMO_E_NOTACCEPTING);
- {$ENDIF}
- Exit;
- end;
- m_fFlushed := False;
- Result := InternalProcessInput(ulStreamIndex, pBuffer, dwFlags, rtTimestamp, rtTimelength);
- end;
- function TMediaObjectImpl.ProcessOutput(dwFlags, cOutputBufferCount: DWORD; var pOutputBuffers: TDMOOutputDataBufferArray;
- out pdwStatus: DWORD): HResult; stdcall;
- var
- dw: Integer;
- lck: ILockIt;
- begin
- if (@pdwStatus = nil) then
- begin
- Result:= E_POINTER;
- Exit;
- end;
- if (cOutputBufferCount <> NUMBEROFOUTPUTS) or
- ((dwFlags and not DMO_PROCESS_OUTPUT_DISCARD_WHEN_NO_BUFFER) <> 0) then
- begin
- Result := E_INVALIDARG;
- Exit;
- end;
- if ((NUMBEROFOUTPUTS <> 0) and (@pOutputBuffers = nil)) then
- begin
- Result := E_POINTER;
- Exit;
- end;
- pdwStatus := 0;
- lck := TLockIt.Create(Self);
- Result := AllocateStreamingResources;
- if (FAILED(Result)) then Exit;
- for dw := 0 to NUMBEROFOUTPUTS - 1 do pOutputBuffers[dw].dwStatus := 0;
- Result := InternalProcessOutput(dwFlags, cOutputBufferCount, pOutputBuffers, pdwStatus);
- // remember the DMO's incomplete status
- for dw := 0 to NUMBEROFOUTPUTS - 1 do
- begin
- if ((pOutputBuffers[dw].dwStatus and DMO_OUTPUT_DATA_BUFFERF_INCOMPLETE) <> 0)
- then m_OutputInfo[dw].fIncomplete := Integer(True)
- else m_OutputInfo[dw].fIncomplete := Integer(False);
- end;
- end;
- function TMediaObjectImpl.Lock(bLock: Longint): HResult; stdcall;
- begin
- if (bLock <> 0) then Lock else Unlock;
- Result := S_Ok;
- end;
- procedure TMediaObjectImpl.Lock;
- begin
- fCritSection.Enter;
- end;
- procedure TMediaObjectImpl.Unlock;
- begin
- fCritSection.Leave;
- end;
- {$ENDIF}
- initialization
- {$IFDEF DIRECTSHOW9_DYNAMIC_LINK}
- _QzInitialize := nil;
- _QzUninitialize := nil;
- _QzFreeUnusedLibraries := nil;
- _QzGetMalloc := nil;
- _QzTaskMemAlloc := nil;
- _QzTaskMemRealloc := nil;
- _QzTaskMemFree := nil;
- _QzCreateFilterObject := nil;
- _QzCLSIDFromString := nil;
- _QzStringFromGUID2 := nil;
- {$ENDIF}
- finalization
- {$IFDEF DIRECTSHOW9_DYNAMIC_LINK}
- UnLoadOle32;
- UnLoadQuartz;
- UnLoadMSDmo;
- UnLoadksUser;
- UnLoadKsProxy;
- {$ENDIF}
- end.
|
