dan_visualdm

poxa... que vergonhaa!!! =/// me desculpe! agora esta funcionando corretamente! obrigado! :unsure: :blush: bom, só pra deixar aqui.. (pode ser que venha ajudar mais alguém...) não sei porque ele não achava arquivos quando era .JPG então resolvi da seguinte forma: fui no meu form principal e na cláusula USES inclui JPEG ai pronto... agora ele acha as benditas imagens em JPG e/ou JPEG espero que possa ajudar! abraços!

Pessoal... Esse Note aqui é melhor do que esse Kennex que citei acima? Daten - Notebook Athlon 64 X2 Dual Core 1.8GHz 2GB 160GB DVD-RW Webcam 1.3MP 15.4'' Linux Características Ficha Técnica: Processador: AMD TK55 ATHLON64 X2 Mobile Dual Core 1.8Ghz Barramento: 1.8GHz Memória: 2048MB HD: 160GB Placa mãe: AMD Tela: 15.4" WXGA Drives: DVD-RW Som: Realteck azalia AL C268 Vídeo: AMD RS960MC (RADEON X1200) Webcam: 1.3 Megapixel Rede: Realteck RTL 811B -GL 10/100/1000 MBPS Wireless: sim Fax Modem: V92/V90 56KBPS Teclado: ABNT2 Mouse: Touchpad com 2 botões Sistema Operacional: Linux Conexões: USB, RJ11, RJ45, WI-FI, leitores de cartões e outras Alimentação: bateria 6 celulas Li-ion - 18650 tipo 4800 mah Conteúdo da embalagem: Noteboo, manual do usuário, certificado de garantia, bateria, CD's de instalações e carregador de bateria Voltagem: bivolt Dimensões aproximadas do produto: 3,3x42x17cm (AxLxP) Peso liq. aproximado do produto: 2kg obrigado!

verdade mesmo, nem reparei naquele erro.... mallzzz... :blush: bom, agora esta quase funcionando... ele já está copiando para o diretório e tambem pergunta se deseja substituir (caso tenha uma imagem com esse nome)... porém se você cliar em SIM ou não pra substituir aprensenta o seguinte erro: - t_fotos: Fiel 'CaminhoImg' not found. ah... tem mais um aviso aqui... -- Variable 'Sobrescreve' might not have been initialized mais uma vez... obrigado!

olá amigo, mudei o campo do banco de dados, fiz os relacionamentos e agora deu tudo certo... ou melhor, quase tudo certo... eu exclui o imovel, não deu erro nenhum... porem os itens relacionados a ele não foram apagados do banco... o que sera que tem de errado?? - a programação que estou usando é a mesma que está acima - e o tipo de campo, que você perguntou ali em cima, é Texto o que sera que tem de errado? será que estou indicando certo da onde o ele busca o codigo? '''+ f_incluir_imoveis.db_id.Text + '%''' ??? olha a janela do erro: olha como está aqui: begin with dm.q_fotos do begin Close; SQL.Clear; SQL.Add('select * from tbl_fotos WHERE id_ligar = '''+ f_incluir_imoveis.db_id.Text + '%'''); SQL.Append('DELETE * FROM tbl_fotos WHERE id_ligar = '''+ f_incluir_imoveis.db_id.Text + '%'''); Open; Prepared; ExecSQL; end; begin dm.q_loja.Delete; f_incluir_imoveis.close; close; end; end; obrigado!

