[delphi-br] QuickReport
É possivel no Quick Report, em um mesmo relatório, na 1a pagina a pagina ter uma configuracao (altura cabecalho e rodape) e na 2a pagina ter outra ? Se for alguem pode me ajudar como fazer isso ? 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QuickReport 4.0 - HTML
Alguem conhece uma ferramenta boa para exportar relatorios do QuickREport 4.0 para formato HTML ? Estou usando o HTMLFilter do proprio QuickREport e não está ficando 100% !! [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QuickReport 4.0 HELP
Alguem tem o arquivo de ajuda do QuickReport 4.0 ? Ou sabe aonde posso baixar ? 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QuickReport 4.0 ?
Alguem sabe se tem versão TRIAL para Download do QuickReport 4.0 ?? [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] QuickReport 4.0 ?
já olhei lá...so que so tem pago...queria uma versao free ou trial ! - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Monday, September 26, 2005 1:58 PM Subject: RES: [delphi-br] QuickReport 4.0 ? da uma olhada em www.qusoft.com []'s Andreano Lanusse System Engineer Borland Latin America Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - www.borland.com.br blocked::http://www.borland.com.br/ A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de MOITA Enviada em: segunda-feira, 26 de setembro de 2005 11:20 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] QuickReport 4.0 ? Alguem sabe se tem versão TRIAL para Download do QuickReport 4.0 ?? [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_mp3pioneer_v300.gif 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: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Quick Report e HTML
Estou tentando exportar meu relatorio do Quick Report para HTML mas fica tudo
diferente e não está completo. Estou usando a sintese:
QR.ExportToFilter(TQRHTMLDocumentFilter.Create('c:\teste2.html'))
Teria alguma outra maneira de o relatorio ficar melhor ?
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi 7 - Acess e ADO e esta dando o seguinte erro no Windows 2003:
Paulo, Minha base não é tao grande assim deve ter uns 5 Mb. O problema deve ser com o HD mesmo, pois no servidor tem dois HD, o C: e o F: este programa estava no F: e está dando esse erro, mas quando coloco no C: NÃO gera o erro !! Vc sabe o que pode ser ? - Original Message - From: dprogrammer To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 02, 2005 1:45 AM Subject: Re: [delphi-br] Delphi 7 - Acess e ADO e esta dando o seguinte erro no Windows 2003: HI, vi um problema assim, mas foi quando eu precisei pegar uma base com 8GB levei um HD e não tava conseguindo copiar, dizia que num tinha espaço suficiente fui tentar compactar direcionando para o hd, aí foi que apareceu a msg dizendo que num suportava arquivo com mais de 4GB ou seja, caso seu hd num esteja no formato NTFS, pode ser esse o problema Intel + Paulo Alexsandro - Maceió/Alagoas Programador - Delphi/NS Basic http://dprogrammer.cjb.net - Exemplos, Dicas, Etc. Particpante da Casa da Mãe Joana http://www.cdmj.com.br Fórum da Casa da mãe Joana, onde você pode tudo... Se limpar os pés antes de entrar At 21:07 01/06/2005, you wrote: Estou usando um sistema Delphi 7 - Acess e ADO e esta dando o seguinte erro no Windows 2003: Erro: Insufficient disk space File or directory does not exist File: F:\TESTE\_QSQL000.DBF Table does not exist Só que o HD não está cheio e até ontem estava funcionando normal. Testei em outra maquina com WinXP e funciona normalmente! Alguem sabe me ajudar no que pode ser ? Obrigado -- 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br]
Estou usando um sistema Delphi 7 - Acess e ADO e esta dando o seguinte erro no Windows 2003: Erro: Insufficient disk space File or directory does not exist File: F:\TESTE\_QSQL000.DBF Table does not exist Só que o HD não está cheio e até ontem estava funcionando normal. Testei em outra maquina com WinXP e funciona normalmente! Alguem sabe me ajudar no que pode ser ? Obrigado -- 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Qreport o que fazer no D7 ?
SIM existe! Instalando o QuickReport no Delphi7 1.Selecione COMPONENT INSTALL PACKAGES 2.Selecione ADD 3.Selecione o arquivo DCLQRT70.BPL no diretório BIN do Delphi 4.Selecione ABRIR 5.Selecione OK - Original Message - From: delphi6_2005 To: delphi-br@yahoogrupos.com.br Sent: Friday, March 11, 2005 7:37 PM Subject: [delphi-br] Qreport o que fazer no D7 ? Amigos existe QReport para delphi 7 ? Grato Paulo. -- 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Data Servidor
Alguem sabe como posso pegar a data do servidor em um BD Access ? No Firebird utilizo select CURRENT_DATE DATA from Tabela , mas no Access isso não funciona. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Data Servidor
Alguem sabe como pegar a data do servidor com BD Access ? [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] HTML
Sei que a lista não é de HTML, mas se alguem puder ajudar: Como faço para colocar um hiperlink em uma página que faça a mesma coisa que o botão Voltar do Internet Explorer ? Valeu - Original Message - From: info.Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 10, 2005 8:45 AM Subject: [delphi-br] Delphi 5 x Delphi 7 Bom dia a todos. Estou migrando da versão 5 para a versão 7 e gostaria de saber se vai ocasionar algum problema ao instalar a versão 7 e se devo ter algum cuidado especial. PAULO FERNANDES PORTO ALEGRE RS [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] No Seria HD
;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg:= $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer,
BufferSize, @Buffer, BufferSize, cbBytesReturned, nil) then
Exit;
finally
CloseHandle(hDevice);
end;
end
else
begin
// Windows 95 OSR2, Windows 98, Windows ME
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
pInData := PSendCmdInParams(@Buffer);
pOutData := @pInData^.bBuffer;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg:= $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA,
pInData, SizeOf(TSendCmdInParams)-1, pOutData, W9xBufferSize,
cbBytesReturned, nil ) then
Exit;
finally
CloseHandle(hDevice);
end;
end;
with PIdSector(PChar(pOutData)+16)^ do
begin
ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));
SetString(Result,sSerialNumber,SizeOf(sSerialNumber));
end;
end;
Dica de como chamar a função
1) Create this variables:
s : String;
rc : DWORD;
2) on onClick of Event of Button, paste this code
s := GetIdeDiskSerialNumber;
if s='' then
begin
rc := GetLastError;
if rc=0 then
showmessage('Drive IDE don´t suport SMART')
else
showmessage(SysErrorMessage(rc));
end
else
showmessage('Fisical serial number disk is: ' + s);
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: Alosi yarru [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 17 de janeiro de 2005 08:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] No Seria HD
Tem como buscar o ROM do HD?
- Original Message -
From: Rubem Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 15, 2005 9:05 AM
Subject: RES: [delphi-br] No Seria HD
O número de série do volume do HD, sim! O número de série
de fábrica, que fica armazenado na ROM do HD, não!
[]s
-Mensagem original-
De: MOITA [mailto:[EMAIL PROTECTED]
Enviada em: sábado, 15 de janeiro de 2005 08:24
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] No Seria HD
É possivel alterar o numero de serie do HD ?
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens
Re: [delphi-br] data atual
Edit1.Text := DatetoStr(Date) !!! - Original Message - From: ArbSis To: delphi-br@yahoogrupos.com.br Sent: Friday, January 14, 2005 7:22 AM Subject: Re: [delphi-br] data atual É trabalho de Faculdade - Original Message - From: james nascimento [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 12, 2005 4:34 PM Subject: [delphi-br] data atual Como faço para inserir automaticamente a data atual em uma EDIT, quando abrir um form. [EMAIL PROTECTED] - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] TRAY ICON
nid é a variavel que uso e foi declarada em public, veja o nome que vc esta
usando ou utilize assim
public
{ Public declarations }
nid: TNotifyIconData;
- Original Message -
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 3:18 PM
Subject: RES: [delphi-br] TRAY ICON
Ta dando erro na primeira linha, nid
-Mensagem original-
De: MOITA [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 15:08
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] TRAY ICON
Eu tambem tinha esse problema, coloquei o seguinte codigo que resolveu:
procedure TFIcon.FormDestroy(Sender: TObject);
begin
nid.uFlags := 0;
Shell_NotifyIcon (NIM_DELETE, @nid);
end;
- Original Message -
From: Osmar de Souza Júnior
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 1:41 PM
Subject: [delphi-br] TRAY ICON
criei um icone no tray (bandeja) do windows para minha aplicação.
quando encerro a aplicação, o icone não desaparece automaticamente.
ai quando passo o mouse por cima, ele desaparece.
alguem sabe porque ???
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] TRAY ICON
porque vc cancela o sistema com ctrl-alt-del ?
- Original Message -
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 3:56 PM
Subject: RES: [delphi-br] TRAY ICON
Coloquei no form e não funcionou, dei ctrl alt del, cancelei o sistema e o
ícone continuou lá na bandeja.
-Mensagem original-
De: MOITA [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 15:44
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] TRAY ICON
nid é a variavel que uso e foi declarada em public, veja o nome que vc
esta usando ou utilize assim
public
{ Public declarations }
nid: TNotifyIconData;
- Original Message -
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 3:18 PM
Subject: RES: [delphi-br] TRAY ICON
Ta dando erro na primeira linha, nid
-Mensagem original-
De: MOITA [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 15:08
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] TRAY ICON
Eu tambem tinha esse problema, coloquei o seguinte codigo que
resolveu:
procedure TFIcon.FormDestroy(Sender: TObject);
begin
nid.uFlags := 0;
Shell_NotifyIcon (NIM_DELETE, @nid);
end;
- Original Message -
From: Osmar de Souza Júnior
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 1:41 PM
Subject: [delphi-br] TRAY ICON
criei um icone no tray (bandeja) do windows para minha aplicação.
quando encerro a aplicação, o icone não desaparece automaticamente.
ai quando passo o mouse por cima, ele desaparece.
alguem sabe porque ???
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por
Re: [delphi-br] Re: DIAS ÚTEIS
Moacir,
Pelo que entendi, esta funcao retorna True se a data especificada for um
feriado ? Seria isso mesmo ?
- Original Message -
From: Prisma Sistemas - Moacir
To: [EMAIL PROTECTED]
Sent: Wednesday, December 01, 2004 9:50 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Paulo,
Tenho usado esta função a um bom tempo com resultados satisfatórios:
Function Ve_Feriado(dData : TDateTime=0) : Boolean;
var
nMes : Integer;
y,m,d:Word;
G,I,J,C,H,L: Integer;
E:TDateTime;
dSexta : TDateTime;
dCarnaval : TDateTime;
ano : integer;
const
FERIADOSFIXOS : Array [1..12] of String =('01~', // Jan
'', // Fev
'', // Mar
'21~', // Abr
'01~', // Mai
'', // Jun
'', // Jul
'', // Ago
'07~', // Set
'12~', // Out
'02~15~',// Nov
'25~'); // Dez
Begin
If dData=0 then
Result:=False
else
Begin
Try
nMes :=StrToInt(FormatDateTime('mm',dData));
except
nMes :=0;
end;
If (nMes1) or (nMes12) then
Result:=False
else
Result:=Pos(FormatDateTime('dd',dData),FERIADOSFIXOS[nMes] )0;
end;
// Calcula o Feriado de Carnaval e Sexta-Feira Santa
DecodeDate(dData, Y, M, D);
ano := y;
G := ano mod 19;
C := ano div 100;
H := (C-C div 4-(8*C+13) div 25 + 19*G+15)mod 30;
I := H-(H div 28)*(1-(H div 28)*(29 div(H+1))*((21-G)div 11));
J := (ano + ano div 4 +I+2-C+C div 4) mod 7;
L := I-J;
m := 3+(L+40) div 44;
d := L+28-31*(m div 4);
//y := ano;
E := EncodeDate(y,m,d);
While DayOfWeek(E)1 do
E := E+1;
//--- Sexta-feira Santa
dSexta := E - 2;
//--- Carnaval
dCarnaval := E - 47;
If (dData = dSexta) Or (dData = dCarnaval) then
Result := True;
End;
[ ]´s
Moacir
- Original Message -
From: drummondfilho [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, December 01, 2004 8:59 AM
Subject: [delphi-br] Re: DIAS ÚTEIS
Gostaria de ajudar a montar o algoritmo se você puder me passar a
tabela de feriados ficaria muito feliz em poder ajudar.
[]'s
Paulo Drummond Filho
[EMAIL PROTECTED]
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Monitorar Rede
Alguem tem algum sistema que posso me enviar ou indicar que monitore a rede interna de uma empresa, que avise quais maquinas estao on-line/off-line como no messenger ? [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ADO com Win 2003
Estou usando uma aplicacao Delphi 7 + ADO e funciona perfeito em Win98, Win200, Win XP, só que instalei no Win 2003 Server e não funciona, aparece a tela de splash e depois ao inves de entrar no sistema não acontece nada, não da erro ... Alguem tem ideia do que pode ser ? [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Exibir data do sistema no relatório
se for o quickreport porque vc nao usa o QRSysData ? - Original Message - From: er83pet04 To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 11:15 AM Subject: [delphi-br] Exibir data do sistema no relatório Estou querendo exibir no meu relatório a data do sistema. Para fazer isso coloquei: var Present: TDateTime; Year, Month, Day : Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' + IntToStr(Month) + ' de ' + IntToStr(Year); Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004. Como faço para exibir o mês por extenso? Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004. Existe alguma função específica para isso? Obrigada -- 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Envio de email pelo OutLook
Se for no Outloook Express eu tenho uma rotina legal para enviar anexos !
- Original Message -
From: Joubert Rinaldi
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:53 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED] wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
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:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
--
MSN: [EMAIL PROTECTED]
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Re: [delphi-br] Re: Envio de email pelo OutLook
Claro que dá, segue abaixo:
COMO CHAMAR A FUNCTION:
EnviarEMail('De ', 'Para', 'Enviar Arquivo', 'Segue em anexo o arquivo...', seu
arquivo, True)
A FUNCTION:
function EnviarEMail(const De, Para, Assunto, Texto, Arquivo: string; Confirma:
Boolean): Integer;
var
Msg: TMapiMessage;
lpSender, lpRecepient: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
Flags: Cardinal;
begin
// cria propriedades da mensagem
FillChar(Msg, SizeOf(Msg), 0);
with Msg do begin
if (Assunto '') then lpszSubject := PChar(Assunto);
if (Texto '') then lpszNoteText := PChar(Texto);
// remetente
if (De '') then begin
lpSender.ulRecipClass := MAPI_ORIG;
lpSender.lpszName := PChar(De);
lpSender.lpszAddress := PChar(De);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := @lpSender;
end;
// destinatário
if (Para '') then begin
lpRecepient.ulRecipClass := MAPI_TO;
lpRecepient.lpszName := PChar(Para);
lpRecepient.lpszAddress := PChar(Para);
lpRecepient.ulReserved := 0;
lpRecepient.ulEIDSize := 0;
lpRecepient.lpEntryID := nil;
nRecipCount := 1;
lpRecips := @lpRecepient;
end
else
lpRecips := nil;
// arquivo anexo
if (Arquivo = '') then begin
nFileCount := 0;
lpFiles := nil;
end
else begin
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($);
FileAttach.lpszPathName := PChar(Arquivo);
nFileCount := 1;
lpFiles := @FileAttach;
end;
end;
// carrega dll e o método para envio do email
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else begin
try
if Confirma then
Flags := MAPI_DIALOG or MAPI_LOGON_UI
else
Flags := 0;
@SM := GetProcAddress(MAPIModule, 'MAPISendMail');
if @SM nil then
Result := SM(0, Application.Handle, Msg, Flags, 0)
else
Result := 1;
finally
FreeLibrary(MAPIModule);
end;
end;
end;
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- Original Message -
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:28 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Olá,
É possível disponibilizar para o grupo ?
Alexandre
- Original Message -
From: MOITA [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 5:12 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Se for no Outloook Express eu tenho uma rotina legal para enviar anexos !
- Original Message -
From: Joubert Rinaldi
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:53 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED]
wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail
[delphi-br] Dialogs
mudei algumas variaveis da unit dialogs para que no messagedlg os botoes aparecam em portugues, so que as alteracoes que fiz nao funcionam. Como posso fazer para que tenha efeito. Já diz Buil all e Compile all. [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ADO
Use assim:
ADOQuery1.Parameters.ParamValues['pcodes'].value := Edit1.Text;
- Original Message -
From: stainle2003
To: [EMAIL PROTECTED]
Sent: Thursday, October 21, 2004 10:13 AM
Subject: [delphi-br] ADO
ADOQuery1.Close;
ADOQuery1.ParamByName('pcodes').AsString := Edit1.Text;
ADOQuery1.Open;
quando tento fazer a compilação me acusa um erro no Param; nunca
usei ADO estou tentando usar e deu este erro, alguém sabe dizer o que
está errado.
grato
Stainle
--
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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
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:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] BLOB - Pegar Linha a Linha
Tenho um campo BLOB no Firebird 1.5 que foi salvo por um editor RichEdit. A duvida é como posso colocar este campo em um QRRichText ? Nao consegui pegar linha por linha do campo BLOB no Firebird, so consigo a propriedade TEXT que vem todo o texto, e assim não consegui colocar no QRRichText, uma vez que o mesmo usa a expressao: QRRichText1.Lines.Add(texto) ! Por favor, se alguem puder me ajudar. 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Quick Report com BUG ?
Não sei se é o QuickReport ou sou eu que está com BUG. Por favor me ajudem, a questão é a seguinte: Tenho um relatório com o QR e um DetailBand que dentro tem um TQRDBRichText com a proopriedade AutoStrech = True, cada registro do meu BD tem uma altura diferente no campo que está vinculado ao QRDBRichText. Aí que aparece o problema, no 3 registro o QR não verifica se vai caber todo o meu RichText na 1a pagina, e imprimi metada na 1a pagina e a outra metade na 2a pagina. Só que não posso dividir o RichText do mesmo registro. O que eu quero, e não sei se o QR faz isso, é que se não couber o registro inteiro na altura que resta na página, o QR pule de página e comece a imprimir esse registro na proxima pagina. Já tentei de tudo, usando LinkBand, propriedade Height.e NADA Se Alguém já passou por isso ou tem alguma idéia agradeço. Ricardo Moita [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QR + Quebra Pagina
Tenho um DetailBand no relatorio do delphi que imprimi os DBRichText com AutoStrech = TRUE, minha pergunta é se ja imprimiu 3 registros e o 4 registro nao cabera inteiro na pagina, ficando metade na primeira e metade na segunda, como fazer para que o Quick Report verifique se cabe inteiro ou nao, e se nao couber mude de página ??? [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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
