Re: [BLACKBOX] Movie capture

From: [at]} <Marc>
Date: Wed, 6 Jan 2010 11:54:09 -0800

----boundary-LibPST-iamunique-336899967_-_-
Content-type: text/plain

> Does anyone have a way to capture animated images created by
> BlackBox in some format that can then be posted to YouTube?

Yes, a third party screen capture utility is probably the easiest
solution. I once implemented video capture capability within my
Blackbox application, which depended on some of the old Microsoft
Windows AVI routines. This would be a more difficult solution. :-)
My Component Pascal interface to these routines is attached below.

Marc

--------------------------------------------------------------------


TYPE
  PAVIFILE* = INTEGER;
  PAVISTREAM*= INTEGER;
  StringPtr* = POINTER TO ARRAY [untagged] OF CHAR;
 
  AVISTREAMINFOW* = RECORD [untagged]
    fccType*, fccHandler*, dwFlags*, dwCaps*: INTEGER;
    wPriority*, wLanguage*: SHORTINT;
    dwScale*, dwRate*, dwStart*, dwLength*, dwInitialFrames*, dwSuggestedBufferSize*,
    dwQuality*, dwSampleSize*, rect_left*, rect_top*, rect_right*, rect_bottom*,
    dwEditCount*, dwFormatChangeCount*: INTEGER;
    szName*: ARRAY [untagged] 64 OF CHAR;
  END;


PROCEDURE AVIFileInit* ["AVIFIL32.DLL", "AVIFileInit"] ();


PROCEDURE AVIFileOpen* ["AVIFIL32.DLL", "AVIFileOpenW"]
( VAR ppFile: PAVIFILE;
      szFile: StringPtr;
      uMode: INTEGER;
      lpHandler: INTEGER
 ): INTEGER;


PROCEDURE AVIFileCreateStream* ["AVIFIL32.DLL", "AVIFileCreateStream"]
( pfile : PAVIFILE;
  VAR pavi : PAVISTREAM;
  VAR psi : AVISTREAMINFOW
 ): INTEGER;


PROCEDURE AVIStreamSetFormat* ["AVIFIL32.DLL", "AVIStreamSetFormat"]
( pavi : PAVISTREAM;
      pos : INTEGER;
 VAR format : WinApi.BITMAPINFOHEADER;
      formatsize: INTEGER
): INTEGER;
      

PROCEDURE AVIStreamWrite* ["AVIFIL32.DLL", "AVIStreamWrite"]
( pavi : PAVISTREAM;
      start : INTEGER;
      samples : INTEGER;
      buffer : INTEGER;
      buffersize : INTEGER;
      flags : INTEGER;
  VAR sampWritten : INTEGER;
  VAR bytesWritten : INTEGER
): INTEGER;


PROCEDURE AVIStreamRelease* ["AVIFIL32.DLL", "AVIStreamRelease"]
( pavi: PAVISTREAM ): INTEGER;


PROCEDURE AVIFileRelease* ["AVIFIL32.DLL", "AVIFileRelease"]
( pfile: PAVIFILE ): INTEGER;


