Eder

Ola..Jonas... Tentar eu tentei, mas sabe quando a gente já vai fazer algo e sabe que não vai dar certo? rs....e não deu não. erro: Erro normal quando a gente tenta instalar um componente que não é compativel, pelo menos ocorre comigo no D4. Mas valeu...mesmo assim, imaginava que não dava de instalar... Se souberes de uma dica...por favor de um toque, não estou precisando mas fiquei curioso em saber. :blush: Abraço

Ola.. Será que existe a possibilidade de capturar imagem de uma webcam usando o delphi 4? verifiquei várias dicas no forum e na net, existem vários componentes mas todos a partir do Delphi 5, inclusive o DsPack(free). muito Grato

falou..Jonas. Tks. Abraço

OLA..Jonas... eu tenho que usar este codigo em todas as telas? :blush: Grato

Ola... Existe algum codigo que eu posso inserir eu meu aplicativo que se adapte a qualquer resolução de tela, ou seja, se o camarada tiver resolução 1024x768 ele automaticamente se ajute a esta tela.....800x600 e assim por diante... por exemplo tenho um usuario que usa em seu notebook 1280 x alguma coisa não me lembro..e ai as telas do aplicativo..fica tudo bagunçado.. muito Grato

falou..Jonas...Esta semana vou dar mais uma pesquisada no sistema. Abraço. :)

R> hum..interessante, este processo ainda não havia feito. :) MAS também não funcionou...infelizmente. :wacko: Grato...Abraço

R> hum..interessante, este processo ainda não havia feito. :) vou fazer hoje a noite pois minha maquina esta em casa. depois respondo. Grato...Abraço

R> sim é nov vista R: sim é adm. R: sim...tudo permitido. carinha...só faltou instalar esta suite certinho, eu instalei vários componentes, instalei a suite RXlib, Bsoft, freeReport, XiControl e tudo funcionou menos a Indy. Ainda bem que tenho só dois aplicativos pequenos que usam esta suite....senão tava ferrado..rs.. valeu...Abraço

R.: Beleza ESerra...Deu certo. :) O código ficou assim: <? $nome = $_POST['txt_nome']; $senha = $_POST['txt_senha']; $arq = file_get_contents("usuarios.txt"); $arr = explode("\n",$arq); foreach($arr as $chave => $line){ $arr2 = explode(",",$line); if($arr2[0] == $nome){ $ch = $chave; break; } } if ((empty($nome)) && (empty($senha))) { echo 'Campo Nome e Senha Vazio.'; Exit; } if (empty($nome)){ echo 'Campo Nome Vazio'; Exit; } if (empty($senha)){ echo 'Campo senha Vazio'; Exit; } $dados = explode(",",$arr[$ch]); if(trim($dados[1]) == $senha){ header ("Location:ok.htm"); }else{ header ("Location:erro.htm"); } ?> muito Grato Abraço :D

R.: Beleza ESerra...Deu certo. :) O código ficou assim: <? $nome = $_POST['txt_nome']; $senha = $_POST['txt_senha']; $arq = file_get_contents("usuarios.txt"); $arr = explode("\n",$arq); foreach($arr as $chave => $line){ $arr2 = explode(",",$line); if($arr2[0] == $nome){ $ch = $chave; break; } } if ((empty($nome)) && (empty($senha))) { echo 'Campo Nome e Senha Vazio.'; Exit; } if (empty($nome)){ echo 'Campo Nome Vazio'; Exit; } if (empty($senha)){ echo 'Campo senha Vazio'; Exit; } $dados = explode(",",$arr[$ch]); if(trim($dados[1]) == $senha){ header ("Location:ok.htm"); }else{ header ("Location:erro.htm"); } ?> muito Grato Abraço :D

Ola.. tou tentando montar um login senha de uma pagina de internet.. achei esta dica na net assim: Pag.htm <form method='POST' action='logar.php'> <div align="center">Nome: <input type='text' name='txt_nome' size='15'> <br> Senha: <input type='password' name='txt_senha' size='15'> <br> <br> <input type='submit' name='btnOK' value='Cadastra'> </div> </form> Logar.php <? $nome = $_POST['txt_nome']; $senha = $_POST['txt_senha']; $arq = file_get_contents("usuarios.txt"); $arr = explode("\n",$arq); foreach($arr as $chave => $line){ $arr2 = explode(",",$line); if($arr2[0] == $nome){ $ch = $chave; break; } } $dados = explode(",",$arr[$ch]); if(trim($dados[1]) == $senha){ header ("Location:ok.htm"); }else{ header ("Location:erro.htm"); } ?> Arquivo usuarios.txt: fulano,123456 beltrano,123456 No TXT você terá que colocar os logins e senhas da seguinte forma: login,senha funciona até que em partes...o problema se eu deixar login e senha em branco ele da OK...e não critica. se eu colocar usuario=eder e senha deixar em branco ele também deixa passar e não critica. alguém poderia me ajudar nesta implementação? Grato

