🚀 go-pugleaf

Edward wrote:

>     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.

What are the problems ?

>       bmpNew->Canvas->StretchDraw(bmpNew->Canvas->ClipRect, bmpOld);

You could have a look at CopyRect().

>       bmpNew->Assign(bmpNew);

What should that statement do ?

Hans.

Ok. There are errors.

But what is the solution?

Thanks any way.


"Hans Galema" <dontusethis@dontusethis.nl> escreveu na mensagem
news:3fc6fadd$1@newsgroups.borland.com...
> Edward wrote:
>
> >     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.
>
> What are the problems ?
>
> >       bmpNew->Canvas->StretchDraw(bmpNew->Canvas->ClipRect, bmpOld);
>
> You could have a look at CopyRect().
>
> >       bmpNew->Assign(bmpNew);
>
> What should that statement do ?
>
> Hans.
>

   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;
>
>

Edward wrote:
>    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.

What has a BMP to do with a video ?

>         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:

Please explain where the flicker resides.

>        HWND hForm = GetDesktopWindow() ;

Please tell where you need a HWND for first.

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

What is "MYPROG" ?
Is it "MY WEBCAMCAP" or  "OTHER  PROGRAM WHERE I SHOW THE VIDEO"

Which program is executing that statement ?

> ANY IDEIA?

Please start to explain better what is going on.

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

Until now you did not anything with FORM or DESKTOP. Do you mean the
use of a TForm ? Or using GetDesktopWindow() ? Then you should
have told also where you needed the handle for.

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

Better put all the code in the constructor. FormCreate() can be
tricky to use.


>   AVICapDllHandle = LoadLibrary( "AVICAP32.DLL" );

Please supply the type of used variables.

I see that you only very much later in your code check if the library
is loaded. Would not it be better to check that right now?

>   //  HWND hForm = FormPrincipal->Handle;

If you wanted to use that that better:

	HWND hForm = Handle;

>   ctImg=0;

This is never used inyour code. Please post as little code as possible
to reproduce the problem. (But with all types, that compiles).

>   if(AVICapDllHandle == 0)
>   {
>     MessageBox ( NULL, "LoadLibrary:\nAVICAP32.DLL not found.", "Error FS
> 002", MB_ICONSTOP );
>   }

After this statement you go on. Is that what should be done ?

>   hWndC = capCreateCaptureWindow("CamWin", WS_CHILD | WS_VISIBLE, 330, 250,
> tamXVL, tamYVL, hForm, 0 );

Did you try with hForm = NULL already ?

> "Edward" <registrados@via-rs.net> escreveu na mensagem
> news:3fc6476a$1@newsgroups.borland.com...

Here you quoted all the code of your first post.
Please do not quote complete posts. We had read that already.

Hans.

Edward wrote:
> Ok. There are errors.

But you could comment on the errors.

> But what is the solution?

Did you try CopyRect() as suggested ?

> Thanks any way.

Why do you stop ?

Hans.