McBlade

Salve galera! Estava de bobeira fazendo umas 'bricadeirinhas' no delphi e pensei em converter as letras de um Edit em Hexadecimal, mas eu não consigo encontrar uma função para isso!! O que eu devo fazer??? Exemplo: Converter o texto Edit1 de um edit para Hexadecimal e jogá-lo no Edit2 Se tiver como postem aí!!

Tá mas como você deve saber o PHPMyAdmin quando eu vou inserir essas aspas simples adiciona as barras antes da aspa e fika assim então sempre q eu tiver aspas simples ' ou dupla " certo??

Salve galera, Tipo eu to tentando fazer uma página para inserir links via PHP no meu site mas tá acontecendo o seguinte erro: É que eu uso aspas simples ' para indicar os links ex: href='' mas na inserção eu acredito que esteja conflitando com a aspas da sql '$descricao' (com as aspas simples pra indicar string). Então eu tentei usar $texto = str_replace("'","\'",$descricao); Mesmo assim não funciona. Meu código: <?php include("conecta.php"); $aspas = "'"; $barraaspas = "\'"; $txt = $descricao; echo "$aspas - $barraaspas - $txt"; $texto = str_replace($aspas,$barraaspas,$txt); if (!mysql_query("insert into links (codigo,descricao) values ($codigo,'$texto')")) { $mensagem = "Erro:".mysql_error(); echo "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=index.php?menu=99&msg=$mensagem;'>"; } else { echo "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=index.php?menu=99'>"; } // endelse ?> Quem puder ajudar....

Estou fazendo um gráfico no Chart onde eu crio as barras verticais na mão! var cSeries: TBarSeries; nI,nExComp,nExames: Integer; begin for nI := 0 to StringGrid1.RowCount-1 do begin Query1.SQL.Clear; Query1.SQL.Add('Select Count(exc_qtde) from ExameComp'); Query1.Open; while not Query1.Eof do begin nExComp := nExComp + Query1.FieldByName('count').asInteger; Query1.Next; end; Query2.SQL.Clear; Query2.SQL.Add('Select Count(exe_qtde) from Exame'); Query2.Open; while not Query2.Eof do begin nExames := nExames + Query2.FieldByName('count').asInteger; Query2.Next; end; cSeries := TBarSeries.Create(Chart1); cSeries.Name := 'Series'+IntToStr(nI+1); Chart1.Series[nI].AddXY(1,nExComp); Chart1.Series[nI].AddXY(2,nExames); end; end; Onde nI controla a Barra que está sendo inserida bem como o número de controle do componente. Agora eu keria saber como faço pra que cada barra tenha uma cor diferente (pode ser aleatória) mas que os tons de cores não sejam tão próximos. Exemplo: Cores muito escuras de mesmo tom (Preto e cinza bem escuro)

Como saber se o form está minimizado??? Ou como saber se ele está sendo mostrado??? Tipo eu preciso fazer a barra piscar se o programa tiver minimizado ou não estiver em foco!!!

Se não estou enganado é logo abaixo de implementation!!! e não é necessário declarar as funções!!!

Como era mesmo a função pra eu saber se é win98 ou maior??

2- Entrem em Host Revenda e vejam o flash que eles fizeram!! Clique em Apresentação!! Como faz para na primeira vez que aparece o flash você pode clicar em "Ver Apresentação" e assim que ela terminar não aparece mais??

Pegando o bonde de vc's mas no outro sentido... Eu fiz assim, File > Import .... e importei uma Mp3 de 812k (44 Khz Stereo) pro meu .fla!! Aí criei um Layer (fundo) onde eu tenho um fundo, cliquei no fundo e na properties sound eu coloquei meu Mp3 (vou chamá-lo de Opening.mp3). O caso é o seguinte: Já que trata-se de uma arquivo de 800k e eu quero desempenho, recompilei o Opening.mp3 com qualidade menor e ficou com 120K (16Khz Stereo) agora que quero substituir o que já está no .fla mas não sei como tirá-lo do projeto sem deletar o Layer (fundo). Mesmo assim o arquivo Opening.mp3 continua no meu projeto!! Alguém pode me dar uma luz???

O galera vamo c anima!! Isso agora é um desafio!!! Kem já foi capaz de fazer isso??? Ganha um bombom quem conseguir!!!!

