Venho aqui tratar de um problema dúvida que estou tendo com um layout que estou tentando usar o formulário php dele.
Quando clico em enviar ele me enviar para um arquivo .php (assets/vendor/simple-forms/sendmail.php)
Ele não envia o e-mail, acredito que deveria aparecer uma mensagem que o contato foi enviado corretamente.
Vou deixar os arquivos aqui em anexo quem puder me ajudar nessa, ficaria muito grato.
Boa tarde pessoal,
gostaria de pedir uma ajuda para criar um evento em um formulário HTML.
Eu tenho um formulário em HTML e PHP, e nele tem um campo do tipo select e um campo do tipo text(desabilitado).
Gostaria que ao clicar no campo select e escolher qualquer opção da lista, automaticamente em seguida aparecesse dentro do campo text um valor respectivo a opção escolhida anteriormente.
Exemplo:
Tenho um campo select com tipos diferentes de materiais (vidro, papel, alumínio, etc.) e no campo text(desabilitado) terei a quantidade de anos que cada material demora a se decompor na natureza. O campo text inicialmente estará vazio, mas quando selecionar o material, aparecerá dentro deste text a quantidade de anos.
obs.: Os valores do campo select e do campo text estão ambos na mesma tabela do banco de dados(MySQL), o campo select com valores string e o campo text com valores inteiros.
Não sei se consegui explicar direito, mas acredito que terei que utilizar javascript para este evento, mas ainda não sei como.
Alguém tem ideia de como eu poderia fazer isso ou alguma dica?
Preciso de ajuda ajuda para resolver o problema de SIGSEGV, basicamente tennho um zconection dentro de uma classe e recebo erro quando tento acessá-lo. Segue um trecho da classe:
unit unt_classconexao;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, ZConnection, ZDataset;
type
{ tConexao }
tConexao = class
private
public
vConector : TZConnection;
function Listar_Usuarios:TZReadOnlyQuery;
procedure Conectar_Banco;
end;
implementation
{ tConexao }
function tConexao.Listar_Usuarios: TZReadOnlyQuery;
var zrquery : TZReadOnlyQuery;
begin
Conectar_Banco;
try
zrquery := TZReadOnlyQuery.Create(nil);
zrquery.Connection := vConector;
zrquery.SQL.Clear;
zrquery.SQL.Text := 'SELECT * from tbl_profissionais';
zrquery.Open;
Listar_Usuarios := zrquery;
finally
end;
end;
procedure tConexao.Conectar_Banco;
begin
//vConector := TZConnection.Create(nil);
vConector.HostName := 'localhost';
vConector.Port := 3306;
vConector.Database := 'Caps';
vConector.Protocol := 'mysql-5';
vConector.User := 'root';
vConector.Password := '';
vConector.Connected := true;
end;
end.
Após isso tento fazer uso dessa classe para popular um DBGrid:
unit unt_frmprincipal;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, Menus, DBGrids,
ZConnection, unt_classconexao;
type
{ Tfrm_principal }
Tfrm_principal = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
MainMenu_frmPrincipal: TMainMenu;
MenuItem_AplicativoSair: TMenuItem;
N1: TMenuItem;
MenuItem_AplicativoLogin: TMenuItem;
MenuItem_Aplicativo: TMenuItem;
procedure MenuItem_AplicativoLoginClick(Sender: TObject);
private
public
vConexao : tConexao;
end;
var
frm_principal: Tfrm_principal;
implementation
{$R *.lfm}
{ Tfrm_principal }
procedure Tfrm_principal.MenuItem_AplicativoLoginClick(Sender: TObject);
begin
//vConexao := tConexao.Create;
DataSource1.DataSet := vConexao.Listar_Usuarios;
end;
end.
A mensagem de erro que recebo dá a entender que o problema ocorre logo que o zconnection começa a ser configurado, como vocês podem ver pelos trechos comentados eu tentei instanciar o componente também sem sucesso. Não tenho experiencia com POO e tenho certeza que estou cometendo um erro bobo, então peço uma explicação sobre como resolver isso. Agradeço de antemão a quem puder me ajudar.