Mario Lopes

Na mouche amigo. Obrigado

Boas Tenho uma Dbgrid e gostaria que após determinada operação o curso se movesse para o ultimo registo. Estou a usar o seguinte código que não está a funcionar: queryapagar.RecNo:=queryapagar.RecordCount; Alguém ajuda? Obrigado Outra questão: Tenho a seguinte query queryactualiza.SQL.Add('update apagar set total_recibo=:total where (numero=:numero and mes=:mes and Pago<>:p) '); queryactualiza.params[0].ascurrency:= total; queryactualiza.Params[1].AsFloat:= numero ; queryactualiza.Params[2].asstring:= mes ; queryactualiza.Params[3].asstring:= 'A' ; queryactualiza.execsql; O meu problema é que quero que a actualização faça o update dos registo cujo campo Pago seja nulo . O campo Pago é tipo string tamanho 1. Assim como ficaria? Obrigado

Obrigado Jhonas

Viva Ando às voltas porque preciso de criar uma ficha de registo e necessito de incluir fotografia, numa base de dados Mysql. Ora estou a usar o componente Upload do Delphi for php e já sei como fazer o upload de um ficheiro. Mas como guardar a imagem na base de dados com delphi4php? Obrigado

já fiz alguns testes usando delphi 5 e delphi 7 com acesso remoto a banco de dados MySQL ... funcionou perfeitamente em provedores windows e tive certos problemas com provedores linux a velocidade de transmissão dos dados fica a cargo de sua conexão e do proprio provedor a segurança dos dados é outro fator a se levar em conta ... se for de nível crítico não é qualquer provedor que poderá garantir esse sigilo. outra coisa a se levar em conta, quando voce faz um programa com acesso remoto, é que se o acesso cair ou falhar, voce deve ter em mente que será necessario um banco de dados local com atualização automatica do banco de dados remoto assim que a conexão for restabelecida a conexão com o banco de dados MySQL remoto voce pode fazer através dos componentes Zeos lembre-se tambem que quanto menos registros trafegarem pela rede melhor será a performance do programa abraço Agradeço a sua resposta que toca em vários problemas interessantes. E quanto ao delphi for php, que me diz? Já usou? Acredita no produto? Obrigado pela sua ajuda Mário Lopes

Poderia lhe informar vários ... mas depende do quanto pode gastar e qual o grau de segurança que voce quer para os seus dados mas antes de escolher veja este artigo: http://www.onlineweb.com.br/pages/servicos/faq/faq7.php abraço à minha dúvida existe entre programar localmente e aceder à bd na web, ou programar directamente com delphi for php. Não sei o que fazer. Tenho lido alguns artigos que me dizem que delphi for php não é bem fiável e o seu desenvolvimento pode ser descontinuado pela codegear. Tambem o apoio, a este produto, não abunda, é até muito escasso. Francamente não sei o que devo fazer. Qual a sua opinião?

Na verdade qualquer provedor pode dar acesso remoto ao banco de dados MySql, depende somente da política de acesso desse provedor. abraço Obriago Jhonas Vou sondar outros provedores para ver se resolvo esta situação. Pode recomendar-me algum?

Boa noite Questionei o meu provedor de internet sobre as configurações para poder aceder à base de dados mysql no meu sitio internet (mariolopes.com) Foi-me dito que por questões de segurança esse acesso apenas poderia ser local (localhost). Digam-me isto é regra ou o meu provedor está a ser demasiado cauteloso? Cumprimentos Mário Lopes

Obrigado gente boa

Boas Será possivel fazer um programa em delphi 7, cuja base de dados MySQL está num sitio web? Se sim alguém me pode dar um exemplo ou uma pista? Obrigado P.S. Estou às voltas com delphi for php, mas ainda não sinto muita confiança no produto.

Por favor ignorem a minha mensagem Tentei poupar no envio da pasta VCL (60 e tal megas) e deve ser por isso que tenho erro. As minhas desculpas

Por favor ignorem a minha mensagem Tentei poupar no envio da pasta VCL (60 e tal megas) e deve ser por isso que tenho erro. As minhas desculpas

