schaukoski

Churc, Deu certo sim mcara, gravou no banco de dados também.!!!! MUITO OBRIGADO! Até a próxima!

Isso mesmo Churc, assim seria para salvar no banco de dados esses tijpos. O problema é que meu campo LONGBLOB mysql5, só aceita .bmp. O DBImage aceita mesmo, o problema pe o DB mesmo. então , eu tenho que converter para .bmp sacas? o que eu estou em busca é, de o DBImage receber a foto já convertida em .bmp pra depois eu dar o post. Valeu!! até mais!

Churc, não entendi muito bem... eu tenho a imagem que eu puxei do dialog, está em PICTURE, do tipo Tpicture, que aceita quase todo tipo de imagem. Esquece o resto agora, apaguei tudo... O que eu faço para converte-la para .bmp, e jogala no meu DBIMAGE? eu crio uma variavel pra receber a imagem em .bmp antes? , posso mudar pra .bmp pela variavel picture mesmo? o que eu faço? entendeu? eu tenho ela, na variável PICTURE, e quero passar ela pra outra variavel como .bmp, ou passar ela pro dbimage como .bmp... "Valeu" !!!!

Testei desta forma também, ele não dá mais erro, mas aparece meu dbedit todo em branco.... Delphi7 eu Uso. Obrigado

Opa.. Verifica umas coisas tipo Você adicionou na property do DBGRID, em DataSource, o source do seu clientedataset? veja também , se a sua tabela esta com a propriedade Active = True; Não sei se ajudei.. tentei aí.. Abraços

Churc, deu um erro aqui cara, vo postar meu Código fonte, dai você consegueenxergar melhor. erro: 'EconvertError: Cannot assing a TPicture to a TBitmap' procedure TFormTCadCF.SpeedButton1Click(Sender: TObject); var Picture: TPicture; BMP: TBitMap; begin Picture := graphics.TPicture.Create; BMP := graphics.TBitmap.Create; openpicturedialog1.Execute; if openpicturedialog1.FileName <> '' then begin Picture.LoadFromFile(openpicturedialog1.filename); BMP.Assign(Picture); //// aqui deu erro extensao := ExtractFileExt(OpenPictureDialog1.Filename); dbimage1.picture.assign(bmp); end Obrigado

Olá! 3° tópico de hoje já, hoje "tá" dificil! É o seguinte, eu tenho duas tabelas... CADASTRO, e FOTO. onde temos o código do cliente em cadastro = codficha. eu tenho minha tabela foto com 3 campos, imagem, tipodocumento, e codficha. eu defini o master source da tabela FOTO, como o seguinte: codficha -> codficha... Mas eu preciso que além disso, tenha mais um filtro... não apenas do código, mas também do tipo Quero que so mostre os codficha>codficha, mas só os que tipodocumento sejam valor = 0... Porque na tabela de FOTO, a pessoa pode ter vários tipos de registros com codficha igual, com uma imagem, e com o tipodoc diferentes...0=foto 1=rg 2=cpf.. sei lá.... Então é isso... se alguém souber ai!! Agradeço!! Obrigado!

Fernando, qual o nome da classe? , pode ser um componente que ele está usando, que você não tem.

Olá, muito boa tarde. Tenho a seguinte dúvida, creio que possam me ajudar. Eu tenho uma imagem , em uma variaável do tipo TPicture, e , eu sei a extensão dela. Como converter tal extensão para .bmp? exemplo: bmp CONVERT extensaoatual TO .bmp aonde extensaoatual, é uma variavel, tipo string, que carrega a extensão dela. Se alguém puder me ajudar neste sentido, eu agradeço muito! Obrigado!

Olá, boa tarde. Tenho um errinho estranho acontecendo quando eu dou um VIEWFORM, e abro o form FORMCADCF. Tenho um DataModule, com todos meus SimpleDataSet's, todos conectados e active. Esse meu form contém algumas coisas, e nele 2 SimpleDataSet, eles são dois "aliás". SDS=SimpleDataSet Tudo bem, Tudo funciona normalmente. Quando eu abro o Deplhi7, dou Open no meu project, ele aparece meu formprincipal, tal... carrega..., e eu já vou no viewform , e seleciono o FORMTCADCF(aonde encontra-se os 2 SDS), ai quando eu dou ok para abrir este form, ele dá um erro... MISSING DRIVER PROPERTY NAME, e os meus sds que estão no form, ficam com aquele ""?"", e o CONECTION muda , ele adiciona um valor la internalconection. Aí toda vez, que eu vou mexer, eu tenho que abrir este form, e arrumar la a CONECTION dele para DM.CONEXAOMINHA, ... Eu descobri, que se eu abrir o delphi, der open no meu project, e abrir meu DM ( DataModule ), antes de dar view no form FORMCADCF, ele não dá erro.... eu não sei o que acontece.. se alguém tiver alguma noção. Obrigado.

