gostaria muito de saber tambem, obrigado
Data: 09/08/2011 07:38
De: Marques Leão (marquesleao
@yahoo.com.br)
IP: 189.107.170.239
Assunto: Delphi/Word
Como faço para buscar e apagar uma palavra qualquer num texto do Word?
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
WinExec ('C:\Arquivos de programas\Microsoft Office\OFFICE12\winword.exe',SW_Show);
end;
Gostaria de saber como abrir um arquivo no Delphi.
preciso de uma força tenho o delphi 7 e no sistema que estou desenvolvendo fiz uma entrada de login mas não consigo programar os botoes cancela e ok sou novo na area me ajudem por favor desde já obrigado
tenho um aquivo e gostaria de transforma-lo em um ebook
Data: 06/03/2009 15:31
De: Dredblack
IP: 189.71.65.210
Assunto: Ajuda
Olá Gente! Pessoal eu sou novo em programação, entendo um pouco de pascal e um acoisa mínima do delphi e a questão é a seguinte: Depois de ter imaginado o Prog., traçado + ou- o algoritmo, vem a parte do delphi e seus comandos. Tudo bem quanto aos botões mas, quanto ao cod.fonte, dá zica. Alguem poderia me dizer quando entra os comando e quais, não todos é claro, mas o suficiente pra eu montar alguns progs. Tenho alguns exemplos que estou tentando adptar, mas fica dificil sozinho. Tô fazendo um cadastro de cartões de autografo, mas falta manipulação de imagen e o bd. Se não responderem eu entenderei, de qualquer forma MUITISSIMO OBRIGADO, NÃO É TODO DIA QUE SE DEPARA COM GENTE AJUDANDO O PROXIMO SEU OBJETIVO D LUCRO, SEM AO MENOS SABER QUEM É.
MSWord.insertpicture('C:\Atividades\BDIMAGENS\estacionar.jpg');
Por favor me ajudem
será que alguem sabe como faço para executar um arquivo exe do Windows dentro do formulario Delphi?
procedure TFrm_Cliente.FormShow(Sender: TObject);
var
FArquivo: TextFile;
strDados: string;
begin
ModuloSistema.Cliente.Open;
AssignFile(FArquivo,'C:\Panificadora/Estado/ESTADOS.TXT');
Reset(FArquivo);
ReadLn(FArquivo,strDados);
while (not Eof(FArquivo)) do
begin
DbEstado.Items.Add(strDados);
ReadLn(FArquivo,strDados);
end;
CloseFile(FArquivo);
If (ModuloSistema.Cliente.RecordCount = 0) then
ModuloSistema.Cliente.Append;
end;
Eu tenho o Delphi 6.0 se quizer eu envio os arquivos por e-mail
me envie um e-mail para venturamaster@hotmail.com que vol ver o que poço fazer
Data: 10/10/2008 19:24
De: Paulo Sergio
IP: 200.100.150.34
Assunto: Diocas
Ola tudo bem espero que sim, obrigado pela dica anterior.
poço contar com vc novamenete ?
Criei um projeto utilizando o Banco de Dados Access para efetuar uma venda de um determinado produto, ok da tudo certo so na hora que eu excluo um item da venda ele me da o seguinte erro,
" Informações insuficientes ou incorretas sobre a Coluna-Chave, muitas linhas foram alteradas pela atualização' como eu devo tratar este erro pois ao excluir um item da venda ocorre isso por favor me ajude
atenciosamente
Venturamaster
Ernani, quero começar a fazer isso. seria possível vc me passar esta procedure???
Grato
Não sei se ainda útil, mas aí vai a dica
Word.Selection.Tables.Item(1).Select; { Seleciona a 1º tabela }
Word.Selection.Tables.item(1).AutoFormat(Format := 16); { auto-formata }
Bom uso!!
enfia o dedo no cu e rasga
Estou com o mesmo problema... :(
Ajudem-nos... Plis!!!
Artigo Publicado no site http://www.activedelphi.com.br
Sempre me perguntam como salvar um arquivo (doc, xml, pdf.) no banco de dados Oracle. Veja nesta dica um código simples e objetivo de como fazer isso de forma rápida e eficaz.
procedure InserirCampoBLOB;
begin
sQuAux.Close;
sQuAux.SQL.Clear;
sQuAux.SQL.Add('Insert into tabela(Campo1, CampoBLOB) ' +
' Values(:Pcampo1,:CampoBLOB)' );
sQuAux.ParamByName('Pcampo1').AsBCD:= CodigoChavePrimaria;
// caminho passado como parametro à query
sQuAux.ParamByName('PcampoBLOB').LoadFromFile('caminhodoarquivo', ftBlob);
sQuAux.ExecSql;
end;
procedure AbrirCampoBLOB
begin
SquAux.Close;
SquAux.SQL.Add('Select campo1, CampoBLOB from tabela Where Campo1 = :Pcod');
SquAux.ParamByName('PCod').AsBCD := CodigoChavePrimaria;
SquAux.Open;
if SquAux.IsEmpty then
ShowMessage('Arquivo não encontrado')
else
begin
SquAuxDoc.SaveToFile('C:' + SquAuxCampo1.AsString + '.pdf');
ShellExecute(Handle, 'open', PChar('C:'+SquAuxCampo1.AsString+'.pdf') ,
'', '', SW_SHOWNORMAL);
end;
SqAux.Close;
end;
Espero ter ajudado mais uma vez!
Abraços!
Valdomiro Farias de Andrade Júnior - Analista de Sistemas
Contato: procompanysistemas@infonet.com.br
Olá, aguém pode me ajudar, to criando um aplicação onde tenho que abrir o word dentro de um panel o outro componente que receba-o, ou seja tenho apenas um formulario do lado esquerdo tenho os menus (word, excel, Internet) do lado direito tenho um espaço onde abrirá o aplicativo, mas o aplicativo não pode sair do panel, agradeço desde já.
Data: 20/04/2008 19:52
De: Gerson Gonçalves (goncalves.gerson
@bol.com.br)
IP: 200.97.55.167
Assunto: Tabela
Boa noite.
Alquem pode me ajudar,porque quando abro uma tabela aconteçe isso.
DISTRIBUIDORA PAULISTA DE PECAS LTDAऀऀऀ䐀䤀匀吀刀䤀䈀唀䤀䐀伀刀 䄀唀吀伀刀䤀娀䄀䐀伀 䘀䤀䰀䤀娀伀䰀䄀 LISTA GERAL DE PRECOS ATACADISTA簀ऀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀऀⴀऀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀ | FILIZOLA BALANCAS INDUSTRIAIS S.Aऀऀऀ | **** BAL 160 (ATE 1T) ****簀ऀ 㐀⸀㐀⸀㘀 ⸀㌀㘀ⴀ㔀ऀ簀ऀ䄀䰀䄀嘀䄀一䌀䄀 刀䔀䐀唀吀伀刀䄀 䬀䜀 | 04.41.58.32-6 | ALAVANCA REDUTORA 200/300KG簀ऀ 㐀⸀㐀⸀㘀 ⸀㔀㐀ⴀ㌀ऀ簀ऀ䄀䰀䄀嘀䄀一䌀䄀 刀䔀䐀唀吀伀刀䄀 㘀 䬀䜀 | 04.41.50.14-0 | ANZOL B 160 FZ簀ऀ 㐀⸀㐀⸀㘀 ⸀㐀 ⴀ㐀ऀ簀ऀ䄀刀刀唀䔀䰀䄀 䌀伀一䤀䌀䄀 䐀伀 倀伀刀吀䄀 䌀伀堀䤀䴀 | 04.41.58.22-9 | ARRUELA DA TRAVA DOS
vc coloca um botão ou um Menu em um forme digita o seguinte código que abrirá o IE e o usuario digitará e chamará a Página que quiser (no caso aqui abrirá o google) DIGITE TUDO DIRETO, AQUI NÃO COUBE NA CAIXA DE DIÁLOGO:
winExec('c:\Arquivos de Programas\Internet Explorer\IExplore.exe http://www.google.com.br', sw_shownormal);
Espero ter ajudado, se precisar:
heckelcunha@hotmail.com
