[delphi-br] Capturar URL sem os garranchos...
E aí pessoal
A função abaixo captura a url segundo o navegador informado, porém, vem
a URL com o caption da janela e outras parafernalhas :)
Será que há uma opção no RequestData que me traga somente a URL e nada
mais? (Quanto a vir com as aspas tudo bem).
function GetURL(Service: string): String;
var
ClDDE : TDDEClientConv;
temp : PChar;
begin
Result := '';
//create a new DDE Client object
ClDDE := TDDEClientConv.Create( nil );
with ClDDE do
begin
SetLink(Service,'WWW_GetWindowInfo');
temp := RequestData(',,1'); //'0x' (mesma coisa)
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
Edit1.Text := GetURL('Firefox');
ou
Edit1.Text := GetURL('IExplore');
ou
Edit1.Text := GetURL(' Mosaic');
...
Agradeço
Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio.
Re: [delphi-br] Instalação automatizada BDE
BDE é brabo hein? rs ja eskeci q isso existe a muito tempo rs ^_^ -- Att. -- José Benedito Software Developer [EMAIL PROTECTED] +55 19 8116-7826
Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
isso mesmo, vc vai estar comprando os produtos da composição e não o produto final... -- José Benedito Software Developer [EMAIL PROTECTED] +55 19 8116-7826 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
Re: [delphi-br] Componente
Estude o TCollection, mas nao seria melhor usar um clientdataset como vetor de dados? -- José Benedito Software Developer [EMAIL PROTECTED] +55 19 8116-7826 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED]
escreveu
Olá pessoal do grupo.
Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de
excel para o delphi e manipulá-la, tenho como exportar para o
delphi
mais não sei como importar.
Desde já grato.
Márcio
procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
i:Integer;
analise,texto:string;
begin
i:=4;
Excel := CreateOleObject('Excel.Application');
Excel.Visible :=True;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls');
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
while texto '' do
begin
analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13];
if analise 'Reprovado' then
begin
I:=I+1;
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
end
else
begin
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
table1.Insert;
table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1];
table1.Post;
i:=i+1
end;
end;
Excel.WorkBooks.close;
end;
Re: [delphi-br] Delphi-BR Yahoo!
Apoiado em partes, precisa concientizar o pessoal mas nao precisa voltar a ditadura. se o pessoal eskece e nao faz isso que se dane, a idéia é q eu faço e vou disseminar a idéia e nao impor a idéia entende? acho q no final das minhas mensagens a mensagem pra isso ta bom d+... -- José Benedito Software Developer [EMAIL PROTECTED] +55 19 8116-7826 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
Re: [delphi-br] Instalação automatizada B DE
Fabrício... BDE... Uma pergunta camarada!!! Isso é requisição da EMPRESA??? Você está com uma tarefa árdua, e chata, mas vou te dar uma dica... em alguns sites têm um módulo básico de instalação da PDE em um Disquete... entre em contato em PVT, comigo, que vou tentar achar nos meus velhos alfarrábios, para ver se posso te ajudar nesse assunto. Sds Emanuel Coutinho Fabrício | PrismaFive escreveu: Boa tarde senhores! Estou com uma nova missão: desenvolver um programa para instalar automaticamente o BDE em máquinas de clientes, para posteriormente instalar a aplicação. É possível fazer tal procedimento? Grato senhores! Um abraço!
Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Olá Moacir, Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do pão. Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha técnica desses produtos cadastrados na tabela COMPOSICAO. Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na tabela PRODUTOS. Se não consegui ser bem claro, por favor, me diga que explico melhor. Fabio. De: Moacir - GMail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34 Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio. - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Fabinho, As operações de movimentação de estoque se darão nesta ordem: 1) Entrada de INSUMOS por compra - Registra NF de entrada 2) Baixa de INSUMOS para utilização na produção de PRODUTOS (nesta caso pães) - Registra a Requisição Interna de Materiais 3) Baixa de PRODUTOS por venda (neste caso pães) Voce deve movimentar o estoque de INSUMOS quando for produzir os PRODUTOS ACABADOS (ou SEMI-ACABADOS) [ ]´s Moacir Fabinho escreveu: Olá Moacir, Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do pão. Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha técnica desses produtos cadastrados na tabela COMPOSICAO. Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na tabela PRODUTOS. Se não consegui ser bem claro, por favor, me diga que explico melhor. Fabio. De: Moacir - GMail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34 Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio. - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
Olá Marcio! Você pode recuperar os dados utilizando os componentes ADO (ADOConnection e ADOQuery). Você conecta com a planilha e faz a recuperação através de um select. --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED] escreveu Olá pessoal do grupo. Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de excel para o delphi e manipulá-la, tenho como exportar para o delphi mais não sei como importar. Desde já grato. Márcio
[delphi-br] Quando utilizo Rave não consigo encerrar o executável
Moçada estou com o seguinte problema, estou utilizando Delphi 7 + Rave + Interbase e toda vez que com a aplicação rodando eu chamo algum relatório desenvolvido no Rave eu não consigo encerrar a aplicação, visualizo o relatório, fecho o relatório, abro qualquer outro formulário ou relatório porém ao encerrar a aplicação o executável fica garrado na barra de tarefas do Windows e não encerra, se executar o sistema e abrir qualquer formulário sem executar nenhum relatório, ao encerrar a aplicação o executável fecha normalmente. Alguém já viveu algo parecido? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Estou desenvolvendo um componente , onde eu passe as informações dos campos do banco de dados para ele... e ele proprio gere a nota fiscal atraves de Layout que o usuario pode configurar talvez ele não tenha tanta utilidade... mas estou fazendo tambem por aprendizado mesmo ai me deparei com os itens da nota fiscal... não sei o que seria melhor usar um stringGrid... mas ja ou vi dizer em collectionItem... queria a opnião de vcs o que seria melhor.. ?? vlw.. Wesley From: Alisson Sent: Thursday, October 30, 2008 3:01 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Componente Componente de nota fiscal? Como assim? Explique melhor o que você está querendo fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ __ Information from ESET NOD32 Antivirus, version of virus signature database 3568 (20081030) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Método Add do TStringList não adici ona string...
Bom dia a todos...
Tenho uma rotina do tipo Parse String que usa um TStringList para
retornar o resultado. O parse é feito corretamente, mas quando vou
executar a adição da string resultante, meu stringlist permanece vazio!
Eis o código amaldiçoado (graças ao dia das bruxas):
procedure proDividirStringDelimitada(const pStringList: TStringList;
const pStr, pDelimitador: String);
var
rPos, rLargura: Integer;
rParsed, rStr : String;
begin
rLargura := Length(pDelimitador);
rStr := pStr + pDelimitador;
pStringList.BeginUpdate;
try
if Assigned(pStringList) then
pStringList.Clear;
try
while Length(rStr) 0 do
begin
rPos := Pos(pDelimitador, rStr);
rParsed := Copy(rStr, 0, rPos - 1);
pStringList.Add(rParsed) ;
rStr := Copy(rStr, rPos + rLargura, MaxInt);
end;
finally
pStringList.EndUpdate;
end;
except
ShowMessage('Erro!');
end;
end;
Alguém tem alguma idéia do porquê desta maldição?
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---
Re: [delphi-br] Re: Grid no Delphi (é free, onde baixo?)
Olá Ricardo, O Componente não é free! 2008/10/30 Ricardo Cabral [EMAIL PROTECTED] Essa componente é free e onde baixo ? Abraços, Ricardo Cabral --- Em qui, 30/10/08, mds_rs [EMAIL PROTECTED]marcio.meneguzzi%40gmail.com escreveu: De: mds_rs [EMAIL PROTECTED] marcio.meneguzzi%40gmail.com Assunto: [delphi-br] Re: Grid no Delphi Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 30 de Outubro de 2008, 14:04 Ola, Bem, realmente o grid do DevExpress é TUDO DE BOM mesmo, mas agora preciso de umas dicas do pessoal que utiliza este componente.. . Trabalho com Delphi7+dbexpress A minha duvida é a seguinte: Tenho uma tabela nota e uma outra nota_itens Como faço para que ao clicar no sinal de + da nota, a query dos itens seja automaticamente montada ? é possivel fazer isso? Desde já agradeço. --- Em [EMAIL PROTECTED] os.com.br, Coutinho - Yahoo emanuelcoutinho@ ... escreveu Cara... O dbgrid do DevExpress.. . é TUDO DE BOM. Uso Muito... e atende bem demais!!! Sds Gerson Machado escreveu: Eu não sei qual é este método do SAP, mas uso o Grid do DevExpress e com ele dá pra configurar de várias maneiras... Mostre um exemplo, é possivel que eu ja esteja até usando. --- Em ter, 7/10/08, mds_rs marcio.meneguzzi@ ... mailto:marcio. meneguzzi% 40gmail.com escreveu: De: mds_rs marcio.meneguzzi@ ... mailto:marcio. meneguzzi% 40gmail.com Assunto: [delphi-br] Grid no Delphi Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br% 40yahoogrupos. com.br Data: Terça-feira, 7 de Outubro de 2008, 14:55 Olá Gente, Alguém de voces sabe se existe algum componente no delphi que voce consiga usar Grid no mesmo formato que sao usados no SAP/R3? Seriam uma espécie de Drill Down Editáveis e sendo possivel customizar. Obrigado, Márcio Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [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] Instalação automatizada B DE
Outra maneira é usar o Inno Setup, ou o ISTools, fazer uma instalação qualquer, colocando um arquivo qualquer na máquina do cliente, e setando a instalação da BDE, com os Aliases necessários... Já pensou nisso? Assim, vc cria uma instalação para a BDE e depois cria a Instalação do Software propriamente dito!!! Acho que dessa forma vc se dará melhor!!! Sds Emanuel Coutinho Fabrício | PrismaFive escreveu: Boa tarde senhores! Estou com uma nova missão: desenvolver um programa para instalar automaticamente o BDE em máquinas de clientes, para posteriormente instalar a aplicação. É possível fazer tal procedimento? Grato senhores! Um abraço!
Re: [delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
Tem também a opção de abrir a planilha via componente ADO.
Leandro
- Original Message -
From: ajmsombra
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 31, 2008 7:12 AM
Subject: [delphi-br] Re: Resgatar valores de uma planilha de excel para o
delphi.
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED]
escreveu
Olá pessoal do grupo.
Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de
excel para o delphi e manipulá-la, tenho como exportar para o
delphi
mais não sei como importar.
Desde já grato.
Márcio
procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
i:Integer;
analise,texto:string;
begin
i:=4;
Excel := CreateOleObject('Excel.Application');
Excel.Visible :=True;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls');
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
while texto '' do
begin
analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13];
if analise 'Reprovado' then
begin
I:=I+1;
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
end
else
begin
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
table1.Insert;
table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1];
table1.Post;
i:=i+1
end;
end;
Excel.WorkBooks.close;
end;
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] SQL Server - Converter String em DateTime [URGENTE]
Se os dados já estão com 'ruído', nem adianta recorrer a alguma mágica que o SQL engine do SQL Server possa fazer pra vc. Se o dado não está do jeito que a função necessita para efetuar a conversão, não tem jeito! O SQL Server vai bronquear! O máximo q vc pode fazer é checar se o valor é NULL, daí vc poderia usar ISNULL() ou COALESCE() pra resolver a parada. No seu caso, se vc estivesse fazendo um SELECT em uma stored procedure, aí sim seria possível, pq na SP vc poderia codificar o tratamento necessário. No seu lugar, seu eu fosse vc, partiria para o tratamento dos dados na aplicação front-end, ou seja, na sua aplicação Delphi. Usando ClientDataSet, vc poderia criar um campo TDateTime do tipo fkInternalCalc que teria o dado convertido de forma apropriada. Após abrir o ClientDataSet, varreria o mesmo e iria, registro a registro, checando se o valor a ser convertido está coerente com um simples try..except. Se estivesse correto, atribuiria o valor convetido ao novo campo criado. Agora, via SQL pode esquecer! Sem chance! Mão na massa e boa sorte. Sds. To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED] From: [EMAIL PROTECTED] Date: Fri, 31 Oct 2008 03:21:36 -0200 Subject: [delphi-br] SQL Server - Converter String em DateTime [URGENTE] boa noite, estou tentando fazer um select que pegue as data em um campo, que por acaso foi criado como varchar(255) e to tentando converte-lo para datetime... o problema é que algumas dessas datas estão incorretas, por exemplo: 01/1//20// gostaria de saber se tem como tratar isso no select, em mostrar null ou algum outro valor quando naum for possivel converter o campo em datetime... to tentando usar o comando * select cast(data_nascimento as datetime) from _geral Server: Msg 242, Level 16, State 3, Line 1 The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.* e o * select convert(datetime, data_nascimento) from _geral Server: Msg 242, Level 16, State 3, Line 1 The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.* Será que não tem como tratar esse erro no proprio select? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
RE: [delphi-br] SQL Server - Converter String em DateTime [URGENTE]
Ah, lembrei-me de uma outra solução! Se informe sobre a função ISDATE() do SQL Server. Ela pode te ajudar. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 31 Oct 2008 12:37:33 + Subject: RE: [delphi-br] SQL Server - Converter String em DateTime [URGENTE] Se os dados já estão com 'ruído', nem adianta recorrer a alguma mágica que o SQL engine do SQL Server possa fazer pra vc. Se o dado não está do jeito que a função necessita para efetuar a conversão, não tem jeito! O SQL Server vai bronquear! O máximo q vc pode fazer é checar se o valor é NULL, daí vc poderia usar ISNULL() ou COALESCE() pra resolver a parada. No seu caso, se vc estivesse fazendo um SELECT em uma stored procedure, aí sim seria possível, pq na SP vc poderia codificar o tratamento necessário. No seu lugar, seu eu fosse vc, partiria para o tratamento dos dados na aplicação front-end, ou seja, na sua aplicação Delphi. Usando ClientDataSet, vc poderia criar um campo TDateTime do tipo fkInternalCalc que teria o dado convertido de forma apropriada. Após abrir o ClientDataSet, varreria o mesmo e iria, registro a registro, checando se o valor a ser convertido está coerente com um simples try..except. Se estivesse correto, atribuiria o valor convetido ao novo campo criado. Agora, via SQL pode esquecer! Sem chance! Mão na massa e boa sorte. Sds. To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED] From: [EMAIL PROTECTED] Date: Fri, 31 Oct 2008 03:21:36 -0200 Subject: [delphi-br] SQL Server - Converter String em DateTime [URGENTE] boa noite, estou tentando fazer um select que pegue as data em um campo, que por acaso foi criado como varchar(255) e to tentando converte-lo para datetime... o problema é que algumas dessas datas estão incorretas, por exemplo: 01/1//20// gostaria de saber se tem como tratar isso no select, em mostrar null ou algum outro valor quando naum for possivel converter o campo em datetime... to tentando usar o comando * select cast(data_nascimento as datetime) from _geral Server: Msg 242, Level 16, State 3, Line 1 The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.* e o * select convert(datetime, data_nascimento) from _geral Server: Msg 242, Level 16, State 3, Line 1 The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.* Será que não tem como tratar esse erro no proprio select? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Componente
TCollection e TCollectionItens são bem simples de usar. O TDBGrid os usa para criação de colunas. Na própria VCL tem vários exemplos de como usa-lo, vide, por exemplo o fonte do TDBGrid. 2008/10/31 JB [EMAIL PROTECTED] Estude o TCollection, mas nao seria melhor usar um clientdataset como vetor de dados? -- José Benedito Software Developer [EMAIL PROTECTED] +55 19 8116-7826 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Colega... deixa eu pegar o bonde andando... Você tem duas instâncias diferentes... uma é fabricar o pão... na minha opinião, aí vc deveria dar baixa na farinha... e a outra é a venda do pão... nela então você daria baixa do pão... fazer as duas coisas deixa um gap, de não baixar a farinha caso uma parte do pão não seja vendida!!! Algumas fábricas de pão mandam parte dos pães não vendidos para virarem torradas, e aí já é um outro produto Pense nisso!!! Sds Emanuel Coutinho Fabinho escreveu: Olá Moacir, Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do pão. Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha técnica desses produtos cadastrados na tabela COMPOSICAO. Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na tabela PRODUTOS. Se não consegui ser bem claro, por favor, me diga que explico melhor. Fabio. De: Moacir - GMail [EMAIL PROTECTED] mailto:prismars%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34 Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS Fabio, Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ?? Acredito que voce deva estar comprando farinha, leite, etc e depois produzindo o pão, correto ? Se este for o caso voce deve dar entrada dos insumos para fabricação do pão e ao produzi-lo dar baixa dos insumos utilizados. [ ]´s Moacir Fabio R Cardoso escreveu: Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio. - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
http://www.devmedia.com.br/articles/viewcomp.asp?comp=555 -- José Benedito Software Developer [EMAIL PROTECTED] +55 19 8116-7826 Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 2008/10/31 Daniel Bastos [EMAIL PROTECTED]: TCollection e TCollectionItens são bem simples de usar. O TDBGrid os usa para criação de colunas. Na própria VCL tem vários exemplos de como usa-lo, vide, por exemplo o fonte do TDBGrid.
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Olá Coutinho,
Sim, é isso que eu quis dizer, conforme você falou e o Moacir também. Só
que quero controlar a baixa dos insumos por trigger. O problema é que
não sei fazer tal trigger.
abraço,
Fabio.
Coutinho - Yahoo escreveu:
Colega... deixa eu pegar o bonde andando...
Você tem duas instâncias diferentes...
uma é fabricar o pão... na minha opinião, aí vc deveria dar baixa na
farinha...
e a outra é a venda do pão... nela então você daria baixa do pão...
fazer as duas coisas deixa um gap, de não baixar a farinha caso uma
parte do pão não seja vendida!!!
Algumas fábricas de pão mandam parte dos pães não vendidos para virarem
torradas, e aí já é um outro produto
Pense nisso!!!
Sds
Emanuel Coutinho
Fabinho escreveu:
Olá Moacir,
Na verdade vou comprar farinha e depois produzir o pão. Comprando
farinha, adiciono seu estoque e depois que eu produzir o pão, dou
baixa no estoque de farinha e aumento o estoque de pão. Quando eu
vender o pão, baixo o estoque do pão.
Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e
a ficha técnica desses produtos cadastrados na tabela COMPOSICAO.
Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando
eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a
quantidade de farinha de que é feito o pão e dar baixa no estoque
dessa farinha, que fica na tabela PRODUTOS.
Se não consegui ser bem claro, por favor, me diga que explico melhor.
Fabio.
De: Moacir - GMail [EMAIL PROTECTED] mailto:prismars%40gmail.com
mailto:prismars%40gmail.com
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34
Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Fabio,
Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ??
Acredito que voce deva estar comprando farinha, leite, etc e depois
produzindo o pão, correto ?
Se este for o caso voce deve dar entrada dos insumos para fabricação do
pão e ao produzi-lo dar baixa dos insumos utilizados.
[ ]´s
Moacir
Fabio R Cardoso escreveu:
Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert
de não
mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda.
Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema:
PRODUTOS
COMPOSICAO
COMPRAS
Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos
produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos
formados por outros produtos, na qual estes estão na tabela
COMPOSICAO.
É assim, por exemplo:
PRODUTOS (código e descrição)
1 - coca cola
2 - pão francês
3 - farinha de trigo
4 - leite
5 - noz moscada
COMPOSICAO (código, código do produto e qtde)
1 - 2 (farinha de trigo) - 20g
2 - 2 (leite) - 1l
Observem que apenas o produto 2 (pão francês) possui registros na
composição, uma vez que ele é feito de outros produtos.
Eu quero criar um processo automático para varrer a composição do
produto comprado e adicionar o estoque dos produtos na composição do
produto.
Espero ter conseguido explicar. Por favor, me ajudem.
Fabio.
- - --
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RJ - Programador Delphi
Consultoria em TI seleciona candidatos para seu quadro de colaboradores: Programador Delphi Experiência mínima de 2 anos em desenvolvimento de sistemas; Sólidos conhecimentos em Delphi e Oracle PL/SQL; Pró-atividade, com foco em resultado; Bom relacionamento inter-pessoal; Aptidão na identificação e compreensão de problemas e oportunidades; Habilidades de comunicação, verbal e escrita; Adaptabilidade a mudanças. Remuneração: a combinar Os profissionais dentro do perfil, por favor, enviar o currículo em Word para o e-mail: [EMAIL PROTECTED]
[delphi-br] [MAF] POST em formulário HTML
Pessoal, existe alguma forma de eu inserir dados numa tabela através de um formulário que está num site? Pois quero inserir dados numa tabela e os provedores somente dao acesso externo aos bancos de dados se você cadastrar o seu IP e na maioria das vezes estarei conectado por IP Dinâmico. Eu poderia tambem enviar um arquivo por FTP e depois rodar uma pagina feita em PHP ou ASP que faria a leitura do arquivo txt e processasse ela. Alguma sugestão??? Att,Marcos A. FerreiraSão Paulo - SP Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o.Agradecemos sua cooperação.This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message.Thank you for your cooperation. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. _ Connect to the next generation of MSN Messenger http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-ussource=wlmailtagline [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Foto de cl iente no cadastro através da WebCam
Silvio, Que créditos que nada, não esquente a cabeça. Não sou dono da verdade. Mas, não entendi o não faria isso nem no auge das maluquices. Por que? Não faria o que? Testar o TCamera no Delphi 2009? Bem, testei do Delphi 5 ao 2007. Não tive tempo ainda para olhar no 2009. O componente é legal. Não é a 8ª maravilha, mas dependendo do que precisa funciona bem. []s Adriano Santos www.dug-sp.com Silvio Clécio respondeu: Olá pessoal, Opa, não é querendo tirar os créditos do Adriano, eu não faria isso nem no auge da maluques, mas falando em WebCam, no link (http://www.4shared.com/file/59085187/dc5307ad/Webcam.html?dirPwdVerified=4f84753f http://www.4shared.com/file/59085187/dc5307ad/Webcam.html?dirPwdVerified=4f84753f) tem um componente com demo também.
[delphi-br] Usando Threads
Boa tarde pessoal encontrei um problema ao usar threads, gostaria da sugestão dos colegas, pra esplicar direito, estou colocando abaixo uma serie de passos que utilizei, e em seguida vem a minha pergunta...rsss Tenho 4 variaveis para instanciar threads, como no exemplo. TMinhaThread = class(TThread) private FId : Integer; public procedure Execute; override; property Id : Integer read FId write FId; end; vThread1 : TMinhaThread; vThread2 : TMinhaThread; vThread3 : TMinhaThread; vThread4 : TMinhaThread; ... em determinado momento eu crio estas threads com o suspend e FreeOnTerminate em true, e em seguida faco chamada ao metodo resume vThread1 := TMinhaThread.Create(True); vThread2 := TMinhaThread.Create(True); vThread3 := TMinhaThread.Create(True); vThread4 := TMinhaThread.Create(True); vThread1.Id := 1; vThread2.Id := 2; vThread3.Id := 3; vThread4.Id := 4; vThread1.FreeOnTerminate := True; vThread2.FreeOnTerminate := True; vThread3.FreeOnTerminate := True; vThread4.FreeOnTerminate := True; vThread1.Resume; vThread2.Resume; vThread3.Resume; vThread4.Resume; tomo os devidos cuidados no execute para que verifique e saia do loop caso a thread tenha sido terminada. procedure TMinhaThread.Execute; begin override; ... while... and not Terminated do begin ... end; end; Mas ao fechar o sistema eu estou usando... ShowMessage( IntToStr(vThread1.id)); e esta funcionando. (exibindo a mensagem na tela) Minhas perguntas. Usando o free on terminate, porque não ocorreu um access violation ao chamar thread.id? Isto quer dizer que a thread ainda esta rodando? (veriquei o evento, OnThreadTerminate...e ele esta sendo executado pra cada uma das 4). Porque usando um Assigned(vThread1) por exemploretorna True?(isto no ao fechar o sistema). Desculpe pelo longo texto. Atenc.; Elazar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ERRRO : [0x0015]: Connection Failed - DataBase...
Vc libera a Aplicação e Porta!. Abraços Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] De: Mônica Olveira [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 29 de Outubro de 2008 10:13:45 Assunto: Re: [delphi-br] ERRRO : [0x0015]: Connection Failed - DataBase... Fui no Painel de controle e O FireBird esta rodando. Faço a restrição pelo numero de Porta ou pelo nome da Aplicação? 2008/10/29 Jean Barreiros [EMAIL PROTECTED] com.br Bom Esse erro normalmente acontece quando o serviço do FireBird não está rodando Vá ao Painel de Controle e Verifique se o Serviço Tá Rodando. Sobre o Firewall do windows, não adianta desabilitá-lo, ele continua monitorando o melhor é vc pô o fbserver.exe na lista de restrinções. . . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] com.br jean%40comerciofsa .com.br e-mail: [EMAIL PROTECTED] com delphijean% 40gmail.com _ _ __ De: Mônica Olveira diskavontade5@ gmail.com diskavontade5% 40gmail.com Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br; delphitodelphi@ yahoo.com.. br delphitodelphi% 40yahoo.com. br Enviadas: Terça-feira, 28 de Outubro de 2008 20:22:46 Assunto: [delphi-br] ERRRO : [0x0015]: Connection Failed - DataBase... Mônica http://www.orkut. com.br/Main# Profile.aspx? uid=133807948773 22613685 ERRRO : [0x0015]: Connection Failed - DataBase Server Error: unavailable database Não sei mais o que eu faço. Estou usando a aplicação em modo local. FireBird 2.0 em modo Serviço. O banco esta no diretorio C:\SISTEMAS junto com a aplicação. Já coloquei as dlls (fbclient.dll, midas.dll, dbexpint.dll e dbxint30.dll) no direotrio da aplicação. O FireWall do XP esta DESATIVADO! O que mais pode estar errado! [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail..com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usando Threads
Boa tarde Elazar ! Eu já passei por isso, num caso em que tinha uma thread só p/ atualizar um TLabel em uma janela com mensagem de espera para o usuário. Ao fechar a janela, dava access violation, pois a thread continuava rodando e fazia referência ao TLabel que não existia mais. Para resolver, chamei o método TThread.Terminate e pronto. Creio que é só nesse momento que aThread chamaráo método Free. 2008/10/31 Elazar Dornelles Ceza [EMAIL PROTECTED] Boa tarde pessoal encontrei um problema ao usar threads, gostaria da sugestão dos colegas, pra esplicar direito, estou colocando abaixo uma serie de passos que utilizei, e em seguida vem a minha pergunta...rsss Tenho 4 variaveis para instanciar threads, como no exemplo. TMinhaThread = class(TThread) private FId : Integer; public procedure Execute; override; property Id : Integer read FId write FId; end; vThread1 : TMinhaThread; vThread2 : TMinhaThread; vThread3 : TMinhaThread; vThread4 : TMinhaThread; ... em determinado momento eu crio estas threads com o suspend e FreeOnTerminate em true, e em seguida faco chamada ao metodo resume vThread1 := TMinhaThread.Create(True); vThread2 := TMinhaThread.Create(True); vThread3 := TMinhaThread.Create(True); vThread4 := TMinhaThread.Create(True); vThread1.Id := 1; vThread2.Id := 2; vThread3.Id := 3; vThread4.Id := 4; vThread1.FreeOnTerminate := True; vThread2.FreeOnTerminate := True; vThread3.FreeOnTerminate := True; vThread4.FreeOnTerminate := True; vThread1.Resume; vThread2.Resume; vThread3.Resume; vThread4.Resume; tomo os devidos cuidados no execute para que verifique e saia do loop caso a thread tenha sido terminada. procedure TMinhaThread.Execute; begin override; ... while... and not Terminated do begin ... end; end; Mas ao fechar o sistema eu estou usando... ShowMessage( IntToStr(vThread1.id)); e esta funcionando. (exibindo a mensagem na tela) Minhas perguntas. Usando o free on terminate, porque não ocorreu um access violation ao chamar thread.id? Isto quer dizer que a thread ainda esta rodando? (veriquei o evento, OnThreadTerminate...e ele esta sendo executado pra cada uma das 4). Porque usando um Assigned(vThread1) por exemploretorna True?(isto no ao fechar o sistema). Desculpe pelo longo texto. Atenc.; Elazar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [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] Delphi-BR Yahoo!
Olá pessoal, Pois é, só não espero que este assunto vire polêmica. Enquanto uns não se importam com nada, outros vivem lutando não só para economizar Bytes mas para um planeta melhor, e pensar em quem está no fim da fila, esperando uma oportunidade, isto, se houver, porque pelo acompanhamos nos jornais, vai chegar o dia que vai faltar não só Bytes mas o próprio oxigênio, e qualquer coisa criada pelo homem é extraído da natureza, mesmo assim tem nego que meta a serra numa arvore milenar e não lembra do netos dos outros, acho que não lembra nem de si mesmo, estagnado no tempo e relembrando o passado, coisa que foge indubitavelmente do assunto Vamos ajudar o Yahoo!, que tem ramificações com Vamos lutar por uma planeta melhor!. Lamentavelmente o brasileiro e boa parte da humanidade só quer reparar um erro quando o mesmo já tem se transformado em sarcófago, isso é normal nos mortais, mas quando estudamos não só uma linguagem de programação mais um pouco de filosofia, entendemos a importância deste 'asteróide pequeno que todos chamam de terra'. Eu não participo de nenhuma campanha de ajuda para o planeta, exceto minhas próprias boas ações, mas ficaria lisonjeado em poder participar iniciando de uma simples atitude como a sugerida pelo João, que recebeu comentários ... é uma questão de bom censo. Mas, se minha idéia soou grotesca, peço desculpas, é que a gente só tenta corrigir algo quando somos punidos, não precisando ser de uma forma tão severa como a 'ditadura', que graças Deus não vivi nessa época. É isso, estou aqui para ajudar em todos os sentidos, nem precisei falar quem não tem teto de vidro que atire a primeira pedra, mas falo quem for a favor de através de um gesto simples, ajudar um servido gratuito, e indiretamente ajudar o planeta, levante a mão, corte as partes desnecessárias dos e-mails. E mais uma vez peço desculpas aos moderadores por o assunto fugir do tema programação, é que parei para pensar não só em mim, mas no próximo. Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: JB [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 7:24:50 Assunto: Re: [delphi-br] Delphi-BR Yahoo! Apoiado em partes, precisa concientizar o pessoal mas nao precisa voltar a ditadura. se o pessoal eskece e nao faz isso que se dane, a idéia é q eu faço e vou disseminar a idéia e nao impor a idéia entende? acho q no final das minhas mensagens a mensagem pra isso ta bom d+... Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [ OFF-TOPIC ] - Delphi Prism baseado no VisualStudio?
Que é iso Mônica, morrendo o que. é apenas a versão .net do delphi que usa o Visual Studio, e isso é muito bom. pq significa que pra quem usa .net, não teremos mais probelmas com o atraso de atualizações de compatibilidades do delphi com a versão do frameeork .net, pq até hoje, estavamos sempre uma ou duas versão atraás! . . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] De: Mônica Olveira [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 29 de Outubro de 2008 14:14:08 Assunto: Re: [delphi-br] [ OFF-TOPIC ] - Delphi Prism baseado no VisualStudio? Isto já é um sintoma que o DELPHI esta morrendo!!! :( 2008/10/29 Rafael rafael.adorno@ gmail.com Dê uma olhada no link http://singularsist emas.com. br/blog/2008/ 10/delphi- prism-no- visual-studio- net/ 2008/10/29 Joao Morais [EMAIL PROTECTED] com jcmoraisjr% 40gmail.com 2008/10/29 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. brricardo_engsoft% 40yahoo.com. br ricardo_engsoft% 40yahoo.com. br : Bom dia, Tava dando uma olhada num e-mail de outra lista onde a pessoa citava que o Delphi Prism ( específico para .NET ) teve publicada uma Screen shot do Visual Studio, mas olhando melhor na especificação do produto, está descrito que na verdade o Delphi Prism é uma solução baseada em VisualStudio. Aí pintaram algumas dúvidas: * O Delphi 2007 ou 2008 (na verdade o predecessor direto do Delphi 2009 ) já não tinha uma versão Win32 / .NET? Ou uma somente .NET? * Se tinha, por que criar essa, baseada no VS? Nada contra, mas não vai ficar meio estranho? * Só para confirmar: a linguagem para se escrever os programas no Prism vai ser com base no Object Pascal? É possível usar outro dialeto como C# por exemplo? Página do Delphi Prism: [ http://www.codegear .com/products/ delphi/prism] O Delphi.net foi descontinuado em favor do Delphi Prism. O Delphi Prism é baseado no compilador Oxygen (um Object Pascal for .net) da RemObjects, e é um plugin para VS. O que está faltando agora é sair um Delphi for FPC para gerar código nativo multiplataforma. Alguém duvida? Joao Morais [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ERRRO : [0x0015]: Connection Failed - DataBase...
Que legal, meu post, está limpo, vamos colaborar com o yahoo gente rs :) Seguinte, Mônica, já tive um problema parecido com isso, porém precisamos de mais informações para lhe ajudar. 1) qual a string de conexão (caminho) do banco de dados que vc está colocando ? 2) se a string estiver correta, verifique se vc consegue abrir alguma tabela via programação (pelo delphi) 3) qual componente para conexão ao banco vc está usando ? Leonardo Q [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usando Threads
Boa tarde pelo que entendi você está com threads armazenados em variáveis ne? e tenta acessar uma determinada propriedade dela. até ai normal. só assim que thread terminar, você não pode mais acessar a propriedade pois o objeto foi destruído, e não adianta testar o assigned pois a variável vai ter um endereço informado (endereço não válido), e irá retorna true, sendo que o objeto não existe. O que você precisa fazer? 2008/10/31 Elazar Dornelles Ceza [EMAIL PROTECTED] Boa tarde pessoal encontrei um problema ao usar threads, gostaria da sugestão dos colegas, pra esplicar direito, estou colocando abaixo uma serie de passos que utilizei, e em seguida vem a minha pergunta...rsss Tenho 4 variaveis para instanciar threads, como no exemplo. TMinhaThread = class(TThread) private FId : Integer; public procedure Execute; override; property Id : Integer read FId write FId; end; vThread1 : TMinhaThread; vThread2 : TMinhaThread; vThread3 : TMinhaThread; vThread4 : TMinhaThread; ... em determinado momento eu crio estas threads com o suspend e FreeOnTerminate em true, e em seguida faco chamada ao metodo resume vThread1 := TMinhaThread.Create(True); vThread2 := TMinhaThread.Create(True); vThread3 := TMinhaThread.Create(True); vThread4 := TMinhaThread.Create(True); vThread1.Id := 1; vThread2.Id := 2; vThread3.Id := 3; vThread4.Id := 4; vThread1.FreeOnTerminate := True; vThread2.FreeOnTerminate := True; vThread3.FreeOnTerminate := True; vThread4.FreeOnTerminate := True; vThread1.Resume; vThread2.Resume; vThread3.Resume; vThread4.Resume; tomo os devidos cuidados no execute para que verifique e saia do loop caso a thread tenha sido terminada. procedure TMinhaThread.Execute; begin override; ... while... and not Terminated do begin ... end; end; Mas ao fechar o sistema eu estou usando... ShowMessage( IntToStr(vThread1.id)); e esta funcionando. (exibindo a mensagem na tela) Minhas perguntas. Usando o free on terminate, porque não ocorreu um access violation ao chamar thread.id? Isto quer dizer que a thread ainda esta rodando? (veriquei o evento, OnThreadTerminate...e ele esta sendo executado pra cada uma das 4). Porque usando um Assigned(vThread1) por exemploretorna True?(isto no ao fechar o sistema). Desculpe pelo longo texto. Atenc.; Elazar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: [EMAIL PROTECTED] (GoogleTalk) [EMAIL PROTECTED] (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Foto de cliente no cadastro através da WebCam
Mas, não entendi o não faria isso nem no auge das maluquices. Por que? Não faria o que? Testar o TCamera no Delphi 2009? Não brother, desculpe-me ter expressado mal, era a de tirar seus créditos, mas esquece (Risos) . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi-BR Yahoo!
que nada vc mandou super bem no assunto, e é a opinião de muitos que faz funcionar a concientização ^_^ ah, hehehe o gmail corta as partes irrelevantes das mensagens pra mim, mas tb penso nos colegas :) abraços JB Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 2008/10/31 Silvio Clécio [EMAIL PROTECTED]: Olá pessoal, Pois é, só não espero que este assunto vire polêmica. Enquanto uns não se importam com nada, outros vivem lutando não só para economizar Bytes mas para um planeta melhor, e pensar em quem está no fim da fila, esperando uma oportunidade, isto, se houver, porque pelo acompanhamos nos jornais, vai chegar o dia que vai faltar não só Bytes mas o próprio oxigênio, e qualquer coisa criada pelo homem é extraído da natureza, mesmo assim tem nego que meta a serra numa arvore milenar e não lembra do netos dos outros, acho que não lembra nem de si mesmo, estagnado no tempo e relembrando o passado, coisa que foge indubitavelmente do assunto Vamos ajudar o Yahoo!, que tem ramificações com Vamos lutar por uma planeta melhor!. Lamentavelmente o brasileiro e boa parte da humanidade só quer reparar um erro quando o mesmo já tem se transformado em sarcófago, isso é normal nos mortais, mas quando estudamos não só uma linguagem de programação mais um pouco de filosofia, entendemos a importância deste 'asteróide pequeno que todos chamam de terra'. Eu não participo de nenhuma campanha de ajuda para o planeta, exceto minhas próprias boas ações, mas ficaria lisonjeado em poder participar iniciando de uma simples atitude como a sugerida pelo João, que recebeu comentários ... é uma questão de bom censo. Mas, se minha idéia soou grotesca, peço desculpas, é que a gente só tenta corrigir algo quando somos punidos, não precisando ser de uma forma tão severa como a 'ditadura', que graças Deus não vivi nessa época. É isso, estou aqui para ajudar em todos os sentidos, nem precisei falar quem não tem teto de vidro que atire a primeira pedra, mas falo quem for a favor de através de um gesto simples, ajudar um servido gratuito, e indiretamente ajudar o planeta, levante a mão, corte as partes desnecessárias dos e-mails. E mais uma vez peço desculpas aos moderadores por o assunto fugir do tema programação, é que parei para pensar não só em mim, mas no próximo. Um abraço! Silvio Clécio
Re: [delphi-br] Delphi-BR Yahoo!
Aliás, o serviço de listas do yahoo está muito ruim participo de uma lista da pós graduação que usa o google groups e é 1000% melhor fica aqui a sugestão para migrarmos... []s Alexandre [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
OPA...
AGRADEÇO A TODOS RÁPIDO A RESPOSTA E BEM OBJETIVA, VALEU MESMO.
ABRAÇO A TODOS
--- Em delphi-br@yahoogrupos.com.br, ajmsombra [EMAIL PROTECTED]
escreveu
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz marciomrck@
escreveu
Olá pessoal do grupo.
Gostaria de uma ajudinha, preciso resgatar dados de uma planilha
de
excel para o delphi e manipulá-la, tenho como exportar para o
delphi
mais não sei como importar.
Desde já grato.
Márcio
procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
i:Integer;
analise,texto:string;
begin
i:=4;
Excel := CreateOleObject('Excel.Application');
Excel.Visible :=True;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls');
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
while texto '' do
begin
analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13];
if analise 'Reprovado' then
begin
I:=I+1;
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
end
else
begin
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
table1.Insert;
table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1];
table1.Post;
i:=i+1
end;
end;
Excel.WorkBooks.close;
end;
Re: [delphi-br] [MAF] POST em formulário HTML
Não sei quanto ao ASP, mas PHP dá suporte a webservices. 2008/10/31 Marcos Abreu Ferreira [EMAIL PROTECTED] Pessoal, existe alguma forma de eu inserir dados numa tabela através de um formulário que está num site? Pois quero inserir dados numa tabela e os provedores somente dao acesso externo aos bancos de dados se você cadastrar o seu IP e na maioria das vezes estarei conectado por IP Dinâmico. Eu poderia tambem enviar um arquivo por FTP e depois rodar uma pagina feita em PHP ou ASP que faria a leitura do arquivo txt e processasse ela. Alguma sugestão??? Att,Marcos A. FerreiraSão Paulo - SP Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o.Agradecemos sua cooperação.This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message.Thank you for your cooperation. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. _ Connect to the next generation of MSN Messenger http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-ussource=wlmailtagline [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [ OFF-TOPIC ] - Delphi Prism baseado no VisualStudio?
2008/10/31 Jean Barreiros [EMAIL PROTECTED]: Que é iso Mônica, morrendo o que. é apenas a versão .net do delphi que usa o Visual Studio, e isso é muito bom. pq significa que pra quem usa .net, não teremos mais probelmas com o atraso de atualizações de compatibilidades do delphi com a versão do frameeork .net, pq até hoje, estavamos sempre uma ou duas versão atraás! O que o Delphi vai usar é a IDE do Visual Studio. O compilador por trás do Delphi é o Oxygene, da RemObjects. http://www.remobjects.com/oxygene.aspx Joao Morais
Res: [delphi-br] Delphi-BR Yahoo!
Magina cara, ainda bem que não encarou como bronca, daqui a pouco vão me apelidar de Seu Lunga, ou até de Hitler (Risos). Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! De: JB [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 15:10:27 Assunto: Re: [delphi-br] Delphi-BR Yahoo! que nada vc mandou super bem no assunto, e é a opinião de muitos que faz funcionar a concientização ^_^ ah, hehehe o gmail corta as partes irrelevantes das mensagens pra mim, mas tb penso nos colegas :) abraços JB Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 2008/10/31 Silvio Clécio [EMAIL PROTECTED] com.br: Olá pessoal, Pois é, só não espero que este assunto vire polêmica. Enquanto uns não se importam com nada, outros vivem lutando não só para economizar Bytes mas para um planeta melhor, e pensar em quem está no fim da fila, esperando uma oportunidade, isto, se houver, porque pelo acompanhamos nos jornais, vai chegar o dia que vai faltar não só Bytes mas o próprio oxigênio, e qualquer coisa criada pelo homem é extraído da natureza, mesmo assim tem nego que meta a serra numa arvore milenar e não lembra do netos dos outros, acho que não lembra nem de si mesmo, estagnado no tempo e relembrando o passado, coisa que foge indubitavelmente do assunto Vamos ajudar o Yahoo!, que tem ramificações com Vamos lutar por uma planeta melhor!. Lamentavelmente o brasileiro e boa parte da humanidade só quer reparar um erro quando o mesmo já tem se transformado em sarcófago, isso é normal nos mortais, mas quando estudamos não só uma linguagem de programação mais um pouco de filosofia, entendemos a importância deste 'asteróide pequeno que todos chamam de terra'. Eu não participo de nenhuma campanha de ajuda para o planeta, exceto minhas próprias boas ações, mas ficaria lisonjeado em poder participar iniciando de uma simples atitude como a sugerida pelo João, que recebeu comentários ... é uma questão de bom censo. Mas, se minha idéia soou grotesca, peço desculpas, é que a gente só tenta corrigir algo quando somos punidos, não precisando ser de uma forma tão severa como a 'ditadura', que graças Deus não vivi nessa época. É isso, estou aqui para ajudar em todos os sentidos, nem precisei falar quem não tem teto de vidro que atire a primeira pedra, mas falo quem for a favor de através de um gesto simples, ajudar um servido gratuito, e indiretamente ajudar o planeta, levante a mão, corte as partes desnecessárias dos e-mails. E mais uma vez peço desculpas aos moderadores por o assunto fugir do tema programação, é que parei para pensar não só em mim, mas no próximo. _ _ __ Um abraço! Silvio Clécio Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Usando Threads
Thales. Obrigado. Mas ai é que esta o problema, quando eu uso a variavel apos a thread terminar ainda consigo acessar seus metodos sem o access violations. veja o ShowMessage( IntToStr(vThread.Id));ele me exibe o numero da threade olha que esta linha eu coloquei em um button1, onde eu clico ...be depois de esta thread ter chamado o evento OnTerminate. Eu preciso iniciar um outro processamento assim que estas threads terminaremmas como vou testar..se o assigned me retorna true mesmo as threads estarem terminadas e com o endereco invalido? Afinal...a o FreeOnTerminate libera ou não a thread? Atenc; Elazar De: Thales (Shubacca) - Tebo Software [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Outubro de 2008 15:09:14 Assunto: Re: [delphi-br] Usando Threads Boa tarde pelo que entendi você está com threads armazenados em variáveis ne? e tenta acessar uma determinada propriedade dela. até ai normal. só assim que thread terminar, você não pode mais acessar a propriedade pois o objeto foi destruído, e não adianta testar o assigned pois a variável vai ter um endereço informado (endereço não válido), e irá retorna true, sendo que o objeto não existe. O que você precisa fazer? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Método Add do TStringList não adiciona string...
--- Em delphi-br@yahoogrupos.com.br, Willian Jhonnes L. dos Santos
[EMAIL PROTECTED] escreveu
Bom dia a todos...
Tenho uma rotina do tipo Parse String que usa um TStringList para
retornar o resultado. O parse é feito corretamente, mas quando vou
executar a adição da string resultante, meu stringlist permanece vazio!
Eis o código amaldiçoado (graças ao dia das bruxas):
procedure proDividirStringDelimitada(const pStringList: TStringList;
const pStr, pDelimitador: String);
var
rPos, rLargura: Integer;
rParsed, rStr : String;
begin
rLargura := Length(pDelimitador);
rStr := pStr + pDelimitador;
pStringList.BeginUpdate;
try
if Assigned(pStringList) then
pStringList.Clear;
try
while Length(rStr) 0 do
begin
rPos := Pos(pDelimitador, rStr);
rParsed := Copy(rStr, 0, rPos - 1);
pStringList.Add(rParsed) ;
rStr := Copy(rStr, rPos + rLargura, MaxInt);
end;
finally
pStringList.EndUpdate;
end;
except
ShowMessage('Erro!');
end;
end;
Willian, eu não entendi direito, mas vou dar o palpite, isto se você
já não tiver resolvido. Já tentou com ExtractStrings?
Re: [delphi-br] [MAF] POST em formulário HTML
em formularios GET basta chamar a url passando as variaveis (ja fiz isso usando php e asp) agora nao fiz em formularios com method POST... JB 2008/10/31 Daniel Bastos [EMAIL PROTECTED]: Não sei quanto ao ASP, mas PHP dá suporte a webservices. 2008/10/31 Marcos Abreu Ferreira [EMAIL PROTECTED] Pessoal, existe alguma forma de eu inserir dados numa tabela através de um formulário que está num site? Pois quero inserir dados numa tabela e os provedores somente dao acesso externo aos bancos de dados se você cadastrar o seu IP e na maioria das vezes estarei conectado por IP Dinâmico. Eu poderia tambem enviar um arquivo por FTP e depois rodar uma pagina feita em PHP ou ASP que faria a leitura do arquivo txt e processasse ela. Alguma sugestão??? Att,Marcos A. FerreiraSão Paulo - SP
Res: [delphi-br] Re: Método Add do TStringList n ão adiciona string...
Willian, eu não entendi direito, mas vou dar o palpite, isto se você já não tiver resolvido. Já tentou com ExtractStrings? Cara, pior que já resolvi mesmo... O problema não é o método usado para o parsing, e sim o fato do método Add da classe TStringList não adicionar a string extraída no stringlist. Mudei a rotina de procedure para function, dei como resultado um TStringList criado na própria function e atribuí este TStringList à minha variável pelo método Assign. Não sei pq, mas o Delphi 7 estava se perdendo ao manipular a variável de parâmetro pStringList. De qualquer forma, valeu a resposta... --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usando Threads
2008/10/31 Elazar Dornelles Ceza [EMAIL PROTECTED]: Mas ai é que esta o problema, quando eu uso a variavel apos a thread terminar ainda consigo acessar seus metodos sem o access violations. veja o ShowMessage( IntToStr(vThread.Id));ele me exibe o numero da threade olha que esta linha eu coloquei em um button1, onde eu clico ...be depois de esta thread ter chamado o evento OnTerminate. Eu preciso iniciar um outro processamento assim que estas threads terminarem... mas como vou testar..se o assigned me retorna true mesmo as threads estarem terminadas e com o endereco invalido? Afinal...a o FreeOnTerminate libera ou não a thread? Não tenho lá muita prática com thread, então vou falar um pouco do outro lado da história, ok? Na sua primeira mensagem você falou em uso de assign para um ponteiro da thread. Liberar uma área de memória não faz com que os ponteiros apontem para nil, na verdade estarão apontando para uma área de memória que foi desalocada. Sobre o fato de acessar um atributo da classe, pode ser mera sorte ou você está lendo dados de um endereço desalocado, mas que ainda pertence à aplicação (ou seja, o gerenciador de memória não a devolveu ao SO). Para saber se a área foi realmente desalocada, utilize eventos que te certifique disso, tal como sobrescrever o método FreeInstance. Neste método, faça com que o Id receba outro valor, ou atribua um determinado valor a um flag. Outra idéia é usar um gerenciador de memória em modo debug. Ao liberar memória, ele preenche todo o espaço ocupado pela instância com o padrão $8080, o que ajuda a determinar se você acessou uma área de memória que já foi liberada. Joao Morais
Re: [delphi-br] Capturar URL sem os garranchos...
Experimentei aqui, e no IE não retornou nada. Mas no Firefox, retornou
uma string com três ítems entre aspas e separados por vírgula:
O primeiro é a url, o segundo o título da página e o terceiro veio em branco.
Procure a primeira vírgula e exclua da string tudo que vem após.
2008/10/31 Onjahyr - GMAIL [EMAIL PROTECTED]:
E aí pessoal
A função abaixo captura a url segundo o navegador informado, porém, vem
a URL com o caption da janela e outras parafernalhas :)
Será que há uma opção no RequestData que me traga somente a URL e nada
mais? (Quanto a vir com as aspas tudo bem).
function GetURL(Service: string): String;
var
ClDDE : TDDEClientConv;
temp : PChar;
begin
Result := '';
//create a new DDE Client object
ClDDE := TDDEClientConv.Create( nil );
with ClDDE do
begin
SetLink(Service,'WWW_GetWindowInfo');
temp := RequestData(',,1'); //'0x' (mesma coisa)
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
Edit1.Text := GetURL('Firefox');
ou
Edit1.Text := GetURL('IExplore');
ou
Edit1.Text := GetURL(' Mosaic');
...
Agradeço
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
Re: [delphi-br] Instalação automatizada BDE
RETIRADA DA DT-Delphi 2.8
065 - BDE em 1 disquete
Depois que apanhei bastente do BDE, recorri a lista e ninguem consegui me
ajudar ... consegui resolver o problema. E como acredito que outras pessoas
tenham o mesmo problema, resolvi colocar essa dica na lista. Por favor, se
alguem tiver algo a acresentar ou mesmo corrigir, sinta-se a vontade para
compartilhar conosco.
Arquivos Exenciais para o BDE:
EUROPE.BLL
USA.BLL
IDR20009.DLL
IDAPI32.DLL
BLW32.DLL
IDAPI32.CFG --- esse arquivo pode ter qualquer outro nome, desde que seja
configurado no registro.
Drivers de Banco de Dados:
IDPDX32.DLL --- Driver Paradox
IDASCI32.DLL --- Driver ASCII
IDDBAS32.DLL --- Driver DBase
IDODBC32.DLL --- Driver ODBC
O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar. Esses
acima sao apenas alguns, existem varios outros.
O BDE 4.51 + Driver Paradox compactados com o Algoritimo ZIP, ocuparam
aproximadamente 650 Kb.
Entradas no Registro do Win95:
HKEY_LOCAL_MACHINE
SOFTWARE\Borland\Database Engine
DLLPATH - localizacao do BDE (Unidade+Caminho Completo)
CONFIGFILE01 - localizacao do arquivo de configuracao (Unidade+Caminho
Completo+Nome do Arquivo)
SOFTWARE\Borland\BLW32
BLAPIPATH - localizacao do BDE (Unidade+Caminho Completo)
LOCALE_LIB1 - localizacao do arquivo USA.BLL (Unidade+Caminho
Completo+USA.BLL)
LOCALE_LIB2 - localizacao do arquivo EUROPE.BLL (Unidade+Caminho
Completo+EUROPE.BLL)
Segue um pequeno exemplo de como registrar o BDE no Registro do Win95:
begin
Registry.RootKey := HKEY_LOCAL_MACHINE;
Registry.CreateKey('SOFTWARE\Borland\Database Engine');
Registry.OpenKey('SOFTWARE\Borland\Database Engine', False);
Registry.WriteString('DLLPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\');
Registry.WriteString('CONFIGFILE1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\IDAPI32.CFG');
Registry.OpenKey('\', False);
Registry.CreateKey('SOFTWARE\Borland\BLW32');
Registry.OpenKey('SOFTWARE\Borland\BLW32', False);
Registry.WriteString('BLAPIPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\');
Registry.WriteString('LOCALE_LIB1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\USA.BLL');
Registry.WriteString('LOCALE_LIB2', 'C:\ARQUIVOS DE PROGRAMAS\BDE\EUROPE.BLL');
end;
Para compilar esse codigo, sera necessario declarar a Unit Registry.
Como eu disse, esse e um exemplo bem simples. Ele nem mesmo verifica se o BDE
ja esta registrado ou não.
Para criar o Alias atravez do seu instalador, voce pode usar a funcão da api do
BDE chamada DbiAddAlias.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Gerador de Arquivos
Boa tarde, Alguem aqui da lista já fez ou já viu algum gerador de arquivos? Seria =- assim: Cadastrar o layout de um arquivo da caixa economica e o gerador vai fazer o resto sozinho. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Método Add do TStringList não adiciona string...
Olá Willian!
Neste procedimento você tem um parâmetro TStringList do tipo *const*.
Será que o correto não seria utilizar *var *??
Assim você passaria seu StringList por referência!
Abraços!
Willian Jhonnes L. dos Santos escreveu:
Bom dia a todos...
Tenho uma rotina do tipo Parse String que usa um TStringList para
retornar o resultado. O parse é feito corretamente, mas quando vou
executar a adição da string resultante, meu stringlist permanece vazio!
Eis o código amaldiçoado (graças ao dia das bruxas):
procedure proDividirStringDelimitada(const pStringList: TStringList;
const pStr, pDelimitador: String);
var
rPos, rLargura: Integer;
rParsed, rStr : String;
begin
rLargura := Length(pDelimitador);
rStr := pStr + pDelimitador;
pStringList.BeginUpdate;
try
if Assigned(pStringList) then
pStringList.Clear;
try
while Length(rStr) 0 do
begin
rPos := Pos(pDelimitador, rStr);
rParsed := Copy(rStr, 0, rPos - 1);
pStringList.Add(rParsed) ;
rStr := Copy(rStr, rPos + rLargura, MaxInt);
end;
finally
pStringList.EndUpdate;
end;
except
ShowMessage('Erro!');
end;
end;
Alguém tem alguma idéia do porquê desta maldição?
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exporta informação do Delphi 5 para o word2007
Olá,
Sempre tive esta rotina no delphi e sempre funcionou para o word 2003 , mas
como foi instalado o word2007 na maquina ela não esta funcionando corretamente
, ela abre o word mas não faz à alteração que foi passada. Por favor que sober
como resolve esta situação,
desde ja agradeço segue abaixo a rotina.
ADocument = Caminho do documento
SearchString = pesquisar o local onde deve ser alterada
ReplaceString = informação a ser alterada
ReplaceString: string; Flags: TWordReplaceFlags): Boolean;
const wdFindContinue = 1;
wdReplaceOne = 1;
wdReplaceAll = 2;
wdDoNotSaveChanges = 0;
var WordApp: OLEVariant;
begin
Result := False;
if not FileExists(ADocument) then begin
ShowMessage('O Documento '+ADocument+' não foi encontrado!');
Exit;
end;
try
WordApp := CreateOLEObject('Word.Application');
except
on E: Exception do
begin
E.Message := 'Instale o Microsoft Word!';
raise;
end;
end;
try
WordApp.Visible := False;
WordApp.Documents.Open(ADocument);
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := SearchString;
WordApp.Selection.Find.Replacement.Text := ReplaceString;
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
if wrfReplaceAll in Flags then
WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
else
WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
WordApp.ActiveDocument.SaveAs(ADocument);
Result := True;
WordApp.ActiveDocument.Close(wdDoNotSaveChanges);
finally
WordApp.Quit;
WordApp := Unassigned;
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Clube Delphi 100
Caros colegas, Hoje adquiri o exemplar númeor 100 da Clube Delphi e fiquei maravilhado Primeiro com o aumento de R$ 2,00 (mais de 20%). Sei, alguém vai dizer, porque não assina, sai mais barato. Não assino porque não quero. Segundo, ao abrir me deparo com uma propaganda coloridíssima doVisual Studio !!! E a clube Delphi continua em preto e branco. A DevMedia só exsite hoje por causa da Clube Delphi e no entanto foi a única revista que não ganhou cores ao longo desses anos todos. Terceiro, a chamada na capa é: Edição Especial. Mas especial no que? Geralmente uma edição especial vem com mais páginas, mais conteúdono entanto o número de páginas é o mesmo... Bem, fazer o que..ficar aqui ouvindo as criticas dos defensores da CD. Abraços a todos, João Carlos
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
Olá pessoal.
configurei com a planilha em excel via ado, só que na hora de fazer a
coneção ele dá uma mensagem que a tabela externa não está no formato
esperado.
Estou usando Excel 2003 + delphi 7.
Alguem pode me ajudar nesta batalha estou precisando resgatar de uma
planilha inscritos de um vestibular da facu que trabalho e presciso,
mais até agora não consegui fazer esta conecção, sei como exportar
dados mais não vejo meios de importar para o delphi, conseguindo isto
irei armazenar em Firebird.
Grato
Márcio
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED]
escreveu
OPA...
AGRADEÇO A TODOS RÁPIDO A RESPOSTA E BEM OBJETIVA, VALEU MESMO.
ABRAÇO A TODOS
--- Em delphi-br@yahoogrupos.com.br, ajmsombra ajmsombra@
escreveu
--- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz marciomrck@
escreveu
Olá pessoal do grupo.
Gostaria de uma ajudinha, preciso resgatar dados de uma
planilha
de
excel para o delphi e manipulá-la, tenho como exportar para o
delphi
mais não sei como importar.
Desde já grato.
Márcio
procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
i:Integer;
analise,texto:string;
begin
i:=4;
Excel := CreateOleObject('Excel.Application');
Excel.Visible :=True;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls');
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
while texto '' do
begin
analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13];
if analise 'Reprovado' then
begin
I:=I+1;
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
end
else
begin
texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3];
table1.Insert;
table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1];
table1.Post;
i:=i+1
end;
end;
Excel.WorkBooks.close;
end;
Re: [delphi-br] Capturar URL sem os garranchos...
O problema é que uso a virgula como separador, aí que tá, eu queria pegar somente a URL, quanto a retirar as aspas não é problema, mas se eu tirar a virgula a função que trabalha com a URL capturada vai embaralhar tudo Alguém saberia como pegar somente a URL sem o caption, etc No IE, funcionou aqui com a versão 7 trazendo todo o lixo também... vc deve tá usando a versão 6 né? Guionardo Furlan escreveu: Experimentei aqui, e no IE não retornou nada. Mas no Firefox, retornou uma string com três ítems entre aspas e separados por vírgula: O primeiro é a url, o segundo o título da página e o terceiro veio em branco. Procure a primeira vírgula e exclua da string tudo que vem após. .
Re: [delphi-br] Clube Delphi 100
Boa noite. Engraçado... se já postou se queixando de defensores da revista, por que raios postou então Deixa pra lá, por que tirando isso, vc não deixa de ter razão. Se não me engano, da última vez que você mesmo iniciou uma thread critica sobre a revista, também questionei o fato de ser p/b e se não me engano o Adriano Santos me respondeu que era por conta de patrocínio. Que a impressão em cores elevava os custos e etc. São bons argumentos mas sei lá... aceitei meio sem querer aceitar, até pq pra mim ter cores ou não acaba sendo irrelevante. O que importa é conteúdo editorial. E nesse ponto não há muito o que reclamar ( a não ser que vc não suporte ASP.net e PHP ). Pois bem... minha assinatura venceu e acabei renovando. Só o que me chateou foi que essa semana, passeando pelo site da Devmedia ví que parte do acervo está online para assinantes GOLD. Pois bem, lá fui eu pegar algumas matérias de revistas antigas da Java Magazine que me interessavam. E tb estava louco pra ver umas C.D.s que se perderam com o tempo e empréstimos a camaradas que nunca devolvem nada. Deparei-me com o post trancado. Fui ao atendimento on-line e descobri que a minha assinatura não é a GOLD. Mas nunca sequer me foi oferecida essa categoria de assinatura! Tudo bem, questionei o procedimento para migração e descobri que havia uma diferença em $$$. Ok, parcelamento feito, vem a pergunta fatal: a Clube Delphi já possui seu conteúdo on-line? A pergunta foi só pra confirmar o que eu já tinha visto por alto... ainda não. Todo o acervo deles já está on line e justamente do carro chefe, fica de fora? Renovei assim mesmo, paguei a migração assim mesmo. E por que? Gosto da revista e ela já me ajudou MUITO, sem ter cores, sem ter conteúdo online, sem ter um site transado. Mas por ter CONTEÚDO. Fiquei chateado? Sim é claro. Mas pesando tudo que já tive de bom com dicas e artigos adquiridos na revista, acho que o que citei no parágrafo anterior é só um detalhe. Importante, sim, mas apenas um detalhe. Não me considero defendendo a revista, não tenho procuração nem recibo pra isso, mas acho que é sempre importante levar certos detalhes em consideração. E quanto ao aumento de R$ 2,00, logo logo vai aparecer um argumento justificando, é só aguardar. Abraço, Ricardo. +--+ | Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! | +--+ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Método Add do TStringList não adiciona string...
2008/10/31 Josimar [EMAIL PROTECTED]: Olá Willian! Neste procedimento você tem um parâmetro TStringList do tipo *const*. Será que o correto não seria utilizar *var *?? Assim você passaria seu StringList por referência! É irrelevante. Faria diferença se você fosse passar o endereço de outro string list através do parâmetro, mas não faz diferença quando é o conteúdo do mesmo string list que está mudando. O que o Willian publicou está correto, não há explicação científica para não funcionar. Mistério. Joao Morais
Re: Res: Res: [delphi-br] Foto de cliente no cadastro através da WebCam
rsrrs, Sem crise cara. Como mencionei, não sou dono da verdade. O fato de achar que uma solução é ou não melhor que a minha não vai me ofender, nem tirar créditos, nem me deixar chateado. Quê isso...tô sempre precisando de ajuda e querendo aprender mais e mais. Valeu, fica em paz. []s Adriano Santos www.dug-sp.com
Re: [delphi-br] Clube Delphi 100
Bom pessoal, Nosso número de mensagens dia já é enorme e não gostaria de levar a discussão a fundo aqui, pois além de desnecessário acabaremos punidos pelos moderadores. Vamos lá, vou responder apenas essa primeira vez. Na próxima queiram me enviar e-mail direto, tenham certeza que tudo que é comentado aqui é passado direto para a diretoria da DevMedia. Tenho acesso irrestrito na editora. - mensagem original João Carlos - Segundo, ao abrir me deparo com uma propaganda coloridíssima do..Visual Studio !!! E a clube Delphi continua em preto e branco. A DevMedia só exsite hoje por causa da Clube Delphi e no entanto foi a única revista que não ganhou cores ao longo desses anos todos. Bem, isso já foi discutido diversas vezes incluindo no fórum da DevMedia no portal. A Microsoft paga pelo anúncio, ou seja, compra o espaço. Provavelmente é uma exigência deles. Eu trabalhei em gráfica um tempo e sei que é caro imprimir uma revista toda colorida. Portanto, é certo que se a revista fosse colorida seria ainda mais cara. Por que? Patrocínio...todas as demais revistas do grupo recebem patrocínio há um money sendo investido. A ClubeDelphi é a única que não tem patrocínio e sobrevive da assinaturas, venda em bancas, conteúdo on-line. Lembre-se que são mais de 800 vídeo-aulas só de Delphi e afins, artigos, dicas, cursos, vídeos extras, enfim. Muito conteúdo. Terceiro, a chamada na capa é: Edição Especial. Mas especial no que? Caso não tenha notado, completamos 100 edições da ClubeDelphi. São 8 anos de revista. Talvez isso não seja motivo de comemoração pra você, mas pra nós da equipe e certamente para alguns membros mais antigos que acompanharam a evolução dela, também é motivo de muita comemoração e satisfação. - mensagem original Ricardo César - A pergunta foi só pra confirmar o que eu já tinha visto por alto... ainda não. Todo o acervo deles já está on line e justamente do carro chefe, fica de fora? Como mencionei anteriormente são 100 edições com uma média de 8 artigos cada de aproximadamente 50 páginas cada, totalizando aproximadamente: 5000 páginas para digitalizar em PDF. A equipe interna da revista está fazendo esse trabalho de digitalização e em breve teremos todo o conteúdo on-line. A iniciativa de fazer isso, criar o portal Gold é recente. Se tivéssemos pensado nisso desde o início teríamos todo o conteúdo lá. Pra ter uma idéia a SQL Magazine, que possui bem menos edições, foi totalmente digitalizada (todas as edições) em 1 ano e meio quase. Se notar, as edições mais novas de ClubeDelphi já podem ser baixadas on-line. Acesse meu DevSpace por exemplo, meus artigos já estão lá: www.devmedia.com.br/adrianosantos []s Meus contatos todos sabem onde me encontrar. Estou a disposição total da comunidade, todos sabem disso. Adriano Santos www.dug-sp.com Ricardo César Cardoso respondeu: Boa noite. Engraçado... se já postou se queixando de defensores da revista, por que raios postou então Deixa pra lá, por que tirando isso, vc não deixa de ter razão. Se não me engano, da última vez que você mesmo iniciou uma thread critica sobre a revista, também questionei o fato de ser p/b e se não me engano o Adriano Santos me respondeu que era por conta de patrocínio. Que a impressão em cores elevava os custos e etc. São bons argumentos mas sei lá... aceitei meio sem querer aceitar, até pq pra mim ter cores ou não acaba sendo irrelevante. O que importa é conteúdo editorial. E nesse ponto não há muito o que reclamar ( a não ser que vc não suporte ASP.net e PHP ). Pois bem... minha assinatura venceu e acabei renovando. Só o que me chateou foi que essa semana, passeando pelo site da Devmedia ví que parte do acervo está online para assinantes GOLD. Pois bem, lá fui eu pegar algumas matérias de revistas antigas da Java Magazine que me interessavam. E tb estava louco pra ver umas C.D.s que se perderam com o tempo e empréstimos a camaradas que nunca devolvem nada. Deparei-me com o post trancado. Fui ao atendimento on-line e descobri que a minha assinatura não é a GOLD. Mas nunca sequer me foi oferecida essa categoria de assinatura! Tudo bem, questionei o procedimento para migração e descobri que havia uma diferença em $$$. Ok, parcelamento feito, vem a pergunta fatal: a Clube Delphi já possui seu conteúdo on-line? A pergunta foi só pra confirmar o que eu já tinha visto por alto... ainda não. Todo o acervo deles já está on line e justamente do carro chefe, fica de fora? Renovei assim mesmo, paguei a migração assim mesmo. E por que? Gosto da revista e ela já me ajudou MUITO, sem ter cores, sem ter conteúdo online, sem ter um site transado. Mas por ter CONTEÚDO. Fiquei chateado? Sim é claro. Mas pesando tudo que já tive de bom com dicas e artigos adquiridos na revista, acho que o que citei no parágrafo anterior é só um detalhe. Importante, sim, mas apenas um detalhe. Não me considero