Olá José, eu tinha me deparado com o mesmo problema aqui vai uma sugestão bem simples: if TABELA.Locate('CAMPO1;CAMPO2;CAMPO3;CAMPO4;CAMPO5;CAMPO6;CAMPO7', vararrayof([VALOR1, VALOR2, VALOR3, VALOR4, VALOR5, VALOR6, VALOR7]), []) then aonde os CAMPOS , voce coloca cada campo de sua tabela , e o VALOR1, a variável que contém o valor que voce quer procurar a variavel VALOR1, vai procurar se existe o mesmo valor, em campo 1, se existir, ele vai procurando todos na mesma linha se existe... não se esqueca de criar as variáveis VALOR1, ..2 ..3 etc. Qualquer coisa posta o nome da sua tabela e os campos, que eu tento te ajudar. Abraço

Perfeito. Mas o que ele faz esse comando? ele dá um change nele mesmo, ( matendo o valor de.text que estava ), para executar o evento?! 10!! Obrigado!!!

Olá... Estou com uma dúvida. Eu tenho um DBEDIT, que no evento ONCHANGE dele, eu tenho uma rotina. Como eu faço para executar essa rotina, de outro lugar? exemplo.. Eu estou em um form..... lá tem dois botoes, o de cadastrar, e o de limpar. No evento ONCLICK dos dois botoes eu tenho rotinas, e eu adicionei na procedure de formcreate, BOTAOLIMPAR.CLICK; para executar a rotina que está no botao limpar.. tudobem. O problema é executar o ONCHANGE do DBEDIT.. eu tenei DBEDIT1.ONCHANGE; mas não é assim que se usa... Eu poderia também , copiar toda a rotina do onchange do meu dbedit, aonde eu quero, mas ficaria muito grande.... então.. se alguém souber!. Obrigado!.

Muito Obrigado a vocês, Renato e Churc. Deu certo! Até mais!

Tudo bem. procedure TFormTCadCF.SBgravarClick(Sender: TObject); begin image2.Picture.SaveToFile('c:\fichario\foto\'+dbedit1.text+'.bmp'); end; Obrigado.

OK Renato. eu tenho 3 possibilidades de formatos, JPG, JPEG e BMP. eu tenho meu componente image2 no form, e tenho tambem o openpicturedialog, que é aonde eu busco a imagem e trago para o image2. até ai tudo bem, ele procura a imagem desejada, da OK, a imagem aparece la no image2, e na hora de salvar que é o problema, porque eu não sei qual extensão que veio, podem ser uma das 3 formatos possíveis(jpeg, jpg bmp). o valor da extensao vai ficar em uma variável? isso que eu não intendi do seu código... tem como voce fazer um exemplo , com meu componente image2?

Tudo bem, é que no caso eu não vou buscar uma imagem, eu tenho ela já no meu componente IMAGE2... eu não intendi, o que é o $ext, ele seria meu image2.picture.namepath algo assim? Obrigado.

Olá ... Estou tendo alguns problemas com isto. Eu tenho um opendialog na minha aplicação, aonde eu importo imagens do computador para meu componente "image2". Em seguida, eu dou image2.picture.savetofile, e salvo como .BMP... Aí está o problema, porquê, eu aceito JPEG, e JPG, se eu salvar como .bmp uma imagem jpeg , não irá abrir posteriormente... Eu preciso que abra JPEG e JPG e BMP, colocar filtro no open dialog não seria útil. Seria necessário saber, a extensão da imagem que está no meu image2, para salvá-la ( através de condição ) se ela é bmp, ou jpeg, jpg... Obrigado!

Opa... Este problema eu já resolvi, eu adicionei ao invés do BMP ser TBitMap eu coloquei Picture ai aceita tudo! =) Obrigado!, até breve!

