Tirar foto a partir da WebCam

[xanburzum 169]

Qual ?

 

meus links são todos OK

[Ronaldo Bueno 23]

Esse do início do post

[xanburzum 169]

ser quiserem posso colocar os códigos daqueles que citei, estes estão 100%

[Ronaldo Bueno 23]

Eu quero. Agradeço muito. Obrigado.

 

Baixei o exemplo, porem nao veio com o PHP nem outra

[xanburzum 169]

me mande um email no xanburzum@terra.com.br

[Ronaldo Bueno 23]

Ja enviei. Obrigado

[xanburzum 169]

Já te mandei os arquivos zipados.

[Paulo.Baptista 0]

me mande um email no xanburzum@terra.com.br

Xanburzum também tentei implementar este código para asp mas não consegui entender o código, pode me mandar no e-mail que lhe enviar também.

 

Desde já fico muito agradecido

[Ronaldo Bueno 23]

Xan, de uma força extra,

 

O que enviou tem um swf para colocar na pagina, fiz isso, mas não tem nenhum botão de captura, é assim mesmo?

 

O que coloco nesse botão para capturar e enviar ?

 

Obrigado

[xanburzum 169]

é só trabalhar o swf, ou seja, vc pode criar um botão para executar o swf. quan do o swf executado ele pega automaticamente a webcam. Ex: escolainfobyte.com.br/jQuery-webcam-master/jscam.swf

[Ronaldo Bueno 23]

Ate ai tudo bem. Ja coloquei o swf dentro de uma pag HTML, agora queria cria um botão captura. Sabe por onde começo? Pegar com o que jQuery ou ...?

[xanburzum 169]

faz isso no AS3 mesmo, um botão que quando clicado irá abrir esse swf

[Ronaldo Bueno 23]

Não consegui. Vou deixar em by esse projeto. Aproveitei o topico, mas sem sucesso. Obrigado

[xanburzum 169]

você pode também fazer ele executar dentro de um ifrmae, e dae ocultar ou exebir em jquery.

[Gustavo Emygdio Barboza 24]

Ronaldo posso te ajudar com essa... ha um tempo atrás eu vi esse site http://flex.eduardokraus.com/capturar-imagem-da-webcam-e-salvar-com-php é lá o Eduardo postou em php.... mas consegui transformar em ASP... como recebi de graça dou de graça sem problemas resultado de tudo isso serão 3 arquivos (swf,asp,html) veja!!!

 

deve-se instalar o flexsdk (que não é gráfico) na pasta bin tem um executável que compila o swf

 

você criará um arquivo com a extensão mxml é aquele 1º trecho em AS3 no site do eduardo que postei o link acima!!!

 

o problema que provavelmente se deparou foi com a conversão do tipo base64 que o flash cria a imagem e é nesse formato que o flash manda para o servidor e lá no servidor você deve converter

 

trecho do arquivo mxml onde deve alterar...

 

 request.url = "/code/231/recebeImagem.php";

no meu ficou:

 

 request.url = "/code/231/recebeImagem.asp";

e nessa linha

link.text = "http://flex.eduardokraus.com/code/231/" + resposta 

no meu ficou exemplo

 

link.text = "http://www.gustavoemygdio.com.br/foto/" + resposta

 

para compilar vá no prompt ou crie um bat com a instrução

 

amxmlc teste.mxml

 

 

com isso será gerado o swf coloque tudo numa mesma pasta ok!?

 

..... agora vamos ao arquivo recebeimagem.asp

 

 

<%
a = request("imagem")
if a <> "" then
'criando um nome de arquivo dinâmico mas pode ser alterado conforme a necessidade o now foi bem específico
arq = replace(now," ","")
arq = replace(arq,":","")
arq = replace(arq,"/","")
arq = arq & ".txt"

'a variável arq é a unica coisa que irá modificar!!!!! depois o destino do arquivo mas faz funcionar depois vê isso!!!

call FormataBase64(server.mappath(arq),a)
call CriaArquivo(server.mappath(replace(arq,".txt",".jpg")),BASE64DECODE(LerArquivo(server.mappath(arq))))
call ApagaArquivo(server.mappath(arq))
response.Write replace(arq,".txt",".jpg")
end if

