-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
leia esse manual http://www.eq.ufc.br/MD_Fortran.pdf abraço
-
veja esse calculador de frequencias em python http://www.vivaolinux.com.br/scripts/downl...DeFrequencia.py abraço
-
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
-
veja http://www.macoratti.net/graph.htm abraço
-
exemplo: http://dicasdepython.wordpress.com/2009/02/01/27/ abraço
-
(Resolvido) Centro de explicações- marcação mensal
pergunta respondeu ao Mario Lopes de Jhonas em Delphi, Kylix
veja o componente TMS Planner http://www.tmssoftware.com/site/dbplanner.asp abraço -
em termos de atualização mais rápida ( da maneira como voce está pensando ) seria usar o XML abraço
-
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
-
(Resolvido)Pintar Grid...criado em tempo de execução
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
O evento OnActive do Form coloque: procedure TForm1.FormActivate(Sender: TObject); begin dgAgenda.OnDrawColumnCell := PintaGrid; end; abraço -
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
-
(Resolvido) Delphi 3 - Aplicativo fecha automaticamente
pergunta respondeu ao Ivan Tenere de Jhonas em Delphi, Kylix
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 -
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
-
ok .. e qual é a sua cidade ? abraço
-
(Resolvido) Pegar o resultado de uma função
pergunta respondeu ao moisesf de Jhonas em Delphi, Kylix
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 -
qual é a cidade ? pelo que eu entendi voce está querendo simplesmente revender programas prontos ? abraço
-
Impressão com TLP 2844 via Serial
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
(Resolvido) Pegar o resultado de uma função
pergunta respondeu ao moisesf de Jhonas em Delphi, Kylix
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 -
Impressão com TLP 2844 via Serial
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
(Resolvido)Colocar Edit na Barra do Formulário
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
Só se voce construir a barra do formulario exemplo: http://www.tecnobyte.com.br/download?arquivo=tbtitle.zip abraço -
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
-
Impressão com TLP 2844 via Serial
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
Impressão com TLP 2844 via Serial
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
voce não tem que tirar o form do projeto, somente do auto-create abraço
-
voce tem que tirar ele do Auto-Create Forms ( Menu > Project > Options ) abraço
-
"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