maikel

s3c, Obrigado por ter ajudado... mas não funcionou... O caminho ficou o mesmo... não voltou o nível, eu tentei alterar o código... pórem sem exito... Se tiver alguma outra forma, ficarei grato... Att...

Boa Tarde amigos do fórum... Alguém ai sabe como faço para voltar um nivel no caminho do executavel do arquivo... Seguinte:Estou usando extractfilepath(application.exename); e ele me retorna o caminho onde está salvo o .exe da minha aplicação, que seria C:\Arquivos\Delphi\SisBiblioteca\Fontes e eu queria voltar um nivel de pasta, sendo que o nome da pasta fontes pode ser alterado e teria q retornar C:\Arquivos\Delphi\SisBiblioteca... Alguém pode me ajudar...?? Abraços... Att..Maikel

Olá pessoal... Seguinte... me deparei com um problema aqui q não consigo resolver... estou fazendo uma aplicação em ASP.NET no Delphi 2005 e preciso verificar se um arquivo existe, estou usando assim: if FileExists(ExtractFileDir(MapPath(Application.ToString))+'\arquivos\imagem.jpg' then Label1.text:='<a href='./arquivos/imagem.jpg'>Download da Imagem</a>' else Label1.text:='Nenhuma imagem disponivel para Download'; Se eu acessar o sistema local, na minha maquina funciona, mas quando coloco ele pra rodar no servidor, ai não funciona mais... Alguém pode me ajudar ou sabe alguma outra maneira de verificar se este arquivo existe... Agradeço

Seu programa esta falando que existe um erro no código SQL que você está usando..... Tente colocar assim: strsqllog:='SELECT * FROM usuario, perfil WHERE usuario.nivel = perfil.id'; strsqllog:= strsqllog + ' AND NOMETABELA.fantasia = ' + #39+ #39 + (valornome.Text) + #39+ #39 ; strsqllog:= strsqllog + ' AND NOMETABELA.senha = ' + #39 + #39 + (valorsenha.Text) + #39+ #39 ; //Não esqueça também do espaço para separar as SQL de uma linha e outra, entre perfil.id e o AND...... Espero que isso resolva seu problema.....

Alguma idéia.....?? Ninguém tem algum exemplo por ai...?? Att...

Textbox1.text:=FormatDateTime('dd/MM/yyyy',date); Esqueci o "o" no Format..... Rsrsrsrsrs

To sem o .NET aqui... mas tenta isso....acho que deve funcionar Textbox1.text:=FrmatDateTime('dd/MM/yyyy',date); //Vai formatar a data com o dia atual 20/02/2006 Att.....

Bom dia.... Estou tentando desenvolver um sistema em Delphi, preferncialmente Delphi7, mas também já procurei no Delphi2005 for .NET na biblioteca System.DirectoryServices, um sistema que altere a senha no Active Directory. Sei que preciso trabalhar com as bibliotecas do LDAP. Preciso que no sistema, eu informe o usuário e a nova SENHA, e o sistema após validar o usuário, atribua a nova senha aquele usuário. Tenho o AD instalado no Win2003. Se alguém tiver alguma rotina de como eu possa alterar essa senha... Agradeço... Att..

Eu me basei na ajuda do Delphi e fiz assim...só que está dando o seguinte erro "Stack Overflow" type TValorRecebido = TObject; ... private { Private declarations } FValorRecebido : TValorRecebido; public { Public declarations } Procedure SetValorRecebido(Value :TValorRecebido); Property ValorRecebido:TValorRecebido read FValorRecebido write SetValorRecebido; procedure TFrmPesquisa.SetValorRecebido(Value: TValorRecebido); begin BtnSeleciona.Click; end; procedure TFrmPesquisa.BtnSelecionaClick(Sender: TObject); begin SetValorRecebido(ValorRecebido); end; Isso no form que estou chamando....para passar o valor..uso o seguinte FrmPesquisa.ValorRecebido:=(PassaValor(FrmCadEmprestimo,DBEdit2));//Minha Função Se alguém puder me ajudar....ou mostar onde está meu erro agradeço....

Graymalkin, será que você não poderia me dar um exemplo....não estou conseguindo criar essa propriedade publica...e como passo o valor a ela..? Se puder me ajudar... Muito Obrigado pela força.... valeu.....

Ola..... Tente assim: Edit2.Text:=FormatCurr('0.00',StrToFloat(Edit1.Text)) Acho q vai resolver seu problema..... []'s Maikel

Ola pessoal... To tentando fazer uns código aqui, só não ta funcionando do jeito que eu queria..seguinte...dos meus forms de cadastro, onde tem chaves estrangeiras, eu chamo um Form de Consulta, que é o mesmo Form para qualquer tipo de consulta (Usuários, Livros, Autores) sendo que quando eu chamo ele, eu passo para a função qual o ClientDataSet e os campos que o DataSource e o DBGrid do Form Pesquisa deverão carregar. Até ai tudo tranquilo...só que eu também passo para uma outra função, o nome do Form que esta chamando e em qual campo o botão selecionar do Form pesquisa deverá jogar o valor, mas não consigo fazer com que o botão Selecionar receba este evento, ele sempre é executado assim que abre o form.. Estou fazendo assim: FrmPesquisa.BtSelecionar.OnClick(PassaValor(FrmCadObras,EdtAutor)); Tem algum outro jeito de eu passar esse parametro para este botão, mas que ele só seja executado quando eu clicar sobre ele..e não ao abrir o Form? Agradeço a quem puder me ajudar....

Daniel...eu faço todos os meus programas usando Firebird. Primeiramente, para conectar a uma base Firebird, você não precisa criar a conexão ODBC. Os componentes que uso são da Paleta DbExpress e DataAcess. Para fazer a conexão com o banco, uso o SqlConnection da DbExpress. Para executar comandos SQL ou ligar uma tabela, uso o SQLDataSet, também da DbExpress. Ligado a ele uso o DataSetProvider, da DataAcess, ele só faz a conexão para q você possa utilizar o ClientDataSet (DataAcess). Neste você irá trabalhar o Fields ou os campos da tabela e poderá ligar a este um DataSource(DataAcess), caso queira trabalhar com os componentes da paleta DataControls. Espero q te ajude... Att....Maikel Scheid maikelscheid@gmail.com

valeu pela ajuda....funcionou....era isso q esatva precisando... Muito Obrigado..... Maikel...

E ai pessoal.... Estou fazendo um sistema aqui e uso um PageControl para alterar entre o modo de visualização de cadastros>TabSheet 1 e Edição de Registros>>TabSheet2, onde neste tenho todos os campos da tabela para o cadastro, só que tem tabelas que tem muitos campos, então o TabSheet 2 deveria ter uma barra de rolagem, alguém sabe como fazer para colocar uma, ou algum outro componente que eu possa colocar em AlClient, que tenha barra de rolagens e que não apareça como sendo um componente.... Se alguém puder ajudar..agradeço... Att...Maikel

Ótimo Micheus.... Muito obrigado pela ajuda.....era isso mesmo que eu precisava.... Valeu.... Att....Maikel

Bom dia... Estou quebrando a cabeça e não consigo achar um jeito de criar uma função ou uma procedure, que eu chame ela quando crio o Form (estou criando os forms em tempo de execução) e que esta função ative o ClientDataSet que está em um data Module. A função precisaria pegar do form que estou criando, no DataSource o nome do ClientDataSet, e ativar este ClientDataSet no DataModuleCadastros... Alguém pode me ajudar com essa função ou procedure, eu até pensei em passar o nome do Form para a função..mas mesmo assim não estou conseguindo fazer.. Não sei se consegui explicar bem, mas se Alguém puder ajudar...Agradeço.. Maikel Scheid maikel@setrem.com.br Três de Maio - RS

Bom dia... Pessoal...será que alguém pode me ajudar..... Coloquei um material para Download na minha página htm...só que eu queria saber quantas vezes cada arquivo foi baixado... Será que tem algum javascript que faça essa contagem, pode ser bem simples, com um arquivo txt, onde cada vez que alguém clique no link, incremente mais um no valor atual..... Alguém sabe como fazer isso.... Se alguém puder ajudar....agradeço... Maikel Scheid

Bom dia.... Abre o projeto de novo e só compila ele ou executa ele que ele vai criar um arquivo junto na pasta do projeto, com o mesmo nome que este só que com estensão .exe. Este .exe sim que vai abrir o teu sistema quando tu clicar nele... Att...

Bom dia...veja essa Unit.....é só copiar a função e depois chamar ela no Edit.... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } function TiraVirgula (x:String):String; end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } function TForm1.TiraVirgula(x: String): String; Var Res:Integer; Begin Result:=''; for Res:=1 to Length(x) do If x[Res]<>',' then Result:=Result+x[Res] else Result:=Result+'' end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=TiraVirgula(Edit1.Text); end; end. Att.....Maikel Scheid

