Eder

Eder... voce ficou na mesma.... como já havia lhe dito, voce tem que baixar uma atualização do site da microsoft ( Versão de Compatibilidade para o windows vista ) para que isto não aconteça. R.: Jonas tentei fazer a atualização....baixei o pacote de 4 mb, porem quando fui instalar o windows jogou a mensagem na tela: ATUALIZAÇÃO NÃO SE APLICA AO SISTEMA eu uso o windows vista basic :blush: acho que ai ferrou... :unsure: Abraço

valeu..colega....Será muito útil sim :D Grande Abraço t+

Respondendo a dica de nossa colega Antonio44 ...realmente funcionou a sua dica...agora sim deu certo por completo. :D Mas como já havia mencionado anteriormente que consegui instalar o Delphi4 sem problemas no WinVista, resolvendo quase 100% do problema exceto pelo seguinte... agora com o acerto do BDE x winvista ai tentei uma conexão do D4 com o BDE através de um form + uma table e ai tentei apontar o DataBaseName para um alias ou um caminho de arquivo *.db e ai da ERRO: AN ERROR OCCURRED WHILE ATTEMPTING TO INITIALIZE THE BORLAND DATABASE ENGINE(ERROR $251E) neste caso o mesmo erro quando inicie o tópico no caso caso quando tentava acessar o bde via painel de controle(resolvido). Acredito que seja a comunicação entre o D4 e o BDE. Então eu pergunto aos colegas...existe no delphi um lugar aonde configuro este comunicação com o bde? muito Grato a todos Abraço

Ok..Jonas..vou fazer uns teste aqui... de momento muito grato Abraço

Ok..Jonas.. duvida: vamos supor que eu vou instalar um programa no cliente. basta apenas que eu deixe junto do executavel os arquivos abaixo? não precisa instalar o BDE(painel de controle)? Grato :)

R.: OK...e quais arquivos(bde) devo usar junto com o executavel??....sem usar o InsallShield R.: mas eu consegui instalar certinho o Delphi 4 no Winvista....é claro que tive que fazer uns macetes....tipo copiar na mão as pastas do cd e ai tive usar o recurso de instalar via compatibilidade em programas no painel de controle...certinho... quanto a lista de removedores...vou usar alguns que já costumo usar...logo a noite..pois a minha maquina é a de casa. muito Grato Abraço

Ola...Jonas. Feliz 2009! Carinha fiz todo o processo a qual me falou e nada de funcionar...também fiz outros processos na net e também nada..o mesmo erro persiste. eu li algo que não precisa exatamente instalar o bde que fica no painel de controle do windows...parece que se eu usar alguns arquivos bde dentro da propria pasta do executavel(programa) ele funciona também....isto procede? Cara....se tiveres mais alguma dica...por favor....não sei mais o que fazer. Outra coisinha...teria como eu remover este bde que esta instalado no Painel de Controle....pois tento remover o o maldito icone do painel de controle não desaparece. O estranho é que quando tento abrir via painel de controle o erro aparece como mencionei acima...se tento abrir via pasta BDE ele abre.... Grato

Ola.. estou com dificuldades para rodar o BDE no winVista. Ao tentar abrir o BDE da o seguinte erro: que na tradução seria isto: porem não to conseguindo resolver o problemas...já desinstalei, instalei de novo...e nada não funcionar. alguém poderia dar uma luz da solução? :blush: Grato

Ola..Jonas...Deu certinho...mas é meio complicadinho de entender o esqueminha... :blush: só me explica por favor com suas palavras esta linha, para mim entender o teu racioncinio: s1 := copy(s,1,pos(';',s)); Carinha ...UM ÓTIMO NATAL E FELIZ ANO NOVO PARA VOCÊ E SUA FAMÍLIA, MUITA SAÚDE, PAZ E FELICIDADES, O RESTO A GENTE VAI SE VIRANDO COMO PODE. Abraços. EDER

Ola. tenho um pequeno arquivo a ser importado neste formato(txt): notem que o camarada que me enviou o arquivo mandou sem preenchimento de zeros a esquerda então meu codigo esta importando sem o preenchimento dos zeros...mas eu preciso dos mesmo. deveria ser assim: parte do meu codigo que estou importando é este: If Linhas > 1 then//aqui verifica e desconcidera A primeira linhas do txt begin Table1.Insert; Table1.FieldByName('Filial').Value := Copy(Entrada,2, Pos(PathSep, Entrada) - 2); Delete(Entrada, 1, Pos(PathSep, Entrada)); Table1.FieldByName('Ctrc').Value := Copy(Entrada,1, Length(Entrada)); Table1.Post; end; então eu pensei que ao importar poderia já verificar se falta os zeros e incluir na importação. teria que ficar assim: 000523-5 é possivel? Grato

falou..Pessoal..vou pesquisar então. Grato a todos :)

