以下是我的程式，我把影像撥放到Panel上，我想抓圖到image上，要怎做呢? 我還想用Timer來控制，要怎做呢?

無聊的阿狼 您好：

引言:以下是我的程式，我把影像撥放到Panel上，我想抓圖到image上，要怎做呢? 我還想用Timer來控制，要怎做呢?

不清楚您所謂的用 Timer 來控制是要控制什麼？先參考下列這一篇裡邊連結的討論文章吧，如果不符您所需的話，請再描述清楚一點。 請問如何在BCB上用webcan取得影像? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=78923 7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/09/27 11:55:35

版主大大，我看不太懂耶(很抱歉喔!我還是新手)

引言: 版主大大，我看不太懂耶(很抱歉喔!我還是新手)

哪裡不懂,您是不是應該把有疑問的程式碼po上來

void __fastcall TForm1::Button1Click(TObject *Sender) { HWND hCapWnd; hCapWnd=capCreateCaptureWindow("My Capture Window", WS_VISIBLE | WS_CHILD ,0, 0, 320, 240,Panel1->Handle, 0); //設定CaptureWindows capDriverConnect (hCapWnd, 0); //與驅動程式連結 capPreviewRate(hCapWnd,30); //每秒影像變化張數 capPreview(hCapWnd,1); } 以上是我的程式，已經可以用Panel播放，但是我不會將影像抓到Imageg上 可以直接教我嗎?

不要將畫面直接秀在TPanel或TForm上,改秀在TImage上應該就可以了 您可以利用剪貼簿的方式將畫面秀在TImage上,下面是關鍵部分    #include  Image1->Picture->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP),0); 這個我看不懂耶，可以教我嗎? 我貼上這程式好像會有錯誤耶

以下是可以work的程式碼

#include 
#include 
HWND vcHWND;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
    vcHWND = capCreateCaptureWindow ( "Capture Window",
    WS_CHILD | WS_VISIBLE ,0,0,1,1,Form1->Handle, 0);  //設定視窗大小
    bool bConnect = false;
    for (int i=0; i<10; i  )
    {
        bConnect = capDriverConnect(vcHWND, i);
        if (bConnect) break;
    }
    capPreviewRate(vcHWND,33);
    capPreview(vcHWND,true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    capGrabFrameNoStop(vcHWND);       
    capEditCopy(vcHWND);
    if (Clipboard()->HasFormat(CF_DIB))
    {
        Image1->Picture->Bitmap->Assign(Clipboard());
    }
}
//---------------------------------------------------------------------------

這是利用剪貼簿的方式,用法Help裡都有說明,另外一種方式就是用DC把Panel的畫面擷取下來,還可以利用callback的方式擷取(若要做後續的影像處理這方式做最合適),同樣的,您可以利用關鍵字做搜尋即可找到相關文章與程式碼 P.S: PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合< > > 順心< >

#include  #pragma hdrstop #include #include "usb.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { HWND hCapWnd; hCapWnd=capCreateCaptureWindow("My Capture Window", WS_VISIBLE | WS_CHILD ,0, 0, 320, 240,Panel1->Handle, 0); //設定CaptureWindows capDriverConnect (hCapWnd, 0); //與驅動程式連結 capPreviewRate(hCapWnd,30); //每秒影像變化張數 capPreview(hCapWnd,1); } //------------------------------------------------------------------- 以上是我全部的程式，目前只能用Panel播放出來， 這個程式可以用callback的方式擷取嗎? 可以的話能教我用嗎? ps:希望可以講得詳細一點

下面連結有範例程式 http://delphi.ktop.com.tw/topic.php?topic_id=42651 奇怪,您怎麼都不搜尋呢? 再次提醒您 PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >