Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá. Eu estava aprendendo programação em C# mas eu tive a ideia de um programa e quando fui fazer em C# ficou complicado demais, pois para colocar uma palavra em cima de uma Picture tinha que colocar códigos e não consegui colocar mais de uma (uma palavra pra cada imagem). No Delphi era só editar uma propriedade, então continuo preferindo ele.
O problema é que eu não sou muito esperto quando o negócio é MySQL no Delphi (uso normalmente em PHP) então acabo me complicando.
Quando eu vou adicionar valores em uma tabela, aparece isso:
/applications/core/interface/imageproxy/imageproxy.php?img=http://img853.imageshack.us/img853/6388/zwx7.png&key=7bc58c0abc4506b5a3fbd083f18b2d759312a847dbd613c84a7f9756d631e8e1" alt="zwx7.png" />
E quando eu coloco o arquivo, aparece isso:
/applications/core/interface/imageproxy/imageproxy.php?img=http://i.imgur.com/Z86zJFj.png&key=51fadea8d3d55126ef24affdc7bf44929b67be7ca65bef674a6b1e856276907f" alt="Z86zJFj.png" />
Estou utilizando o Zeos. Tenho dois componentes no Form: TZConnection (está funcionando perfeitamente) e um ZQuery1.
Não sei se o problema é no código ou no componente ZQuery, uma imagem das propriedades dele:
/applications/core/interface/imageproxy/imageproxy.php?img=http://i.imgur.com/iTwk0ZJ.png&key=73ba2ebc4a4bc1f4882680913c503b14fc12c41cbc90329e1d2a9c9e0e6fa812" alt="iTwk0ZJ.png" />/applications/core/interface/imageproxy/imageproxy.php?img=http://i.imgur.com/E29Tx9Q.png&key=8718a06a990e3b1a70df41a9f0f84ab0d76bbbfe38ba079fff2bf02dee0168b8" alt="E29Tx9Q.png" />
Em Connection, é o componente TZConnection. O código para executar o comando SQL está em um timer, quer tem intervalo de valor 50. Ele é ativado quando se clica em um botão.
Código do botão:
Aviso1.Close;
RegistroForm.ZQuery1.Active := True;
RegistroForm.PainelSucess.Top := 0;
RegistroForm.PainelSucess.Left := 0;
RegistroForm.PainelSucess.Visible := True;
RegistroForm.Timer1.Enabled := True;
E o código do Timer:
ZQuery1.SQL.Text := 'INSERT INTO delphi.usuarios (nome, user, senha, email) VALUES ("'+ edNome.Text +'","'+ edUser.Text +'", "'+ edSenha.Text +'", "'+ edEmail.Text +'");';
try
zQuery1.ExecSQL;
except
On E:Exception do
ShowMessage('Ocorreu um erro no cadastro: ' + E.Message);
end;
Timer1.Enabled := False;
Alguém pode me ajudar?
Carregando comentários...