Me Ajudem Por Favor Program's

[lucas98 1]

Bom Pessoal serah que vcs podem me ajudar eu queria criar um programa de assistir tv e ver a pessoal pela web can

por exemplo tem um button escrito Assitir Tv ai quando clika nele abre um form passando a programaçao da TV que eu quero sabe

 

e pela web can vai ter tipo um Xat ai vai dar pra converssar com uma pessoa atraves daquele xat sabe quase tipo msn

ai vai ter um button la iniciar comverssa por Web Can

 

quando clika la aparece a Web Can D Pessoa e a minha e no dela tbm aparece auguem me diz um tuto ai se souber

 

se suber fico grato

[' Sky 6]

man nao entendi muito bem

mais pra isso existi um navegador basico vc pode faser isso

e botar pra abrir um site padrão .

[vittoroliveira 0]

var

HwebCam: HWND;

 

function capCreateCaptureWindowA(lpszWindowName: pchar; dwStyle: dword; x, y, nWidth, nHeight: word; ParentWin: dword; nId: word): dword; stdcall external 'avicap32.dll';

 

implementation

 

Function CapturarWebCam(DestinoCapBMP:string) : Boolean;

const

WM_WEBCAM = $400;

WM_CONECTAR_DRIVER_WEBCAM = WM_WEBCAM + $a;

WM_DESCONECTAR_DRIVER_WEBCAM = WM_WEBCAM + $b;

WM_GUARDAR_CAPTURA = WM_WEBCAM + 25;

WM_FECHAR_WEBCAM = $0010;

begin

if HwebCam = 0 then

begin //WS_CHILD //WS_VISIBLE

HwebCam := capCreateCaptureWindowA('CaptureWindow', $40000000 and $10000000, 0, 0, 0, 0, GetDesktopWindow, 0);

if SendMessage(HwebCam, WM_CONECTAR_DRIVER_WEBCAM, 0, 0) <> 1 then

begin

HwebCam := 0;

Result := False;

end else begin

SendMessage(HwebCam, WM_GUARDAR_CAPTURA, wparam(0), lparam(PChar(DestinoCapBMP)));

SendMessage(HwebCam, WM_FECHAR_WEBCAM, 0, 0);

SendMessage(HwebCam, WM_FECHAR_WEBCAM, 0, 0);

HwebCam := 0;

Result := True;

end;

end else

Result := False;

end;

 

Procedure Capturar;

Const

Captura = 'C:\Users\Joel\Desktop\WebCam Captura.bmp';

begin

if not CapturarWebCam(Captura) then

MessageBox(0,Pchar('Não foi possivél capturar a webcam'#10':('),'Erro',16);

end;

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se