F�rum Como transformar uma widestring em Bitmap? #386870

22/09/2010

Bom dia a todos, estou uma d�vida e n�o fa�o id�ia de como resolver. � o seguinte eu tenho um Form com um Panel , nesse panel eu recebo a imagem ao vivo de uma camera ligada a um DVR. Eu preciso tirar uma foto da imagem exibida no Panel quando clicar no bot�o Capturar, atrav�s de uma fun��o da dll eu recebo essa imagem em uma Widestring, oque eu preciso � transformar essa Widestring em Bitmap e exibir em um Timage. Ou se existir uma maneira de tirar um printscreen apenas do panel tamb�m serve.

Tiago Martins

Curtir t�pico

+ 0

Responder

Posts

23/09/2010

Tiago Martins

Se eu converter essa minha Widestring em byte eu consigo recupera-la em Bitmap ?

Responder

Gostei + 0

28/09/2010

Tiago Martins

N�o consegui fazer a convers�o. Ent�o gostaria de saber se algu�m poderia me ajudar a tirar uma foto do conteudo exibido no panel, ou fazer o printscreen somente deste componente(panel) presente no meu form, � poss�vel alguma dessas minhas op��es?
Obrigado.

Responder

Gostei + 0

28/09/2010

Tiago Martins

Consegui solucionar meu problema, deixo abaixo a solu��o que encontrei.

procedure TForm5.btn_fotoClick(Sender: TObject);
var
T_BMP : TBitMap;
ScrDC: HDC;
ScrHandle: HWnd;
caminho:string;

begin
   ScrHandle := Panel0.Handle;
   ScrDC := GetDC(ScrHandle);
   TBMP := TBitMap.Create;
   TBMP.Width := Panel0.Width;
   TBMP.Height :=Panel0.Height;
   BitBlt(TBMP.canvas.Handle, 0, 0,
   Screen.Width, Screen.Height, ScreenDC, 0, 0, SRCCOPY);
   Image1.Picture.Assign(T_Bitmap);
   caminho:='C:\Downloads\DVR_PICTURE_CAM'+edit5.text+'.BMP';
   Image1.Picture.SaveToFile(caminho);
   ReleaseDC(Screenhandle, view0.handle);
end;

Agora preciso saber como finalizo o t�pico.

Responder

Gostei + 0

28/09/2010

Marcos Iwazaki

alguem precisa responder o topico.
veja se agora aparece a op��o

Responder

Gostei + 0