🚀 go-pugleaf

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;