Ola R.: tentei mas não funca ...mesmo problema citado no ultimo post. se puderes passar um exemplinho....agradeço....posso aguardar... Grato

Ola.. peguei este codigo na net e era o que eu precisava....ela loga usuario e senha... O problema que ele tem no seu proprio codigo fonte a lista de usuario e senha...e ai não é seguro..pois basta ver o codigo fonte para saber. Eu pergunto: Teria como ao invés do usuario e senha estarem no codigo fonte html...ele estar num TXT la no servidor? o codigo que peguei na net é este: <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <script language=JavaScript> <!-- function Login(){ var done=0; var username=document.login.username.value; username=username.toLowerCase(); var password=document.login.password.value; password=password.toLowerCase(); // PARA O USUARIO nomeum A SENHA É um e vai para página: calculos.htm // // para adicionar mais um usuários basta adicionar mais uma linha após o usuário nometres // if (username=="nomeum" && password=="um") { window.location="calculos.htm"; done=1; } if (username=="nomedois" && password=="dois") { window.location="scriptvariado.html"; done=1; } if (username=="nometres" && password=="tres") { window.location="tutodicas.html"; done=1; } if (done==0) { alert("login invalido!"); } } //--> </SCRIPT> <BODY> <CENTER> <FORM name=login> <TABLE cellPadding=3 border=0> <TBODY> <TR> <TD colSpan=2> <CENTER><FONT face=verdana color=#696969 size=1>área de membros</FONT></CENTER></TD></TR> <TR> <TD><FONT face=verdana color=#000000 size=1>usuário:</FONT></TD> <TD><INPUT name=username></TD></TR> <TR> <TD><FONT face=verdana color=#696969 size=1>senha:</FONT></TD> <TD><INPUT type=password name=password></TD></TR> <TR> <TD align=middle colSpan=2><INPUT onclick=Login() type=button value=Login!></TD></TR></TBODY></TABLE></FORM></CENTER> <p align="center"><FONT face=verdana color=#696969 size=2>PARA ADICIONAR MAIS USUÁRIOS BASTA ADICIONAR MAIS LINHAS NO JAVASCRIPT<BR></FONT></BODY></HTML> muito Grato

Ola Eder, você esqueceu de por o Begin...End na opção else (o último Add está sempre sendo executado) - apenas isto). R: sim...eu diz agora..mas o IF não funciona na parte do else...tentei até alterar com dois ifez na sequencia sem o else e também não roda...parece que não da tempo de passar pelo else. fiz assim: procedure TFrmImprimeNota.QRCompositeReport1AddReports(Sender: TObject); begin If edit1.text = '1' then begin QRCompositeReport1.Reports.Add(QuickRep1); end else begin QRCompositeReport1.Reports.Add(QuickRep1); QRCompositeReport1.Reports.Add(QuickRep1); end end; quanto ao outro método(OnNeedData).....me perdi todo...não consegui montar a solução. pois você me passou com table1 e no meu caso não tem ....é apenas com qrlabels e edit....mais nada.. eu até tentei montar sem o uso de tabelas...mas também não consegui :blush: se for possivel poderias me passar a unit completa para avaliar o que estou fazendo de errado. Grato...Abraço

Ola.. :) Testando o exemplo com QRCompositeReport Este eu achei um probleminha quando digito 1 no edit1 e ele me mostra duas vias exatamente iguais....deveria mostrar apenas 1 Agora se digite o 2 ele aparece certinha duas vias na sequencia e com as devidas modificações como é para ser... então só ficou o problema se digitar 1. Ai tentei fazer um IF na parte do QRCompositeReport assim: procedure TFrmImprimeNota.QRCompositeReport1AddReports(Sender: TObject); begin if edit1.text = '1' then begin QRCompositeReport1.Reports.Add(QuickRep1); end else QRCompositeReport1.Reports.Add(QuickRep1); QRCompositeReport1.Reports.Add(QuickRep1); end; Porem não funcionou...ou melhor continuou da mesma forma como citado acima. Testando o exemplo com o método OnNeedData Este quando digito 1 no edit1, ele faz certinho.... e imprimi 1 via agora de digito o 2 ai ele aparece uma via (primeira via) certinho e não aparece a segunda, porem ao mandar imprimir ele imprimir duas vias(primeira via) exatamente iguais. valeu...Grato Abraço

Ola..Micheus.... Tou testando a sua dica...pelo método OnNeedData nesta parte: procedure TFrmImprimeNota.PrintPreview(ANrCopias :Integer); begin FNrCopias := ANrCopias; : : Quickrep1.PrinterSettings.Copies := FNrCopias; Quickrep1.Preview; end; aqui você da um preview no quickrep1 para mostrar o rel. Então ...como chamo esta procedure no botão? valeu..muito Grato

