António44
-
Total de itens
168 -
Registro em
-
Última visita
Posts postados por António44
-
-
select * from vendacli Where ( data = :Data) Order by data
Acertar o parâmetro Data como tipo ''date'' isto partindo do principio que o campo é Data (DBEdit5.text := DateToStr(now);) na DB.
-
Vou mesmo ter que fazer isso ai que você fala...mas poque será que isto acontece,será alguma má fé da Microsoft ???
Abraços
-
Voltando aqui ao assunto das atualizações do windows xp ( KB... ) que bloqueia os exe de base de dados...ainda não se sabe de nada por ai ???
Um abraço.
-
Obrigado, Eder os componentes estavavam bem instalados, o problema era quando eu utilizava a variavel.
ConsultaEndereco := ConsultaEndereco + TRIM(Edit1.Text);
Mas já está resolvido mas mesmo assim muito obrigado pela sua preocupação em ajudar.
Abração :rolleyes: .
-
Não pode compilar a unit UnitGoogle.pas
voce deve verificar quais são os parametros que este componente pede.
o erro desta linha ( :WebBrowser1.Navigate(ConsultaEndereco); ) significa que este não é o parametro esperado
Eu já tentei de várias maneiras,várias alterações e nada....os mesmos erros.
Terá a ver com a versão do IE ???
Abraço.
-
Amigo jhonas,li o tutorial e instalei o control activex e apareceu o componente TWebBrowser mas as coisas não estão funcionando,
Dá a seguinte informação :Not enough actual parameters....
Cold not compile used Unit UnitGoogle.pas.
E fica vermelho nesta linha no Run e não compila :WebBrowser1.Navigate(ConsultaEndereco);
procedure TGoogle.SpeedButton1Click(Sender: TObject); Var ConsultaEndereco : string; begin ConsultaEndereco := 'http://www.google.com.br/search?hl=pt-BR&q='+TRIM(Form1.Edit1.Text)+'&meta=&aq=0&o que='; ConsultaEndereco := ConsultaEndereco + TRIM(Form1.Edit1.Text); WebBrowser1.Navigate(ConsultaEndereco); end;
Abraço.
-
Acrescente em Uses Shellapi.
unit Autores; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, TFlatSpeedButtonUnit,shellapi, GIFButton, Animate, GIFCtrl, RxGrdCpt, yupack;
Use um TLabel e no Evento Onclick o seguinte Code.procedure TAutor.Label3Click(Sender: TObject); begin shellexecute(Handle,'open','mailto:abotinas@sapo.pt ?subject= EMAIL DE TESTE',nil,'',SW_SHOWNORMAL); end;
Abraço.
-
Tentei fazer um pequeno Browser a partir do componente HTML do Delphi 3 para fazer pesquisa no Google com aquela dica que postou o Micheus, aconteçe que retorna sempre em erro ,por exemplo escrevo www.Borland.com e na pagina diz invalide URL the requested URL ''/''is invalid e no Statusbar1 aparece www.Borland.com:80 bem eu não escrevi :80 ????.
Ora como o D3 não possui o componente TWebBrowser, não sei se haverá por ai para D3 ??? ,como poderei resolver este assunto...seria mudando de Delphi...rsrsrs
procedure TForm1.GoButtonClick(Sender: TObject); begin if URLs.Items.IndexOf(URLs.Text) = -1 then URLs.Items.Add(URLs.Text); HTML1.RequestDoc(URLs.text); Statusbar1.Panels[0].Text := HTML1.RequestURL; end;
Se houver alternativa agradecia a vossa ajuda.
Abraços.
-
Insira no seu formulário um componente Ttimer e no evento on timer,dando um duplo click no componente Ttimer.
No timer interval meta valor 1, na Propriedade Enabled =True e é tudo de forma bem simples.
No Object inspector a propriedade Caption do Label1,deixe limpo.
procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=(Timetostr(Time)); end;
Disponha,se precisar de mais ajuda.
Abraço.
-
private { Private declarations } public { Public declarations } procedure CreateListaDestinatários; end;Procedure TForm1.CreateListaDestinatários; var i:integer; begin dbcbxDestinatario.clear; Usuarios.First; for i:=0 to Usuarios.RecordCount-1 do begin dbcbxDestinatario.Items.Insert(0,UsuariosNome.value); Usuarios.next; end; dbcbxDestinatario.Items.Insert(0,''); dbcbxDestinatario.text:='Destinatário...'; end;
Eu estou usando aqui uma Combobox simples não uma DBCombobox .procedure TForm1.FormCreate(Sender: TObject); begin CreateListaDestinatários end;
´
Eu não percebo porque você vai retirar a lista de uma consulta SQL se você pode tirar directamente da tabela que suponho que seja '' Usuarios''tente adptar este codigo,eu uso ele para criar minhas listas em Combobox e funciona lindamente ;) .
Abraço.
-
De uma forma bem simples aqui vai uma pequena dica para a sua Lista .
seleciono uma das opções que estão na lista do combobox ele não fica salvo (a lista dropdown fecha e a opção não fica escrita lá no campo).private { Private declarations } public { Public declarations } procedure CreateListaMaterial; //Aqui você declara o nome da lista que você quer criar. end;// Aqui você cria a Procedure para preencher a lista do combobox.Procedure TRelatorio2.CreateListaMaterial; var i:integer; begin Combobox1.clear; DM.Material.First;//DB que você quer usar for i:=0 to DM.Material.RecordCount-1 do//DB que você quer usar begin Combobox1.Items.Insert(0,DM.MaterialMaterial.value);//DB que você quer usar DM.Material.next;// DB que você quer usar end; Combobox1.Items.Insert(0,''); Combobox1.text:='Material...'; end;
// Depois você carrega a lista no FormCreateprocedure TRelatorio2.FormCreate(Sender: TObject); begin CreateListaMaterial; end;
Espero ter ajudado,qualquer coisa disponha ok.
Abraço.
-
A memória que você fala qual é ??? pelo que você descreve acima seu aplicativo está consumindo 6MB, ou ocupando 6MB de espaço em disco ???Consumo de memória do programa, com duas units e pouquíssimas linhas de código está consumindo 6mb de memória. Quer dizer que minha programação está horrível ou quando eu for compilar o programa pra obter um executável final ele vai diminuir???Quer dizer que minha programação está horrível ou quando eu for compilar o programa pra obter um executável final ele vai diminuirEntão se você ainda nem compilou...como sabe o consumo da memória do seu aplicativo.exe ?
Ou esse consumo é o Delphi que está usando quando você faz o Run ?
Mas tb 6MB não é nada de mais nem sei qual é a sua preocupação ?
No SQL é normal até numa pequena consulta exigir 100 % do processamento da CPU.
Abraço.
-
Tem aqui duas opções.
O formulário principal fica sempre em auto-create forms.
Os formulários segundários podem ser das duas maneiras.
Nesta opção você tem mudar no delphi em Project options, sua form para ''avaliable forms''lado direito.
Isto quer dizer que a form só será criada quando você chama ela no procedure .
procedure TForm1.FlatSpeedButton20Click(Sender: TObject); begin Clubes2:=TClubes2.Create(self); Clubes2.show; end;
Nesta opção você deixa em ''auto-create forms''lado esquerdo. Isto quer dizer que a form já foi criada quando você executou o projecto apenas ficou invisivel...depois é só mostrar .procedure TForm1.FlatSpeedButton20Click(Sender: TObject); begin Clubes2.show; end;
Quando você faz o Run pede para salvar e depois para associar as units e tá rodando.
Abraço.
-
Guille777
usuário é leigo em informática, agradeço desde já e gostaria de salientar que estamos dispostor a PAGAR PELO PROGRAMA se este for útilOlhe aqui nós ajudamos...sem cobrar certo, se tentares fazer tu mesmo esse programa se pedires ajuda eu e os outros amigos aqui ajudaremos no que for preciso porque é assim que se cobra aqui eu ajudo outro me ajuda chama-se entreajuda ;) .
Abraço.
-
Obrigado Jhonas,agora va-se lá saber qual das atualizações do windows ( KB... ) bloqueia, esta Microsoft só inventa problemas para nós...caraças quando tudo estava funcionando bem...se souber diga qualquer coisa para mim ok.
Um abraço.
-
Aqui vai uma pequena ajuda.
1º No Bloco de notas você cria o INI file por exemplo assim.
[Dados]
Texto=
[Dados1]
Texto1=
[Dados2]
Texto2=
[Dados3]
Texto3=
[Dados4]
Texto4=
[Dados5]
Texto5=
Você salva no directório da sua aplicação ou em outro lugar... com a extencão Exemplo ''Meuarquivo.ini'' e é só ligar os valores do ini aos edits como pode ver em esse pequeno código abaixo,espero ter ajudado e disponha qualquer duvida.
//procedure GravaIni procedure GravaIni(aTexto,aTexto1,aTexto2,aTexto3,aTexto4,aTexto5: string); var ArqIni: TIniFile; begin ArqIni := TIniFile.Create('C:\Meuarquivo.ini');//Directório do ini pode ser outro qualquer. try ArqIni.WriteString('Dados', 'Texto', aTexto); ArqIni.WriteString('Dados1', 'Texto1', aTexto1); ArqIni.WriteString('Dados2', 'Texto2', aTexto2); ArqIni.WriteString('Dados3', 'Texto3', aTexto3); ArqIni.WriteString('Dados4', 'Texto4', aTexto4); ArqIni.WriteString('Dados5', 'Texto5', aTexto5); finally ArqIni.Free; end; end; //Ler do ini. procedure LeIni(var aTexto,aTexto1,aTexto2,aTexto3,aTexto4,aTexto5: string); var ArqIni: TIniFile; begin ArqIni := TIniFile.Create('C:\Meuarquivo.ini'); try aTexto := ArqIni.ReadString('Dados', 'Texto', aTexto); aTexto1 := ArqIni.ReadString('Dados1', 'Texto1', aTexto1); aTexto2 := ArqIni.ReadString('Dados2', 'Texto2', aTexto2); aTexto3 := ArqIni.ReadString('Dados3', 'Texto3', aTexto3); aTexto4 := ArqIni.ReadString('Dados4', 'Texto4', aTexto4); aTexto5 := ArqIni.ReadString('Dados5', 'Texto5', aTexto5); finally ArqIni.Free; end; end; //Salvar os dados no ini aqui usa a procedure GravaIni. procedure TForm1.FlatSpeedButton10Click(Sender: TObject);// Aqui usei um botão para salvar. begin GravaIni(EDit.text,EDit.Text,EDit.Text,EDit.Text,EDit.Text,EDit.text); Application.Messagebox('Configurações registadas com sucesso. ','Aviso',MB_OK); end; end; //Aqui Carregar dados do ini da ''procedure LeIni''. procedure TForm1.FormShow(Sender: TObject); var aTexto,aTexto1,aTexto2,aTexto3,aTexto4,aTexto5: string; begin LeIni(aTexto,aTexto1,aTexto2,aTexto3,aTexto4,aTexto5); EDit.text:=(aTexto); EDit.Text:=(aTexto1); EDit.Text:=(aTexto2); EDit.Text:=(aTexto3); EDit.Text:=(aTexto4); EDit.Text:=(aTexto5); End;Abraços. :blush:
-
Aconteceu-me pela 1ª vez um erro estranho que é o seguinte.
Os meus programas de base de dados não rodam em máquinas onde tenha o Win XP SP3 ??? estranho porque no meu pc onde os compilo em delphi e que tb tem XP SP3 eles rodam sem problemas...??? Os Erros são os seguintes .
Exception Eaccess violation in module agenda.exe at 000C00B8 Access violation at adress 064C00B8 in module ''agenda.exe'' write of adress 004F00A4.
Outro erro é.
Exception Eprivilege in module agenda.exe previleged instruction...??? ora não sei o que poderá ser isto,visto que testei em vários pcs inclusive com o Vista Home e vista Ultimate e funcionam bem.
Só nos XP SP3 é que falha... mas o estranho é que no meu XP SP3 eles rodam bem... e testei vários aplicativos todos dão erro, todos os que são Base de dados ????? o BDE fica bem configurado...não é um erro por causa do BDE...já não tenho ideias.
Se puderem ajudar ai com alguma sugestão agradeço.
Abraços.
-
CRIEI UMA CHAVE ESTRANGEIRA ERRADA SE REFERINDO A UMA TABELA QUE não EXISTE. EU TENHO UMA TABELA CHAMADA COTACAO2 E CRIEI A CHAVE ESTRANGEIRA SE REFERINDO A TABELA COTACAO21 QUE não EXISTE E PRECISO EXCLUI-LA.
alguém PODERIA ME AJUDAR
B)laine você poderia se explicar melhor...que chave ESTRANGEIRA???? não pecebendo não te poderemos ajudar?
abraços.
-
Existe alguma forma de salvar o formulario sem usar um banco de dados?
Tenho apenas alguns edits e quero apos escrever algumas coisas nele, quero que permaneçam la, como faço isso?
Obrigado
na verdade você ta qerendo q apareça nos edits, ao abrir o programa, os ultimos dados digitados neles, não é isso?Porque não usa um file do tipo ini,se é para guardar os valores dos edits??? e ai quando você fecha salva no ini e quando abre carrega os valores...é só uma ideia...se não são campos DB.!
abraços.
-
Denise_Prog eu acho que o Jhonas tem razão, tb eu acho que é isso, como diria o Micheus dê uma olhada com carinho...rsrsrs ;) .ao tentar dar run no meu projeto, ele traz uma msg de erro:'file not found: unit1'mas eu já procurei em todas as units, e nenhuma delas nem menciona em nenhum momento unit1. não faço a minima ideia do porque meu projeto pede essa unit1. e o seguinte, basta eu criar uma unit1, sem nem acrescentar codigo nenhum, e oprojeto roda beleza,
alguém imagina o q ta acontecendo, e poderia me dizer como solucionar o problema?
Procure nos seus Forms por 'uses unit1' porque um deles está fazendo referência a ele.... basta encontrá-lo e apagá-loProcure no Menu do Delphi ''File\Remove from Project '' ai você verá se tem uma Unit1 associada ao projecto? se tiver remova ela tb mas repare bem em seus forms no Uses...?.
private { Private declarations } public { Public declarations } procedure CreateEdNomeList; end; var FrmLogin: TFrmLogin; implementation uses UnitDM, Unit1;//aqui você veja se tem em algum dos forms do projecto a Unit1? var Contador:integer;Abraços.
-
Micheus peço desculpa por só agora testar aqui os codigos ...mas é que estive fora.
No inicio a variavel é esta aqui... %USERPROFILE%\Definições locais\Temp =C:\Documents and setings\Definições locais\Temp
Mudei o codigo como você disse no FormCreate para esse aqui.
procedure TForm1.FormCreate(Sender: TObject); var TMP :String; LongPath :array[0..512] of char; ShortPath :array[0..MAX_PATH] of char; begin TMPOld := GetGlobalEnvironment('TMP', False); // Salva o valor de TMP antes da alteração StrPCopy(LongPath, ConvertEnvironmentName(TMPOld)); // Preenche LongPath com o caminho completo if LongPath <> '' then if GetShortPathName(LongPath, ShortPath, MAX_PATH) <> 0 then // obtém path no formato curto - short path begin if not SetGlobalEnvironment('TMP', ShortPath, True) then // altera path na variável TMP para o formato curto ShowMessage('Erro ao tentar mudar a variável de ambiente "TMP"'); end else ShowMessage('Erro ao obter o path curto.'); end;E ficou tb no form destroy como você disse, no create ela muda a variavel para C:\Windows\Temp...mas quando fecho o Form leva mais de 1 minuto a fechar e a variavel não retorna ao valor inicial ...%USERPROFILE%\Definições locais\Temp .? Mantive tb as funções SetGlobalEnvironment e GetGlobalEnvironment , no painel das mensagens dá tb um aviso que a variavel ... TMP :String; não está sendo utilizada e tb se eu tirar o code do formDestroy ele fecha rápido....??????procedure TForm1.FormDestroy(Sender: TObject); begin SetGlobalEnvironment('TMP', TMPOld, True); end;Um abraço.
-
Muito obrigado Micheus,vou alterar o código e depois digo alguma coisa.
Abraços ;)
-
:huh: Eu não entendi bem o que você quer...pode ser mais especifico???
-
Põe Intervalo no Timer1 = 50000 e no método onTimer do Timer1(duploclick no timer) você coloca assim.
Não esquecer de meter a propriedade do Timer para Enabled:=true.
procedure TForm1.Timer1Timer(Sender: TObject); begin SpeedButton1.Click; end;
procedure TForm1.SpeedButton1Click(Sender: TObject); begin //Aqui você mete o código do seu botão isto é um pequeno teste que você pode fazer. if form1.Color =clBtnFace then form1.Color:=clRed else form1.Color:=clBtnFace; end;
Espero ter ajudado você.
Abraços.
Exception Eaccess Violation
em Delphi, Kylix
Postado
Eu verifiquei isso nos outros computadores e todos eles tem privilégio de administrador... em relação á actualização que o Micheus sugeriu,vou instalar e depois testar a ver se chego a alguma conclusão.
Obrigado ai pra vocês.
Abraços