R> sim já fiz isto também....porem quando tento marcar ocorre um erro:CAN'T LOAD PACKAGE C:\PROGRAM FILES\BORLAND\DELPHI\LIB\INDY_9_00_17_SRC\DCLINDY40.BPL NÃO FOI POSSIVEL ENCONTRAR O MODULO ESPECIFICADO. R> também já fiz isto...várias vezes...já não sei mais o que pensar... se eu desinstalo e instalo de novo...ele fica certinho no D4...abro uma nova aplicação, insiro alguns componentes...tudo certinho..mas quando fecho o D4 e abro de novo...ai NÃO FUNCIONA MAIS NADA...a suite desaparece. :wacko: Grato t+

Distração minha e sua Eder ... o Next tem que ficar dentro do loop, por isso grava apenas o primeiro registro R> é realmente distração mesmo :blush: , agora deu certo os dois codigo. valeu..muito Grato t+

ola..Jonas. não deu certo...nenhum dos dois casos.. *o primeiro código, ele fica dando loop...e gravando sempre o primeiro registro da Table2 *já o segundo código...quando clicko no botão COPIAR ele somente grava o primeiro registro da Table2 se eu dou mais um click grava o segundo registro e assim sucessivamente. :blush: Grato Boa Semana de Trabalho falou

Ola. Minha dúvidas acredita que seja simples, mas não to conseguindo fazer funcionar corretamente.. seguinte....gostaria de copiar os dados de uma tabela para outra tabela... fiz assim porem não deu certo procedure TForm1.XiButton7Click(Sender: TObject); begin while not table2.Eof do begin table1.Insert; while table2.Eof do begin Table1.FieldByName('C').Value := Table2.FieldByName('C').Value; Table1.FieldByName('cliente').Value := Table2.FieldByName('cliente').Value; Table1.FieldByName('Cnpj_cpf').Value := Table2.FieldByName('Cnpj_cpf').Value; end; table1.Post; table2.next; end; end; Grato

Ola...Jonas procurei no registro e não achei esta parte: hIPackgeSearchPath a mais parecida que possui um caminho é esta: hIBrowsingPath que tem esta linha de definição: $(DELPHI)\source\vcl;$(DELPHI)\source\rtl\Corba;$(DELPHI)\source\rtl\Sys;$(DELPHI)\source\rtl\Win;$(DELPHI)\source\Internet grato

Ola.. estou tentando instalar a suite indy no delphi 4, ela instala certinho aparece na barra de componente em fim tudo certinho, mas quando fecho o delphi e abra-o novamente ela some não aparece... já tentei várias opções mas não funcionar.. o que pode estar errado? :blush: Grato

Ola..Vera. Enfrentei o mesmo problema com o DELPHI 4 no vista. Para tentar resolver o problema...siga as dicas neste tópico que postei, no final existe um passo a passo que fiz para fazer funcionar o D4 no Vista. Link do Tópico Desejo uma Boa Sorte para você, acredito que com as dicas você Conseguirá. :) Abraço

falou..Micheus..estamos ai é para nos ajudar :) Abraço

Ola...Pessoal. Finalmente tudo funcionando, BDE e Delphi 4 no WinVista. :D o que fiz: -primeiro desintalei tudo relacionado a BDE e D4 e logo em seguida passei o MV RegClean 5.5(free)e limpei as entradas de registros inválidas. -reiniciei a máquina -agora instalei o BDE - executavel bde511en.exe que achei na net, da própria borland se não me engano. -reiniciei a maquina e testei o BDE e funcionou -também usei o código que o Micheus postou e funcionou, abaixo: implementation uses DBTables, BDE, BDEConst; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var ErrorCode: DBIResult; Env: DbiEnv; begin FillChar(Env, SizeOf(Env), 0); StrPLCopy(Env.szLang, SIDAPILangID, SizeOf(Env.szLang) - 1); ErrorCode := DbiInit(@Env); if (ErrorCode <> DBIERR_NONE) and (ErrorCode <> DBIERR_MULTIPLEINIT) then DbiError(ErrorCode) else ShowMessage('BDE iniciado sem erros'); DbiExit; end; -em seguida instalei o delphi 4 -reiniciei a máquina -testei D4 com BDE e tudo funcionando. -abri um programa de minha autoria com paradox e tudo funcionando. Detalhes: A instalação do BDE e D4 eu usei uma dica que achei na net desta forma: Para instalar deve: -abrir o painel de controle -clicke em PAGINA INICIAL DO PAINEL DE CONTROLE(canto esquerdo da tela) -note que os ícones ficam grandes -agora procure e click em PROGRAMAS -agora procure e click em USAR UM PROGRAMA MAIS ANTIGO COM ESTA VERSÃO DO WINDOWS. -daqui para frente é só seguir os passos. -este processo tanto para o BDE como para o D4 -eu escolhi a compatililidade no sistema WIN98 E WIN2000, pois meu delphi 4 é para este tipo de versão do windows. -pronto. Obs.: todos estas dicas foi o resultado que obtive e funcionou, é claro que todos as dicas aqui mostradas pelos nosso colegas neste tópico foram de valia, principalmente a questão das permissões da pasta C:\CONFIGBDE onde é armazenado no caso o meu .net Acredito que com este tópico ficará mais fácil para que outros colegas como eu possa resolver este tipo de problema que enfrento a dias. Agradeço a meus colegas: Jonas, Micheus e Antonio44 que contribuiram nas dicas e sugestões. Grande Abraço a todos. :)

