Ir para conteúdo
Fórum CódigoFonte.net

simoesluciano

Membros
  • Total de itens

    9
  • Registro em

  • Última visita

  1. simoesluciano

    Debugar WebService

    Como fazer para debugar um webservice escrito em Delphi? Obrigado.
  2. simoesluciano

    PopupMenu com MDI

    Usando Delphi 7 ocorre o seguinte problema. Um MDIForm com nome Form1 com um PopupMenu. Um botão que chama um MDIChild com nome Form2. Neste Form2 tem um Edit comum. Problema: Quanto é clicado com o botão direito do mouse dentro do Edit que está no Form2 aparece as opções do PopupMenu que está ligado ao Form1. A propriedade PopupMenu do Form2 está em branco. Quando eu usava Delphi 3 isso não ocorria. Ao clicar com o botão direito do mouse aparecia as opções padrões de Edit (Copiar, Selecionar, Colar, Recortar, ....) Obrigado.
  3. Para executar o FireBird 1.5 ou superior é necessário a libstdc++.so.5, mas o Fedora vem com a versão 6. Onde encontrar o pacote contendo essa biblioteca? Já procurei bastante na internet e tem muito gente reclamando desse problema, só que ninguém posta um bendito link para download. Usando: Fedora Core release 3 (Heidelberge) Kernel 2.6.9-1.667smp Obrigado.
  4. simoesluciano

    Imprimir direto na LPT1

    Como imprimir direto na LPT1 via Delphi com Windows XP? Já usei o código abaixo e não funcionou. AssignFile(Arquivo, 'LPT1'); Rewrite(Arquivo); Write(Arquivo, 'TEXTO'); CloseFile(Arquivo); Obrigado.
  5. Usando o código abaixo para imprimir um texto simples em uma impressora matricial. Ao final da impressão é gerado um salto de página. Quero imprimir sem o salto. Usando Delphi 7 com Windows XP. procedure TForm1.Button1Click(Sender: TObject); var Arquivo : TextFile; begin AssignPrn(Arquivo); Rewrite(Arquivo); Write(Arquivo, 'TEXTO'); CloseFile(Arquivo); end;
  6. simoesluciano

    Mailto com arquivo anexo

    Como enviar um arquivo anexo a um e-mail usando o mailto? Obrigado.
  7. Quando uso o componente TQRCompositeReport e adiciono mais de um TQuickReport, a propriedade ReportTitle do TQRCompositeReport não é respeitada. Ou seja, ao executar o Print do TQRCompositeReport o nome do relatório não consta na fila de impressão. Estou usando o Delphi 7 (Build 8.1) e QuickReport Standard 3.5. Obrigado.
  8. Estou enviando e-mail diretamente do Delphi 7 usando os componentes Indy. Quando envio um e-mail sem arquivo anexo o destinatário recebe normalmente o e-mail, mas quando anexo um arquivo, já testei com PDF e TXT, o e-mail não chega ao destino. Estou usando o seguinte código: if FileExists(Nome_Arquivo) then TIdAttachment.Create(IdMsgSend.MessageParts, Nome_Arquivo); with IdMsgSend do begin Organization := Nome_Empresa_Origem; Body.Assign(MMTexto.Lines); From.Address := EMail_Origem; From.Name := Nome_Empresa_Origem; ReplyTo.EMailAddresses := EMail_Origem; Recipients.EMailAddresses := EMail_Destino; { To: header } Subject := 'Assunto' { Subject: header } Priority := mpNormal; { Message Priority } CCList.EMailAddresses := EMail_CC; {CC} ReceiptRecipient.Text := EMail_Origem; end; {authentication settings} SMTP.AuthenticationType := atLogin; {Simple Login} SMTP.Username := EMail_Origem; SMTP.Password := EditSenha.Text; {General setup} SMTP.Host := '192.168.2.1'; SMTP.Port := 25; {now we send the message} SMTP.Connect; try SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end; Obrigado.
  9. Quando uso TQRCompositeReport para unir dois ou mais relatórios e o segundo tem uma TQRBand com a propriedade BandType = rbPageHeader, ou seja, a cada página deveria ser gerado o mesmo título, simplesmente o título só consta da segunda página, do segundo relatório, em diante. O interessante é que as propriedades FirstPageHeader e LastPageHeader estão como True, tanto do QuickReport como do CompositeReport. Desconfio que pode ser o seguinte. Ao final da impressão do QR1 uso o QR1.NewPage para criar uma nova página onde se iniciará a geração do 2º relatório. Mas não consegui outro recurso senão esse do NewPage. É como se a 2ª página ainda fosse parte do QR1 e não a 1ª página do QR2. Se ficar confuso o entendimente podem pedir mais detalhes. Obrigado.
×
×
  • Criar Novo...