Function inclui(arquivo, texto)
   Set confile = CreateObject("scripting.filesystemobject")
   Set fich = confile.openTextFile(arquivo, 8, True)
    fich.WriteLine texto
   Set fich = Nothing
   Set confile = Nothing
End Function

Function CriaArquivo(Arquivo,Texto)
dim fsO,fname
	set fsO = Server.CreateObject("Scripting.FileSystemObject")
	set fname = fsO.CreateTextFile(Arquivo)
	fname.WriteLine(Texto)
	fname.Close
  set fname = nothing
 set fsO = nothing
CriaArquivo = "criado"
End Function

Function LerArquivo(Arquivo)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Arquivo)
LerArquivo =  f.ReadAll
End Function

Function Base64Decode(ByVal base64String)
  Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
  Dim dataLength, sOut, groupBegin
  base64String = Replace(base64String, vbCrLf, "")
  base64String = Replace(base64String, vbTab, "")
  base64String = Replace(base64String, " ", "")
  dataLength = Len(base64String)
  If dataLength Mod 4 <> 0 Then
    Err.Raise 1, "Base64Decode", "Bad Base64 string."
    Exit Function
  End If
  For groupBegin = 1 To dataLength Step 4
    Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
    numDataBytes = 3
    nGroup = 0
    For CharCounter = 0 To 3
      thisChar = Mid(base64String, groupBegin + CharCounter, 1)
      If thisChar = "=" Then
        numDataBytes = numDataBytes - 1
        thisData = 0
      Else
        thisData = InStr(1, Base64, thisChar, vbBinaryCompare) - 1
      End If
      If thisData = -1 Then
        Err.Raise 2, "Base64Decode", "Bad character In Base64 string."
        Exit Function
      End If
      nGroup = 64 * nGroup + thisData
    Next
    nGroup = Hex(nGroup)
    nGroup = String(6 - Len(nGroup), "0") & nGroup
    pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _
      Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _
      Chr(CByte("&H" & Mid(nGroup, 5, 2)))
    sOut = sOut & Left(pOut, numDataBytes)
  Next
  Base64Decode = sOut
End Function

Function FormataBase64(CArquivo, TextoNaBase64)
vet = Split(TextoNaBase64, Chr(10))
For i = 0 To UBound(vet)
  Call inclui(CArquivo, vet(i))
Next
End Function

Function ApagaArquivo(caminho)
dim fs
 set fs = Server.CreateObject("Scripting.FileSystemObject")
		if fs.FileExists(caminho) then
		   fs.DeleteFile(caminho)
		end if
 set fs = Nothing
End function
%>

 

'''''---------------- fim do arquivo recebeimagem.asp

 

agora o terceiro e último arquivo que pode ser um simples html com o código.... onde está webcam.swf é o seu arquivo que foi criado!!

 

 

<p><object style="width: 710px; height: 400px;" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"
width="710" height="400"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0">
<param name="src" value="webcam.swf" />
<embed style="width: 710px; height: 400px;" type="application/x-shockwave-flash" width="710" height="400"
src="webcam.swf"></embed></object></p>

 

copie e cole do mesmo jeito se deixou teste.mxml será teste.swf só troque o webcam.swf para teste.swf e pronto!! sucesso!

[Helio24 0]

Agradeço pelo post. Embora ainda não tenha visto nem testado.

 

[Gustavo Emygdio Barboza 24]

é só seguir o que postei passo a passo que irá funcionar... se não conseguir é só postar...

[thiagusr 0]

Muito obrigado a todos que contribuíram neste tópico. Me ajudou muito!!

 

Gustavo, segui todos os passos que você ensinou. Meu script já captura a imagem e salva no servidor, porém o jpg não abre. Acredito que seja problema do base64decode do ASP. Será?

[Gustavo Emygdio Barboza 24]

Revise o inicio do arquivo recebeimagem.ASP problema esta lá..

Compare com meu exemplo verifique o request

[thiagusr 0]

Mantive o mesmo request "imagem" nos scripts. Já testei e percebi que o ASP recebe as informações, cria o arquivo TXT e converte pra JPG. porém é no Decode que acho que está o problema... Vou tentando, se eu encontrar a solução ou perceber o erro aviso.