Rafael:
Hola, encontre dentro de mis archivos de "tips" para delphi este
procedimiento que carga un bitmap desde la memoria, claro que esta
especificado para la API de windows pero puede ser un punto de partida
procedure TForm1.Button1Click(Sender: TObject);
var
dc : hdc;
MemDc : hdc;
MemBitmap : hBitmap;
OldMemBitmap : hBitmap;
begin
{Get the handle to the screen's dc}
dc := GetDc(0);
{Create and retrieve a handle to a memory dc based on the screen}
MemDc := CreateCompatibleDc(dc);
{Create a bitmap that is compatible with the display.}
{Note: if you pass "MemDc" to CreateCompatibleBitmap()}
{instead of "dc", you will get a monochrome bitmap!}
MemBitmap := CreateCompatibleBitmap(dc, 100, 100);
{Release the screen dc}
ReleaseDc(0, dc);
{Select the bitmap surface into the MemDc}
{remembering the default bitmap}
OldMemBitmap := SelectObject(MemDc, MemBitmap);
{Draw on the MemoryDc}
PatBlt(MemDc, 0, 0, 100, 100, WHITENESS);
Ellipse(MemDc, 0, 0, 100, 100);
{Copy the MemDc to the Form Canvas}
BitBlt(Form1.Canvas.Handle,
100, 100,
100, 100,
MemDc,
0, 0,
SRCCOPY);
{Select the default bitmap back into the memory dc}
SelectObject(MemDc, OldMemBitmap);
{Note: You can now use the memory bitmap handle with}
{functions such as GetDiBits()}
{Delete the Memory Bitmap}
DeleteObject(MemBitmap);
{Delete the MemoryDc}
DeleteDc(MemDc);
end;
On Fri, 2003-05-16 at 13:56, Rafael Franco Carvalho wrote:
> Mauricio Henriquez,
>
> Finally I found somebody that has the same necessities that I.
>
> Thanks for reply
>
> > what kylix and linux you are using??
> I'm working with Kylix 3, RedHat 9 and a Logitech USB WebCam.
>
> I'll send the source code of videodev.pas and my simple test that doesn't
> work yet
> :(
>
> I'll be glad if you can help me.
>
> Regards,
>
> PS: Voce fala portugues ou espanhol?
>
> ~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^
> Rafael Franco Carvalho
> Programador de Sistemas
> Thermas Di Roma Hotel Clube
> .:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:.
> www.diroma.com.br
> rafael.franco@xxxxxxxxxxxxx
> rafael@xxxxxxxxxxx
> rafranco@xxxxxxxxxxxxx
> ICQ: 43967202
> MSN: rafaelfrancocarvalho@xxxxxxxxxxx
> Caldas Novas - Goiás - Brasil
> ~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^
>
> ----- Original Message -----
> From: "Mauricio Henriquez" <buho-1@xxxxxxxxxxxxxx>
> To: <video4linux-list@xxxxxxxxxx>
> Sent: Wednesday, May 14, 2003 4:04 PM
> Subject: Re: Video4Linux with Kylix
>
>
> > Hi,
> > I try to to work with kylix and v4l but you are much more advanced
> that
> > me. If you like, please send me you videodev.pas and I help you to
> > investigate and test how to work with this.
> > what kylix and linux you are using??
> >
> > Bye
> >
> > ----- Original Message -----
> > From: "Rafael Franco Carvalho" <rafael@xxxxxxxxxxx>
> > To: <video4linux-list@xxxxxxxxxx>
> > Sent: Wednesday, May 14, 2003 7:22 AM
> > Subject: Video4Linux with Kylix
> >
> >
> > > Hi,
> > >
> > > Is somebody working with v4l on Borland Kylix? I need capture images in
> my
> > > Kylix project using video4linux.
> > > I translated videodev.h to videodev.pas (Pascal/Kylix version). I can
> open
> > > device but when I start capture I allways get -1 result from ioctl.
> > > I need the correct steps for: open device, start capture, send the image
> > > buffer to a window, finish capture, close device.
> > >
> > > Please help me!
> > >
> > > Thanks,
> > >
> > > ~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^
> > > Rafael Franco Carvalho
> > > Programador de Sistemas
> > > Thermas Di Roma Hotel Clube
> > > .:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:..:¨:.
> > > www.diroma.com.br
> > > rafael.franco@xxxxxxxxxxxxx
> > > rafael@xxxxxxxxxxx
> > > rafranco@xxxxxxxxxxxxx
> > > ICQ: 43967202
> > > MSN: rafaelfrancocarvalho@xxxxxxxxxxx
> > > Caldas Novas - Goiás - Brasil
> > > ~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^
> > >
> > >
> > >
> > > --
> > > video4linux-list mailing list
> > > Unsubscribe
> mailto:video4linux-list-request@xxxxxxxxxx?subject=unsubscribe
> > > https://www.redhat.com/mailman/listinfo/video4linux-list
> > >
> >
> >
> > --
> > video4linux-list mailing list
> > Unsubscribe mailto:video4linux-list-request@xxxxxxxxxx?subject=unsubscribe
> > https://www.redhat.com/mailman/listinfo/video4linux-list
