Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Veja neste endereço http://www.ollydbg.de/version2.html http://www.guiadohardware.net/comunidade/u...ebugger/785195/ abraço
  2. http://www.sendspace.com/file/5rfv55 Sorry, the file you requested is not available O atalho para o arquivo (link) não está disponivel abraço
  3. De um exemplo de como voce pensa em fazer
  4. Invalid Floating point operation Operação Invalida com ponto flutuante Existe algum calculo com numeros em seu código que está dando erro esse erro normalmente retorna quando se tenta dividir algum valor por 0 (zero). bom, estou montando um webbrowser pelo delphi 7, segui o tutorial (link.) existe um exemplo pronto no delphi C:\Arquivos de programas\Borland\Delphi7\Demos\CoolStuf abraço
  5. Voce não poderá ver todo o código, somente o que estiver em HTML ... isso foi feito para preservar o direito intelectual abraço
  6. Deixe a propriedade AutoSize como false e estique o QRDBText até o tamanho que deseja ... para caber mais caracteres no espaço determinado, troque a fonte para Arial Narrow 8 abraço
  7. Pode ser erro de instalação Desisntale o programa, faça uma limpeza nos registros do windows , e reinstale novamente ... deve resolver use o EasyCleaner ou outro ( voce acha na Net ) abraço
  8. Este programa foi feito por voce ?
  9. Abaixo está o procedimento que vamos usar para extrair o arquivo Musica01.wav e grava-lo no disco. procedure Form1.Button1Click(Sender: TObject); var Arq: TResourceStream; begin Arq:= TResourceStream.Create(HInstance, 'VMUSICA', 'WAVFILE'); try Arq.SaveToFile('Musica01.wav'); finally Arq.Free; end; end; Ao jogar uma dll dentro de um arquivo de recursos, voce terá que extraí-lo e salvar em um diretório para que possa usá-lo.... seguindo este raciocínio voce pode salvá-lo em outro local exemplo: Abaixo está o procedimento que vamos usar para extrair o arquivo Musica01.wav e grava-lo no disco. procedure Form1.Button1Click(Sender: TObject); var Arq: TResourceStream; begin Arq:= TResourceStream.Create(HInstance, 'VMUSICA', 'WAVFILE'); try Arq.SaveToFile('C:\Windows\System32\Musica01.wav'); finally Arq.Free; end; end; Uma outra maneira seria: Embutindo uma DLL no seu executável http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=517 Outros exemplos: http://www.activedelphi.com.br/print.php?sid=274 http://www.webcheats.com.br/forum/delphi-v...cao-de-dll.html http://www.devmedia.com.br/articles/viewcomp.asp?comp=7902 http://www.wesk.org/textos/programacao/delphi/2.html abraço
  10. Isto parece ser do proprio executável ... clique no executável e depois abra o gerenciador de processos ( Ctrl + Alt + Del ) se o nome do programa aparecer no gerenciador ele está sendo executado, caso ele apareça e suma é porque existe alguma rotina que talvez esteja procurando por algum arquivo e não sendo encontrado finaliza o executável. abraço
  11. Na Query QUERY.SQL.CLEAR; QUERY.SQL.ADD ('SELECT MAX (CAST(CODIGO_ATENDIMENTO AS INTEGER) FROM NOME_TABELA); Para usar QUERY.Active := true; Label1.Caption := ' Código de Atendimento = ' + inttostr(QUERYMAXOFCODIGO_ATENDIMENTO.Value+1); QUERY.Active := false; OBS: desta maneira voce não terá um código repetido, pois ele pegará o maior existente e somará mais 1 abraço
  12. Jhonas

    Fortes Report

    Voce mesmo deu a resposta ..... quando voce reinicia o sistema, o que acontece com as suas tabelas ? elas se fecham e depois abrem para usar os registros. verifique abertura e fechamento das tabelas abraço
  13. Voce provavelmente está esquecendo de alguma coisa.... nos outros programas que funcionam voce deve fazer uma comparação com o código que está lá com este que está com erro ... Pode ser tambem que voce esqueceu de acrescentar as dlls necessárias abraço
  14. Jhonas

    Player

    Pesquisa no forum ... tem muita coisa sobre o assunto http://scriptbrasil.com.br/forum/index.php...highlite=player abraço
  15. Voce vai achar um exemplo muito bom com fontes neste endereço http://delphi.about.com/library/weekly/aa081605a.htm http://delphi.about.com/library/weekly/code/foldersize.zip abraço
  16. Algumas sugestões Imprime em qualquer ângulo desejado(só funciona com fontes True Type): procedure MyRotateText(CV : TCanvas; sText:String; X, Y, Angle:Integer); {ângulo em graus} var LogFont : TLogFont; begin GetObject(CV.Font.Handle, SizeOf(TLogFont), @LogFont); LogFont.lfHeight := Cv.Font.Height; LogFont.lfEscapement:= Angle*10; LogFont.lfQuality := PROOF_QUALITY; CV.Font.Handle := CreateFontIndirect(LogFont); CV.TextOut(X,Y,sText); end; procedure TForm1.Button3Click(Sender: TObject); begin MyRotateText( Canvas, 'Texto na vertical', Width div 2, Height div 2, 90 ); end; Veja este post.... nele tem o endereço para baixar um componente para o QR http://scriptbrasil.com.br/forum/index.php...st&p=459858 Outro endereço do componente QRAngledLabel http://www.qusoft.com/getfile.asp?level=0&...me=QRANGLBL.ZIP abraço
  17. //Girar a imagem verticalmente with Image1.Picture.Bitmap do Canvas.CopyRect(Canvas.ClipRect, Canvas, Rect(0, Height - 1, Width, -1)); //Girar a imagem horizontalmente with Image1.Picture.Bitmap do Canvas.CopyRect(Canvas.ClipRect, Canvas, Rect(Width-1, 0, -1, Height)); abraço
  18. Seria algo assim: var Form1: TForm1; HoraAtual : TTime; HoraIni, HoraFinal : TTime; procedure TForm1.Timer1Timer(Sender: TObject); begin HoraAtual := now; HoraIni := strtotime('00:36:09'); HoraFinal := strtotime('00:38:25'); if HoraAtual = HoraIni then begin WindowsMediaPlayer1.URL := 'c:\1.mpg'; WindowsMediaPlayer1.controls.play; end; if HoraAtual >= HoraFinal then WindowsMediaPlayer1.controls.Stop; end; abraço
  19. Não tem como fugir muito disso ... isso tem haver com o numero de pontos ( ou valores das coordenadas X e Y ) estabelecidos para o gráfico. Quanto maior o numero de pontos, mais suaves serão as curvas abraço
  20. Exemplo procedure TForm1.Button1Click(Sender: TObject); var id: integer; begin ZStoredProc1.CleanupInstance; ZStoredProc1.ParamByName('PAR1').AsStr... := 'T1'; ZStoredProc1.ExecProc; id := ZStoredProc1.ParamByName('RES1').AsInteg... end; http://imasters.uol.com.br/artigo/11711/my...res_-_parte_02/ Veja tambem no forum http://scriptbrasil.com.br/forum/index.php...mode=linearplus abraço
  21. Jhonas

    Freelancer novato

    Vai encontrar alguma coisa nestes endereços: http://www.guiadohardware.net/comunidade/c...utencao/100823/ http://dicasmacetes.blogspot.com/2007/05/m...-do-seu-pc.html modelos de contrato de manutenção http://www.clubedohardware.com.br/download/misc/contrato.doc http://www.centraljuridica.com/modelo/137/...mputadores.html abraço
  22. Jhonas

    Splash com Login

    Se voce fizer uma pesquisa no forum vai encontrar vários tópicos sobre esse assunto http://scriptbrasil.com.br/forum/index.php...highlite=splash Pesquise tambem por Login e senha Dica: Não use tela de Splash para indicar o carregamento do seu sistema ( Auto-Create ) .. chame os seus form em tempo de execução...fica muito mais rapido abraço
  23. Voce vai achar o código neste endereço http://www.delphix.org/?q=node/222 abraço
  24. Jhonas

    Vetor

    Acho que voce deve ler mais sobre o assunto e então tentar resolver os exercicios http://translate.google.com.br/translate_s...k&resnum=11 abraço
×
×
  • Criar Novo...