Ir para conteúdo
Fórum Script Brasil

danielrgoes

Membros
  • Total de itens

    295
  • Registro em

  • Última visita

Posts postados por danielrgoes

  1. ele funciona muito bem

    mais eu gostaria de tratar dois erros

    um dele seria se o outlook não estiver aberto avisar que não esta

    e outro se não houver conexao

    1 - O outlook não precisa estar aberto apenas instalado

    2 - Use o componente NMHTTP do delphi

    procedure TFRM_desenho.BitBtn1Click(Sender: TObject);
    var
       Outlook: OleVariant;
       vMailItem: variant;
    begin
       if NMHTTP1.FConnected then
          begin
    
             try
                Outlook := GetActiveOleObject('Outlook.Application');
             except
                Outlook := CreateOleObject('Outlook.Application');
             end;
             vMailItem := Outlook.CreateItem(olMailItem);
             vMailItem.Recipients.Add('e-imal@jccwww.com.br'); // 1o destinatário
             vMailItem.Subject := 'teste de email'; // assunto
             vMailItem.Body := 'Este é um teste'; // Corpo do e-mail
             vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado
             vMailItem.Send;
    
             VarClear(Outlook);
          end
       else
          MessageDlg('CONEXÃO INTERNET NÃO DISPONÍVEL! ', mtInformation, [mbOK], 0);
    end;
    abraço
    se o outlook não estiver aberto da o seguinte erro: Project projeto.exe raised exception class EOleSysError with message 'Operação não disponivel'. e deixa eu me retratar o meu outlook aki funciona como email interno não existe conexao com a internet com ele e sim um servidor de email aonde no nome de endereço eu passo o login do usuario
    ele funciona muito bem mais eu gostaria de tratar dois erros um dele seria se o outlook não estiver aberto avisar que não esta e outro se não houver conexao
    1 - O outlook não precisa estar aberto apenas instalado 2 - Use o componente NMHTTP do delphi
    procedure TFRM_desenho.BitBtn1Click(Sender: TObject);
    var
       Outlook: OleVariant;
       vMailItem: variant;
    begin
       if NMHTTP1.FConnected then
          begin
    
             try
                Outlook := GetActiveOleObject('Outlook.Application');
             except
                Outlook := CreateOleObject('Outlook.Application');
             end;
             vMailItem := Outlook.CreateItem(olMailItem);
             vMailItem.Recipients.Add('e-imal@jccwww.com.br'); // 1o destinatário
             vMailItem.Subject := 'teste de email'; // assunto
             vMailItem.Body := 'Este é um teste'; // Corpo do e-mail
             vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado
             vMailItem.Send;
    
             VarClear(Outlook);
          end
       else
          MessageDlg('CONEXÃO INTERNET NÃO DISPONÍVEL! ', mtInformation, [mbOK], 0);
    end;

    abraço

    se o outlook não estiver aberto da o seguinte erro:

    Project projeto.exe raised exception class EOleSysError with message 'Operação não disponivel'.

    e deixa eu me retratar o meu outlook aki funciona como email interno não existe conexao com a internet com ele e sim um servidor de email aonde no nome de endereço eu passo o login do usuario

    Com certeza não precisa mesmo estar aberto

    agora só estou com o problema com a conexao

    quero eliminar o erro se o servidor não estiver acessivel

  2. Boa Tarde pessoal

    eu tenho o seguinte codigo para enviar email pelo outlook2000

    dica dada pelo jhonas aki mesmo

    Código:

    procedure TFRM_desenho.BitBtn1Click(Sender: TObject);

    var

    Outlook: OleVariant;

    vMailItem: variant;

    begin

    try

    Outlook := GetActiveOleObject('Outlook.Application');

    except

    Outlook := CreateOleObject('Outlook.Application');

    end;

    vMailItem := Outlook.CreateItem(olMailItem);

    vMailItem.Recipients.Add('e-imal@jccwww.com.br'); // 1o destinatário

    vMailItem.Subject := 'teste de email'; // assunto

    vMailItem.Body := 'Este é um teste'; // Corpo do e-mail

    vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado

    vMailItem.Send;

    VarClear(Outlook);

    end;

    ele funciona muito bem

    mais eu gostaria de tratar dois erros

    um dele seria se o outlook não estiver aberto avisar que não esta

    e outro se não houver conexao

    muito obrigado

  3. eu queria deixar apenas a terceira linha em negrito alguém tem alguma ideia de eu saber qual é sempre a terveira linha?
    danielrgoes, é bem simples:

    - declare uma variável na sessão Private do form (digamos: ContaLinha :Integer;)

    - no evento BeforePrint, você inicializa ela com 0 (ContaLinha := 0;)

    - no evento BeforePrint da banda do tipo rbDetail, você verifica se ela é igual a 3 (if ContaLinha = 3 then) e coloca a fonte em (...Font.Style := [fsBold]; )

    - no evento AfterPrint da banda do tipo rbDetail, você incrementa ela (Inc(ContaLinha);) e verifica se ela é diferente de 3 (if ContaLinha = 3 then) e coloca a fonte sem o bold (...Font.Style := []; )

    Abraços

    Muito Obrigado Micheus funcionou perfeitamente

    e muito Obrigado pela atençao

  4. Boa Tarde pessoal

    Estou com o seguinte problema

    eu tenho um relatorio no Quick Report que tem um QrBand como title e um como detail

    o detail repeti conforme o select

    entaum ele coloca

    campo1 outro campo1

    campo2 outro campo2

    campo3 outro campo3

    .

    .

    .

    .

    .

    tem 8 colunas

    mais ele pode variar dependendo da informaçao do banco

    eu queria deixar apenas a terceira linha em negrito alguém tem alguma ideia de eu saber qual é sempre a terveira linha?

    muito obrigado

  5. Boa Tarde pessoal

    Eu tenho um cod assim

    procedure TFrm_desenhos.DBGrid1DblClick(Sender: TObject);

    var

    caminho :string;

    Pdir :pchar;

    begin

    caminho := 'c:\teste\'+ modulo.cds_desenhosCAMINHO.Value+'.pdf';

    GetMem(pDir,256);

    StrPCopy(pDir, caminho); {Aqui você coloca o caminho + o nome do arquivo}

    ShellExecute(0, nil,caminho, nil, Pdir, SW_NORMAL);

    FreeMem(pdir,256);

    end;

    ele funciona muito bem quando no lugar de caminho eu coloco a string mesmo 'c:\teste\arquivo.pdf' mais quando eu tento colocar uma variavel porque meu caminho vem do banco da incompatibilidade (Str and PAnsiChar) alguém tem alguma soluçao?

    muito obrigado

  6. Bom dia

    sera que alguém pode me ajudar

    eu tenho um sistema com varios DBGrids

    mais gostaria de colocar contadores nas linhas

    ou seja na primeira linha colocar numero 1 na segunda numero 2 na terceira numero 3 na quarta numero 4 e assim por diante

    ai cada vez que eu colocar um select não importa quantas linhas ele selecionar se for 3 ou 10 ele colocar em uma coluna o numero

    muito obrigado

  7. Boa Tarde

    estou utilizando o cod para pegar o nome do arquivo

    if FindFirst('c:\FD\Arquivos\*.*', faAnyFile, searchResult) = 0 then

    begin

    repeat

    modulo.cds_clientes.Append;

    //ShowMessage('Nome do arquivo = '+searchResult.Name);

    modulo.CDS_clientesNOME_EMITENTE := searchResult.Name;

    until FindNext(searchResult) <> 0;

    FindClose(searchResult);

    end;

    end;

    porem quando é pra exipi em tela ( pater comentada) exibi

    mais na hora de salva no banco da incompatibilidade de TFileName para String

    alguém tem alguma soluçao

  8. Regras do forum

    3.8 Não é permitida a postagem de mensagens com a finalidade de manter o tópico no início da lista (up), nem de mensagens que não se refiram ao assunto do tópico (flood). Caso isso ocorra, as mensagens serão excluídas e os autores, advertidos.

    OBS: Voce já havia postado esse assunto ( gráfico de curvar usando o DBChart ) neste tópico, então o outro foi excluído

    e se voce não obteve respostas ( inclusive em outros foruns ) o negocio é esperar alguém lhe responder.

    Ainda não encontrei o componente que lhe falei, mas tenho algumas sugestões para voce

    exportar dados da tabela para uma planilha em excell e gerar o grafico no excel

    http://www.geocities.com/SiliconValley/Bay/1058/TblExcel.zip

    Usar o CurveExpert 1.3

    http://userpages.xfoneusa.net/~dhyams/cftp.htm

    abraço

    Muito Obrigado mesmo pela ajuda vou dar uma olhada nos links

    mais usar o excel fica complicado no meu sistema

    o tipo do grafico (layout) o execel não faz

    mais se você achar seria uma mao na roda pra mim

    abraços

  9. Eu sei da equaçao

    porem como é um DBChart os dados já foram calculados e enviados para o banco

    ai o dbchart busca os dados do banco para traçar o grafico

    neste exempo que você me mando ele calcula e jga os valores ponto a ponto em um chart

    Tente usar o Fast Line ai voce terá a curva

    quanto ao exemplo, ao invés de usar o Chart use o DBhart com algumas modificações

    OBS: Me lembro de ter visto na Net um componente gráfico para o delphi que fazia gráfico de curvas, vou procurar e se achar depois informo.

    abraço

    é eu to usando um bdchart fastline

    mais traça retas em vez de curvas quando os dados não estaum na media

    NOSSA SE você ACHA EU AGRADEÇO MUITO

    ah eu uso o delphi 2007

    abraços

  10. estou com um problema

    fiz um grafico usando o componente dbchart

    esta funcionando bem mais no meu caso necessito que ele faça curvas

    ele ate faz mais quando os dados estaum mais ou menos na media

    se houver uma diferença ele traça por pontos ou sejah não fica totalmente curva

    o excel tem uma opçao de traçar pela media gostaria de saber se alguém tem alguma soluçao

    Veja pagina 26 deste manual

    http://delphi.borlandforum.com/impboard/at...93/TeeChart.pdf

    Componente que exibe gráficos de funções matemáticas

    http://geocities.yahoo.com.br/admsqlbr/arq...s/plotchart.zip

    OBS: Lembre-se que o gráfico de curvas depende da sua equação matemática para obter os pontos do gráfico

    abraço

    Bom dia Amigo

    Eu sei da equaçao

    porem como é um DBChart os dados já foram calculados e enviados para o banco

    ai o dbchart busca os dados do banco para traçar o grafico

    neste exempo que você me mando ele calcula e jga os valores ponto a ponto em um chart

    abraços

  11. Boa Tarde pessoal

    estou com um problema

    fiz um grafico usando o componente dbchart

    esta funcionando bem mais no meu caso necessito que ele faça curvas

    ele ate faz mais quando os dados estaum mais ou menos na media

    se houver uma diferença ele traça por pontos ou sejah não fica totalmente curva

    o excel tem uma opçao de traçar pela media gostaria de saber se alguém tem alguma soluçao

    muito obrigado

    abraços

  12. Bom Bia Pessoal

    estou com um problema e gostaria de saber se você por favor podem me ajudar

    estou fazendo um relatorio em QR 2007 que precisa fazer o seguinte

    um title cm o nome do cliente logo da empresa etc... e um cabelario de uma tabela

    depois um detail com dados que vem do banco de dados que iram repetir para formar a tabela

    agora vem o problema

    preciso fazer outra tabela

    mais não tem como eu colocar outro band para fazer o cabeçario e depois mais um detail para faze o restante da tabela

    se alguém cm mais experiencia poder me ajudar

    se quizer mais explicaçoes o meu email é danielrgoes@gmail.com

    abraços

  13. Bom Dia Pessoal

    esstou com um problema e gostaria de pedir a ajuda de vocês

    é o seguinte eu fiz um grafico no DBChart agora preciso imprimir ele no QuickReport

    porque esse grafico vai em um relatorio

    já li em alguns sites falaram para utilizar o componente QRDBChart mais esse componente não

    existe no QR para delphi 2007

    alguém sabe desse componente para 2007

    ou como um imprimir?

    desde já agradeço

    abraços

  14. Bom Dia pessoal

    estou com problemas com o DBChart

    eu criei um DBChart (tipo:lines) com duas series para que exiba duas linhas variando valores diferentes no eixo Y

    porem eu gostaria de que quando eu altera-se o maximo valor do eixo Y da series1 ele não mexe-se na series2 ou seja o grafico fica-se proporcional

    eu tenho esse grafico no excel e o excel deixa eu criar 2 eixos Y e alterar os valores max e min de forma que fiquem diferentes

    queria saber se tem como fazer isso no delphi

    Abraços

  15. Boa Noite Pessoal

    sou novo por aqui

    gostaria de saber se alguém pode me ajudar

    estou desenvolvendo um sistema que possue varios TEdit

    e estou tratanto os eventos deles

    mais tem um problema

    existe um Tedit que preenche sozinho com numeros quando eu dou tab de outro edit

    mais quando ele acessa o Tedit ele seleciona a palavra inteira entaum se o usuario não apertar a tecla pra frente ele vai apagar o que esta escrito para sob escrever

    eu queria que quando acessase esse Tedit ele já coloca-se o cursor no final da palavra

    Obrigado

×
×
  • Criar Novo...