Penso que o botão não funciona bem em delphi4php Vejam o seguinte exemplo: function Unit1Create($sender, $params) { mysql_connect("localhost","mariolopes","freixo"); mysql_select_db("mariolopes"); $a='Pers'; $b=88; $op = mysql_query("INSERT INTO delphi(Nome, Idade) VALUES ( '$a' , '$b')"); if($op) { print 'Registo Adicionado'; } else { print 'Erro. Registo não Adicionado'; } } function Button1Click($sender, $params) { mysql_connect("localhost","mariolopes","freixo"); mysql_select_db("mariolopes"); $a=$this->Nome->Text; $b=$this->Idade->Text; $op = mysql_query("INSERT INTO delphi(Nome, Idade) VALUES ( '$a' , '$b')"); if($op) { print 'Registo Adicionado'; } else { print 'Erro. Registo não Adicionado'; } } Insere o registo da unit create, mas nunca consigo inserir o registo quando clico no botão. Alguém sabe porquê? Obrigado

Pois é jhonas, não sei. Vou dizer-lhe porque é que não sei. O ficheiro criado em delphi for php é, por exemplo, o seguinte: <?php require_once("vcl/vcl.inc.php"); //Includes use_unit("forms.inc.php"); use_unit("extctrls.inc.php"); use_unit("stdctrls.inc.php"); //Class definition class Unit1 extends Page { public $Label1 = null; public $Edit1 = null; public $Button1 = null; function Button1Click($sender, $params) { $this->Edit1->Text='Teste ao programa'; } } global $application; global $Unit1; //Creates the form $Unit1=new Unit1($application); //Read from resource file $Unit1->loadResource(__FILE__); //Shows the form $Unit1->show(); ?> Quando este ficheiro é colocado na web (juntamente com o xml e outros entretanto criados) o código fonte criado é: <html DIR=ltr > <head> <title>Unit1</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <script type="text/javascript" src="vcl/js/common.js"></script> <script type="text/javascript">var Unit1=new Object(Object);</script> <script type="text/javascript"> <!-- function Button1ClickWrapper(event, hiddenfield, submitvalue, wrappedfunc) { var event = event || window.event; submit1=true; submit2=true; if (typeof(wrappedfunc) == 'function') submit1=wrappedfunc(event); hiddenfield.value = submitvalue; form = hiddenfield.form; if ((form) && (form.onsubmit) && (typeof(form.onsubmit) == 'function')) submit2=form.onsubmit(); if ((submit1) && (submit2)) form.submit(); return false; } function Edit1_updatehidden(event) { edit=findObj('Edit1'); hidden=findObj('Edit1_hidden'); hidden.value=edit.value; } --> </script> </head> <body style=" margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; " > <form style="margin-bottom: 0" id="Unit1" name="Unit1" method="post" action="/delphiphp/teste.php"><input type="hidden" id="Button1SubmitEvent" name="Button1SubmitEvent" value="" /><input type="hidden" name="Edit1_hidden" value=""> <table width="800" style="height:600px" border="0" cellpadding="0" cellspacing="0" ><tr><td valign="top"> <div id="Button1_outer" style="Z-INDEX: 0; LEFT: 224px; WIDTH: 75px; POSITION: absolute; TOP: 168px; HEIGHT: 25px"> <input type="submit" id="Button1" name="Button1" value="Click" onclick="return Button1ClickWrapper(event, findObj('Button1SubmitEvent'), 'Button1_Button1Click')" style=" font-family: Verdana; font-size: 10px; height:25px;width:75px;" tabindex="0" /> </div> <div id="Edit1_outer" style="Z-INDEX: 1; LEFT: 312px; WIDTH: 121px; POSITION: absolute; TOP: 168px; HEIGHT: 21px"> <input type="text" id="Edit1" onchange="return Edit1_updatehidden(event)" name="Edit1" value="" style=" font-family: Verdana; font-size: 10px; height:20px;width:121px;" tabindex="0" /> </div> <div id="Label1_outer" style="Z-INDEX: 2; LEFT: 268px; WIDTH: 275px; POSITION: absolute; TOP: 66px; HEIGHT: 13px"> <div id="Label1" style=" font-family: Verdana; font-size: 10px; height:13px;width:275px;" >Teste ao Programa</div> </div> </td></tr></table> </form></body> </html> <!-- Unit1 end --> Portanto não faço a minima ideia. O que posso garantir é que funciona tudo correctamente se o ficheiro for executado dentro do delphi for php, mas só neste caso. O que devo fazer? Obrigado

