fdefod
-
Total de itens
79 -
Registro em
-
Última visita
Posts postados por fdefod
-
-
no 1º form tem algumas verificações e depois no final este código!
FormLogin.ShowModal
aplication.Run
end.
-
Amigão, realizei a alteração sugerida, mas continua fechando.
-
procedure TFormLogin.BtnConectarClick(Sender: TObject);
var
TemProposta, RelatFinanc: Boolean;
begin
Tabelas.QUsuarios.Open;
if Tabelas.QUsuarios.Locate('NomeUsuario', EdNome.Text, [loCaseInsensitive]) then
begin
sysCodUsuario := Tabelas.QUsuariosCodUsuario.Value;
sysNomeUsuario := Tabelas.QUsuariosNOMECOMPLETO.Value;
sysCodPerfilUsuario := Tabelas.QUsuariosCodcidade.Value;
if (EdSenha.Text <> Tabelas.QUsuariosSenha.Value) and (Tentativas <=3) then
begin
Alerta('%s, Senha incorreta! Digite novamente.', [sysNomeUsuario]);
EdSenha.SetFocus;
EdSenha.SelectAll;
Tentativas:= Tentativas + 1;
end
else
if Tentativas > 3 then //Se atingiu 3 tentativas...
begin
Alerta('%s, A sua senha não confere. Procure ajuda com o administrador do sistema.',[sysNomeUsuario]);
Halt; //... aborta o programa!
end
else //Senha correta.
begin
Screen.Cursor := crHourGlass;
Application.CreateForm(TFormPrincipal, FormPrincipal);
FormPrincipal.NomeUsuarioLogin:= sysNomeUsuario;
FormPrincipal.Caption :='Visual Sica - Ano base: ' + Tabelas.QConfiguracaoANOEXERCICIO.AsString;
FormPrincipal.StatusBar1.Panels[2].Text := 'Usuário: ' + sysNomeUsuario;
fechar:= true;
winresult := mrOk;
Close;
Screen.Cursor := crDefault;
end;
end else
begin //Usuário não cadastrado.
Alerta('Usuário %s não cadastrado!', [EdNome.Text]);
EdNome.SetFocus;
EdNome.SelectAll;
end;
Tabelas.QUsuarios.Close;
end;
Obs: Ele esta entrando no if certo mas mesmo assim está fechando o form.
-
Olá pessoal.
Peguei um sistema feito em delphi para dar suporte e estou com o seguinte problema:
Toda vez que é aberto o Form Login (FormLogin.ShowModal;) e que o usuário digita a senha errada o form é fechado. O que pode estar acontecendo. Lembrando que tenho duas procedures:
TFormLogin.BtnConectarClick - Logar
TFormLogin.Button2Click - Sair
-
Pessoal, vou reabrir este tópico pois estou com dúvidas.
Quando uso o 1º metódo mostrado acima na minha maquina, ele me retorna o endereço MAC errado! tenho 3 placas de rede e ele está me retornando a que esta desativada!
-
Olá pessoal.
Sou iniciante no delphi. Gostaria de saber se alguém sabe de uma função que me retorne todos os endereços MACS da maquina!
-
Na verdade é uma única rede... tem o servidor(onde está o banco sql server) e várias outras máquinas onde logo como administrador e instalo o aplicativo.
O acesso ao banco se dá com credencias do banco( ip(interno) e porta, base de dados, login e senha). Outra coisa, eu acesso ele da rede da minha empresa blza com ip externo e porta, aí chega internamente e tá dando time out. Não consigo entender.
-
Brother,
O pior é que tenho permissões, inclusive faço ping, telnet e mesmo assim quando rodo o aplicativo dá time out!
O curioso é que tem duas máquinas que conecta blza, e as instalações e configurações de todas as máquinas são iguais!
-
Olá pessoal!
Estou com um problema. Tenho um aplicativo onde faço login na 1ª tela. No Vs o sistema roda direitinho. Fui instalar no cliente e quando rodei blza.. nza hora de fazer login travou e deu o seguinte erro: Time out. O servidor não está respondendo ou parou de funcionar!
O pior é que instalei em outra maquina na mesma rede e rodou blza. algumas rodam e outras dão time out. alguém sabe dizer o que pode ser???
-
< menor que
> maior que
!= diferente
-
O codigo que você está usando ok. Só comple o código para aparecer as linhas no comBobox você faz assim:
cbxTrocaDe.DataSource = dtResultado; // adiciona o dataSource ao ComboBox
cbxTrocaDe.DisplayMember = "nome da coluna a ser mostrada"; //referência uma coluna ao dysplayMember;
Não tenho certeza mas acho que vai ter de referenciar o ValueMember tb
cbxTrocaDe.ValueMember = 'nome da coluna que quer utilizar como valor de cada linha"
-
você esta adicionando duas connectionString identicas. Remova uma delas e adicione a string ao SqlConnection pelo ConectionManager.connectionString["aqui você passa o nome da conexao"].connectionString! Talvez você esteja passando uma string de conexao invalida!
-
dentro da tag configuration do webConfig você coloca o código abaixo:
<connectionStrings> <add name="conexao" connectionString="Data Source=192.168.1.1;Initial Catalog=nome da Base de Dados;User Id=usuario;Password=senha;" /> </connectionStrings> onde você for fazer a conexão você recupera a connectionString assim SqlCommand; SqlConnection conn; SqlReader conn = new SqlConnection(ConfigurationManager.ConnectionStrings["conexao"].ConnectionString); try { SqlCommand comm; comm = new SqlCommand("select * from ", conn); comm.CommandType = CommandType.Text; conn.Open(); dr = comm.ExecuteReader(); if (dr.Read()) { dr.getStrin(0) //aqui você recupera o valor retornado } conn.close; catch (SqlException ex) { conn.Close(); MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }Aqui foi só um exemplo de como usar o webConfig!
-
Pessoal conseguir resolver o problema acima. Pra que tiver o mesmo problema que eu vai aí a solução!!
http://translate.googleusercontent.com/tra...bw_p-a7bzfPTxeg
-
Boa caros colegas,
Estou desenvolvendo uma aplicação windows mobile 5.0, queria saber se tem como quando inicializar a aplicação o teclado numerico virtual do próprio mobile aparecer.
Eu consigo fazer o teclado alfa aparecer. Mas não consigo alternar via código!
alguém pode me ajudar??
-
olá pessoal,
Estou desenvolvendo um aplicativo que compara arquivo de duas maquinas(Local e remota). Na máquina remota eu rodo uma web service que gera um hash do arquivo e me retorna uma string. na local eu tb gero um hash e comparo com o que foi retornado da maq. remota.
O prblema é que a quantida de arquivos é muito grande. e quando eu coloco pra rodar dá o seguinte erro:
An existing connection was forcibly closed by the remote host
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Net.Sockets.SocketException: An existing connection was forcibly closed by the remote host
Source Error:
An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.
Aguem sabe dizer como resolver isso??
Codigo que chama webservice!
for (int i = 0; i < array.Count; i++) //20.000 arquivos +- { WebReference.Service obj = new WebReference.Service(); row = dtSample.NewRow(); string arquivo = array[i].ToString(); string lisboa= HttpUtility.UrlDecode(obj.DownloadFile(arquivo)); obj.Dispose(); if (txtExtensao.Text.Equals(String.Empty)) { // if (arquivo[arquivo.Length - 4].Equals('.') ) // row["TIPO"] = arquivo.Substring(arquivo.LastIndexOf(".") + 1); // else // row["TIPO"] = "pasta"; for (int j = 0; j < intelig.Count; j++) { if (arquivo.Equals(intelig[j].ToString())&&Comparar(arquivo,lisboa)==true) { if (rblStatus.Items[1].Selected || rblStatus.Items[2].Selected) { row["ARQUIVO EM LISBOA"] = array[i].ToString(); row["INTELIG"] = "ok"; dtSample.Rows.Add(row); } break; } else if (j == intelig.Count - 1) { if (rblStatus.Items[0].Selected || rblStatus.Items[2].Selected) { row["ARQUIVO EM LISBOA"] = array[i].ToString(); row["INTELIG"] = "falha"; dtSample.Rows.Add(row); } } } } -
Pessoal por hora não irei mais precisar dos metodos acima.. mas tenho outra dúvida.. coloquei na pasta bin um txt que contem um caminho para um diretotio..
depois usei o seguinte metodo para buscar o diretorio:
public string configurarDiretotio()
{
if (File.Exists(Server.MapPath("/bin/configurarDiretorio.nf")))
{
StreamReader sr = new StreamReader(Server.MapPath("/bin/configurarDiretorio.nf"));
string linha = sr.ReadLine();
return linha;
}
else
return null;
}
meu problema é que quando eu publico o arquivo não vai junto na pasta bin. E mesmo que eu coloque o arquivo na pasta bin publicada ele dá erro. No codigo rodando no vs ele consegue ler o arquivo mas publicado ele não vai!
alguém sabe resolver isso!!!
-
Uma coisa que eu percebi ao dar permissões é que lá não têm a conta ASP NET.]
Como faço para instalar esta conta, talvez seja este o problema!!
-
Colega eu coloquei acesso total ao usuario todos mesmo assim continua o mesmo erro!!
-
Pessoal estou querendo fazer uma aplicação fazer download em uma máquina remota. O lado servidor está funcionando blza (o upload) mas quando a máquina cliente pegas os arquivos no servidor e tenta gravar localmente dá erro de acesso como descrito abaixo!
Access to the path 'C:\FOTOS' is denied.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.UnauthorizedAccessException: Access to the path 'C:\FOTOS' is denied.
ASP.NET is not authorized to access the requested resource. Consider granting access rights to the resource to the ASP.NET request identity. ASP.NET has a base process identity (typically {MACHINE}\ASPNET on IIS 5 or Network Service on IIS 6 and IIS 7, and the configured application pool identity on IIS 7.5) that is used if the application is not impersonating. If the application is impersonating via <identity impersonate="true"/>, the identity will be the anonymous user (typically IUSR_MACHINENAME) or the authenticated request user.
To grant ASP.NET access to a file, right-click the file in Explorer, choose "Properties" and select the Security tab. Click "Add" to add the appropriate user or group. Highlight the ASP.NET account, and check the boxes for the desired access.
Source Error:
Line 272: byte[] b1 = null;
Line 273: b1 = ls1.DownloadFile(TextBox1.Text);
Line 274: fs1 = new FileStream("C:\\FOTOS", FileMode.Create); // O ERRO È AQUI
Line 275: fs1.Write(b1, 0, b1.Length);
Line 276: fs1.Close();
Source File: C:\Users\DG\Desktop\ControleServidores\ControleServidores\Default.aspx.cs Line: 274
alguém sabe dizer como resolver?
-
Amigão mais uma vez obrigado!!!!
-
Colegas,
tow com uma duvida, meu web service que roda no servidor recebe um caminho e retorna todos os arquivos e pastas deste caminho.
A pasta que eu pesquiso tem um pouco mais 20.000 arquivos e 396 pastas. Minha aplicação chama o metodo da web service e chama o mesmo metodo na maquina local que tem a mesma pasta, depois ele faz um for passando por todos os itens do array e comparando com o array da pasta local. Este processo rodando está demorando quase 1 minuto e meio pra carregar a tela. Gostaria de saber se tem como otimizar este codigo!
protected void Button2_Click(object sender, EventArgs e) { string caminho; caminho = txtCaminhoPasta.Text; for (int k = 0; k < caminho.Length; k++) { if (caminho[k].Equals('\\')) caminho.Insert(k, '\\'.ToString()); } ArrayList intelig = new ArrayList(); ArrayList array = new ArrayList(); DataTable dtSample = new DataTable(); dtSample.Columns.Add(new DataColumn("ARQUIVO EM A", typeof(string))); // dtSample.Columns.Add(new DataColumn("SERVIDORA", typeof(string))); dtSample.Columns.Add(new DataColumn("SERVIDORB", typeof(string))); dtSample.Columns.Add(new DataColumn("TIPO", typeof(string))); //dtSample.Columns.Add(new DataColumn("STATUS", typeof(int))); DataRow row; if (txtCaminhoPasta.Text.Equals("")) Label3.Visible = true; else { array = new ArrayList(objWs.pesquisar2(caminho)); intelig = pesquisar2(caminho); Label3.Visible = false; } if (array.Count == 0) { MSN.alert("Informe um caminho válido!"); Page.Controls.Add(MSN); } else { for (int i = 0; i < array.Count; i++) { row = dtSample.NewRow(); string arquivo = array[i].ToString(); if (txtExtensao.Text.Equals("")) // VERIFICA SE O TEXTBOX FILTRAR POR EXTENSÂO ESTÀ VAZIO { if (arquivo[arquivo.Length - 4].Equals('.')) row["TIPO"] = arquivo.Substring(arquivo.LastIndexOf(".") + 1); else row["TIPO"] = "pasta"; row["ARQUIVO EM A"] = array[i].ToString(); //row["SERVIDORA"] = "ok"; row["SERVIDORB"] = "falha"; for (int j = 0; j < intelig.Count; j++) { if (arquivo.Equals(intelig[j].ToString())) { row["SERVIDORB"] = "ok"; break; } } dtSample.Rows.Add(row); } else { string tipo = ""; if (arquivo.Contains('.')) { tipo = arquivo.Substring(arquivo.LastIndexOf(".") + 1); if (tipo.Equals(txtExtensao.Text)) { row["TIPO"] = arquivo.Substring(arquivo.LastIndexOf(".") + 1); row["ARQUIVO EM A"] = array[i].ToString(); // row["SERVIDORA"] = "ok"; row["SERVIDORB"] = "falha"; for (int j = 0; j < intelig.Count; j++) { if (arquivo.Equals(intelig[j].ToString())) { row["SERVIDORB"] = "ok"; break; } } dtSample.Rows.Add(row); } } } } gvwTabelas2.DataSource = dtSample; gvwTabelas2.DataBind(); } } -
Bruno você é o cara man.
Estes dois links aí ajudou pra caramba, graças ati eu conseguir fazer minha aplicação se comunocar com o web service no servidor!!
Vaelu man!!
-
Brother.. você teria algum exemplo para eu me situar que eu nunca o fiz. Valeu!!
(Resolvido) Form Login Fechando
em Delphi, Kylix
Postado · Editado por fdefod
Amigão ainda não conseguir resolver.
Vamos lá, no formLogin só tem procedures e não sei se ajuda mas não tem nenhum FormLogin.Close, e sim uma procedure procedure TFormLogin.FormClose(Sender: TObject; var Action: TCloseAction); que toda vez que sai da procedure do botão conectar ele entra nela. Ou seja depois de passar pela procedure Conectar ele está fechando o Form.
Só lembrando
Aqui cria o formLogin:
FormLogin := TFormLogin.Create(Application);
FormLogin.QryData.open;
Aqui chama FormLogin:
FormLogin.ShowModal;
Application.Run;
O formLogin é uma var dentro de uma unit. O formlogin está herda da classe TForm.