RE: [delphi-br] Delphi 2009
RAD Studio = Delphi 2009 Win32 + C++ Builder 2009 + Delphi Prism Pode se comprar o RAD Studio ou cada uma das linguagens separadas. Todas permitem desenvolvimento Web. O Delphi Prism permite desenvolvimento para .NET Compact Framework, a limitação é apenas o designer. No RAD Studio 2007 nada foi desmembrado, apenas no RAD Studio 2009 que foi desmembrado a parte .NET, pois a mesma agora está sobre o VS Shell. O colega que está querendo desenvolver para web com PHP, tem que adquirir separadamente o Delphi for PHP, lembrando que qualquer uma das linguagens para o RAD permite desenvolvimento Web. ]['s Andreano Lanusse Embarcadero From: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] On Behalf Of Walter Chagas (Bol) [wchag...@bol.com.br] Sent: Monday, April 13, 2009 10:35 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Delphi 2009 O Delphi for PHP é um produto que apenas usa a IDE do Delphi para voce programar em PHP. Não há como usar uma IDE que gere código pascal ou PHP conforme as necessidades. O RAD Studio 2009, não tenho certeza se ele permite programar em C++. Convem olhar isto. Eu sei que o Delphi 2006 permitia, permitia até programar para portáteis atraves de um plugin que a Borland desenvolveu. Não entendi porque eles não deram prosseguimento a isto no 2007 e nem no 2009. Alías, o Delphi 2006 foi o ultimo Delphi faz tudo porque além de portateis, voce podia desenvolver em Win32 e dotNET nele também. no 2007 e no 2009 foram desmembradas as IDEs []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.brmailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.commailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fernando de Laurentiis To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br Sent: Monday, April 13, 2009 1:38 PM Subject: [delphi-br] Delphi 2009 Pessoal, boa tarde. Aqui onde estou trabalhando, há pretensão em migrarmos para o delphi 2009. Alguém já trabalha com ele? Qual a opinião sobre ele? Nós queremos aqui, a versão q gere PHP e trabalhe com WEB, é uma versão específica q temos q comprar? Vi q tem um CodeGear RAD Studio, q trabalha tanto com delphi qto com C++, é esse q tenho q comprar? Agradeço qqr ajuda nesse sentido! Grato. [As partes desta mensagem que não continham texto foram removidas] CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.
Res: [delphi-br] Desligamento
Olá galera, Informo aos distintos colegas que por motivos particulares estou temporariamente me desligando do grupo. Desejo agradecer a todos que de forma direta ou indireta me ajudaram na busca por conhecimento. Apareça e, qualquer dúvida pode bater aqui na porta que a galera atende :) Meus sinceros votos de profícuos negócios e muito sucesso a todos. Obrigado! Vc sabe um bom Pt-Br em brother, rs... brincadeira, qualquer coisa estamos as ordens ;) Boa sorte na tua nova jornada (ñ vou mentir, deu curiosidade de saber, será que é Java, C#, VB, férias..., rs...). []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo° Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: Executável com delphi, my sql e zeos
Olá galera, Tchê, tem que colocar as DLL do Zeous na Pasta System32 do windows Putz, pensei que ele estava querendo criar um setup de instalação, kk... Desculpa aí galera, k... []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo° Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Executável com delphi, mysql e zeos
Olá pessoal, Brother, vai em [http://silvioprog.4shared.com/] e baixe esses pacotes (e sé possível, outros, tem muitos que fiz com setup de instalação): 1 - Exemplos_uteis_2.zip 2 - scChat 1.0 - FB2.1.zip Veja o script, foi criado com as ferramentas InnoSetup e ISToll, veja na barra a direita do link [http://sites.google.com/site/silvioprogbs/], eu mostrei os links dos dois, aproveite o embalo e navega no site ;) P.S.: O site agora tem a opção Site de perquisa, onde vc digita o que quer encontrar dentro do site. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo° De: asandro1501 asandro1...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 13 de Abril de 2009 15:39:45 Assunto: [delphi-br] Executável com delphi, mysql e zeos Olá pessoal Preciso criar instalar um executável em outra máquina mas não consigo. Sou um programador novinho e usava só os componentes ADO juntamento com o access, daí era barbada criar um executável e distribuir. Agora estou me aventurando com firebird e mysql mas não consigo instalar em outra máquina o executável. Criei o executável com o winrar adicionando somente as tabelas e o arquivo .exe. Alguém pode me ajudar? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Montar Grid + Checkbox
O problema não é colocar o checkbox o problema é como colocar no mesmo registro a informacao das duas empresas exemplo: Tabela esta assim: Usuario, Perfil, Empresa, InicioVigencia, FimVigencia 1 1 1 13/04/200930/04/2009 1 1 2 13/04/200930/04/2009 Apresentar no DBGrid da seguinte maneira Usuario, Perfil, InicioVigencia, FimVigencia, Emp1, Emp2 1 1 13/04/2009 30/04/2009 1 2 É desse problema que estou falando Ats Eduardo - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Monday, April 13, 2009 10:19 PM Subject: Re: [delphi-br] Montar Grid + Checkbox Procure por um exemplo do Guinter Pauli de como desenhar um CheckBox num Grid. Ou então procure por esse recurso no Google. Ou ainda use o componente UserControl que tem a finalidade de controle de usuários na aplicação. Essas alternativas são para o caso de querer recursos 0800. Caso contrário existem recursos pagos. []'s Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 13/4/09, Eduardo Savoine eduardosavo...@yahoo.com.br escreveu: De: Eduardo Savoine eduardosavo...@yahoo.com.br Assunto: [delphi-br] Montar Grid + Checkbox Para: DELPHI-BR delphi-br@yahoogrupos.com.br Data: Segunda-feira, 13 de Abril de 2009, 15:38 Seguinte estou na fase final de controle de acesso de usuários e barrei no seguinte problema: Tenho uma tabela que consta os seguintes campos: Tabela ACESSO: nCdUsuario DECIMAL(10,0) nCdPerfil DECIMAL(10,0) nCdEmpresa DECIMAL(10,0) dInicioVigencia DateTime dFimVigencia DateTime As Informaçoes estão da seguinte maneira: nCdUsuario / nCdPerfil / nCdEmpresa / dInicioVigencia 1 / 1 / 1 / 13/04/2009 1 / 1 / 2 / 13/04/2009 Gostaria de montar um Grid com o Chebox que ficasse da seguinte forma: nCdUsuario / nCdPerfil / dInicioVigencia / Empresa1(checkbox) / Empresa2(checkbox) Alguem tem alguma ideia de como fazer isso? [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [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] Parâmetros no SQL
Cao, não lembro agora se é ?BDE ou DBEXpress que não aceita parametro dentro de um sub select. Se você precisa disto, monte a pesquisa na mão, utilizando a propriedade SQL.Text ou CommandText dependendo do componente que você usa. Falou 2009/4/13 stainle2003 stainle2...@yahoo.com.br Bom dia, com Delphi 7 e SQLServer 2000 estou encontrando um problema: select codcl, noc, cic, uv from clien where not exists (select tclientee from estmat where tclientee = codcl and thisto = 'S' and topera = 2 and tmes = :pmes and tano = :pano) com parâmetro não funciona(diz que em sub select eu preciso definir os parâmetros) e assim funciona: select codcl, noc, cic, uv from clien where not exists (select tclientee from estmat where tclientee = codcl and thisto = 'S' and topera = 2 and tmes = 01 and tano = 2009) ou seja troquei o mes or 01 e o ano por 2009, mas preciso deixar variável o mes e o ano, porisso preciso do parâmetro. alguém sabe o que posso fazer ?? grato Stainle [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criação de Componentes + Eventos Dinamicos
Bom dia, Estou fazendo um componente (adicinando uma propriedade) descendente de TLabel, que tem a propriedade link onde o programador pode colocar um link ( www.google.com) e se essa propriedade tiver um valor, então quando o usuário colocar o mouse em cima (onMouseEnter) desse label, quero que fique sublinhado e azul e quando tire o mouse de cima (onMouseLeave) quero que volte ao normal, até ai tudo beleza, sem nenhum problema. Agora o que eu quero é que quando usar esse componente q eu possa inserir um código no evendo onMouseLeave desse componente e quando o sistema estiver sendo executado seja executado o que eu coloquei como padrão no componente e o que o programador programou no componente em designer time. Como eu preparo meu componente para isso? JM -- _ Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi # CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # Sent from Joinville, SC, Brazil [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisar registro em arquivo XML com TXMLDocument
Esse arquivo não abre com clientdataset? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Res: [delphi-br] Criação de Componentes + Evento s Dinamicos
Bom dia. para conseguir isto voce pode escrever metodos que 'escutam' as mensagens do windows, CM_MOUSEENTER, CM_MOUSELEAVE Voce pode ver uma amostra destas mensagens em TControl Pequeno exemplo, cole este fonte na unit de um form, que contenha um label pelo menos... TLabel = class(StdCtrls.TLabel) private public procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; end; procedure TLabel.CMMouseEnter(var Message: TMessage); begin inherited; Self.Font.Color := clBlue; end; procedure TLabel.CMMouseLeave(var Message: TMessage); begin inherited; Self.Font.Color := clBlack; end; Atenc; Elazar Dornelles Ceza De: Jhosef Marks jho...@gmail.com Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 14 de Abril de 2009 9:48:54 Assunto: [delphi-br] Criação de Componentes + Eventos Dinamicos Bom dia, Estou fazendo um componente (adicinando uma propriedade) descendente de TLabel, que tem a propriedade link onde o programador pode colocar um link ( www.google.com) e se essa propriedade tiver um valor, então quando o usuário colocar o mouse em cima (onMouseEnter) desse label, quero que fique sublinhado e azul e quando tire o mouse de cima (onMouseLeave) quero que volte ao normal, até ai tudo beleza, sem nenhum problema. Agora o que eu quero é que quando usar esse componente q eu possa inserir um código no evendo onMouseLeave desse componente e quando o sistema estiver sendo executado seja executado o que eu coloquei como padrão no componente e o que o programador programou no componente em designer time. Como eu preparo meu componente para isso? JM -- _ _ _ __ Jhosef Marks de Carvalho Delphi Developer http://groups. google.com/ group/soumaisdel phi # # # # # # ### CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # # # # # # ### Sent from Joinville, SC, Brazil [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criação de Componentes + Eventos D inamicos
A grosso modo vc pode fazer o seguinte: crie uma propriedade para receber seu evento(E consequentemente as variáveis ou funções que ela requerir) . property OnMouseLeave: TNotifyEvent; Na procedure onde provavelmente vc recebe a mensagem CM_MOUSELEAVE, vc testa para ver se existe o evento. Caso exista, executa ele. Algo parecido com o abaixo: if Assigned(FOnMouseLeave) then FOnMouseLeave(Self); vc pode olhar na própria vcl, mais precisamente na unit Controls, tem bons exemplos. Abs Daniel Augusto Bastos 2009/4/14 Jhosef Marks jho...@gmail.com Bom dia, Estou fazendo um componente (adicinando uma propriedade) descendente de TLabel, que tem a propriedade link onde o programador pode colocar um link ( www.google.com) e se essa propriedade tiver um valor, então quando o usuário colocar o mouse em cima (onMouseEnter) desse label, quero que fique sublinhado e azul e quando tire o mouse de cima (onMouseLeave) quero que volte ao normal, até ai tudo beleza, sem nenhum problema. Agora o que eu quero é que quando usar esse componente q eu possa inserir um código no evendo onMouseLeave desse componente e quando o sistema estiver sendo executado seja executado o que eu coloquei como padrão no componente e o que o programador programou no componente em designer time. Como eu preparo meu componente para isso? JM -- _ Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi # CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # Sent from Joinville, SC, Brazil [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Video em fullscreen com o TMediaPlayer
Tentei a muito tempo atraz e não consegui. Acabei resolvendo importando o ActiveX do Windows Media Player e usando na minha aplicação. Abs Daniel Augusto Bastos On Sat, Apr 11, 2009 at 11:46 AM, Daniel F. C. daniel.fc...@uol.com.brwrote: Alguém sabe como reproduzir um video em fullscreen usando o TMediaPLayer ? Já procurei bastante a respeito disso mas só o que encontro são exemplos de como reproduzir os videos em seus formatos originais. Obrigado, Daniel Franco. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisar registro em arquivo XML com TXMLDocument
Então, eu sei que com o clientDataSet dá fazer buscas usando o locate. Mas é que eu queria ver se tem como fazer isso utilizando o TXMLDocument, ou então algum outro recurso que não dependa do XML do clientDataSet, pois o clientDataSet cria uma estrutura própria, e eu quero conseguir ler qualquer estrutura. Nos arquivos da lista tem um material falando sobre XML, e parece que não usa o XMLDocument, mas eu não entendi direito... 2009/4/14 Alisson alss...@yahoo.com.br Esse arquivo não abre com clientdataset? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] AJuda no Delphi
ola eu tou programando em Delphi atraves de um livro so q na hora de colocar data e hora ta dando erro Ex: MOSTRANDO A DATA POR EXTENSO Unit Unit1; Interface Uses Windows, messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; Type TFRMPrin = class(TForm) SBDataHora: TStatusBar; private { Private declarations } Public { Public declarations } End; Var FrmPrin: TFrmprin; Implementation {$R *.dfm} Function TFRMPrin.DataPorExtenso:String; Const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho',' E Etc ate Dezembro'); Semana :Array [1..7] of String = ('Domingo...(Assim vai ate Sabado') Var Dia,Mes,Ano,DiaSem:Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(date); Result := Semana[DiaSem] + '.'+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); end; E ta dando este erro Expected ';' But Found.
[delphi-br] WebService com ISS 7
Tenho uma aplicação multicamadas... e fornece servico por webservice, estava funcionando perfeitamente mas tive que formatar o servidor (windows server 2008), configurei tudo como manda, mas devo ter deixado algo de fora pois quando entro pelo iis e dou um click nela ao invez de me mostrar o servico ele tenta baixar (download) da dll... que preciso configurar? que estou esquecendo?
[delphi-br] AJuda no Delphi
Ola tudo bem sou novo aq e tou criando um programa comercial atravez de um mlivro Delphi5 e o meu programa e Delphi6 e na hora de colocar data e hora da uma mensagen de erro (Expected';'but found.)isto é depois de escrever isto tudo ai em baixo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TFRMPrin = class(TForm) SBDataHora: TStatusBar; Timer1: TTimer; procedure Timer1Timer'(Sender: TObject); private { Private declarations } public { Public declarations } Function DataPorExtenso : String; end; var FRMPrin: TFRMPrin; Implementation {$R *.dfm} Function TFRMPrin.DataPorExtenso:String; const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho','Julho','Agosto','Setembro','Outubro', 'Novembro','Desembro'); Semana :Array [1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira', 'Quarta-Feira','Quinta-Feira','Sexta-Feira', 'Sabado'); Var Dia,Mes,Ano,DiaSem:Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(Date); Result := Semana[DiaSem] + ','+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); end;
Re: [delphi-br] Video em fullscreen com o TMediaPlayer
Veja se é isso q quer: Coloque um Animate no Form Defina a função Display do MediaPlayer para o Animate Quando for tocar o vídeo defina as funções: Animate.Height:=Screen.Height; Animate.Width:=Screen.Width; - Original Message - From: Daniel Augusto Bastos danbas...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 14, 2009 12:00 PM Subject: Re: [delphi-br] Video em fullscreen com o TMediaPlayer Tentei a muito tempo atraz e não consegui. Acabei resolvendo importando o ActiveX do Windows Media Player e usando na minha aplicação. Abs Daniel Augusto Bastos On Sat, Apr 11, 2009 at 11:46 AM, Daniel F. C. daniel.fc...@uol.com.brwrote: Alguém sabe como reproduzir um video em fullscreen usando o TMediaPLayer ? Já procurei bastante a respeito disso mas só o que encontro são exemplos de como reproduzir os videos em seus formatos originais. Obrigado, Daniel Franco. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] WebService com ISS 7
Verifique as permissões de execução e leitura se estão corretas. Verifique se a pasta onde sua DLL está, está configurada como pasta de aplicação web(clique com o botão direito) Abraços. 2009/4/14 Ailton Branco ailton...@yahoo.com.br Tenho uma aplicação multicamadas... e fornece servico por webservice, estava funcionando perfeitamente mas tive que formatar o servidor (windows server 2008), configurei tudo como manda, mas devo ter deixado algo de fora pois quando entro pelo iis e dou um click nela ao invez de me mostrar o servico ele tenta baixar (download) da dll... que preciso configurar? que estou esquecendo? -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RAD Studio 2007 (componente dpk ou bpl)
Para RAD Studio 2007 o que é mais ideal em termos de componentes novos: dpk ou bpl? Como construir um bpl através de um .pas? Graça
[delphi-br] Link dos Componentes para RAD Studio
Poderiam me informar o site dos links de componentes terceirizados para RAD Studio 2007? (a lista de componentes que a Code Gear disponibilizou: quick report, rxlib, .) Graça
Re: [delphi-br] AJuda no Delphi
É, todo inicio é complicado! Está faltando um end. na última linha do seu código. Verifica aí. 2009/4/14 francisleisouza francisleiso...@yahoo.com.br Ola tudo bem sou novo aq e tou criando um programa comercial atravez de um mlivro Delphi5 e o meu programa e Delphi6 e na hora de colocar data e hora da uma mensagen de erro (Expected';'but found.)isto é depois de escrever isto tudo ai em baixo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TFRMPrin = class(TForm) SBDataHora: TStatusBar; Timer1: TTimer; procedure Timer1Timer'(Sender: TObject); private { Private declarations } public { Public declarations } Function DataPorExtenso : String; end; var FRMPrin: TFRMPrin; Implementation {$R *.dfm} Function TFRMPrin.DataPorExtenso:String; const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho','Julho','Agosto','Setembro','Outubro', 'Novembro','Desembro'); Semana :Array [1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira', 'Quarta-Feira','Quinta-Feira','Sexta-Feira', 'Sabado'); Var Dia,Mes,Ano,DiaSem:Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(Date); Result := Semana[DiaSem] + ','+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota Fiscal Eletronica
qual teu email? t+ 2009/4/13 dhsb dionata...@unijui.edu.br Pessoal estou precisando de um software controle de estoque, emissao de recibos, promissorias, gerenciamento de pagamentos (parcelados, a vista, cheque...) emissao de notas fiscais eletronicas enfim... um sistema quase completo... quem souber de algo entre emc ontato comigo Mas atenção so entre em contato com os softwares que possamos avaliar (periodo de testes) caso contrario dispensam,os entre em contato comig por email... Atenciosamente -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Integração Delphi com Java/PHP (vi a SOA)
Bom, consegui criar um webservice básico em java e gerar uma classe pelo delphi 2009 para usar esse webservice. Agora falta descobrir como transformar o retorno do webservice em uma classe minha do Delphi. Tipo, vou retornar uma lista de produtos via webservice e quero transformar tudo em classes Produto no delphi. Alguém tem uma luz? 2009/4/13 Julio Cesar julio_...@yahoo.com.br nao vejo como gambiarra, se vc abre uma transacao com o banco no seu servidor soap (ou qq outro) vc vai ter a contagem dos registros q estao na transacao e retornados no seu select, nao tem possibilidade de retornar quantidade diferente de registros, a nao ser q o select seja refeito e tenham sido inseridos novos registros... julio cesar - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, April 13, 2009 9:45 PM Subject: Re: [delphi-br] Integração Delphi com Java/PHP (via SOA) Olá Julio, Obrigado pela ajuda. Mas desta forma fica muita gambiarra, além de ter uma grande probabilidade de ocorrer divergência nas informações. A primeira chamada retornar 50 registros e o contador na segunda chamada retornar 51 porque um uusário incluiu mais registros nesse meio tempo. Deve existir algum outro meio para isso. 2009/4/13 Julio Cesar julio_...@yahoo.com.br julio_gyn%40yahoo.com.br se vc vai criar o webservice cria uma funcao q retorne o numero de registros a serem resgatados, dai vc prepara um loop e adiciona os dados em um cds ligado ao relatorio... julio cesar - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Monday, April 13, 2009 8:13 PM Subject: [delphi-br] Integração Delphi com Java/PHP (via SOA) Olá Galera, Eu andei dando uma pesquisada de como fazer a integração de php/java com Delphi via webservices, mas como fazer para tratar uma busca onde o webservice retornará mais de 1 registro (talves mil) ? Hoje meus relatórios(fast-report) estão ligados a ClientDataSets, como fazer para que eles reconheçam meus webservices? Há alguma forma de manter os clientDataSets e preenche-los via webservice? Como listar no meu grid os vários registros retornados? -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com paulo% 40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AJuda no Delphi
Estava faltando end. no final do código. Você precisa endentar melhor o seu código. Veja como ficou: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls; type TFRMPrin = class(TForm) private { Private declarations } public { Public declarations } function DataPorExtenso : String; end; var FRMPrin: TFRMPrin; implementation {$R *.dfm} function TFRMPrin.DataPorExtenso:String; const Meses :Array [1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro', 'Novembro','Dezembro'); Semana :Array [1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira', 'Quarta-Feira','Quinta-Feira', 'Sexta-Feira', 'Sabado'); var Dia,Mes,Ano,DiaSem: Word; begin DecodeDate(Date,Ano,Mes,Dia); DiaSem := DayOfWeeK(Date); Result := Semana[DiaSem] + ','+ IntToStr(Dia) + ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano); end; end. [As partes desta mensagem que não continham texto foram removidas]