PROCEDURE AVIFileExit* ["AVIFIL32.DLL", "AVIFileExit"] ();

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-336899967_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4gXHRhYiBEb2VzIGFueW9uZSBoYXZlIGEgd2F5
IHRvIGNhcHR1cmUgYW5pbWF0ZWQgaW1hZ2VzIGNyZWF0ZWQgYnlccGFyDQo+IFx0YWIgQmxhY2tC
b3ggaW4gc29tZSBmb3JtYXQgdGhhdCBjYW4gdGhlbiBiZSBwb3N0ZWQgdG8gWW91VHViZT9ccGFy
DQpccGFyDQpZZXMsIGEgdGhpcmQgcGFydHkgc2NyZWVuIGNhcHR1cmUgdXRpbGl0eSBpcyBwcm9i
YWJseSB0aGUgZWFzaWVzdFxwYXINCnNvbHV0aW9uLiAgSSBvbmNlIGltcGxlbWVudGVkIHZpZGVv
IGNhcHR1cmUgY2FwYWJpbGl0eSB3aXRoaW4gbXlccGFyDQpCbGFja2JveCBhcHBsaWNhdGlvbiwg
d2hpY2ggZGVwZW5kZWQgb24gc29tZSBvZiB0aGUgb2xkIE1pY3Jvc29mdFxwYXINCldpbmRvd3Mg
QVZJIHJvdXRpbmVzLiAgVGhpcyB3b3VsZCBiZSBhIG1vcmUgZGlmZmljdWx0IHNvbHV0aW9uLiAg
Oi0pXHBhcg0KTXkgQ29tcG9uZW50IFBhc2NhbCBpbnRlcmZhY2UgdG8gdGhlc2Ugcm91dGluZXMg
aXMgYXR0YWNoZWQgYmVsb3cuXHBhcg0KXHBhcg0KTWFyY1xwYXINClxwYXINCi0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
XHBhcg0KXHBhcg0KXHBhcg0KVFlQRSBccGFyDQogIFBBVklGSUxFKiAgPSBJTlRFR0VSO1xwYXIN
CiAgUEFWSVNUUkVBTSo9IElOVEVHRVI7XHBhcg0KICBTdHJpbmdQdHIqID0gUE9JTlRFUiBUTyBB
UlJBWSBbdW50YWdnZWRdIE9GIENIQVI7XHBhcg0KIFxwYXINCiAgQVZJU1RSRUFNSU5GT1cqID0g
UkVDT1JEIFt1bnRhZ2dlZF1ccGFyDQogICAgZmNjVHlwZSosIGZjY0hhbmRsZXIqLCBkd0ZsYWdz
KiwgZHdDYXBzKjogSU5URUdFUjtccGFyDQogICAgd1ByaW9yaXR5Kiwgd0xhbmd1YWdlKjogU0hP
UlRJTlQ7XHBhcg0KICAgIGR3U2NhbGUqLCBkd1JhdGUqLCBkd1N0YXJ0KiwgZHdMZW5ndGgqLCBk
d0luaXRpYWxGcmFtZXMqLCBkd1N1Z2dlc3RlZEJ1ZmZlclNpemUqLFxwYXINCiAgICBkd1F1YWxp
dHkqLCBkd1NhbXBsZVNpemUqLCByZWN0X2xlZnQqLCByZWN0X3RvcCosIHJlY3RfcmlnaHQqLCBy
ZWN0X2JvdHRvbSosIFxwYXINCiAgICBkd0VkaXRDb3VudCosIGR3Rm9ybWF0Q2hhbmdlQ291bnQq
OiBJTlRFR0VSO1xwYXINCiAgICBzek5hbWUqOiBBUlJBWSBbdW50YWdnZWRdIDY0IE9GIENIQVI7
XHBhcg0KICBFTkQ7XHBhcg0KXHBhcg0KXHBhcg0KUFJPQ0VEVVJFIEFWSUZpbGVJbml0KiBbIkFW
SUZJTDMyLkRMTCIsICJBVklGaWxlSW5pdCJdICgpO1xwYXINClxwYXINClxwYXINClBST0NFRFVS
RSBBVklGaWxlT3BlbiogWyJBVklGSUwzMi5ETEwiLCAiQVZJRmlsZU9wZW5XIl1ccGFyDQooIFZB
UiBwcEZpbGU6ICAgIFBBVklGSUxFO1xwYXINCiAgICAgIHN6RmlsZTogICAgU3RyaW5nUHRyO1xw
YXINCiAgICAgIHVNb2RlOiAgICAgSU5URUdFUjtccGFyDQogICAgICBscEhhbmRsZXI6IElOVEVH
RVJccGFyDQogKTogSU5URUdFUjtccGFyDQpccGFyDQpccGFyDQpQUk9DRURVUkUgQVZJRmlsZUNy
ZWF0ZVN0cmVhbSogWyJBVklGSUwzMi5ETEwiLCAiQVZJRmlsZUNyZWF0ZVN0cmVhbSJdXHBhcg0K
KCAgICAgcGZpbGUgOiBQQVZJRklMRTtccGFyDQogIFZBUiBwYXZpICA6IFBBVklTVFJFQU07XHBh
cg0KICBWQVIgcHNpICAgOiBBVklTVFJFQU1JTkZPV1xwYXINCiApOiBJTlRFR0VSO1xwYXINClxw
YXINClxwYXINClBST0NFRFVSRSBBVklTdHJlYW1TZXRGb3JtYXQqIFsiQVZJRklMMzIuRExMIiwg
IkFWSVN0cmVhbVNldEZvcm1hdCJdXHBhcg0KKCAgICAgcGF2aSAgICAgIDogUEFWSVNUUkVBTTtc
cGFyDQogICAgICBwb3MgICAgICAgOiBJTlRFR0VSO1xwYXINCiBWQVIgIGZvcm1hdCAgICA6IFdp
bkFwaS5CSVRNQVBJTkZPSEVBREVSO1xwYXINCiAgICAgIGZvcm1hdHNpemU6IElOVEVHRVIgXHBh
cg0KKTogSU5URUdFUjtccGFyDQogICAgICBccGFyDQpccGFyDQpQUk9DRURVUkUgQVZJU3RyZWFt
V3JpdGUqIFsiQVZJRklMMzIuRExMIiwgIkFWSVN0cmVhbVdyaXRlIl1ccGFyDQooICAgICBwYXZp
ICAgICAgICAgIDogUEFWSVNUUkVBTTtccGFyDQogICAgICBzdGFydCAgICAgICAgIDogSU5URUdF
UjtccGFyDQogICAgICBzYW1wbGVzICAgICAgIDogSU5URUdFUjtccGFyDQogICAgICBidWZmZXIg
ICAgICAgIDogSU5URUdFUjtccGFyDQogICAgICBidWZmZXJzaXplICAgIDogSU5URUdFUjtccGFy
DQogICAgICBmbGFncyAgICAgICAgIDogSU5URUdFUjtccGFyDQogIFZBUiBzYW1wV3JpdHRlbiAg
IDogSU5URUdFUjtccGFyDQogIFZBUiBieXRlc1dyaXR0ZW4gIDogSU5URUdFUiBccGFyDQopOiBJ
TlRFR0VSO1xwYXINClxwYXINClxwYXINClBST0NFRFVSRSBBVklTdHJlYW1SZWxlYXNlKiBbIkFW
SUZJTDMyLkRMTCIsICJBVklTdHJlYW1SZWxlYXNlIl1ccGFyDQooIHBhdmk6IFBBVklTVFJFQU0g
KTogSU5URUdFUjtccGFyDQpccGFyDQpccGFyDQpQUk9DRURVUkUgQVZJRmlsZVJlbGVhc2UqIFsi
QVZJRklMMzIuRExMIiwgIkFWSUZpbGVSZWxlYXNlIl1ccGFyDQooIHBmaWxlOiBQQVZJRklMRSAp
OiBJTlRFR0VSO1xwYXINClxwYXINClxwYXINClBST0NFRFVSRSBBVklGaWxlRXhpdCogWyJBVklG
SUwzMi5ETEwiLCAiQVZJRmlsZUV4aXQiXSAoKTtccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0K
VG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JP
WCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIfX0AMS5pbg==
----boundary-LibPST-iamunique-336899967_-_---

Received on Wed Jan 06 2010 - 20:54:09 UTC