António44

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

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: .

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 . 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 FormCreate procedure 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 ??? Entã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 Olhe 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.

B)laine você poderia se explicar melhor...que chave ESTRANGEIRA???? não pecebendo não te poderemos ajudar? abraços.

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 ;) . Procure 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.