OPA...tinha um errinho no codigo: Hora1 := hora1 + Hora_Seg( TimeToStr( Table1.FieldByName('HORA').AsdateTIME )); //total de horas convertendo para segundos retirei o HORA1 + e depois funcionou certinho :blush: ficando assim: Hora1 := Hora_Seg( TimeToStr( Table1.FieldByName('HORA').AsdateTIME )); //total de horas convertendo para segundos falou

Ola.. estou montando um codigo até muito simples porem não fecha o calculo. eu tenho o valor da hora pago e ai tenho um dbedit que é digitado a quantidade horas(campo Timer paradox). a ideia é....pegar o valor da hora e multiplicar pelo tempo de trabalho(00:00:00) eu fiz assim porem não ta funcionando: //Função converter Hora para Segundos function Hora_Seg( Horas:string ):LongInt; Var Hor,Min,Seg:LongInt; begin Horas[Pos(':',Horas)]:= '['; Horas[Pos(':',Horas)]:= ']'; Hor := StrToInt(Copy(Horas,1,Pos('[',Horas)-1)); Min := StrToInt(Copy(Horas,Pos('[',Horas)+1,(Pos(']',Horas)-Pos('[',Horas)-1))); if Pos(':',Horas) > 0 then Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,(Pos(':',Horas)-Pos(']',Horas)-1))) else Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,2)); Result := Seg + (Hor*3600) + (Min*60); end; procedure TForm1.Button1Click(Sender: TObject); var Hora1 : Integer; sub, sub1, tot:real; begin Hora1 := hora1 + Hora_Seg( TimeToStr( Table1.FieldByName('HORA').AsdateTIME )); //total de horas convertendo para segundos showmessage(Floattostr(HORA1)+' Total de segundos'); //mostra o testezinho. sub:=strtoFloat(table1Vhora.asstring); //pega o valor da hora showmessage(FloatTostr(sub)+' Valor da Hora'); //mostra sub1:=((sub / 60)/60); // aqui calculo o valor por segundo showmessage(FloatTostr(sub1)+' Valor p/ segundo'); mostra Tot := hora1 * sub1; //aqui multiplicada a quantidade de segundos pelo valor do segundo showmessage(Floattostr(tot)+' Valor da Hora Calculado'); //mostra o valor a ser pago. end; é apenas um testezinho que estou brincando para montar um calculo no programa...mas não funca la no primeiro showmessage eu coloquei 01:00:00 (uma hora) e a mensagem diz que uma hora é 1311636 segundos. mas é 3600 segundos Por fafor alguém poderia me dizer o que esta de errado? :blush: Grato

Ok..Micheus....excelente resumo...desculpa pois era eu quem deveria fazer o mesmo...mas agradeço por você ter feito. quanto as ultimas dicas e o aplicativo que você me sugeriu rodar, vou testar ainda esta semana e vou dar um retorno aqui para meis colegas... Eu já cheguei a desinstalar tudo bde, D4 em fim limpei tudo no domindo...só falta agora começar de novo as instalações. Peço só alguns dias, pois esta semana esta meio corrido. De momento muito obrigado a todos pela ajuda. Abraço a todos. t+

R.: Jonas eu já havia notado o meu é o:Windows Vista Home Basic mas a instalação não me deixou fazer deu erro: ATUALIZAÇÃO NÃO SE APLICA AO SISTEMA R.: Micheus...já havia passado por estes topicos...como já mencionei anteriormente eu já consegui fazer funcionar o BDE no winvista...agora o meu problema é que o Delphi não se comunica com o BDE como eu já havia descrito em mensagem anterior abaixo: Não sei porque da erro...pois eu fiz um teste com um programa meu usando BDE no vista e funcionou certinho....até da para acessar na rede...mas se eu abrir o fonte deste programa no delphi e tentar usar a DATABASENAME DE UMA TABLE OU QUERY ele dá este erro: AN ERROR OCCURRED WHILE ATTEMPTING TO INITIALIZE THE BORLAND DATABASE ENGINE(ERROR $251E) Esta é a dificuldade agora... :blush: Grato a todos...t+