🚀 go-pugleaf

   I have two layers of programs "MY WEBCAMCAP" and "OTHER  PROGRAM WHERE I
SHOW THE VIDEO" first i try capture BMP and make other program read those
BMP after i try to put video direct on program.

        I trying to made a another way to my program work showing the image
direct on the DESKTOP but i have problem of FLICKER using:

       HWND hForm = GetDesktopWindow() ;

Using   HWND hForm = FindWindow("MYPROG",NULL);  doenst work.

ANY IDEIA?

My question is: How to capture video from a webcam without use FORM or
DESKTOP like Handle.






THE CODE





void __fastcall TFormPrincipal::FormCreate(TObject *Sender)
{

  AVICapDllHandle = LoadLibrary( "AVICAP32.DLL" );
  //  HWND hForm = FormPrincipal->Handle;
  HWND hForm = GetDesktopWindow() ;

  ctImg=0;
  FILE *arqSize;
  char strSize[10];
  AnsiString strAnsiSize;

  DeleteFile("SAIR.DAT");
  if(FileExists("SIZE.DAT"))
  {
    if((arqSize=fopen("SIZE.DAT","rt"))==NULL)
    {
      ShowMessage("Erro na abertura do Arquivo SIZE.DAT. Arquivo de
configura��o da WEBCAM!");
      Close();
    }
    fseek(arqSize,  SEEK_SET, 0);
    fgets(strSize, 12, arqSize);
    strAnsiSize = AnsiString(strSize);
    fclose(arqSize);

    tamXVL = strAnsiSize.SubString(1,strAnsiSize.AnsiPos("x")-1).ToInt();
    tamYVL =
strAnsiSize.SubString(strAnsiSize.AnsiPos("x")+1,strAnsiSize.Length()-(strAn
siSize.AnsiPos("x")+1) ).ToInt();
  }
  else
  {
    tamXVL=320;
    tamYVL=240;
  }
  if(AVICapDllHandle == 0)
  {
    MessageBox ( NULL, "LoadLibrary:\nAVICAP32.DLL not found.", "Error FS
002", MB_ICONSTOP );
  }
  hWndC = capCreateCaptureWindow("CamWin", WS_CHILD | WS_VISIBLE, 330, 250,
tamXVL, tamYVL, hForm, 0 );

  if(capDriverConnect(hWndC, 0))
  {
    if(capPreviewRate(hWndC, 100/3))
    {
      capPreviewScale(hWndC, TRUE);
      capPreview(hWndC, TRUE);
    }
  }
  TimerRefresh->Enabled = true;
}
//--------------------------------------------------------------------------
-



"Edward" <registrados@via-rs.net> escreveu na mensagem
news:3fc6476a$1@newsgroups.borland.com...
> Hi all
>
>     I using my code above to capture a imagem direct from my web cam and
> save into a BMP file but i need to resize the image and when i do that i
> have some problems i dont know what is happening.
>
>     In the future the program will be hinding from user so i cant show the
> FROM.
>
> Thanks
>
> Edward
>
>
>
>   CAPSTATUS CapStatus;
>   char str[12];
>
>   TimerRefresh->Enabled = false;
>   if(!FileExists("SAIR.DAT"))
>   {
>     if(ctImg>=20)
>     {
>       ctImg=0;
>     }
>     ctImg++;
>     sprintf(str,"web%03d.bmp",ctImg);
>
>     try
>     {
>       capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS));
>       capFileSaveDIB(hWndC, str);
>
>       Graphics::TBitmap *bmpOld = new Graphics::TBitmap();
>       Graphics::TBitmap *bmpNew = new Graphics::TBitmap();
>
>       bmpOld->LoadFromFile(str);
>       bmpNew->Width = tamXVL;
>       bmpNew->Height = tamYVL;
>       bmpNew->Canvas->StretchDraw(bmpNew->Canvas->ClipRect, bmpOld);
>
>       bmpNew->Assign(bmpNew);
>       bmpNew->SaveToFile(str);
>
>       delete bmpOld;
>       delete bmpNew;
>
>     }
>     catch (Exception &Ex)
>     {
>       MessageDlg("Exception type " + Ex.ClassName() + " returned error
> message: " + Ex.Message + "\r" + " in form " + this->ClassName(), mtError,
> TMsgDlgButtons() << mbOK, 0);
>       abort();
>     }
>   }
>   else
>   {
>     capDriverDisconnect(hWndC);
>     FreeLibrary(AVICapDllHandle);
>     Close();
>   }
>   TimerRefresh->Enabled = true;
>
>