só eu não sabia q chamava preloader, vo da uma procurada!!!

Olá galera!!! Estou aprendendo quase que sozinho a mexer no Flash MX, meu irmão tá me dando umas dicas porque ele ta terminando o curso básico, mas não sabemos muito a respeito de Flash!! Minhas dúvidas são as seguintes: 1- Como fazer aquela barra de 'Loading...' que muitos usam em seus flash?? 2- Entrem em Host Revenda e vejam o flash que eles fizeram!! Clique em Apresentação!! Como faz para na primeira vez que aparece o flash você pode clicar em "Ver Apresentação" e assim que ela terminar não aparece mais?? 3- Estou fazendo um menu em flash pro meu site, importei as figuras iniciais pro flash e converti elas para Botões mas eu não consigo fazer nenhuma das açoes de mouseover,down,click. não funciona nada só a Interpolação. O que eu devo fazer?? 4- (E último) - No meu site ..:: Electronics ::.., o banner do meu servidor é mostrado diferente dependendo do tempo em que o internauta está acessando o site. Exemplo: Se ele estiver acessando no horário de 0 - 20s mostro o banner 1, 21 - 40 banner 2 e 41 - 59 banner 3. Então... Dá pra fazer essa mesma lógica no flash só que eu quero adicionar no flash o banner já pronto!!! Desculpem as dúvidas de 'aspirante', mas eu nem tenho curso né!!

Olá, Estou exportando os dados de um banco Paradox DBF para um FireBird FDB. Faço um select e jogo os dados no Grid. Depois eu dou um for no Grid para ir inserindo os registros 1 a 1 no FDB. Mas chega um tal ponto que dá o seguinte erro!! Erro(XSQLDA index out of range) O que é isso???

Mas essa sua função funciona pra todos os Windows???

Sim a aplicação sempre está em foco!! O erro é que simplesmente o Descanso de tela aparece!!! E como a rotina é muito pesada, o programa trava!!! falou!!!

Aew galera!! To tentando faze o PC desligar mas não estou conseguindo no XP, só no 98 funciona!! No XP ele faz LogOff só e não desliga!!! Como eu faço??? Uso essa função! Qual a diferença dela que é p/ 98 pro WinNT (NT,2000,XP)??? ExitWindowsEx(EWX_SHUTDOWN, 0);

então fiz certinho como você postou e não funcionou ainda! Olha meu Código de teste: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } procedure AppMsg(var Msg: TMsg; var Handled: Boolean); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean); begin if (Msg.Message = wm_SysCommand) and (Msg.wParam = sc_ScreenSave) then Handled := true; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := AppMsg; end; end. Não sei mais o que está de errado!!

Olá, Estava discutindo com meu patrão sobre sistemas de Lan House e nós estávamos tentando descobrir como os programadores desse tipo de software fazem para ficar mostrando quanto falta para expirar seu tempo num jogo em FullScreen como o Counter-Strike, etc... É muito difícil isso?? Ouvi dizer que dá pra fazer tanto em C# quanto em Delphi... Quem aí tem a rotina???

Não está lá não!! Eu uso o XP que segue a mesma linha do 2000!!

Talvez tenha faltado isso para funcionar!! Incluir o Windows na seção Uses!! Vou testar e posto daki a pouco!!

Impossível, é muito grande. A não ser que eu fizesse um de exemplo!!

Eu testei a procedure no meu form e mesmo assim a ScreenSaver apareceu, acho melhor desativá-la na mão mesmo!!

Mas eu teria que ficar chamando sempre essa função ou uma vez só basta?? Ela é pública ou privada?? Queria um exemplo de código!!!

Não entendi muito bem mas vou testar amanha, valeu!!!

Estou com um problemao com esse LIKE. Estou tentando exportar um DBF para um FDB e teria que dar um select no CEP da cidade para saber o nome dela! O problema é que eu só tenho os primeiros 5 dígitos e o banco está com os CEP's completos por causa das ruas. Então como eu faço pra fazer um like no SQL Explorer do D7?? Vejam o select que eu estou tentando fazer!!! Select cid_nome from CEP_PR where cid_cep like '87080%'; Ele me retorna o erro: DBE Error: 11871 [$2E] [$5F] Type mismatch in expression. O que está errado???