Jhonas

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

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

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

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

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

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

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

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

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

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

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