﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / Программирование / Visual Basic  / Как одновременно в AVI записывать звук / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://www.relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Sat, 10 Jan 2009 06:56:19 GMT</lastBuildDate><ttl>20</ttl><item><title>Как одновременно в AVI записывать звук</title><link>http://www.relib.com/forums/Topic910728-1-1.aspx</link><description>Здравствуйте. Вот таким методом я считываю изображение с экрана и записываю в созданный AVI.&lt;br&gt;Вопрос: Как сюда же считать и записать звук с выбранного девайса и источника.&lt;br&gt;&lt;br&gt;[code]  'скопируем выделенный участок изображения на временный контекст&lt;br&gt;  Call BitBlt(TmpDC, x,y,w,h, hDc, srcX, srcY vbSrcCopy)&lt;br&gt;&lt;br&gt;  'захват изображения из пикчурбокса&lt;br&gt;  Call GetDIBits(tmpDC, tmpBmp, 0, h, cArray(0), bmpInfo, 0)&lt;br&gt;&lt;br&gt;  res = AVIStreamWrite(psCompressed, dwFrames, 1, VarPtr(cArray(0)), dwSize, AVIIF_KEYFRAME, ByVal 0&amp;, ByVal 0&amp;)&lt;br&gt;&lt;br&gt;Буду премного благодарен.[/code]</description><pubDate>Tue, 13 Feb 2007 10:06:21 GMT</pubDate><dc:creator>SCINER</dc:creator></item></channel></rss>