dan_visualdm, a cópia pura e simples, pode ser feita utilizando a função da API CopyFile: BOOL CopyFile( LPCTSTR lpExistingFileName, // pointer to name of an existing file LPCTSTR lpNewFileName, // pointer to filename to copy to BOOL bFailIfExists // flag for operation if file exists ); usando...... var Sobrescreve :Boolean; Diretorio : String; {caminho aonde vai ficar salvo as imagens} begin if OpenPictureDialog1.Execute then begin Diretorio := 'C:\teste\imagens\'+ ExtractFileName(OpenPictureDialog1.FileName); if FileExits(Diretório) then Sobrescreve := MessageDlg('O arquivo já existe no destino. Deseja sobrescrevê-lo?', mtConfirmation, [mbOk, mbYes], 0) = mrYes CopyFile(OpenPictureDialog1.FileName, Diretorio, Sobrescreve); Image1.Picture.LoadFromFile(Diretorio); tbl_imagem.Edit; tbl_imagem.CaminhoImg.AsString := Diretorio; tbl_imagem.Post; end; end; Isto deve funcionar (se não esqueci de nada denovo rsrsrs) mas,... aqui fica uma perguntinha extra: E por acaso você pretende armazenar as imagens no formato em que são copiadas (original) ou vai gravar sempre em .jpg, por ex.? Há um tempo fiz este post aqui no forum para gerar os thumbnail (miniaturas do tamanho especificado mantendo o aspecto). Já com relação a conversão para .jpg, tem uma função neste outro post. Assim, dá para combinar tudo isto ser for necessário. Abraços ixi... deu 2 erros aqui: veja como montei: var Sobrescreve :Boolean; Diretorio : String; begin if OpenPictureDialog1.Execute then begin Diretorio := 'C:\teste\imagens\'+ ExtractFileName(OpenPictureDialog1.FileName); if FileExists(Diretorio) then Sobrescreve := MessageDlg('O arquivo já existe no destino. Deseja sobrescrevê-lo?', mtConfirmation, [mbOk, mbYes], 0) = mrYes; CopyFile(OpenPictureDialog1.FileName, Diretorio, Sobrescreve); f_incluir_imoveis.Image1.Picture.LoadFromFile(Diretorio); dm.t_fotos.Edit; dm.t_fotos.CaminhoImg.AsString := Diretorio; dm.t_fotos.Post; end; end OS ERROS: CopyFile(OpenPictureDialog1.FileName, Diretorio, Sobrescreve); erro apresentado: Incompatible types: 'TFileName' and 'PAnsiChar' Incompatible types: 'String' and 'PAnsiChar' ... e depois tem mais esse erro: dm.t_fotos.CaminhoImg.AsString := Diretorio; erro apresentado: Undeclared identifir: 'CaminhoImg' como resolver isso? obrigado.

entendi.. o meu ACER é um Turion 64 mas só pode chegar até 1 gb de ram e o problema que é ddr1, aquelas mais antigas de frequencia... dificil de achar... poro isso resolvi trocar... no note eu vou trabalhar a maior parte com Delphi 7 e Flash CS3... com um pouco ode photoshop CS e Corel X4... você acha que esse Kennex que citei acima aguenta tranquilo? não precisa ser um mar de rosas, porque o note é mais pra criar uma coisa de urgencia, fechar alguma arte.. a maior parte faço aqui no opc da agencia que é top! no note o que vai mais roodar mesmo é o Delphi 7 e firebird (que uso muito anoite pra programar...)

humm.. qual o problema de ser barramento 533MHz? :wacko: qual a diferença entre: Dual Core e Core Duo?

pessoal, não sei se posso abrir tópico com essa duvida... é que estou pretendendo comprar um note novo... Meu antigo é um Acer... + tava fraquinho pra mim, tinha 512mb de ram... e tal.. ai to pensando em comprar o seguinte: Kennex Características Ficha Técnica: Processador: Pentium Dual Core T2370 Barramento: 533MHz Cache: 1MB Chipset: Intel Placa mãe: U50SA Memória: 2GB HD: 250GB Tela: Tela 15.4" Widescreen (1280x800)- Tela de Ultra Brilho Drives: DVD-RW Supermulti Som: Realtek ALC662 Vídeo: ATI M72 (128MB DDR3) Rede: Ethernet Lan 10/100Mbps / Rede sem fio Protocolo 802.11B/G Wireless: Sim. 802.11 B/G Fax Modem: Modem Castlenet 56K Teclado: 87 teclas - compatível com ABNT2 Mouse: Touchpad de 2 teclas Sistema Operacional: Linux Insigne Conexões: 4 USB, saída phone, entrada Mic, conector RJ-11 Modem, saída VGA, conector RJ45 para Ethernet. Alimentação: Bateria de íon de lítio Conteúdo da embalagem: Notebook, 01 bateria, 01 fonte de alimentação(adaptador AC), 01 cabo de alimentação da fonte, 01 cabo para conexão de moldem a linha telefonica, 01 guia rapido de instalação e 01 CD de recuperação de sistema operacional. Voltagem: bivolt Dimensões aproximadas do produto: 2,8x35,8x25,8cm (AxLxP) Peso liq. aproximado do produto: 2,7kg Garantia do fornecedor: 12 meses Notebook Kennex T2370 com 2GB de Memória RAM, 250GB de HD e muito mais! Ideal para você que valoriza velocidade, tecnologia e capacidade de armazenamento. Confira! MAIS INFORMAÇÕES: -Cor: preto -Câmera 1.3MP e microfone integrado. oi que voces acham? tenho 1600,00 pra comprar um... esse tá por R$ 1599,00 obrigado!

basta procurar o ID relacionado na outra tabela e usar um For para apagar todos os registros exemplo usando o componente IBSQL ( modifique para o seu uso ) IBSQL1.Close; IBSQL1.SQL.Clear; IBSQL1.SQL.Append('DELETE FROM tbl_fotos WHERE FOTOS.id_relac = 23'); // ID DO RELACIONAMENTO IBSQL1.Prepare; IBSQL1.ExecQuery; abraço olá amigo... o que seria esse - FOTOS.id_relac ?? tentei da seguinte forma: begin dm.q_fotos.Close; dm.q_fotos.SQL.Clear; dm.q_fotos.SQL.Append('DELETE FROM tbl_fotos WHERE id_relac = '''+ db_id.Text + '%'''); // ID DO RELACIONAMENTO dm.q_fotos.Prepared; dm.q_fotos.ExecSQL; end; mas o seguinte erro é apresentado: o parametro id_relac não tem valor padrão como resolver? obrigado mais uma vez! =D

pessoal... para filtrar dados de uma tabela com o ADQuery pode se fazer o seguinte: begin dm.q_fotos.close; dm.q_fotos.SQL.clear; dm.q_fotos.SQL.add('select * from tbl_fotos where id_ligar like '''+ db_id.Text + '%'''); dm.q_fotos.Prepared; dm.q_fotos.open; mas... como fazer isso usando um Table? obrigado.

agora deu certo aqui... na verdade usando só o Prior e o Next não estava funcionando... ele ficava passeando em tudo.... ai fiz o seguinte: begin dm.q_fotos.close; dm.q_fotos.SQL.clear; dm.q_fotos.SQL.add('select * from tbl_fotos where id_relac like '''+ db_id.Text + '%'''); dm.q_fotos.Prepared; dm.q_fotos.open; begin dm.q_fotos.Next; // e tb para o Prior Image1.Picture.Bitmap := Nil; if dm.q_fotos.Fields.FieldByName('img01').AsString <> '' then if FileExists(dm.q_fotos.fields.fieldbyname('img01').AsString) then Image1.Picture.LoadFromFile(dm.q_fotos.fields.fieldbyname('img01').AsString) end; end; ai ficou belezinha... agora só tem + 1 probleminha: - vamos supor que eu delete esse imovel... como fazer para que todos os caminhos de fotos que estiver relacionado para essa ID que acabei de deletar, ser deletado junto?? (preciso disso porque a qtd de imovel que entra e sai por semana é enorme, se não limpar isso ai quando deleta jájá o bd estará super lotado) obrigado

Pelo que entendi você queria apertar enter e então acionar o botão. Nesse caso lá no evento key do makedit você vai ter que de alguma forma saber aual é o botão.Por exemplo: if (key=#13) and (button1.visible = true) then SpeedButton1.click; if (key=#13) and (button2.visible = true) then SpeedButton2.click; if (key=#13) and (button3.visible = true) then SpeedButton3.click; Você pode até verificar o que foi digitado no maskedit para então mostrar o botão necessário. olá amigo.. axo que era isso mesmo que eu estava imaginando... hj anoite vou fazer o teste, e dai posto o resultado.... valewss!!!

Voce teria que ter um arquivo somente com o codigo do imovel e as imagens ( ou endereço das imagens ) e usando o DBNavigator voce consegue dar next ou prior nas imagens ( maneira mais facil ) Isto se chama relacionamento de tabelas 1 para N ( ou seja um registro para N outros de outra tabela ) se voce usar a mesma tabela o campo a ser usado para guardar o caminho das imagens deveria ser um Memo .. daria para navegar nele usando outros recursos abraço OBS: Favor não duplicar Posts olá... então carinha,é que não quero usar o DBNavigator.. queria aprender a fazer a programação. Repare na imagem que eu postei que já deixei os bts pronto. + vo ve o que axo por ae. valeu OBS: Este não é um post duplicado. Voce o duplicou quando editou o post inicial de maneira incorreta ... mas ele já foi deletado

pessoal, boa tarde! estou com um probleminha aqui... estou fazendo um sistema de imóveis, então nesse sistema tem todas informações do imovel e tambem podera ter ate 10 fotos. bom, tah tudo pronto (praticamente) a unica duvida minha é, vamos supor que eu esteja em um imovel. Para ele terá 10 fotos cadastradas no bd (até aqui está ok) O PROBLEMA: - como fazer um Next e um Prior só pra ir visualizando as imagens desse imovel? IMPORTANTE: - meu BD é ACCESS - as imagens não ficam no banco, ficam apenas o caminho da imagem. veja abaixo a janela do meu sistema: Ah... para montar o esqueminha de imagem segui as explicações deste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=131014 então.. a primeira imagem eu carrego utilizando o seguinte: begin Image1.Picture.Bitmap := Nil; if dm.q_fotos.Fields.FieldByName('img01').AsString <> '' then if FileExists(dm.q_fotos.fields.fieldbyname('img01').AsString) then Image1.Picture.LoadFromFile(dm.q_fotos.fields.fieldbyname('img01').AsString) end; mas como ir dando next e/ou prior? e ainda... como limitar esse next e prior só para esse imovel? [porque se for dando next e/ou prior direto vai passar por todas as imgs do banco.,. e isso não pode! rssss...] obrigado!

pessoal... seguinte.... eu sei que se eu colocar no evento OnClick o seguinte : if key=#13 then SpeedButton1.click; ele vai funcioonar... o problema é que eu quero mudar esse evento durante a execução do programa... porque tem hora que o onclick precisa ser para o speedbutton1 e tem hora q pro speedbutton2 ou speedbutton3...

olá amigo... então, é porque nesse form eu tenho um maskedit, só que esse form é ativado por 2 outros botões... um botao que ativa é o "filtrar data cliente" e outro é "filtrar data produto". e eu quero usar esse mesmo mask edit (porque futuramente outros 2 botoes vai ativar essa tela) e cada botao precisar ativar o OnClick do maskedit, pra quando a pessoa digitar a data e teclar ENTER ativar um dos botoes desse form... pois cada caso é um botao... e pra não precisar ficar criando um monte de form, fiz tudo em um...e tb pra não precisar ficar criando um monte de maskedit, gostaria de mudar o evento OnClick durante a execução do programa... (conforme o item selecionado)... não sei se consegui explicar o que quero... obrigado.

bom, em um form eu preciso manipular o evento onclick de um botao de outro form. tentei fazer o seguinte, mas num deu muito certo não! rss... olha o que tentei... hehehehee... :blush: f_fdatas_cliente.MaskEdit2.OnClick := key=#13 then SpeedButton1.click; valews!

COMENTARIO: (é que tinha dado um probleminha aqui, ai pesquisando descobri como resolver... então achei interessante postar aqui no tópico, porque acho que um dia possa ser util pra alguém...) Bom.... depois de tudo, as cosias estavam indo bem, ate eu precisar cadastrar um novo carinha... rs... o problema estava quando ia fazer um novo cadastro, a ultima imagem ficava aparecendo no TImage (porem o caminho não fica no banco de dados)... então fiz o seguinte, no botao INSERT: ADOQuery1.Insert; Image1.Picture.Bitmap := Nil;[code] até ai beleza, então surgiu mais um porém... Vamos supor que eu cadastre esse novo cliente mas não vou querer colocar nenhuma foto pra ele. Tudo bem, não coloco foto e então gravo os registro e beleza... - Problema: se eu não cadastrei para esse cliente (6) uma imagem... ai então estou no cliente 5 e quando clico no Next... a imagem no cliente 5 permanece para o cliente 6 (que não deveria ter nenhuma imagem cadastrada)... então mais uma vez usei o [code] Image1.Picture.Bitmap := Nil; ai então meu Next ficou assm: begin ADOQuery1.Next; Image1.Picture.Bitmap := Nil; if ADOQuery1.Fields.FieldByName('Imagem').AsString <> '' then if FileExists(ADOQuery1.fields.fieldbyname('imagem').AsString) then Image1.Picture.LoadFromFile(ADOQuery1.fields.fieldbyname('imagem').AsString) end; * e a mesmo cosa pro Prior... ae td beleza... :rolleyes:

ahn? :blink: :blink:

vou fazer os testes aqui... bom, na verdade até então eu pretendia deixar a imagem no formato original dela... mas acredito que convertendo pra JPG vai facilitar muito minha vida, até porque depois eu vou utilizar essas imagem na web... (e o mesmo banco em ASP)... bom, nesse caso é recomendavel copiar pra pasta e já converter em .jpg mesmo né? acho que até porque dai fica tudo padronizado e como vai ter muita imagem fica mais leve pra fazer o backup...

uuuooOOOoOOOOlllLLllll!!!! que bunito... que beleza!!! rsss... agora funfo certinho... resolveu o problema aqui!!! poxa carinhaa... mais uma vez, muitoooo obrigado!!! =DDD abraçoss!!!

que isso, desculpe eu de tantas perguntas! :wacko: agora funcionou certinho!! era exatamente isso que eu precisava!!! brigadao!!! bom.... na verdade eu preciso de mais 2 coisinhas! =// - vamos supor que a imagem esteja na Desktop... ai eu busco ela e tal... mas como fazer o sistema fazer uma cópia dessa imagem pra o c:/listagem/imagem ? - como fazer o sistema redimencionar sozinho qualquer imagem inserida pra 480 x 360? mais uma vez obrigado!! :blush:

olá... não sei se fiz certo (hhe, acho que não porque ainda deu o mesmo erro) begin dm.q_clientes.Close; dm.q_clientes.Sql.Clear; dm.q_clientes.Sql.Add('Select * from tbl_clientes where fim_contrato Beetwen :dataini and :datafim'); dm.q_clientes.Parameters.ParamByName('dataini').Value := StrToDate(MaskEdit1.text); dm.q_clientes.Parameters.ParamByName('datafim').Value := StrToDate(MaskEdit2.text); dm.q_clientes.Open; end; o que tem de errado ainda?

olá amigo... segui o que você me passou, montei assim: begin dm.q_clientes.Close; dm.q_clientes.Filter:='Data >= ''' +DateToStr(DateTimePicker1.date)+ ''' and fim_contrato <= '''+DateToStr(DateTimePicker1.Date) +''''; dm.q_clientes.Filtered:=True; dm.q_clientes.Open; end; mas quando eu faço o filtro o seguinte erro é apresentado: O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. o que sera que esta acontecendo? obrigado!

olá... na verdade eu não quero que isso seja exibido em QR... eu preciso que isso seja filtrado e exibido em um DBGrid... como fazer? muito obrigado pela força! abraços!