Re: [delphi-br] Fwd: Menu Vertical - TreeView
Tente TreeView.Selected.AbsoluteIndex Leonardo - Original Message - From: tiosambuilder To: delphi-br@yahoogrupos.com.br Sent: Friday, June 15, 2007 1:45 PM Subject: [delphi-br] Fwd: Menu Vertical - TreeView --- Em delphi-br@yahoogrupos.com.br, tiosambuilder [EMAIL PROTECTED] escreveu Olá Pessoal, Estou tentanto fazer um menu vertical utilizando o TreeView. Gostaria de saber como posso identificar um nó pelo número e não pelo texto (TreeView.Selected.Text). Caso alguém tenha uma opção mais prática para desenvolver um menu vertical neste estilo, eu agradeço a ajuda. Cícero Fim da mensagem encaminhada --- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.17/850 - Release Date: 15/6/2007 11:31 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2007. Como saber se é Pro ou Ent ?
O interessante, que eu baixei depois que saiu o Update 1, e mesmo assim nada... estranho... mas tem como eu ver se é Ent ou Pro, no proprio delphi? []s Em 15/06/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Baixa novamente, dai ele ja vai ta com o Update1 e todo certinho pra vc testar. o trial é enterprise. Em 15/06/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com escreveu: Olá amigos, baixei o Delphi 2007 Trial... mas até o momento continuo com o problema de não ter o DataSnap... como faço para saber se o Delphi 2007 é Enterprise ou Professional? []s -- _ Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Stored Procedure e DbGrid - Ta Quase
eu estou com o Delphi 7 e Firebird 1.5 utilizando Query do dbexpress
[delphi-br] Visulaizar Apresentação do Po wer Point no Delphi
Buenas! Preciso fazer um programa que mostre uma apresentação feita no Power Point. A apresentação precisa ser visualizada em uam janela do programa... Alguém teria alguma dica de como fazer isto? Tentei usar os componentes da paleta Serves (PowerPointAplication e outras), mas não obtive sucesso. Um bom final de semana a todos! ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
RES: RES: [Spam] [delphi-br] DSPack
Faça da seguinte forma: Coloque junto c/ o componente um TImage. Altere o nome p/ FOTO. Vou supor o nome do componente de captura c/ sendo CAMERA. Faça as seguintes Declarações na sua seção uses da sua unit: JPEG,CLIPBR Coloque o seguinte código no botão: Procedure TForm.Button1.. Var vBmp : TBitMap; vJpeg : TJPegImage; Begin Try vBmp:=TBitMap.Create; vJPeg:=TJPegImage.Create; Camera.CopyToClipBoard; //Aqui pode variar de componente p/ componente vBmp.LoadFromClipBoard(cf_Bitmap,ClipBoard.GetAsHandle(cf_Bitmap),0); vJPeg.Assign(vBmp); Foto.Picture.Assign(vJPeg); Finally vBMP.Free; vJPeg.Free; End; End; Desta forma vc pode pegar um ScreenShot da câmera. O TImage usei apenas p/ exemplo. Através deste exemplo vc pode adaptar da maneira q achar melhor. Espero q possa ajudá-lo. Abs! Valdir -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de blcksun954 Enviada em: sexta-feira, 15 de junho de 2007 18:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [Spam] [delphi-br] DSPack Já conheço ele. O problema é que preciso poder capturar um screen shot da câmera quando o usuário clicar em um botão, e não achei como fazer isso com o componente da JEDI. O DSPack eu sei que faz isso, mas não sei nem o básico dele, ainda estou tentando entender os exemplos, mas tá dificil. --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Valdir [EMAIL PROTECTED] escreveu Só serve este? Eu uso um componente da JEDI Library que além de ser muito bom e fácil de usar tem também os exemplos. Abs Valdir _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=fastbyte_l=1,1181944228 .22442.9092.camenana.hst.terra.com.br,15870,Des15,Des15 _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 15/06/2007 / Versão: 5.1.00/5054 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Como dar ping em um Site?
Utilize a classe open-source Synapse (http://synapse.ararat.cz/), ela tem a unit denominada pingsend, que faz exatamente o que você está precisando. Acesse este outro link para ver como funciona a função PingHost (http://synapse.ararat.cz/docs/help/index.html). Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de crassh_over Enviada em: sexta-feira, 15 de junho de 2007 16:02 Para: delphi-br@yahoogrupos.com.br Assunto: [SPAM] [delphi-br] Re: Como dar ping em um Site? --- Em delphi-br@yahoogrupos.com.br, Gabriel Herdt [EMAIL PROTECTED] escreveu Amigos bruxos do delphi, Vocês por acaso sabem como dar um ping em um site e pegar o retorno, com finalidade de saber se o site esta online? Utilizo Delhi 2005 eu utilizaria o componente da barra Indy IdIcmpClient, essa é do Delphi 7, não sei se tem no Delphi 2005 mas provavelmente tem como instalar, procure pelo Pacote Indy 7 ae é só digitar IdIcmpClient.host:= edit.text; IdIcmpClient.ping; sendo q edit.text vc pode colocar o ip ou o endereço..senaum me engano da...ae vc tem q pesquisar sobre o retorno do ping pois naum me lembro bem...
Re: RES: RES: [Spam] [delphi-br] DSPack
Na verdade não ajuda, porque o problema era justamente o componente
pra captura, mas isso resolvi alguns minutos atrás, quando achei um
jeito de fazer a captura com o componente da JEDI, coisa que não
achei que era possível.
Caso interesse a alguém:
Em um botão coloque o seguinte:
begin
JvAVICapture1.Connect(0);
JvAVICapture1.Previewing := True;
end;
para conectar a primeira camera disponível e em outro botão:
begin
JvAVICapture1.CaptureFrame;
JvAvicapture1.ApplyCaptureSettings;
JvAViCApture1.SaveDIB('c:/bmp.bmp');
JvAVICapture1.connect(-1);
end;
para capturar em um arquivo bmp. Daí basta carregar onde quiser.
--- Em delphi-br@yahoogrupos.com.br, Valdir Sola [EMAIL PROTECTED]
escreveu
Faça da seguinte forma:
Coloque junto c/ o componente um TImage. Altere o nome p/ FOTO.
Vou supor o nome do componente de captura c/ sendo CAMERA.
Faça as seguintes Declarações na sua seção uses da sua unit:
JPEG,CLIPBR
...
Desta forma vc pode pegar um ScreenShot da câmera. O TImage usei
apenas
p/ exemplo. Através deste exemplo vc pode adaptar da maneira q achar
melhor.
Espero q possa ajudá-lo.
Abs!
Valdir
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED]
Em nome de blcksun954
Enviada em: sexta-feira, 15 de junho de 2007 18:49
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [Spam] [delphi-br] DSPack
Já conheço ele. O problema é que preciso poder capturar um screen
shot da câmera quando o usuário clicar em um botão, e não achei
como
fazer isso com o componente da JEDI. O DSPack eu sei que faz isso,
mas não sei nem o básico dele, ainda estou tentando entender os
exemplos, mas tá dificil.
--- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br, Valdir fastbyte@ escreveu
Só serve este? Eu uso um componente da JEDI Library que além de
ser
muito
bom e fácil de usar tem também os exemplos.
Abs
Valdir
_
E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
http://mail.terra.com.br/cgi-bin/
imail.cgi?+_u=fastbyte_l=1,1181944228
.22442.9092.camenana.hst.terra.com.br,15870,Des15,Des15
_
Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 15/06/2007 / Versão:
5.1.00/5054
Proteja o seu e-mail Terra: http://mail.terra.com.br/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Como dar ping em um Site?
mas o ping só verifica se o ip é alcançável... Para saber se um site está no ar, tem que usar o dns para saber se existe a URL e fazer uma chamada http 'GET na url para ver se retorna alguma coisa... Também pode tentar abrir a porta 80 da url com o telnet... se conectar é porque está aberta... Bai! omar - Original Message - From: crassh_over To: delphi-br@yahoogrupos.com.br Sent: Friday, June 15, 2007 8:02 PM Subject: [delphi-br] Re: Como dar ping em um Site? --- Em delphi-br@yahoogrupos.com.br, Gabriel Herdt [EMAIL PROTECTED] escreveu Amigos bruxos do delphi, Vocês por acaso sabem como dar um ping em um site e pegar o retorno, com finalidade de saber se o site esta online? Utilizo Delhi 2005 eu utilizaria o componente da barra Indy IdIcmpClient, essa é do Delphi 7, não sei se tem no Delphi 2005 mas provavelmente tem como instalar, procure pelo Pacote Indy 7 ae é só digitar IdIcmpClient.host:= edit.text; IdIcmpClient.ping; sendo q edit.text vc pode colocar o ip ou o endereço..senaum me engano da...ae vc tem q pesquisar sobre o retorno do ping pois naum me lembro bem... __ Informação do NOD32 IMON 2334 (20070615) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Erro ao executar aplicação pelo B DS 2006
Olá Daniel... Já fiz isso... usei o aspnet_regiis.exe i e mesmo assim continuou a mensagem. Também já fui no IIS e já mudei o pool da aplicação para o ASP.NET 1.1 e nada. Existe mais alguma coisa que seria necessário? Pelo que li por aí é só isso. Mas não resolveu. Obrigado. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Daniel augusto braga Enviada em: sexta-feira, 15 de junho de 2007 17:25 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro ao executar aplicação pelo BDS 2006 Claudiney c tem que registar o .net no IIS ou entaum setar a versão do .net que está usando no IIS Em 15/06/07, Claudiney-listas [EMAIL PROTECTED] mailto:claudiney-listas%40n2solutions.com.br escreveu: Boa tarde a todos... Após a atualização para o Windows Vista, que vem com IIS 7, depois de configurar o BDS pra executar como administrador, quando dou F9 para executar uma aplicação asp.net, ele me retorna a seguinte mensagem de erro: The project cannot be debugged because virtual directory WebApplication1 is not configured with ASP.NET http://asp.net/ version 1.1. Use aspnet_regiis.exe to configure the local IIS web server. Antes de iniciar como administrador ele dizia que o IIS não estava configurado, provavelmente por uma questão de direitos para executar. Agora me retorna esta mensagem. Já tentei o aspnet_regiis.exe e nada. Já configurei manualmente a aplicação no iis com o pool do asp.net 1.1 e nada. Pelo IE direto a aplicação executa normalmente. Alguém teve este problema e conseguiu descobrir o que falta? Abraços e obrigado. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br [As partes desta mensagem que não continham texto foram removidas] -- Daniel Augusto Braga Cel: (19) 9128-7589 [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] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap, Remote Data Module, BSS....
Olá Eduardo... Vc trabalha com d2007 win 32, com qual base de dados ? Vale a pena trocar o d7 pelo 2007 ? Vc tá trabalhando com VCL ? ´ []s - Original Message - From: Eduardo Silva dos Santos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 19, 2007 12:53 PM Subject: Re: [delphi-br] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap, Remote Data Module, BSS Olá Fellipe, da uma olhada no Quality Central que vc vai ficar mais feliz ainda, http://qc.codegear.com/wc/qcmain.aspx?p=10 como eu só desenvolvo aplicações client/server com componentes de terceiros com fontes, felizmente o Delphi 2007 pra min ta blz... o BUG que achei onde os itens do comboBox são apagados se o projeto for carregado na abertura do Delphi, da pra ser contornada, de resto.. mais logo logo tudo isso vai ta corrigido, a CodeGear ta engajada (espero..). Em 19/05/07, Fellipe Henrique [EMAIL PROTECTED] escreveu: Ola amigos, gostei muito do Delphi 2007, mas porém estou vendo que será impossível utilizá-lo... não sei se foi a pressa de lança-lo ou outra coisa, mas ele está com muitos problemas, e Bugs.. alguns irritantes... vamos aos que eu consegui detectar: 1) A paleta DataSnap não consta nele, mesmo o pacote estando instalado e tudo correto, a paleta não é exibida, muito menos os componentes. 2) O RemoteDataModule, não consta no New Item do D2007, para faze-lo aparecer, tem que fazer uma mutreta, ir em customize e tals.. 3) O ServerApp do BSS, não é registrado automaticamente, e muito menos, se auto-executa como antigamente. Agora o mais irritante.. 4) Não se pode trabalhar com ClientDataSet, como DataSet de memória.. vamos lá.. crie alguns FieldsDefs, e botão direito no CDS e clique em Create DataSet... vá aos Fields, e mande Add All Fields... pronto.. o Delphi simplesmente fecha... você não consegue trabalhar com ele... Alguem tem noticias da CodeGear sobre isso? Estão demorando d+ pra soltar um Update... Minha versão do D2007.: Version 11.0.2627.5503 []s -- _ Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] D 7 x D 2007 win 32
Gostaria de saber a opiniao do grupo se vale a pena deixar o delphi 7 e desenvolver novos projetos já em d 2007 win32 ? Quais seriam as vantagens de migrar para esta nova ferramenta ? Grato pela atenção.
[delphi-br] Delphi 7 x D 2007 win32
Gostaria de saber a opiniao do grupo se vale a pena deixar o delphi 7 e desenvolver novos projetos já em d 2007 win32 ? Quais seriam as vantagens de migrar para esta nova ferramenta ? Grato pela atenção.
Re: [delphi-br] Delphi + Postgres, qual melhor componente de acesso?
Vcs trabalham a bastante tempo com o Zeos ?
Vale a pena trabalhar com ele ?
Aqui na empresa estamos com duvida entre ele e o dbx.
[]s
- Original Message -
From: Anderson Furtilho [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 13, 2007 8:03 AM
Subject: Res: [delphi-br] Delphi + Postgres, qual melhor componente de
acesso?
Aqui usamos Delphi+Zeos+PostgreSQL com querys selects relativamente grandes
e tinhamos problemas com lentidão, mexemos diretamente no Post e resolveu.
Tipo indices essas coisas, ate a posição das tabelas no from ajudaram
também.
Espero ter ajudado
- Mensagem original
De: [EMAIL PROTECTED] [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 7 de Junho de 2007 12:20:42
Assunto: [delphi-br] Delphi + Postgres, qual melhor componente de acesso?
Colegas
Algum colega trabalha com Postgres? Qual componente o Colega utiliza para
acessar os dados?
Estou utilizando delphi + zeos porem as queries ficam muito demoradas.
Qualquer comentario é bem-vindo.
Obrigado.
[]´s Tiano.
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a {
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc {
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
Re: [delphi-br] Salvar conteudo de uma query
Ta na mão,
type
TTipo = (ttAbrir, ttGravar);
TForm1 = class(TForm)
...
procedure ProcessarArquivo(pDataSet: TDataSet; pArquivo: String; pTipo:
TTipo);
var
F : TextFile;
i,
x : Integer;
Linha,
s : String;
vArquivo : Array [0..MAX_PATH] of Char;
begin
StrPCopy(vArquivo, pArquivo);
if (FileExists(vArquivo)) and (pTipo = ttGravar) then
DeleteFile(vArquivo);
AssignFile(F, vArquivo);
if FileExists(vArquivo) then
Reset(F)
else
begin
Rewrite(F);
Append(F);
end;
case pTipo of
ttGravar :
begin
for i := 0 to pDataSet.RecordCount - 1 do
begin
s := '';
for x := 0 to pDataSet.Fields.Count - 1 do
begin
s := s + pDataSet.Fields[x].AsString;
if x pDataSet.Fields.Count - 1 then
s := s + ';';
end;
Writeln(F, s);
end;
end;
ttAbrir :
begin
Readln(F, Linha);
s := '';
x := -1;
for i := 1 to Length(Linha) do
begin
pDataSet.Append;
if Linha[i] ';' then
s := s + Linha[i]
else
begin
Inc(x);
case pDataSet.Fields[x].DataType of
ftDate,
ftDateTime : pDataSet.Fields[x].AsDateTime :=
StrToDate(s);
ftInteger : pDataSet.Fields[x].AsDateTime :=
StrToInt(s);
ftFloat,
ftCurrency : pDataSet.Fields[x].AsDateTime :=
StrToFloat(s);
else
pDataSet.Fields[x].AsString := s;
end;
end;
end;
Inc(x);
pDataSet.Fields[x].AsVariant := s;
pDataSet.Post;
end;
end;
CloseFile(F);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
ProcessarArquivo(qry1, 'C:\TESTE.TXT', ttGravar);
end;
QQ Avise !!!
Eduardo
Fco Yahoo escreveu:
Ola pessoal, estou tendo um problema muito serio aqui comigo, preciso
gerar
um arquivo contendo os registros de uma determinada tabela por periodo,
portanto eu faria isso construindo uma query:
If query1.active = true then query1.active:=false;
query1.sql.clear;
query1.sql.add('select * from table1 where (condicao) ');
Agora como eu faço para gravar 1 arquivo contendo esses registros
Dai pra frente eu nao sei, e tambem como faço para ler esse arquivo e
inserir os registros dele em uma table,
Preciso disso, pois estou colocando 1 aplicativo fora do escritorio e
tenho
q capturar tudo o que nesse aplicativo for digitado.
Agradeco imensamente toda e qualquer ideia;
Se quizerem podem entrar em contato em pvt
[EMAIL PROTECTED] mailto:franciscoacao%40hotmail.com
[EMAIL PROTECTED] mailto:franciscocarlos65%40hotmail.com
[EMAIL PROTECTED] mailto:fcandrade2001%40yahoo.com.br
[EMAIL PROTECTED]
mailto:fcandrade%40acaocontabilidade.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Salvar conteudo de uma query
Foi mau eu esqueci de testar o Abrir e estava com erro.
ttAbrir :
begin
Readln(F, Linha);
s := '';
x := -1;
pDataSet.Append;
for i := 1 to Length(Linha) do
begin
if Linha[i] ';' then
s := s + Linha[i]
else
begin
Inc(x);
case pDataSet.Fields[x].DataType of
ftDate,
ftDateTime : pDataSet.Fields[x].AsDateTime :=
StrToDate(s);
ftInteger : pDataSet.Fields[x].AsDateTime :=
StrToInt(s);
ftFloat,
ftCurrency : pDataSet.Fields[x].AsDateTime :=
StrToFloat(s);
else
pDataSet.Fields[x].AsString := s;
end;
s := '';
end;
end;
Inc(x);
case pDataSet.Fields[x].DataType of
ftDate,
ftDateTime : pDataSet.Fields[x].AsDateTime := StrToDate(s);
ftInteger : pDataSet.Fields[x].AsDateTime := StrToInt(s);
ftFloat,
ftCurrency : pDataSet.Fields[x].AsDateTime := StrToFloat(s);
else
pDataSet.Fields[x].AsString := s;
end;
pDataSet.Post;
end;
Basta usar assim que funciona.
Eduardo
Eduardo Castro Alves escreveu:
Ta na mão,
type
TTipo = (ttAbrir, ttGravar);
TForm1 = class(TForm)
...
procedure ProcessarArquivo(pDataSet: TDataSet; pArquivo: String;
pTipo: TTipo);
var
F : TextFile;
i,
x : Integer;
Linha,
s : String;
vArquivo : Array [0..MAX_PATH] of Char;
begin
StrPCopy(vArquivo, pArquivo);
if (FileExists(vArquivo)) and (pTipo = ttGravar) then
DeleteFile(vArquivo);
AssignFile(F, vArquivo);
if FileExists(vArquivo) then
Reset(F)
else
begin
Rewrite(F);
Append(F);
end;
case pTipo of
ttGravar :
begin
for i := 0 to pDataSet.RecordCount - 1 do
begin
s := '';
for x := 0 to pDataSet.Fields.Count - 1 do
begin
s := s + pDataSet.Fields[x].AsString;
if x pDataSet.Fields.Count - 1 then
s := s + ';';
end;
Writeln(F, s);
end;
end;
ttAbrir :
begin
Readln(F, Linha);
s := '';
x := -1;
for i := 1 to Length(Linha) do
begin
pDataSet.Append;
if Linha[i] ';' then
s := s + Linha[i]
else
begin
Inc(x);
case pDataSet.Fields[x].DataType of
ftDate,
ftDateTime : pDataSet.Fields[x].AsDateTime :=
StrToDate(s);
ftInteger : pDataSet.Fields[x].AsDateTime :=
StrToInt(s);
ftFloat,
ftCurrency : pDataSet.Fields[x].AsDateTime :=
StrToFloat(s);
else
pDataSet.Fields[x].AsString := s;
end;
end;
end;
Inc(x);
pDataSet.Fields[x].AsVariant := s;
pDataSet.Post;
end;
end;
CloseFile(F);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
ProcessarArquivo(qry1, 'C:\TESTE.TXT', ttGravar);
end;
QQ Avise !!!
Eduardo
Fco Yahoo escreveu:
Ola pessoal, estou tendo um problema muito serio aqui comigo, preciso
gerar
um arquivo contendo os registros de uma determinada tabela por periodo,
portanto eu faria isso construindo uma query:
If query1.active = true then query1.active:=false;
query1.sql.clear;
query1.sql.add('select * from table1 where (condicao) ');
Agora como eu faço para gravar 1 arquivo contendo esses registros
Dai pra frente eu nao sei, e tambem como faço para ler esse arquivo e
inserir os registros dele em uma table,
Preciso disso, pois estou colocando 1 aplicativo fora do escritorio e
tenho
q capturar tudo o que nesse aplicativo for digitado.
Agradeco imensamente toda e qualquer ideia;
Se quizerem podem entrar em contato em pvt
[EMAIL PROTECTED] mailto:franciscoacao%40hotmail.com
[EMAIL PROTECTED] mailto:franciscocarlos65%40hotmail.com
[EMAIL PROTECTED] mailto:fcandrade2001%40yahoo.com.br
[EMAIL PROTECTED]
mailto:fcandrade%40acaocontabilidade.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap, Remote Data Module, BSS....
Olá *João Paulo *eu uso Delphi 2007 win32 com MySQL Server 5, acessando via componente MyDAC da CoreLab, uso a VCL. em relação à trocar o D7 por D2007 vale a pena sim, o Delphi 2007 é muito mais produtivo e com muito mais recursos que o D7, no começo vc vai estranhar um pouco a mudança, mais em um dia ja estará acostumado, ai vc vai ver a diferença. agora com o Update 1 do Delphi, todos os bugs estão corrigidos, ta muito bom mesmo. qualquer coisa estou às ordens. ** Em 21/05/07, João Paulo - EsPyl [EMAIL PROTECTED] escreveu: Olá Eduardo... Vc trabalha com d2007 win 32, com qual base de dados ? Vale a pena trocar o d7 pelo 2007 ? Vc tá trabalhando com VCL ? ´ []s - Original Message - From: Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Saturday, May 19, 2007 12:53 PM Subject: Re: [delphi-br] BUG Delphi 2007 - Nada de usar o ClientDataSet, DataSnap, Remote Data Module, BSS Olá Fellipe, da uma olhada no Quality Central que vc vai ficar mais feliz ainda, http://qc.codegear.com/wc/qcmain.aspx?p=10 como eu só desenvolvo aplicações client/server com componentes de terceiros com fontes, felizmente o Delphi 2007 pra min ta blz... o BUG que achei onde os itens do comboBox são apagados se o projeto for carregado na abertura do Delphi, da pra ser contornada, de resto.. mais logo logo tudo isso vai ta corrigido, a CodeGear ta engajada (espero..). Em 19/05/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com escreveu: Ola amigos, gostei muito do Delphi 2007, mas porém estou vendo que será impossível utilizá-lo... não sei se foi a pressa de lança-lo ou outra coisa, mas ele está com muitos problemas, e Bugs.. alguns irritantes... vamos aos que eu consegui detectar: 1) A paleta DataSnap não consta nele, mesmo o pacote estando instalado e tudo correto, a paleta não é exibida, muito menos os componentes. 2) O RemoteDataModule, não consta no New Item do D2007, para faze-lo aparecer, tem que fazer uma mutreta, ir em customize e tals.. 3) O ServerApp do BSS, não é registrado automaticamente, e muito menos, se auto-executa como antigamente. Agora o mais irritante.. 4) Não se pode trabalhar com ClientDataSet, como DataSet de memória.. vamos lá.. crie alguns FieldsDefs, e botão direito no CDS e clique em Create DataSet... vá aos Fields, e mande Add All Fields... pronto.. o Delphi simplesmente fecha... você não consegue trabalhar com ele... Alguem tem noticias da CodeGear sobre isso? Estão demorando d+ pra soltar um Update... Minha versão do D2007.: Version 11.0.2627.5503 []s -- _ Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
