s3c

Olá colega, utilizo importação/exportação de arquivos p/ banco de dados e vice-versa. Até o momento nunca soube de nenhum método ou rotina que faça isso automaticamente. No meu caso, eu tenho que conhecer o layout do registro p/ saber exatamente o que será lido ou gravado.

Olá, segundo a documentação: Eu queria saber se alguém já utilizou o recurso citado acima (inline graphic), ou seja, codifica uma imagem por ex diretamente no email sem anexar o arquivo.

Desculpe, acabei de ver em: http://docs.projectindy.org/online/frames....ntFile_pas.html É da versão 10; alguém utilizou? Ele codifica o arquivo na msg sem anexá-lo ?

Olá Progr'amador, são componentes Indy? Utilizo Indy 9.0 e não existe essa unit.

Olá colega, se estiver utilizando componentes Indy, acredito que não exista TIdAttachmentFile; então tente: TIdAttachment.Create(idmessage.MessageParts, ListBox1.Items[xAnexo]);Note que você não precisa castear porque TFileName já é uma string.

Coloque um #13 no final da primeira linha.

var i:Integer; Reg:TRegistry; SL:TStringList; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if not Reg.OpenKey('\Software\Microsoft\...\Run', false) then Exit; SL := TStringList.Create; Reg.GetValueNames(SL); for i := 0 to SL.Count-1 do Memo1.Lines.Add(Reg.ReadString(SL[i])); // coloque um TMemo SL.Free; Reg.Free; end;Isso se você tiver certeza que todas as chaves são strings; senão você tem o comando GetDataType de TRegistry que retorna o tipo do valor.

Olá Paulo, A diferença é que RegisterHotKey registra a tecla p/ o Windows não importando se sua aplicação está em foco ou não; ao contrário do código exposto pelo colega Progr'amador em que sua janela deve receber o foco p/ poder interceptar a tecla. Ao invés de Mod_Control, coloque Mod_Control+Mod_Shift; e o arroba (em cima do 2) é a tecla $32;note que não é o valor ascii do "@" e sim o código da tecla do teclado.

Edt := TEdit.Create(Form1); Edt.Parent := Form1 ou Panel1 ou ... Edt.Left := xxx; Edt.Top := xxx; Edt.Width := xxx;

Olá Paulo, segundo os parâmetros do regedit, nãi ví nenhum p/ abrir numa chave espécífica; mas quando você fecha o regedit, ele grava a última chave em: HKEY_CURRENT_USER Software Microsoft Windows CurrentVersion Applets Regedit "LastKey" (O meu é inglês se for português, pode ser outro valor) Acho que é só ir lá e alterar p/ a nova chave.

Olá Progr'amador e rjcerri Acredito que não funcionará porque o Dataset DataMrp.ZQueryMrpmat deve estar aberto pelo comando Select.

É, mas precisa passar p/ Delphi e depois testar.

E como você pega o Handle do processo ?

Tente: TerminateProcess(HProcess, 0);

Olá Paulo, pelo que entendí do código exposto pelo Escobar, o componente calcula cada variável(anos,meses,dias,horas,min,seg,mseg) individualmente pela diferença das duas datas; ou seja; se você pedir a qtde de meses entre 5 anos, ele retorna 60.

Olá Paulo, bom a rotina que fiz pode não ser a mais otimizada em termos de código, mas é por aí: Fiz ± assim também:if Dti >= Dtf then Exit; // datas inválidas Anos := Anof - Anoi - 1; if (Mesi < Mesf) or ((Mesi = Mesf) and (Diai <= Diaf)) then Inc(Anos);O próximo passo é apurar os meses nas duas situações: if (Mesi <> Mesf) or ((Mesi = Mesf) and (Diai > Diaf)) Quando programava em Cobol, tive que fazer assim; tendo uma tabela de31 00 31 30 31 30 31 31 30 31 30 31 e atualizando o segundo ítem p/ 28 ou 29(vale uma dica p/ quem não souber que um ano é bissexto quando for divisível por 4 e se for divisível por 100 tem que ser divisível por 400); mas no Delphi otimizei um pouco porque você pode montar a data pelo EncodeDate e ir incrementando de 1 em 1 que automaticamente ela muda de mes(quando você adiciona um inteiro a um TDatetime, você está adicionando dias). Bom, ao menos p/ mim tive que escrever código p/ prever todas as variantes possíveis; não posso garantir que essa rotina esteja exata, mas pelas datas apuradas até agora, ela retornou resultados precisos.Se você tiver muita dificuldade em desenvolvê-la, me passe seu email que eu te mando; assim conto c/ sua contribuição p/ detectar algum bug p/ poder corrigí-lo.

var f:TextFile; Linha:String; begin AssignFile(f, 'Caminho do Arquivo.txt'); Reset(f); While not Eof(f) do Readln(f, Linha); CloseFile(f); end;

Acredito que não porque se você pegar DaysBetween de 01/01/2005 até 31/12/2005, resultará em 364 dias e pelas divisões dará 1 ano e 4 dias. Precisei fazer uma rotina assim p/ checar a idade de indivíduos e a única forma que achei foi destrinchar as duas datas pelo DecodeDate e trabalhar individualmente c/ anos, meses e dias.

Olá Paulo, acredito que o furo esteja em: Meses := Calcula(1); Quando ele decrementa, está no mes 03 e tira 30 dias; mas quando ele volta a incrementar, está no mes 02 e soma 28 dias; dando aí a diferença de 2 dias. O problema é da função IncMonth que não é exata e sim por aproximação; e o caro analista não quis gastar muito código escrevendo assim uma rotina errada.

Olá colega, MDIChildCount é uma propriedade de TCustomForm. Se você estiver utilizando num método de uma classe descendente de TCustomForm, então não há problema; senão você tem que especificar o objeto TCustomForm p/ poder utilizar seu MDIChildCount.

Olá Curinga, no meu caso eu testei essa dll p/ UF="SP" e funcionou; só que eu não a utilizo porque ela não tem os fontes. Então eu faço o cálculo na mão e no momento só está p/ UF="SP". O cálculo é simples e você pode pegá-lo no próprio site: http://www.sintegra.gov.br/insc_est.html Clique no Estado que você quer e a página mostra como calcular.

Ele dá esse erro na hora que você digita ?

Olá Curinga, não entendí direito.1-Baixe o arquivo DLL3.zip 2-Decompacte-o em alguma pasta 3-Clique no Sinscdv.dpr (O Delphi carregará o projeto) 4-Clique em F9(aparecerá a tela de verificação do dígito da I.E. 5-Preencha o campo "Inscrição" c/ o número da I.E. (sem pontos) 6-Prencha o campo "UF" 7-Clique no botão "Verificar" Só há dois tipos de mensagens: Inscrição válida ou Inscrição inválida.

você compilou o programa Sinscdv.dpr que vem junto ? você informa a I.E. (só números) e a U.F.

você baixou a dll3.zip ? Viu sua documentação ?