Obrigado amigos Tenho tido muito apoio neste forum e agora estou com uma dificuldade neste programa. Se possivel verifiquem o link em seguida teste O que fiz? Ao clicar num botão no edit deve aparecer algo escrito. Passei para o sitio 4 ficheiros de nome amigos e toda a pasta VCL. Necessito de mais alguma coisa? Após ter passado todos estes elementos para o sitio obtenho o erro de script Webpage error details User Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; GTB6.4; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.2; AskTB5.6) Timestamp: Fri, 21 May 2010 15:09:14 UTC Message: Object expected Line: 41 Char: 1 Code: 0 URI: http://www.mariolopes.com/delphiphp/amigos.php Mas se executado a partir do Delphi for php funciona certinho. Alguém sabe porquê? É que o código do botão é: function Button1Click($sender, $params) { $this->Edit1->Text='Teste ao Programa'; } Obrigado

Boas Já programo em php faz tempo e sempre tudo funcinou correctamente. A questão é que os php gerados pelo delphi for php parecem-me não funcionar tão correctamente assim. Alguém já testou? Funcionou tudo certo? Aguardo opiniões

Caros amigos Preciso de programar para web e uma boa opção parece-me ser o Delphi for php. Acontece que os foruns de ajuda são muito poucos e estou com receio de ter dúvidas e não as conseguir esclarecer. Necessito de desenvolver um sistema para web (cadastro clientes etc...) Delphi for php será uma boa opção? Tenho o apache instalado (Xampp) e fiz uma pequena aplicação que salvei na pasta delphiphp. Corre bem se executada da seguinte forma http://localhost:3570 . No entanto se guardara aplicação na pasta htdocs do xampp não funciona. Estou confuso.

Oh Jonas as minhas desculpas. Por certo expliquei-me mal Essa situação já foi resolvida a questão agora é diferente: No campo mês tenho textualmente Janeiro, Abril, Fevereiro,Junho etc... Não existe, por certo, forma de ordenar por mês com uma saida janeiro, fevereiro, ...

Preciso de fazer uma ordenação por mês -Janeiro, Fevereiro ... Alguém sabe uma solução, sem ter que utilizar um campo adicional?

Viva. A solução é a seguinte: queryanosmes.sql.add('select Nome, data_nascimento, telemovel_pai,telemovel_mae,emailpai,emailmae, extract (day from data_nascimento) as dia from criancas where extract (month from data_nascimento) =:mes order by dia');

Olá Eu estou a usar BDE, o link que me dá não é para Interbase. É que existem diferenças entre sql de banco de dados para banco de dados. Será esse o problema? Cumprimentos e boa viagem

Sim, está como integer. Agora: Algo está errado porque se eu criar um projecto novo, colocar uma query e escrever o seguinte código no sql select * from criancas WHERE extract(month from DATA_NASCimento) = :mes order by EXTRACT(DAY FROM DATA_NASCimento) Obtenho o erro Invalid use of keyword Token (DAY Line number: 1 Acho estranho como é que você não obtém este erro.

Hum... Obtenho um erro Invalid use of keyword Token Extract (DAY Testei aqui e a query é exatamente essa: select * from tabela where extract(month from data_nasc) = :mes order by extract(day from data_nasc) Dá uma olhada no código e vê se você escreveu corretamente... Outra coisa, se tiver o IBExpert aí teste essa query nele! Abraços Ok Douglas Obrigado pela sua paciência mas algo de errado está a acontecer. Esta query dá erro queryanosmes.sql.add('select * from criancas where extract (month from data_nascimento)=:mes order by extract (day from data_nascimento)'); esta query não dá erro: queryanosmes.sql.add('select * from criancas where extract (month from data_nascimento)=:mes and extract (day from data_nascimento)=:dia'); Estou a usar o Delphi 7 e não entendo porquê. Está o evento form create

Hum... Obtenho um erro Invalid use of keyword Token Extract (DAY

Fiz um teste e funciona sem problemas procedure TForm1.Button1Click(Sender: TObject); begin query1.SQL.Clear; Query1.SQL.Add('SELECT *'); Query1.SQL.Add('FROM TABELA'); Query1.SQL.Add('WHERE extract(month from DATA_NASC) = :mes'); query1.SQL.Add('ORDER BY DATA_NASC'); Query1.ParamByName('mes').AsInteger := 1; Query1.Open; end; abraço Você está (mais uma vez) totalmente certo Jonas. Eu enganei-me, porque o que necessitava realmente era da ordenação por dia e não por data. Bem mais dificil, não? Obrigado