Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. leia esse manual http://www.eq.ufc.br/MD_Fortran.pdf abraço
  2. veja esse calculador de frequencias em python http://www.vivaolinux.com.br/scripts/downl...DeFrequencia.py abraço
  3. sim e não ... depende da linguagem de programação que voce estiver usando exemplo: linguagens visuais, voce digita menos mas linhas de código são adicionadas automaticamente pelo proprio projeto em linguagens não visuais, ex: C++ ou Java voce tem que digitar todo o código do seu projeto em resumo, quanto mais experiencia e conhecimento da sintaxe dos comandos da linguagem, menos linhas de programação voce vai precisar. abraço
  4. veja http://www.macoratti.net/graph.htm abraço
  5. Jhonas

    Ajuda neste exercício!

    exemplo: http://dicasdepython.wordpress.com/2009/02/01/27/ abraço
  6. veja o componente TMS Planner http://www.tmssoftware.com/site/dbplanner.asp abraço
  7. em termos de atualização mais rápida ( da maneira como voce está pensando ) seria usar o XML abraço
  8. esse problema ocorre normalmente quando voce instala mais de uma versão do delphi juntos se for isso, voce deve desistalar uma das versões do delphi, limpar os registros do windows ( use o CCleaner ou outro ) e depois instale novamente a outra versão. http://www.superdownloads.com.br/download/53/ccleaner/ dessa forma o Database desktop funcionará para as duas versões abraço
  9. O evento OnActive do Form coloque: procedure TForm1.FormActivate(Sender: TObject); begin dgAgenda.OnDrawColumnCell := PintaGrid; end; abraço
  10. Veja: Tratamento de Excessoes em delphi http://www.planetadelphi.com.br/artigo/124...ecoes---parte-1 http://www.planetadelphi.com.br/artigo/125...ecoes---parte-2 http://www.planetadelphi.com.br/artigo/129...s---parte-final http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=513 http://www.t2ti.com/curso/video/delphi/ava..._exceptions.php abraço
  11. Sobre os aplicativos: Após o período de avaliação, o aplicativo listador será bloqueado totalmente ou somente algumas funcionalidades. Nestes casos, se o usuário desejar continuar utilizando, deverá fazer o pagamento do boleto. voce deve estar usando uma rotina para bloquear esse software ... e creio que voce usou o registry do windows para datar o tempo de uso ( ou uma outra forma ) Um deles ( o mais importante ) agora abre e fecha em 2 ou 3 segundos, automaticamente. esse é o tempo que leva para o software verificar se a chave de registro está liberada, caso não esteja ele fecha o programa OBS: alguns programas ao serem instalados, alteram o registry do windows, fazendo que que esse tipo de coisa aconteça então verifique no seu programa essa rotina, e verifique tambem ( se possivel ) o registry do windows nos micros onde estão instalados esse programa abraço
  12. flavio... eu uso banco de dados Paradox, Interbase/Firebird e MYSQL dos 3 o MYSQL ( local e internet ) é mais estavel, e menos sujeito a corrupção de dados com relação ao XML e Txt a unica diferença está em que o XML possui componentes de leitura e transformação para ser usado em um banco de dados fazer leitura e gravação em arquivos txt, deixa muito a desejar resumindo ... prefiro banco de dados abraço
  13. ok .. e qual é a sua cidade ? abraço
  14. se voce testou somente o código que te passei, voce vai ver que ele retorna o valor do resultfinal preste atenção function criptpass(passasenha:string):string; function TForm1.criptpass(passasenha:string):string; OBS: se voce quer clicar no DBgrid para pegar os valores do registro, primeiro voce tem que verificar se realmente esta passando os valores passasenha:= 'abcd'; passasenha:=ClientDataSet1.FieldByName('senha').AsString; olhe com calma o código que te passei abraço
  15. qual é a cidade ? pelo que eu entendi voce está querendo simplesmente revender programas prontos ? abraço
  16. então só resta a voce, ler o manual e fazer as configurações e os testes basicos de funcionamento da impressora ( sem usar o delphi ) abraço
  17. veja unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBClient; type TForm1 = class(TForm) Button1: TButton; pertencetxt: TEdit; nometxt: TEdit; ClientDataSet1: TClientDataSet; DataSource1: TDataSource; senhatxt: TEdit; emailtxt: TEdit; descricaotxt: TEdit; ClientDataSet1pertence: TStringField; ClientDataSet1nome: TStringField; ClientDataSet1senha: TStringField; ClientDataSet1email: TStringField; ClientDataSet1descricao: TStringField; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; resultfinal : string; implementation {$R *.dfm} function criptpass(passasenha:string):string; var x,y : Integer; NovaSenha : String; aSenha: string; chave: string; onde: string; begin ////////// Chave := 'Kalos'; aSenha:=passasenha; for x := 1 to Length( Chave ) do begin NovaSenha := ''; for y := 1 to Length( aSenha ) do NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(aSenha[y]))); aSenha := NovaSenha; end; resultfinal := aSenha; //showmessage(resultfinal); ////////////// end; procedure TForm1.Button1Click(Sender: TObject); var passasenha : string; begin pertencetxt.text:=ClientDataset1.FieldByName('pertence').AsString; nometxt.text:=ClientDataSet1.FieldByName('nome').AsString; passasenha:= 'abcd'; criptpass(passasenha);//CHAMA A FUNÇÃO CRIPT PASS showmessage(resultfinal); senhatxt.text:=resultfinal;//AQUI DEVERIA ENTRAR RESULTFINAL emailtxt.text:=ClientDataSet1.FieldByName('email').AsString; descricaotxt.text:=ClientDataSet1.FieldByName('descricao').AsString; pertencetxt.SetFocus; end; end. abraço
  18. OK... faça mais um teste coloque esses comandos dentro do memo e teste caso não imprima, estude o manual da linguagem de programação EPL da zebra e faça os testes basicos de configuração e impressão abraço
  19. Só se voce construir a barra do formulario exemplo: http://www.tecnobyte.com.br/download?arquivo=tbtitle.zip abraço
  20. exemplo: hookar a api TerminateProcess do notepad. Primeiro e necessario o componente : BmsAPIHook. download : http://www.projetobms.net/Downloads/BmsApi...k22_06_2005.zip Primeiro crie uma dll com o seguinte codigo : Declare : Windows e BmsAPIHook na DLL var TerminateProcessNext : function (processHandle, exitCode: dword) : bool; stdcall; function ProcessoProtegido(processID: dword) : boolean; begin Result := GetCurrentProcessID = BmsGetProcessID('notepad.exe'); end; function TerminateProcessCallback(processHandle, exitCode: dword) : bool; stdcall; begin if ProcessoProtegido(processHandle) then begin result := false; SetLastError(ERROR_ACCESS_DENIED); end else result := TerminateProcessNext(processHandle, exitCode); end; begin BmsHookApi('kernel32.dll', 'TerminateProcess', @TerminateProcessCallback, @TerminateProcessNext); end. Salva a DLL com o nome que quiser. Agora Crie um Aplicativo e coloque no Button 1 onclick: if BmsRemoteUnloadLibrary(BmsGetProcessID( 'notepad.exe' ), 'NomedaSuaDLL.dll') then MessageBox(0, 'Bloqueado!', 'Aviso...', MB_ICONINFORMATION) else MessageBox(0, 'não foi bloqueado!!!', 'Aviso...', MB_ICONINFORMATION); Quando você abrir o notepad ele ira fechar por causa da api TerminateProcess. Dica de Juniioor' OBS: O arquivo para download esta no 4shared BmsApiHook22_06_2005.zip (163 KB) para o delphi 6 , 7 e 2005 http://search.4shared.com/search.html?sear...iHook22_06_2005 abraço
  21. Linguagem ZPL para impressora zebra tlp 2844 http://zebramaster.blogspot.com/2011/04/li...-zebra-zpl.html Manual ZPL http://www.psitecnologia.com.br/Downloads/...d/zplmanual.pdf Linguagem EPL procedure TForm1.Button1Click(Sender: TObject); var MyFile : TextFile; begin AssignPrn(MyFile); Rewrite(MyFile); Write(MyFile, Memo1.Lines.Text); System.CloseFile(MyFile); end; No Memo coloque esses comandos e teste Manual da linguagem EPL http://www.zebra.com/id/zebra/na/en/docume...&dvar2=EPL2 abraço
  22. voce não informou, se a impressora usa codigo de programação ELP ou ZPL ( verifique ) o codigo que te passei é EPL abraço veja o manual de configuração http://www.zebra.com/id/zebra/na/en/docume...t)&dvar3=59 abraço
  23. voce não tem que tirar o form do projeto, somente do auto-create abraço
  24. voce tem que tirar ele do Auto-Create Forms ( Menu > Project > Options ) abraço
  25. "INSUFFICIENT MEMORY FOR THIR OPERARION". Memoria insuficiente para essa operação esse erro ocorre quando a memoria não foi liberada pelo componente, a melhor maneira seria criar o relatorio em tempo de execução e depois libera-lo da memoria. exemplo: procedure TForm1.QRCompositeReport1AddReports(Sender: TObject); begin QRCompositeReport1.Reports.Add(QuickRep1); QRCompositeReport1.Reports.Add(QuickRep2); end; procedure TForm1.Button1Click(Sender: TObject); begin try if QRCompositeReport1 = nil then QRCompositeReport1 := TQRCompositeReport1.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; QRCompositeReport1.Print; QRCompositeReport1 := nil; QRCompositeReport1.Free; end; abraço
×
×
  • Criar Novo...