Res: Res: Res: Res: [delphi-br] cursos de delphi (iniciantes) em SP
Valeu Marcelo. Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! De: Marcelo leite_rom...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 12:15:21 Assunto: Res: Res: Res: [delphi-br] cursos de delphi (iniciantes) em SP desculpe a demora para responder hoje ta atribulado o dia. 11-32538121 De: jorge takahashi jorgekenitetakaha...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 13 de Junho de 2010 20:59:03 Assunto: Res: Res: [delphi-br] cursos de delphi (iniciantes) em SP Ola Marcelo, Tens o telefone da TDS ??? Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! De: Marcelo leite_rom...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 22:37:48 Assunto: Res: [delphi-br] cursos de delphi (iniciantes) em SP faz um da TDS somente para win32 40 horas De: Rubens Antunes rubensantu...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 21:22:36 Assunto: Re: [delphi-br] cursos de delphi (iniciantes) em SP Dar uma olhada nos seguintes sites www.devmedia.com.br www.planetadelphi.com.br www.activedelphi.com.br Abraço Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em sex, 11/6/10, jorge takahashi jorgekenitetakaha...@yahoo.com.br escreveu: De: jorge takahashi jorgekenitetakaha...@yahoo.com.br Assunto: [delphi-br] cursos de delphi (iniciantes) em SP Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Junho de 2010, 17:36 Boa tarde pessoal do grupo, Sou novato no grupo (delphi), participo de outros grupos como o COBOL e o UNINFE (NF-E), sou programador cobol já uns 20 e tantos anos e gostaria de aprender o DELPHI, alguem poderia me indicar um curso presencial rápido para iniciante em São Paulo. Grato pela atenção Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] cursos de delphi (iniciantes) em SP
valeu, vou pesquisar. Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! De: Walter Chagas (Bol) wchag...@bol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 9:07:15 Assunto: Re: Res: [delphi-br] cursos de delphi (iniciantes) em SP Já olhou no lista telefonica ou, pelo menos, entrou no site deles []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: jorge takahashi To: delphi-br@yahoogrupos.com.br Sent: Sunday, June 13, 2010 8:59 PM Subject: Res: Res: [delphi-br] cursos de delphi (iniciantes) em SP Ola Marcelo, Tens o telefone da TDS ??? Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! De: Marcelo leite_rom...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 22:37:48 Assunto: Res: [delphi-br] cursos de delphi (iniciantes) em SP faz um da TDS somente para win32 40 horas De: Rubens Antunes rubensantu...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 21:22:36 Assunto: Re: [delphi-br] cursos de delphi (iniciantes) em SP Dar uma olhada nos seguintes sites www.devmedia.com.br www.planetadelphi.com.br www.activedelphi.com.br Abraço Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em sex, 11/6/10, jorge takahashi jorgekenitetakaha...@yahoo.com.br escreveu: De: jorge takahashi jorgekenitetakaha...@yahoo.com.br Assunto: [delphi-br] cursos de delphi (iniciantes) em SP Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Junho de 2010, 17:36 Boa tarde pessoal do grupo, Sou novato no grupo (delphi), participo de outros grupos como o COBOL e o UNINFE (NF-E), sou programador cobol já uns 20 e tantos anos e gostaria de aprender o DELPHI, alguem poderia me indicar um curso presencial rápido para iniciante em São Paulo. Grato pela atenção Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
Tenho um exemplo, só que tem problemas com nomes longos, ele vem com ~
Seria legal o Adrianos postar o exemplo dele., Também vou querer.
Mas segue meu exemplo:
Private
// IDropTarget
function DragEnter(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
function DragOver(grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject;
grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
{-}
{ IDropTarget-Implementierung }
{-}
function TAgentScreen.DragEnter(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult;
begin
dwEffect := DROPEFFECT_COPY;
Result := S_OK;
end;
function TAgentScreen.DragOver(grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult;
begin
dwEffect := DROPEFFECT_COPY;
Result := S_OK;
end;
function TAgentScreen.DragLeave: HResult;
begin
Result := S_OK;
end;
function TAgentScreen.Drop(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult;
var
aFmtEtc: TFORMATETC;
aStgMed: TSTGMEDIUM;
pData: PAnsiChar;
begin
{Make certain the data rendering is available}
if (dataObj = nil) then
raise Exception.Create('IDataObject-Pointer is not valid!');
with aFmtEtc do
begin
cfFormat := CF_TEXT;
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := -1;
tymed := TYMED_HGLOBAL;
end;
if DataObj.QueryGetData(aFmtEtc)= S_OK then
begin
{Get the data}
OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
try
{Lock the global memory handle to get a pointer to the data}
pData := GlobalLock(aStgMed.hGlobal);
{ Replace Text }
SUAFUNCAO(string(pData));
finally
{Finished with the pointer}
GlobalUnlock(aStgMed.hGlobal);
{Free the memory}
ReleaseStgMedium(aStgMed);
end;
Result := S_OK;
end
else
begin
aFmtETC.cfFormat:=RegisterClipboardFormat(CFSTR_FILENAMEA);
if DataObj.QueryGetData(aFmtEtc)= S_OK then
begin
{Get the data}
OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
try
{Lock the global memory handle to get a pointer to the data}
pData := GlobalLock(aStgMed.hGlobal);
{ Replace Text }
OpenFiles(string(pData));
finally
{Finished with the pointer}
GlobalUnlock(aStgMed.hGlobal);
{Free the memory}
ReleaseStgMedium(aStgMed);
end;
Result := S_OK;
end
else
Result:= S_FALSE;
end;
end;
procedure TAgenScreen.onCreate():
begin
{Allow window to accept drop events}
OleInitialize(nil);
OleCheck(RegisterDragDrop(Handle, Self));
end;
2010/6/14 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br
obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me
mandar esse exemplo eu te agradeço, muito obrigado por ter me respondido.
Andre Luiz
De: Adriano Santos asrsan...@gmail.com asrsantos%40gmail.com
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Cc: delphi 1
lista-del...@yahoogrupos.com.brlista-delphi%40yahoogrupos.com.br
Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29
Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um
listbox
André,
Se ninguém responder seu e-mail até a noite, te passo um exemplo. Tenho
isso
no meu server em home-office. Tenho um exemplo bem legal.
--
Adriano Santos
http://twitter.com/asrsantos
www.delphitodelphi.blogspot.com
2010/6/12 Andre Luiz Stivanatto
andreluiz.stivana...@yahoo.com.brandreluiz.stivanatto%40yahoo.com.br
Oi pessoal tudo bem ?
Estou com um projeto aqui que estou montando, tenho um form e um listbox1
,
ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783
arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos
4.783
arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro
do
listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram
listados no listbox de uma vez, é mais rapido do que lever varios minutos
selecionando pelo opendialog que demora muito mais, o que eu quero é um
codigo que permita eu arrastar multiplos arquivos de uma pasta do windows
e
jogar dentro do listbox, como faço esse codigo ?
obrigado pela atenção de todos !
Andre Luiz
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER
Res: Res: [delphi-br] cursos de delphi (iniciantes) em SP
Valeu Adriano. Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! De: Adriano Santos asrsan...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 10:12:14 Assunto: Re: Res: [delphi-br] cursos de delphi (iniciantes) em SP http://www.tds.com.br/ -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/13 jorge takahashi jorgekenitetakaha...@yahoo.com.br Ola Marcelo, Tens o telefone da TDS ??? Um abraço e-mail : jorgekenitetakaha...@yahoo.com.brjorgekenitetakahashi%40yahoo.com.br informatica.ap...@terra.com.brinformatica.apoio%40terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! De: Marcelo leite_rom...@yahoo.com.br leite_romano%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 22:37:48 Assunto: Res: [delphi-br] cursos de delphi (iniciantes) em SP faz um da TDS somente para win32 40 horas De: Rubens Antunes rubensantu...@yahoo.com.brrubensantunes%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 21:22:36 Assunto: Re: [delphi-br] cursos de delphi (iniciantes) em SP Dar uma olhada nos seguintes sites www.devmedia.com.br www.planetadelphi.com.br www.activedelphi.com.br Abraço Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em sex, 11/6/10, jorge takahashi jorgekenitetakaha...@yahoo.com.brjorgekenitetakahashi%40yahoo.com.br escreveu: De: jorge takahashi jorgekenitetakaha...@yahoo.com.brjorgekenitetakahashi%40yahoo.com.br Assunto: [delphi-br] cursos de delphi (iniciantes) em SP Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 11 de Junho de 2010, 17:36 Boa tarde pessoal do grupo, Sou novato no grupo (delphi), participo de outros grupos como o COBOL e o UNINFE (NF-E), sou programador cobol já uns 20 e tantos anos e gostaria de aprender o DELPHI, alguem poderia me indicar um curso presencial rápido para iniciante em São Paulo. Grato pela atenção Um abraço e-mail : jorgekenitetakaha...@yahoo.com.brjorgekenitetakahashi%40yahoo.com.br informatica.ap...@terra.com.br informatica.apoio%40terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [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: Res: [delphi-br] desenvolver um gerador de relatório para mi nha aplicação
HEHEHEH realmente vejo que é bem complicado desenvolver um gerador de relatório. Isso pq eu queria desenvolver algo de nível básico para o usuário. rsrsrs Vou continuar pesquisando, derrepente ter os relatórios já gerador seja a melhor forma por enquanto e no futuro pode até ser viável criar um. Muito obrigado a opinião de todos vocês. Abs, Pedro - Original Message - From: Berdam To: delphi-br@yahoogrupos.com.br Sent: Monday, June 14, 2010 3:30 PM Subject: Res: Res: [delphi-br] desenvolver um gerador de relatório para minha aplicação pedro , o link está fora, existe outro ?.. Eu estava tentando fazer algum gerador em rave, mas o acesso as classes dele são meio complicadas, gostaria de criar as bandas em tempo de execução, mas por enquanto sem sucesso, alguém sabe algum projeto com rave ?? -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 -- De: Vagner Gois vjbgg...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 9:32:58 Assunto: Res: [delphi-br] desenvolver um gerador de relatório para minha aplicação Ola Pedro Eu desenvolvi um gerador assim, com base no QuickReport. Não foi facil, mas o resultado foi extremamente satisfatório. Naturalmente que não da pra comparar com um Crystal da vida... rsrsrsrsrs Mas deu pra suprir as necessidades que eu precisava. Eu utilizo ele como um EXE chamado por aplicações Cobol e tambem embutido num pequeno ERP em Delphi que eu desenvolvo. Se vc quiser dar uma olhada na interface, acesse snt.50webs.org.br Se tiver interesse em adquiri-lo, entre em contato comigo. sds Vagner SNT | IFX [DB, MK, DBS, PLAYER] :: SRB :: SCR :: SBI web :: http://snt.50webs.org msn :: vagner.g...@hotmail.com skype :: vagner.gois De: Pedro de Souza pedros...@yahoo.com.br Para: DelphiBr delphi-br@yahoogrupos.com.br Enviadas: Sábado, 12 de Junho de 2010 0:17:45 Assunto: [delphi-br] desenvolver um gerador de relatório para minha aplicação Boa noite pessoal, eu tenho uma aplicação e gostaria de integrar nela um gerador de relatório. Andei pesquisando na net, mais gostaria de uma luz para desenvolver um. A idéia é que os usuários finais possam gerar seus próprios relatórios. Alguém poderia me dizer pode onde começar a desenolver este projeto? Agradeço a ajuda. Pedro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 9.0.829 / Banco de dados de vírus: 271.1.1/2938 - Data de Lançamento: 06/14/10 15:35:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ler arquivo XML
veja este links .. http://devmedia.com.br/articles/viewcomp.asp?comp=12237 artigo sobre comp. p/ NFe. Site com informações úteis pra quem vai começar a trabalhar com NFe - http://www.caiooliveira.com.br/?p=230 --- Em sex, 11/6/10, Alisson alss...@yahoo.com.br escreveu: De: Alisson alss...@yahoo.com.br Assunto: [delphi-br] Ler arquivo XML Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 11 de Junho de 2010, 17:51 Estou tentando ler um arquivo XML usando o componente XMLTransformProvider. O XML é o arquivo da nota fiscal eletrônica. Eu ligo um clientdataset a um XMLTransformProvider. Dessa maneira eu consigo abrir o cabecalho da nota fiscal, mas não consigo abrir os itens da nota. Alguém sabe como fazer isso? [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]
Res: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
então meu listbox ja esta com essa opção abilitada : AllowMultiSelect pra permitir selecionar múltiplos arquivos é que para abrir 4.783 arquivos que tenho no pc demora muito tempo, porisso preciso de arrrastar os arquivos para dentro do listbox é muito mais facil fazer isso, pois eu abro a pasta que tem os 4.783 arquivos, vou em editar e mando selecionar tudo de uma vez depois, é so aeu arrastar tudo para dentro do listbox. não preciso de ter o memo, so quero o listbox mesmo, e esse codigo é estranho pois não sei qual é a area privada da unit do form1 ? preciso de um codigo mais simples que interage com o listbox, so preciso que o listbox aceite os arquivos em modo arrastar, pois quando tento fazer isso o cursor do mouse aparece o icone circular de negação. você poderia me ver um exemplo mais pratico, ou montar o codigo ai e me mandar, pois estou tentando e não estou conseguindo fazer esse codigo, talvez você consigua pois se deve ter mais experiencia do que eu. eu aprendi programação em delphi pois fiz o colegial + processamento de dados no opção no ano de 2000 que comecei, so que em 2002 cortaram isso do plano das escolas , foi no terceiro ano, portanto esta incompleto meus estudos, mas estou indo pesquisando e vendo exemplos. so que isso que eu quero fazer num programa que renomeia extenções dos arquivos ja consegui fazer, so falta isso para facilitar a minha vida, pois pelo opendialog fica a vida toda para selecionar tudo, se eu conseguir fazer o lisbox permitir o arrastar e soltar então fica muito mais facil. obrigado pela ajuda, mas se der para você me dar uma ajuda com um codigo que interaja sem ter outros componentes dentro do projeto como o memo, so quero o codigo que se interaja com o listbox, pois é so ele quem vou usar. obrigado e agurado retorno de sua resposta. Andre Luiz De: Roni Rodrigo ronirodr...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 19:19:17 Assunto: Re: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox Olá André... não daria pra habilitar a opção AllowMultiSelect pra permitir selecionar múltiplos arquivos? ai vc pode percorrer a lista de arquivos selecionados, adicionando-os... sobre arrastar o arquivo pro form, procurei no google e esse foi um dos primeiros... http://www.planetadelphi.com.br/dica/6768/arrastar-e-soltar-arquivos-sobre-sua-aplica%C3%A7%C3%A3o não testei mas parece funcionar... Em 14/06/2010 17:49, Andre Luiz Stivanatto escreveu: obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me mandar esse exemplo eu te agradeço, muito obrigado por ter me respondido. Andre Luiz De: Adriano Santos asrsan...@gmail.com mailto:asrsantos%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Cc: delphi 1 lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29 Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um listbox André, Se ninguém responder seu e-mail até a noite, te passo um exemplo. Tenho isso no meu server em home-office. Tenho um exemplo bem legal. -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/12 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br mailto:andreluiz.stivanatto%40yahoo.com.br Oi pessoal tudo bem ? Estou com um projeto aqui que estou montando, tenho um form e um listbox1 , ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783 arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos 4.783 arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro do listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram listados no listbox de uma vez, é mais rapido do que lever varios minutos selecionando pelo opendialog que demora muito mais, o que eu quero é um codigo que permita eu arrastar multiplos arquivos de uma pasta do windows e jogar dentro do listbox, como faço esse codigo ? obrigado pela atenção de todos ! Andre Luiz [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] loja virtual
Facilidade de manutenção e reaproveitamento de código não são méritos da Orientação a Objetos, são méritos de um bom projeto, seja ele OO ou estruturado. Um bom programador faz bons projetos em qualquer paradigma, desde que o conheça bem. Agora um excelente programador sabe quando é melhor usar cada paradigma. -- Dirlei Dionísio Novo artigo: O estágio House do bom programador http://MaisQueBomCodigo.blogspot.com Em 14 de junho de 2010 22:42, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: Eu penso sempre no esforço de manutenção e reaproveitamento de código. A programação orientada a objetos oferece mais claramente isso. Não é demerito. Mas é uma economia de esforço. Atte, Ricardo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criação de MAPAS
Colegas, O delphi me possibilita criar mapas com uma certa qualidade? Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criação de MAPAS
o teechart 8 faz isso. procure esse componente. eu baixei aqui e achei muito legal. o problema é q ele é pra geração de gráficos. mas vc pode aproveitar o objeto pra montar seus mapas. boa sorte - Original Message - From: Marcelo Moacir Florindo To: delphi-br@yahoogrupos.com.br ; n...@yahoogrupos.com.br Sent: Tuesday, June 15, 2010 8:57 AM Subject: [delphi-br] Criação de MAPAS Colegas, O delphi me possibilita criar mapas com uma certa qualidade? Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
Opa, Cheguei super tarde em casa. Emergência no serviço. Vi que a galera respondeu. Conseguiu resolver? Abs Adriano Santos +55 (11)8219-5420 http://twitter.com/asrsantos Enviado de meu iPhone Em 14/06/2010, às 17:49, Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.b r escreveu: obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me mandar esse exemplo eu te agradeço, muito obrigado por ter m e respondido. Andre Luiz De: Adriano Santos asrsan...@gmail.com Para: delphi-br@yahoogrupos.com.br Cc: delphi 1 lista-del...@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29 Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um listbox André, Se ninguém responder seu e-mail até a noite, te passo um exemplo. Te nho isso no meu server em home-office. Tenho um exemplo bem legal. -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/12 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br Oi pessoal tudo bem ? Estou com um projeto aqui que estou montando, tenho um form e um listbox1 , ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783 arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos 4.783 arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro do listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram listados no listbox de uma vez, é mais rapido do que lever varios minutos selecionando pelo opendialog que demora muito mais, o que eu quero é um codigo que permita eu arrastar multiplos arquivos de uma pasta do windows e jogar dentro do listbox, como faço esse codigo ? obrigado pela atenção de todos ! Andre Luiz [As partes desta mensagem que não continham texto foram removidas] [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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Configuracao no XP
Pessoal, Desculpem-me pelo OFF, mas procurei na NET e nao achei esta resposta. Tenho em minha maquina o Thunderbird 3 instalado. E meu SO eh o XP. As vezes ele conseguie enviar a mensagem outras nao, nao eh problema no Thunderbird pois estava funcionando (e as vezes ele funciona!). Ele dah erro de TIMED OUT. Mostra a barra de progresso enviando e chega num certo numero e para, nao anda mais. Depois de um bom tempo ele dah o erro de TIMED OUT. O que eu acho é uma configuracao no XP. Nao lembro qual eh, mas jah tive este problema antes e consertei corrigindo um numero no REGEDIT do Windows. Mas nao lembro qual foi. Me parece que era um numero para o tempo de envio dos pacotes (alguma coisa assim). Alguem jah teve este problema ou sabe onde devo mexer no REGEDIT? OBS.: Tem um sistema que analisa o SO e define o melhor numero para esta configuracao. Nao lembro o nome deste sistema tb. Obrigado. MuriloCunha
[delphi-br] Função Explode
Delphi tem alguma função explode nativa? ou vou ter que implementar? por exemplo: A string: str := teste,teste,teste,teste explode(str,','); retorna uma stringlist: teste teste teste tese [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
vlw Antonio, mas seu exemplo não deu certo.
Andre Luiz
De: Antonio Leandro Furstenberger Favero lean...@fave.ro
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 14 de Junho de 2010 19:05:18
Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um
listbox
Tenho um exemplo, só que tem problemas com nomes longos, ele vem com ~
Seria legal o Adrianos postar o exemplo dele., Também vou querer.
Mas segue meu exemplo:
Private
// IDropTarget
function DragEnter(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
function DragOver(grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject;
grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
{-}
{ IDropTarget-Implementierung }
{-}
function TAgentScreen.DragEnter(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult;
begin
dwEffect := DROPEFFECT_COPY;
Result := S_OK;
end;
function TAgentScreen.DragOver(grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult;
begin
dwEffect := DROPEFFECT_COPY;
Result := S_OK;
end;
function TAgentScreen.DragLeave: HResult;
begin
Result := S_OK;
end;
function TAgentScreen.Drop(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint;
var dwEffect: Longint): HResult;
var
aFmtEtc: TFORMATETC;
aStgMed: TSTGMEDIUM;
pData: PAnsiChar;
begin
{Make certain the data rendering is available}
if (dataObj = nil) then
raise Exception.Create('IDataObject-Pointer is not valid!');
with aFmtEtc do
begin
cfFormat := CF_TEXT;
ptd := nil;
dwAspect := DVASPECT_CONTENT;
lindex := -1;
tymed := TYMED_HGLOBAL;
end;
if DataObj.QueryGetData(aFmtEtc)= S_OK then
begin
{Get the data}
OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
try
{Lock the global memory handle to get a pointer to the data}
pData := GlobalLock(aStgMed.hGlobal);
{ Replace Text }
SUAFUNCAO(string(pData));
finally
{Finished with the pointer}
GlobalUnlock(aStgMed.hGlobal);
{Free the memory}
ReleaseStgMedium(aStgMed);
end;
Result := S_OK;
end
else
begin
aFmtETC.cfFormat:=RegisterClipboardFormat(CFSTR_FILENAMEA);
if DataObj.QueryGetData(aFmtEtc)= S_OK then
begin
{Get the data}
OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
try
{Lock the global memory handle to get a pointer to the data}
pData := GlobalLock(aStgMed.hGlobal);
{ Replace Text }
OpenFiles(string(pData));
finally
{Finished with the pointer}
GlobalUnlock(aStgMed.hGlobal);
{Free the memory}
ReleaseStgMedium(aStgMed);
end;
Result := S_OK;
end
else
Result:= S_FALSE;
end;
end;
procedure TAgenScreen.onCreate():
begin
{Allow window to accept drop events}
OleInitialize(nil);
OleCheck(RegisterDragDrop(Handle, Self));
end;
2010/6/14 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br
obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me
mandar esse exemplo eu te agradeço, muito obrigado por ter me respondido.
Andre Luiz
De: Adriano Santos asrsan...@gmail.com asrsantos%40gmail.com
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Cc: delphi 1
lista-del...@yahoogrupos.com.brlista-delphi%40yahoogrupos.com.br
Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29
Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um
listbox
André,
Se ninguém responder seu e-mail até a noite, te passo um exemplo. Tenho
isso
no meu server em home-office. Tenho um exemplo bem legal.
--
Adriano Santos
http://twitter.com/asrsantos
www.delphitodelphi.blogspot.com
2010/6/12 Andre Luiz Stivanatto
andreluiz.stivana...@yahoo.com.brandreluiz.stivanatto%40yahoo.com.br
Oi pessoal tudo bem ?
Estou com um projeto aqui que estou montando, tenho um form e um listbox1
,
ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783
arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos
4.783
arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro
do
listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram
listados no listbox de uma vez, é mais rapido do que lever varios minutos
selecionando pelo opendialog que demora muito mais, o que eu quero é um
codigo que permita eu arrastar multiplos arquivos de uma
Re: [delphi-br] Função Explode
Evaldo, Use esta que adaptei do PHP: function Explode(delimiter:string; source:string) : TStringList; var c : word; begin Result:=TStringList.Create; c:=0; while source'' do begin if Pos(delimiter,source)0 then begin Result.Add(Copy(Source,1,Pos(delimiter,source)-1)); Delete(Source,1,Length(Result[c])+Length(delimiter)); end else begin Result.Add(Source); Source:=''; end; inc(c); end; end; Sucesso ! Moacir Em 15/06/2010 11:55, Evaldo escreveu: Delphi tem alguma função explode nativa? ou vou ter que implementar? por exemplo: A string: str := teste,teste,teste,teste explode(str,','); retorna uma stringlist: teste teste teste tese [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Funç ão Explode
Não tem nativa. Vai ter que implementar.
Exemplo de implementação:
{ Retorna um TStrings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStrings; overload;
begin
Result := TStringList.Create;
Result.Delimiter := sep;
Result.DelimitedText := s;
end;
{ Retorna um array dinâmico de strings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStringDynArray; overload;
var
ls: TStrings;
begin
ls := SplitStr(s, sep);
SetLength(Result, 0);
while ls.Count 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := ls[0];
ls.Delete(0);
end;
end;
Sds.
To: delphi-br@yahoogrupos.com.br
From: evaldoave...@yahoo.com.br
Date: Tue, 15 Jun 2010 07:55:25 -0700
Subject: [delphi-br] Função Explode
Delphi tem alguma função explode nativa?
ou vou ter que implementar?
por exemplo:
A string:
str := teste,teste,teste,teste
explode(str,',');
retorna uma stringlist:
teste
teste
teste
tese
_
O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS
AQUI.
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1catid=1WT.mc_id=1589
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi parou de funcionar com Gmail
Olá Pessoal,
Souberam que alguma mudança no Gmail? Simplesmente uma função que funcionava
parou de funcionar.
Usava a OpenSSL 0.9.8a atualizei ontem para a 1.0 32 bits.
Testamos em Windows XP e Windows 7, 32 e 64bits.
Segue o fonte básico:
procedure TForm1.Button1Click(Sender: TObject);
var
POP: TidPop3;
MailMessage: TidMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
POP := TIdPOP3.Create(nil);
MailMessage := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLHandler := IdSSLIOHandlerSocketOpenSSL1;
with SSLHandler do
begin
Destination := 'pop.gmail.com:995';
Host := 'pop.gmail.com';
Port := 995 ;
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
end;
with POP do
begin
AuthType :=patAPOP;
AutoLogin := True;
Host := 'pop.gmail.com';
Username := '@gmail.com';
POP.IOHandler := SSLHandler;
UseTLS := utUseImplicitTLS;
Password := '';
Port := 995;
end;
try
POP.Connect();
except on E: Exception do
raise Exception.Create('Error Message'+ e.Message);
end;
end;
Obrigado
Leandro Favero
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Função Explode
O próprio strinlist tem uma propriedade, Delimiter. Nela você cita qual o delimitador da string, depois você pega o valores em vObjString[0], vObjString[1], vObjString[N]. Assim: vObjString.Delimiter := ','; vObjString.DelimitedText := 'teste,teste,teste'; a := vObjString[0]; b := vObjString[1]; c := vObjString[2]; Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Evaldo evaldoave...@... escreveu Delphi tem alguma função explode nativa? ou vou ter que implementar? por exemplo: A string: str := teste,teste,teste,teste explode(str,','); retorna uma stringlist: teste teste teste tese
Res: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
oi Adriano ainda não consegui resolver não, se pode me mandar seu codigo de exemplo ? obrigado pela atenção ! Andre Luiz De: Adriano Santos asrsan...@gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Cc: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 15 de Junho de 2010 9:20:10 Assunto: Re: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox Opa, Cheguei super tarde em casa. Emergência no serviço. Vi que a galera respondeu. Conseguiu resolver? Abs Adriano Santos +55 (11)8219-5420 http://twitter.com/asrsantos Enviado de meu iPhone Em 14/06/2010, às 17:49, Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.b r escreveu: obrigado Adriano, até agora ninguém respondeu são 17:48 hs, se você me mandar esse exemplo eu te agradeço, muito obrigado por ter m e respondido. Andre Luiz De: Adriano Santos asrsan...@gmail.com Para: delphi-br@yahoogrupos.com.br Cc: delphi 1 lista-del...@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Junho de 2010 10:25:29 Assunto: Re: [delphi-br] Arrastando arquivos do windows para dentro de um listbox André, Se ninguém responder seu e-mail até a noite, te passo um exemplo. Te nho isso no meu server em home-office. Tenho um exemplo bem legal. -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/12 Andre Luiz Stivanatto andreluiz.stivana...@yahoo.com.br Oi pessoal tudo bem ? Estou com um projeto aqui que estou montando, tenho um form e um listbox1 , ja fiz um botão abrir arquivos com o opendialog1 so que para abrir 4.783 arquivos no listbox1 não é facil, estava pensando em abrir a pasta dos 4.783 arquivos, depois mandar selecionar tudo de uma vez e arrastar para dentro do listbox que esta dentro do meu projeto, ai os 4.783 arquivos ficaram listados no listbox de uma vez, é mais rapido do que lever varios minutos selecionando pelo opendialog que demora muito mais, o que eu quero é um codigo que permita eu arrastar multiplos arquivos de uma pasta do windows e jogar dentro do listbox, como faço esse codigo ? obrigado pela atenção de todos ! Andre Luiz [As partes desta mensagem que não continham texto foram removidas] [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] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Função Explode
Correção na segunda implementação:
function SplitStr(const s: string; sep: Char): TStringDynArray; overload;
var
ls: TStrings;
begin
ls := SplitStr(s, sep);
try
SetLength(Result, 0);
while ls.Count 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := ls[0];
ls.Delete(0);
end;
finally
ls.Free;
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 15 de junho de 2010 11:02
Para: delphi-br
Assunto: RE: [delphi-br] Função Explode
Prioridade: Alta
Não tem nativa. Vai ter que implementar.
Exemplo de implementação:
{ Retorna um TStrings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStrings; overload;
begin
Result := TStringList.Create;
Result.Delimiter := sep;
Result.DelimitedText := s;
end;
{ Retorna um array dinâmico de strings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStringDynArray; overload;
var
ls: TStrings;
begin
ls := SplitStr(s, sep);
SetLength(Result, 0);
while ls.Count 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := ls[0];
ls.Delete(0);
end;
end;
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: evaldoave...@yahoo.com.br mailto:evaldoavelar%40yahoo.com.br
Date: Tue, 15 Jun 2010 07:55:25 -0700
Subject: [delphi-br] Função Explode
Delphi tem alguma função explode nativa?
ou vou ter que implementar?
por exemplo:
A string:
str := teste,teste,teste,teste
explode(str,',');
retorna uma stringlist:
teste
teste
teste
tese
__
O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA
MAIS AQUI.
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.asp
x?tabid=1
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.as
px?tabid=1catid=1WT.mc_id=1589 catid=1WT.mc_id=1589
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Função Explode
Obrigado pessoal, vou ver qual a melhor opção aqui. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ler arquivo XML
Olá Josimar! Você tem algum exemplo de como ler o xml usando o componente TXMLDocument? Eu até consegui resolver o problema. Bastava criar os campos no clientdataset e usar o campo do tipo dataset que era criado para fazer o relacionamento em um clientdataset detalhe. Mas não gostei muito do TXMLTransformProvider porque é necessário criar um arquivo .xtr pra conseguir usá-lo. - Original Message - From: Josimar Zimermann To: delphi-br@yahoogrupos.com.br Sent: Monday, June 14, 2010 8:22 AM Subject: Re: [delphi-br] Ler arquivo XML Olá Alisson! Será que não seria melhor usar um TXMLDocument ?? Falou! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sugestão
Eu uso o IBDac e funciona bem. Meus componentes são criados em tempo de execução no servidor e a criação ficou bem mais rápida que os componentes DbExpress. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi parou de funcionar com Gmail
Boa noite Antonio
tenta trocar
SSLOptions.Method := sslvSSLv2;
por
SSLOptions.Method := sslvSSLv23;
tive um problema parecido com isso um tempo atras e resolveu
espero ter ajudado
- Original Message -
From: Antonio Leandro Furstenberger Favero
To: delphi-br
Sent: Tuesday, June 15, 2010 11:27 AM
Subject: [delphi-br] Delphi parou de funcionar com Gmail
Olá Pessoal,
Souberam que alguma mudança no Gmail? Simplesmente uma função que funcionava
parou de funcionar.
Usava a OpenSSL 0.9.8a atualizei ontem para a 1.0 32 bits.
Testamos em Windows XP e Windows 7, 32 e 64bits.
Segue o fonte básico:
procedure TForm1.Button1Click(Sender: TObject);
var
POP: TidPop3;
MailMessage: TidMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
POP := TIdPOP3.Create(nil);
MailMessage := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLHandler := IdSSLIOHandlerSocketOpenSSL1;
with SSLHandler do
begin
Destination := 'pop.gmail.com:995';
Host := 'pop.gmail.com';
Port := 995 ;
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
end;
with POP do
begin
AuthType :=patAPOP;
AutoLogin := True;
Host := 'pop.gmail.com';
Username := '@gmail.com';
POP.IOHandler := SSLHandler;
UseTLS := utUseImplicitTLS;
Password := '';
Port := 995;
end;
try
POP.Connect();
except on E: Exception do
raise Exception.Create('Error Message'+ e.Message);
end;
end;
Obrigado
Leandro Favero
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi parou de funcionar com Gmail
Olá,
Tive o mesmo problema (o programa funcionava e de um dia para o outro
pifou!!! sem nenhuma alteração no código) e resolvi alterando o valor do
SSLOptions.Method para sslvSSLv3 (SSLOptions.Method := sslvSSLv3).
Não sei se vai funcionar contigo, mas fica a dica.
Abcs,
Robson Barros
Em 15 de junho de 2010 11:27, Antonio Leandro Furstenberger Favero
lean...@fave.ro escreveu:
Olá Pessoal,
Souberam que alguma mudança no Gmail? Simplesmente uma função que
funcionava
parou de funcionar.
Usava a OpenSSL 0.9.8a atualizei ontem para a 1.0 32 bits.
Testamos em Windows XP e Windows 7, 32 e 64bits.
Segue o fonte básico:
procedure TForm1.Button1Click(Sender: TObject);
var
POP: TidPop3;
MailMessage: TidMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
POP := TIdPOP3.Create(nil);
MailMessage := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLHandler := IdSSLIOHandlerSocketOpenSSL1;
with SSLHandler do
begin
Destination := 'pop.gmail.com:995';
Host := 'pop.gmail.com';
Port := 995 ;
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
end;
with POP do
begin
AuthType :=patAPOP;
AutoLogin := True;
Host := 'pop.gmail.com';
Username := '@gmail.com %27%40gmail.com';
POP.IOHandler := SSLHandler;
UseTLS := utUseImplicitTLS;
Password := '';
Port := 995;
end;
try
POP.Connect();
except on E: Exception do
raise Exception.Create('Error Message'+ e.Message);
end;
end;
Obrigado
Leandro Favero
[As partes desta mensagem que não continham texto foram removidas]
[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