R.: Micheus não compreendi esta parte... :blush: Eu fiz assim porem não deu certo não, ele até imprimi o nr de copias que quero porem, não controla o sublinhado dos qrlabels e mensagem de PRIMEIRA VIA ou SEGUNDA VIA no qrlabel4: if Edit1.text = '1' then //uma via begin Quickrep1.PrinterSettings.Copies:=1; end else if Edit1.text = '2' then //duas vias begin Quickrep1.PrinterSettings.Copies:=2; end; Quickrep1.preview; end; Com certeza a sua dica deve controlar, mas não consegui pegar o esqueminha. não sei se você entendeu a minha necessidade.... mas é assim: Parece bem simples mas não sei controlar o processo, afinal de for duas vias...numa envia faz um processo e na segunda outro. muito Grato :)

Ola.. eu tenho que bolar algo que é mais ou menos assim no quickreport. tenho 1 edit se eu digitar o nr 1 neste edit ele deverá imprimir uma via do relatorio e o qrlabel1 deverá estar sublinhado. se eu digitar o nr 2 neste edit ele deverá imprimir duas vias do relatorio e o qrlabel1 na primeira via deverá ser sublinhado e o qrlabel2 não, mas na segunda via é o contrario deverá ser sublinhado o qrlabel2 e o qrlabel1 não... é tipo um controle de vias.... é como se eu queresse imprimir duas vias do relatorio porem na primeira via eu colocasse um qrlabel para dizer "primeira via" e na segunda impressão "segunda via". é mais ou menos assim.....não sei fazer este controle...pois ele é feito acho que depois do Preview, na hora de mandar imprimir mesmo....acho eu...não sei.. Grato

Ola...Pessoal.. Graças a Deus deu certo...ufa. Sim funciona mesmo como vocês haviam postado. é que eu não entendi direito o que o Micheus quiz dizer. valeu...pessoal, muito Grato pela ajuda e mais pela paciência. :blush: Grande Abraço

R.: pois é....mas eu te pergunto. Esta linha hoje: PrintSetup.Enabled := False; <<----- alterar para True no meu delphi ela se encontra aonde? ou não existe mesmo.... Em algum lugar hoje este codigo deve estar assim: PrintSetup.Enabled := False; se existir...eu qual arquivo ela deve estar, para mim estão procurar e colocar TRUE Abraço :blush:

Ola..Jonas... valeu...isto mesmo que eu precisava. :D muito Grato Abraço

Respondendo ao JOnas: R.: Ok..Jonas..eu achei que tinha uma arquivo do Quickreport com a codigo:PrintSetup.Enabled := False; <<----- alterar para True mas parece que pelo sua explicação eu teria que mudar tudo... Respondendo ao Micheus: R: Amigo não funcionou não...continua desabilitado o botão. Grato a todos.

Ola... Estou tentando trabalhar com o InputBox, porem tem uma coisinha que não estou sabendo tratar. No inputBox que estou usando quando clicko no botão abre o Input e nele o usuario pode digitar o campo ou não e tem dois botões um de OK e outro de Cancela... Se o usuario optar por cancelar...não cancela....neste caso como fiz o OK e cancela da no mesmo... como poderia tratar esta situação? procedure TForm1.Button1Click(Sender: TObject); Var DataEmissaoRecibo:Tdate; begin DataEmissaoRecibo := StrTodate(inputbox('CP - Emissão de Recibo','Digite a Data do Recibo:(Ex.: 20/11/2008)', '')); end; no input o usuario tem que digitar uma data e depois clickar em ok.....beleza..mas se clickar em cancelar...ai da erro NÃO CANCELA.. Grato

R.: sim eu peguei a sua dica a não ser que não compreendi o que você quer dizer...mas eu não sei aonde encontrar na minha maquina o arquivo QRPREV.PAS para ALTERAR o codigo que você postou abaixo no outro tópico: procedure TQRStandardPreview.LoadClick(Sender: TObject); begin with TOpenDialog.Create(Application) do try Title := SqrLoadReport; Filter := SqrQRFile + ' (*.' +cQRPDefaultExt + ')|*.' + cqrpDefaultExt; if Execute then if FileExists(FileName) then begin QRPrinter.Load(Filename); QRPreview.PageNumber := 1; QRPreview.PreviewImage.PageNumber := 1; UpdateInfo; PrintSetup.Enabled := False; <<----- alterar para True Print.Enabled := true; end else ShowMessage(SqrFileNotExist); finally free; end; end; É para alterar em qual arquivo pois o tal QRPREV.PAS eu não encontrei....eu encontei..na pasta lib qrprev.dcu, qrprev.dfm mas o qrprev.pas...não você disse no outro post: é esta forma que eu queria trabalhar...mas to meio que perdido.. Grato

Jonas....bza? carinha...aonde encontro o QRPREV.PAS ?? vasculhei a pasta do delphi4 e não achei.... :blush: existe qrprev.dfm e outros mas o *.pas não achei. Bom Final de Semana Grato