Boa Tarde Tem uns usuários que jogam um tal de Racer....não sei se este é mesmo o nome do jogo....mas freqüentemente o que mais jogam é corrida e futebol.....fifa...etc... Será que estes jogos bloqueiam o Desktop.....tem como desbloquear ele para capturar a tela do jogo....como proceder.... Se puder ajudar...agradeço...

Boa Tarde.... Tenho um sisteminha que roda escondido em algumas máquinas....e a função dele é capturar a tela de 10 em 10 minutos e salvar no formato jpg...até ai tudo bem...ele captura...o poblema é que se o usuário estiver jogando, o sistema captura uma tela toda em branco.....O sistema é em Delphi 7 e a função que uso está a seguir: var aBitmap : TBitMap; Canvas : TCanvas; aJPG : TJPegImage; begin aBitmap := TBitMap.Create; Canvas := Tcanvas.Create; aJPG := TJpegImage.Create; aJPG.ProgressiveEncoding := True; //aJPG.Grayscale := True; //se for escala de cinza aJPG.CompressionQuality := 84; //compressão JPG try Canvas.Handle := GetDC(0); aBitMap.Width := Screen.Width; aBitMap.Height := Screen.Height; aBitMap.Canvas.CopyRect(Canvas.ClipRect,Canvas,Canvas.ClipRect); aJPG.Assign(aBitMap); aJPG.SaveToFile(aFileName); finally ReleaseDc(0,Canvas.Handle); Canvas.Free; aBitmap.Free; aJPG.Free; end; Alguém sabe porque ele não captura o Desktop quando o usuário estiver jogando.... de que forma o jogo é exibido na tela..... Se alguém puder ajudar...agradeço.... Att....Maikel

Não...não estou usando nenhum Firewal....nem ferramentas..como antyspyware ou outras..... que possam bloquear alguma poup-up........ Instalei o Firefox provisóriamente até conseguir resolver este problema.....

valeu pessoal.......não precisa mais responder...já descobri... WinExec(PChar('explorer.exe \\' + caminho.Text +'\hd\'),SW_NORMAL); Att.... Maikel

valeu pela ajuda..... o código no Delphi funcionou... E para mapear a rede....não deu certo...com o comando que eu tinha....porem o net use também não é o camando que eu queria.......acho que expliquei mal o que eu queria fazer.....o comando net use cria uma nova conexão ou mapeamento de rede...porem eu só quero que ele abra o explorer com aquele caminho já mapeado...... só o caminho..... sem criar o mapeamento fixo no explorer... Tem algum comando que faça isso.....? Att.... Maikel