Programador, o Fileexists, era exatamente o que eu estava procurando... eu já tinha tentado tudo quanto é nome para ver se existia "tal" ação, mas não consegui. Muito Obrigado!! resolveu meu problema 100%. Agora, me ficou restante, minha opendialog aceitar além de .bmp, jpeg também. Caso, você tenha algo em mente , por favor: Aqui está o código usado. procedure TFormTCadCF.SpeedButton1Click(Sender: TObject); var BMP: TBitMap; begin BMP := TBitMap.Create; openpicturedialog1.Execute; if openpicturedialog1.FileName <> '' then begin BMP.LoadFromFile(openpicturedialog1.filename); image2.picture.bitmap := bmp; end end; * Queria agradecer vocês todos que colaboram com todos os iniciantes, e veteranos também, a resolverem problemas, que não são da conta de vocês, gratuitamente. Espero que continuem assim, e, queria lhes dizer que me ajudaram muito, e continuam ajudando. Sinceros Abraços a todos vocês. OBS: Fico meio gay?, é... acho que sim, "malz"... eu arrumo outra hora hauasheaasueha !

Seria isso eu acho. Se eu executar o programa atravez do PROG.exe la na pasta, por fora do delphi, não dá erro... acontece exatamente o esperado... mas por F9 pelo delphi ele dá o erro.... isso é normal? Obrigado !! Ah... á respeito da forma de abrir jpeg.. você tem alguma idéia sobre isso?, Obrigado! até!

Como assim a seleção? Tem um DBGRID, e os Dbedit's dela... eu adicione no DBEDIT do cod_cadastro, no evento on change, o load... entendeu?... Obrigado pela resposta. aguardo novas

Sim, Tudo bem. Eu não intendi muito bem esse thumbnails, esse que você postou Micheus, aDest, seria uma variavel bitmap? Se você souber, gostaria de dizer, qual o tamanho máximo do MySQL no campo BLOB?... Se este método de diminuir realmente o tamanho da imagem, seria muito bom, pois eu não teria que fazer uma outra rotina de cadastro, com busca em diretorio, salvar em diretório com nome de variável, isso é um pouco complicado. Respondendo ao Churc, eu posso compartilhar o Twain sim, inclusive posso ajudar a instalar se alguém quiser. meu MSN está aqui: dudumoura_@hotmail.com Obrigado.

Olá. Boa Tarde. Eu tenho um problema, que é o seguinte. Eu consigo caputurar a imagem da webcam e transportála para DBIMAGEM tranquilamente, e já tinha feito campo BLOB em meu BD MySQL, e tudo funcionava muito bem, quando surgiu um problema de tamanho e tal, e resolvi guardá-las em um diretório, localizado na pasta do meu programa. E cada foto, teria o valor de Código de Cadastro. Eu tentei o seguinte e deu certo: image2.Picture.SaveToFile('c:\fichario\foto\'+dtransf+'.bmp'); onde dtransf é a variavel que contém o valor de cod_cadastro. para load, eu tentei também image1.Picture.LoadFromFile('c:\fichario\foto\'+dbedit1.text+'.bmp'); consegui gravar e consegui dar load. mas me deparei com o seguinte, quando selecionado um cadastro em que não existe foto no diretorio ele da erro no programa no load... como criar uma rotina que verifica, que se não existir, deixar image1 em branco mesmo... e como saber se extensao ( .bmp, .jpeg ) da img que esta no meu componente imagem2? A minha rotina de pegar imagem exterior é esta: procedure TFormTCadCF.SpeedButton1Click(Sender: TObject); var BMP: TBitMap; begin BMP := TBitMap.Create; openpicturedialog1.Execute; if openpicturedialog1.FileName <> '' then begin BMP.LoadFromFile(openpicturedialog1.filename); image2.picture.bitmap := bmp; mas com ela , so consigo capturar imagens que são .bmp, de que forma posso modificar para receber imagens .jpeg também? Obrigado.

Olá, eu tenho um mcampo BLOB em meu banco de dados mysql. só que quando eu tento gravar uma imagem 300x160 ele da erro data too long.. tal tal... na hora de criar o blob no meu bd eu criei ele como apenas blob tem como definir o tamanho pra suportar? exemplo... foto BLOB(100kbs) foto BLOB(200x300) ... qual a definição? tamanho, ou resoluçao?? Obrigado.