Re: [delphi-br] Ler arquivo RTF no Delphi 7
Abra ele como um arquivo texto normal. Jogue tudo pra uma string use o StringReplace para mudar e salve novamente. O RTF nada mais é do que um arquivo texto. Em 17 de março de 2010 22:28, Dimas dimasbr...@uol.com.br escreveu: Utilizo Delphi 7 e preciso abrir um arquivo formato .rtf feito no Word, trocar algumas palavras como CIDADE por nome da cidade, PESSOA por nome da pessoa e salvar Mas sem perder a formatação das margens esquerda e direita. Tentei com o componente TRichEdit porem com este as margens são perdidas. Agradeço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Truecrypt - montar/desmontar volume
Bom dia! Obrigado Dirlei! Encontrei alguma coisa no link que você passou e vou ver se consigo resolver com isso. abraço, Paulo --- Em delphi-br@yahoogrupos.com.br, Dirlei dir...@... escreveu Talvez você encontre algo pesquisando por truecrypt no Google Code Search (http://www.google.com/codesearch). Na pesquisa de código avançada você pode indicar uma linguagem para restringir a pesquisa. Dirlei. pcedisi escreveu: Bom dia! Estou usando a função abaixo que executa o programa truecrypt.exe com os paramentros passados. Funcionou corretamente algumas vezes, mas depois passou a não montar mais o volume e a aparecer muitos erros, que nem dá pra ficar detalhando. Procurei na web por alguma solução usando truecrypt com delphi mas não achei. Será que alguém aqui na lista utiliza truecrypt e pode ajudar com isso? cmd: 'trueCrypt.exe /q /l T /v volume.tc /p 12345' function proc_truecrypt(cmd: string): Boolean; var SUInfo : TStartupInfo; ProcInfo : TProcessInformation; nomeFmt : Array[0..512] of Char; begin FillChar(SUInfo, SizeOf(SUInfo), #0); SUInfo.cb := SizeOf(SUInfo); SUInfo.dwFlags := STARTF_USESHOWWINDOW; SUInfo.wShowWindow := SW_HIDE; StrCopy(nomeFmt, PWideChar(cmd)); Result := CreateProcess( nil, nomeFmt, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, SUInfo, ProcInfo); if Result then begin WaitForSingleObject(ProcInfo.hProcess, INFINITE); CloseHandle(ProcInfo.hProcess); CloseHandle(ProcInfo.hThread); end; end; obrigado, Paulo
Re: [delphi-br] Será outro bug no D2010? Ctrl+D adi cionando pedaços de códigos de outras units...
Sim, já tentei em outro projeto.. vamos supor, voce tem Unit1 e Unit2... na Unit2 voce tem uma classe, qualquer classe, na Unit 1, voce escreve lá o código, e aperta Ctrl+D pra formatar... pronto, simplesmente a Classe inteira da Unit2 vai pro Unit1. acredito que seja algo que eu tenha marcado errado... Ah.. outro problema está no seguinte: (meucomponete as TForm).Caption := 'teste'; o formatador do delphi, sisma em formatar assim: (meucomponete as TForm). Caption := 'teste'; Ou eu sempre usei errado, ou a formatação tá errada... rsrs... já procurei no options, e não consegui descobri o que faz isso... Att. Em 17 de março de 2010 23:52, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: Sinceramente, nunca vi ninguém reportar esse problema em específico. Vc chegou a repetir esse procedimento em outras situações e o comportamento se repetiu ou não? Digo pois o título da tua mensagem é um prato cheio pra flames. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 17/3/10, Fellipe Henrique felli...@gmail.comfellipeh%40gmail.com escreveu: De: Fellipe Henrique felli...@gmail.com fellipeh%40gmail.com Assunto: [delphi-br] Será outro bug no D2010? Ctrl+D adicionando pedaços de códigos de outras units... Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 17 de Março de 2010, 16:36 Amigos, ao pressionar Ctrl+D pra formatar o código, o delphi simplesmente enche meu editor com parte de código de outra unit, com nada a ver com a unit que estou mexendo... Isso é um bug?! Se for é sério, porque sair incluindo codigos assim no meio de nosso codigo é complicado.. . Se não for, como soluciono isso? []s -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique - - - - - - CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # # # [As partes desta mensagem que não continham texto foram removidas] __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Gráficos com intraweb
Colegas, Alguém aí está usando gráficos no intraweb (TIWDynamicChart) ? Ou se possuirem algum exemplo Muito obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Gráficos com intraweb
Eu uso o DBChart, crio uma classe vcl fomrs mesmo no projeto intraweb com o gráfico, configuro ele, e na hora de mostrar executo e gero uma imagem que mostro no intraweb.. Tao simples quanto isso. From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Marcelo Moacir Florindo Sent: quinta-feira, 18 de março de 2010 11:27 To: i...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Subject: [delphi-br] Gráficos com intraweb Colegas, Alguém aí está usando gráficos no intraweb (TIWDynamicChart) ? Ou se possuirem algum exemplo Muito obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/JaOhE6YKguXTndxI!oX7UlXrL06QsU8v!ij7qLCJFJNH64XXJdvrkhb6gV7uNrvw0WzzyV4C7CLw2vPhlBpHvw== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Copiar Sql do Query/ClientDataset
Opa, desenvolvi uma rotina para isto:
function SQLParaLog(Consulta: TIBQuery; SalvarComo: string = '';
AreaTransferencia: Boolean = True): string;
var
i : Integer;
r : string;
arq : TStringList;
begin
Result := Consulta.SQL.Text;
for i := 0 to Pred(Consulta.Params.Count) do
begin
case Consulta.Params.Items[i].DataType of
ftString : r := QuotedStr(Consulta.Params[i].AsString);
ftDate : r :=
QuotedStr(FormatDateTime('mm/dd/',Consulta.Params[i].AsDate));
ftDateTime : r := QuotedStr(FormatDateTime('mm/dd/
hh:nn:ss',Consulta.Params[i].AsDateTime));
else r := Consulta.Params[i].AsString;
end;
Result := StringReplace(Result,':' +
Consulta.Params.Items[i].Name,r,[rfReplaceAll,rfIgnoreCase]);
end;
if (Length(SalvarComo) 0) then
begin
arq := TStringList.Create;
arq.Text := Result;
arq.SaveToFile(SalvarComo);
FreeAndNil(arq);
end;
if (AreaTransferencia) then
begin
Clipboard.AsText := Result;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Estagiária Analista Suporte 1°Nível
A GRCON - Grupo Consulters - é uma empresa com 15 anos de mercado, com atuação e equipes em todo o território nacional, tendo como produtos principais Service Desk, Call Center, Gestão de Contas Telefônicas, Automação de Processos e Alocação de profissionais de T.I., além de uma gama de softwares próprios que apóiam as nossas Soluções de serviços. Procuramos candidatos a vagas de estágio que sejam criativos, responsáveis, próativos e, sobretudo, estejam dispostos a aprender e construir uma carreira de sucesso conosco. Vaga de estágio para informática Estudantes a partir do 1º ano dos cursos de Ciências da Computação, Análise de Sistemas, Tecnologia da Informação e corelatos. Morar na região da zona sul. Atividades: Suporte a usuários corporativos com o sistema operacional Windows, suporte por acesso remoto utilizando VNC/ VPN. Ter disponibilidade de horário das 14h00 ás 19h00 Local: Zona Sul /SP Os interessados encaminhar um e-mail para r...@consulters.com.br com a pretensão salarial.
Re: [delphi-br] Ler arquivo RTF no Delphi 7
Uma alternativa é abrir em um TStringList. Com o método TStringList.LoadFromFile(caminhoDoArquivo) ele trará teu texto para dentro do TStringList, pessoalmente acho mais fácil de manipular. Abraço, Júlio César Santiago Guiótti 2010/3/18 João Paulo joaopaulo@gmail.com Cara tenta o usar o componente WPTools, ele é um ótimo editor de rtf. Falou, João Paulo Em 17 de março de 2010 22:28, Dimas dimasbr...@uol.com.br escreveu: Utilizo Delphi 7 e preciso abrir um arquivo formato .rtf feito no Word, trocar algumas palavras como CIDADE por nome da cidade, PESSOA por nome da pessoa e salvar Mas sem perder a formatação das margens esquerda e direita. Tentei com o componente TRichEdit porem com este as margens são perdidas. Agradeço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ler arquivo RTF no Delphi 7
Você precisa exibir teu texto alterado para o o usuário ou apenas manipulá-lo? Júlio César Santiago Guiótti Em 18 de março de 2010 09:47, Dimas dimasbr...@uol.com.br escreveu: Eu vi o componente WPTools, realmente muito bom. Estou tentando abrir um documento no formato .RTF dentro do Delphi 7 usando TRichEdit e JvRichEdit, porem, as formataçoes das margens são perdidas. Meus documentos são simples, não contem imagens, apenas letras em negrito. Se alguem tiver uma solução free seria bom. Obrigado. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Ler arquivo RTF no Delphi 7
Oi pessoal, agradeço a ajuda de todos, Usei o TMemo para alterar o arquivo .RTF e salvar com outro nome. Memo_Arquivo.Lines.Clear ; Memo_Arquivo.Lines.LoadFromFile(arquivo.rtf); Memo_Arquivo.Lines.CommaText := AnsiReplaceStr( Memo_Arquivo.Lines.CommaText , 'CIDADE' , São Paulo ) ; Memo_Arquivo.Lines.CommaText := AnsiReplaceStr( Memo_Arquivo.Lines.CommaText , 'NOME_PESSOA, JOSE CARLOS); Memo_Arquivo.Lines.SaveToFile(NovoArquivo.rtf); Esta funcionando... com TSTringList acredito que de o mesmo resultado. Obrigado novamente... [As partes desta mensagem que não continham texto foram removidas]
