[delphi-br] Perdendo a referencia
Ola, alguem aqui utiliza o delphi 2010? pois estou com um problema serio aqui que esta ficando é chato Sempre que abro um projeto vou ver os componentes dbware e eles estao sem referencias de ligação do dataset, por que isto acontece? conhecem uma forma de resolver isto? -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br
Re: [delphi-br] Chave Primária - Auto Inc remento (URGENTE)
Tenta dar um commit depois o refresh Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br Em 20/08/2010 15:06, Fabiano Moura escreveu: Boa tarde! Felipe, eu dei o refresh e não traz o valor! Obrigado, Fabiano Em 20 de agosto de 2010 14:57, felipe govoni govoni.fel...@gmail.com mailto:govoni.felipe%40gmail.comescreveu: eu pego algum campo da tabela faço um refresh e apos um locate pra achar o registro. Em 20 de agosto de 2010 11:39, Fabiano Moura mctbra...@gmail.com mailto:mctbrasil%40gmail.com escreveu: Bom dia! Estou desenvolvimento uma aplicação utilizando Delphi 2007 e o banco de dados é Firebird. Tenho uma tabela aonde a chave primária é o ID (chave simples) e criei um generator para não ter o perigo de adicionar o mesmo código para os demais registros. Criei também um trigger que verifica, se o campo ID for nulo, ele gera o código e atribui ao campo, conforme exemplo abaixo: CREATE GENERATOR GEN_LAB_TABELA_ID; *// cria o generator* SET TERM ^ ; CREATE OR ALTER TRIGGER LAB_TABELA_BI FOR LAB_TABELA *//cria o trigger que se o campo código (ID) for nulo, a trigger atribui um código de acordo com o generator* ACTIVE BEFORE INSERT POSITION 1 as begin if (new.codigo is null) then new.codigo = gen_id(gen_lab_tabela_id,1); end ^ SET TERM ; ^ Adicionei os campos da minha tabela no sqlquery e clientdataset e atribui a chave ao campo código e fiz as configurações necessárias no provider. Testei a aplicação e funciona normalmente, porém, na minha tela de cadastro, eu tenho um grid aonde adiciono os ítens relacionados a tabela principal. No meu caso a tabela A é a tabela principal e a tabela B a secundária. O relacionamento que criei entre as tabelas é 1:N. O meu problema, é que após salvar os dados na tabela A, o banco cria e atribui corretamente o ID, porém, não retorna valor no meu clientdataset da tabela A, para que eu possa pegar o código gerado e relacionar com a tabela B. Como eu faço isso? Preciso de uma solução urgente! Já fiz algumas pesquisas na net, mas o que eu encontro é gambiarra, ou o pessoal chamar o generator direto na aplicação e isso não queria, pois estou preparando a aplicação para possíveis conexão com banco de dados diferentes, como Firebird e Oracle, mas isso é outra questão. Obrigado, Fabiano [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FIBPlus x IBO
Relamente passando o asdate funcionou corretamente, no ibo nao tinha
este problema.
Agora aproveitando que voce utiliza FIB me tira uma duvida por que
utilizando o FIBQuery para trazer os resultados ele traz somente um
registro ?
Ja tentei de tudo e ele traz um unico registro sempre, executei o sql
com o IBexpert e funciona normalmente
DM.qTeste.close;
DM.qTeste.SQL.Clear;
DM.qTeste.SQL.Add('select * from emails where grupo =' + IntToStr
(DM.FIDataAgendamento.FieldByName('IDGRUPO').AsInteger)
+ 'and status = 1');
DM.qTeste.ExecQuery;
Pablo Farias
Fone(81)9169.3339
develo...@marketingrapido.com.br
www.marketingrapido.com.br
Em 19/08/2010 08:14, jalosii escreveu:
trabalho com fib e ibo a anos, aqui nunca usamos Value pra passar
valor a um parametro, sempre com a especificação do campo correto.
AsString
AsDate
AsDateTime
AsTime
AsFloat
AsDouble
AsInteger
AsInt64
e assim por diante.
Altere na passagem dos parametros do seu sql e verifique que funciona.
Alosi
DigitalSystem
Bento Gonçalves-RS
Pablo Farias escreveu:
Ola pessoal,
a alguns dias utilizando o IBO eu fazia assim na passagem de parametro
na consulta
DM.FIDataAgendamento.close;
DM.FIDataAgendamento.ParamByName('varDataEnvio').AsString
:=datetostr(now);
DM.FIDataAgendamento.ParamByName('varFLAG').Value := 0;
DM.FIDataAgendamento.Open;
Hoje com FIB+
tento fazer isto
DM.FIDataAgendamento.close;
DM.FIDataAgendamento.ParamByName('varDataEnvio').AsString
:=datetostr(now);
DM.FIDataAgendamento.ParamByName('varFLAG').Value := 0;
DM.FIDataAgendamento.Open;
Ele da erro na conversão da data.
entao fiz assim
DM.FIDataAgendamento.close;
DM.FIDataAgendamento.ParamByName('varDataEnvio').AsString
:=datetostr(now);
DM.FIDataAgendamento.ParamByName('varFLAG').Value := 0;
DM.FIDataAgendamento.Open;
Porem nao sei por qual motivo ele nao me traz resultado algum mesmo
tendo informações com os dados passados.
Alguem pode me ajudar?
`
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FIBPlus x IBO
O problema aqui ta mais serio que eu imaginava.
Antigamente eu passava a data normal para o servidor fb 2.1 por exemplo
19/08/2010 o servidor mostrava os registros corretamente hoje estou
tendo que passar 08/19/2010 para ele mostrar os registros,
mesmo com o ibexpert estou tendo que fazer isto, alguma sugestao por que
isto esta ocorrendo?
Pablo Farias
Fone(81)9169.3339
develo...@marketingrapido.com.br
www.marketingrapido.com.br
www.marketsistemas.com.br
Em 19/08/2010 08:14, jalosii escreveu:
trabalho com fib e ibo a anos, aqui nunca usamos Value pra passar
valor a um parametro, sempre com a especificação do campo correto.
AsString
AsDate
AsDateTime
AsTime
AsFloat
AsDouble
AsInteger
AsInt64
e assim por diante.
Altere na passagem dos parametros do seu sql e verifique que funciona.
Alosi
DigitalSystem
Bento Gonçalves-RS
Pablo Farias escreveu:
Ola pessoal,
a alguns dias utilizando o IBO eu fazia assim na passagem de parametro
na consulta
DM.FIDataAgendamento.close;
DM.FIDataAgendamento.ParamByName('varDataEnvio').AsString
:=datetostr(now);
DM.FIDataAgendamento.ParamByName('varFLAG').Value := 0;
DM.FIDataAgendamento.Open;
Hoje com FIB+
tento fazer isto
DM.FIDataAgendamento.close;
DM.FIDataAgendamento.ParamByName('varDataEnvio').AsString
:=datetostr(now);
DM.FIDataAgendamento.ParamByName('varFLAG').Value := 0;
DM.FIDataAgendamento.Open;
Ele da erro na conversão da data.
entao fiz assim
DM.FIDataAgendamento.close;
DM.FIDataAgendamento.ParamByName('varDataEnvio').AsString
:=datetostr(now);
DM.FIDataAgendamento.ParamByName('varFLAG').Value := 0;
DM.FIDataAgendamento.Open;
Porem nao sei por qual motivo ele nao me traz resultado algum mesmo
tendo informações com os dados passados.
Alguem pode me ajudar?
`
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] OFF TOPIC: Qualidade de Vida na Área de TI
Eu comecei, e logo sai fora ,muito longa e cansativa. Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br Em 16/08/2010 11:59, Marcelo escreveu: Na boa muito longa essa pesquisa, começei responder na ultima parte. respondi a olho 60 e poucas questões. acho demais De: Jorge Ericsson jericsson...@gmail.com mailto:jericssonsup%40gmail.com Enviadas: Segunda-feira, 16 de Agosto de 2010 11:36:05 Assunto: [delphi-br] OFF TOPIC: Qualidade de Vida na Área de TI *Olá amigos, Tenho um amigo que está defendendo uma dissertação e gostaria da colaboração se possível de todos que trabalham na área de TI. Segue o link abaixo: * * *Prezado Caso ao clicar no link, ao inves de abrir a pesquisa, tenha sido solicitado um login e senha. cancele. Por favor, copie o link abaixo: http://www.surveymonkey.com/s/profissionalti e cole na URL do bronwser para iniciar a pesquisa. Obrigado sandro Ola Jorge, tudo bem? Preciso de um grande favor. Estou iniciando uma pesquisa sobre profissionais e ambiente de TI. Poderia responder, enviar para seus colaboradores de TI, colegas de trabalho, parceiros TI, fornecedores TI. grato sandro Prezado(a) Colega(a) Estou realizando uma pesquisa para ser apresentada na minha defesa (dissertação) da Universidade Católica de Brasilia, no programa Mestrado em Gestão do Conhecimento e TI. Esta pesquisa tem por objetivo levantar dados sobre o ambiente de trabalho das TI´s nas organizações e como o profissional de TI(tecnologia da informação) se sente dentro deste ambiente. Ao mesmo tempo, a corrente pesquisa também procura identificar como os profissionais de TI lidam com um determinado problema relacionado ao seu ambiente de trabalho. Serão 31 questões referentes ao ambiente de trabalho das TI´s e como o profissional de TI se sente e 66 questões referentes a como os profissionais de TI lidam com um determinado problema dentro do seu ambiente de trabalho. O tempo médio para preencher a pesquisa é de 15 minutos. Ao responde-la estará concordando com a divulgação dos resultados lembrando que não existe nenhuma informação que possa identificá-lo. Os resultados serão apenas estatísticos. Minha expectativa é que a pesquisa traga como *resultado informações úteis para melhoria de qualidade de vida do profissional de TI dentro das organizações e neste sentido que os mesmos possam contribuir ainda mais para os resultados corporativos.* * * Clique aqui, para iniciar pesquisa: http://www.surveymonkey.com/s/profissionaltihttps://correio.sebrae.com.br/exchweb/bin/redir.asp?URL=https://correio.sebrae.com.br/exchweb/bin/redir.asp?URL=http://www.surveymonkey.com/s/profissionalti Obrigado Sandro Servino sandro.serv...@gmail.com mailto:sandro.servino%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Componente de Grid
Ola Eny, coloca algumas telas na web do seu sitema para vermos a eficiencia do jedy. Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br Em 13/08/2010 18:35, Eny Urias escreveu: JEDI não interessa? Eu estou usando e estou gostando... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Alexandre Marinho da Silveira xandi...@terra.com.br mailto:xandi_ms%40terra.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Agosto de 2010 16:15:02 Assunto: Re: [delphi-br] Componente de Grid Prezado Marlon Eu cheguei a testar os dois e achei a aprendizagem do componente da DevExpress mais simples e produtiva para mim. Sem contar que tudo o que eu precisei em matéria de grid, eu encontrei neste componente. Tudo depende de gosto pessoal. Na minha opinião, se você ganha produtividade com um componente e ele atende aos requisitos que você precisa, é o componente certo, mesmo que ele custe mais caro. Pode ser que você ache o pacote da TMS mais fácil de usar ou mais completo. Antes de você decidir, sugiro que você teste os dois e veja o que mais se adapta ao que precisa. Abraço Alexandre - Original Message - From: Murilo Cunha mcscu...@yahoo.com.br mailto:mcscunha%40yahoo.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Date: Fri, 13 Aug 2010 15:49:58 -0300 Subject: Re: [delphi-br] Componente de Grid Marlon, Eu gosto muito da DevExpress. TMS acho pesado e visual poluido! Mas este eh um gosto pessoal, pois os dois pacotes sao muito bons. Opte pelo mais barato OU que tenha mais dominio dos componentes Obrigado MuriloCunha On 13/08/2010 14:32, marlon david de souza wrote: Boa tarde a todos, Gostaria de uma opinião: Qual o melhor componente Grid para Delphi: da DevExpress ou o da TMS? Sem mais, Marlon David de Souza Desenvolvedor [As partes desta mensagem que não continham texto foram removidas] E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, visite http://ecp.terra.com.br/cgi-bin/reportspam.cgi?+_d=SCYxMDEwNDI2MyNwZXJtIXRlcnJhJjEsMTI4MTcyNTM1Ny4yNTM0MjAuMTUzMDguMWYyLnRwbi50ZXJyYS5jb20sMjA4OTg=TerraMail l Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Midas.dll
é o UAC do windows o probelma, se eu instalar o aplicativo em uma pasta fora do arquivos de programas ele funciona normalmente se eu colocar a midas dentro da mesma pasta por exemplo c:\aplicativo,. porem se eu coloco dentro do arquivos de programas ele ja da erro,. Desativei o UAC e pronto resolveu, agora vou testar colocando o midaslib no aplicativo para ver se funciona sem problema. Obrigado a todos Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br www.marketsistemas.com.br Em 12/08/2010 08:53, Claudiney Cogo escreveu: Bom dia Pablo. Experimente colocar o MidasLib na uses da unit inicial do seu projeto. Ou, caso seu sistema seja 64 bits, coloque o Midas.dll na pasta c:\Windows\SysWOW64. É lá que o Windows 7 64 bits busca os dlls. Abraço. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2solutions.com.br/ www.n2solutions.com.br http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br http://www.studion2.com.br/ www.studion2.com.br De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Pablo Farias Enviada em: quarta-feira, 11 de agosto de 2010 17:39 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br; lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Midas.dll Ola pessoal, estou tendo um problema, que julgava ser facil ser resolvido, porem passei quase o dia todo tentando resolver e nao consegui. O sistema nao importa aonde ele é instalado ele da o erro 'Error Loading Midas.dll' Porem ja tentei colocar no system32 do windows 7 ja tentei copiar para a pasta aonde esta o sistema, e nada de resolver, alguem ja passou por isto e conseguiu resolver de qual forma? Obrigado -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br mailto:developer%40marketingrapido.com.br mailto:developer%40marketingrapido.com.br www.marketingrapido.com.br www.marketsistemas.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Estrutura Padrão de Softw are
Utilizo a mesma forma que nosso amigo Jhosef, não sabia que chamava TDI Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br www.marketsistemas.com.br Em 12/08/2010 16:52, Jhosef Marks escreveu: Bom, eu uso TDI e não tenho do que reclamar, logo que viram alguns dizerem, e quando a tela é pequena e tem poucos campos, fica aquele espaço todo vazio, bom, dane-se o espaço vazio, se vc abre o word ele abre com uma folha inteira em branco... a folha naum vai ficando maior de acordo com o que vc digita... rs Mas... cada um tem seu estilo... Veja esses prints... http://www.jmsoftwares.com.br/erp O usuário abre quantas janelas quiser, só não mais de uma da mesma... rs Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 12 de agosto de 2010 08:21, Adriano de F. Trindade trind...@desbrava.com.br escreveu: Opa! Mas eu faço isso em SDI. Se estou no cadastro de estoque e preciso cadastrar uma família de estoque, eu chamo o form de cadastro de famílias do estoque, a família é inserida, depois volta para o estoque e continua a preencher o cadastro. A diferença é o usuário só volta para o cadastro de estoque depois de concluir e fechar o cadastro de famílias, o usuário não tem liberdade para alternar de um para outro conforme sua vontade, e sim da maneira que eu determino. Desta maneira eu sei o que esperar e não perco o controle. Falou! -Mensagem original- De: delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br] Em nome de Luciano Bruno Enviada em: quarta-feira, 11 de agosto de 2010 20:25 Para: delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Estrutura Padrão de Software Eu tenho aplicaçoes relativamente grandes e uso MDI. uma das coisas que eu faço é impedir que ele seja criado mais de uma vez. uma vantagem que vejo no MDI e TDI, é a liberdade de poder editar um cadastro auxiliar na ediçao de outro. tipo: no cadastro de um produto, poder cadastrar um grupo uma sessao etc. mais isso fica acriterio do desenvolvedor. Em 11 de agosto de 2010 11:36, Adriano de F. Trindade trind...@desbrava.com.brtrindade%40desbrava.com.br escreveu: Ei, eu não te impus uma regra. Falei que EU trabalho assim, eu trabalho somente com SDI. Tudo depende da maneira que a sua aplicação vai trabalhar. Você pode trabalhar com MDI e mastigar os problemas decorrentes disso. E mais de um cadastro aberto de cada vez? Você tem que questionar: “você vai precisar mexer em dois cadastros simultaneamente?” Porque a gente não permite isso, justamente porque cada pessoa faz uma coisa de cada vez: conclui-se um cadastro primeiro para depois abrir o próximo. Também outra coisa é abrir duas janelas DISTINTAS ao mesmo tempo e outra é abrir a MESMA janela mais de uma vez. Você tem que ver o que o cliente quer, e se é viável. Em muitos casos você tem que mudar a cabeça do cliente para não ter que fazer um monte de trabalho desnecessário. Só que você não consegue fazer isso sem argumentos sólidos, consistentes e convincentes. Um deles é o custo de desenvolvimento: “da maneira A eu faço em uma semana, da maneira B eu levo um mês porque tenho que reescrever tudo”. Também é uma coisa você fazer um sistema específico para um cliente e outra coisa radicalmente diferente é você fazer um sistema para vários clientes. Se um cliente te exige SDI e outro te exige MDI, qual que ganha? E, piorando, se 10 clientes exigirem MDI e 10 clientes exigirem SDI, como é que fica? Se você optar por SDI, o quê você vai dizer para quem não quer SDI? Vai dizer tchau? Tenha uma justificativa e ele a aceitará. Mas sem justificativa, não vai aceitar nunca. Porque um sistema para várias empresas jamais vai CONTENTAR á todas, mas pode ATENDER BEM á todas. E mesmo essas que não se contentaram, depois de um tempo se acostumam e param de reclamar. Afinal, a resistência à mudanças é uma constante, ninguém quer mudar, porque isso dá trabalho. “A fórmula do sucesso eu não sei, mas a do fracasso é agradar á todos” – Anônimo (corretíssimo) Falou! De: delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quarta-feira, 11 de agosto de 2010 11:03 Para: delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Assunto: Res: [delphi-br] Estrutura Padrão de Software Entendi Então, realmente, não ha como trabalhar com DataModule numa aplicação MDI? Porque foi uma das
[delphi-br] Midas.dll
Ola pessoal, estou tendo um problema, que julgava ser facil ser resolvido, porem passei quase o dia todo tentando resolver e nao consegui. O sistema nao importa aonde ele é instalado ele da o erro 'Error Loading Midas.dll' Porem ja tentei colocar no system32 do windows 7 ja tentei copiar para a pasta aonde esta o sistema, e nada de resolver, alguem ja passou por isto e conseguiu resolver de qual forma? Obrigado -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br www.marketsistemas.com.br
[delphi-br] Suspensao e Finalização de Thread
Ola, pessoal criei a thread, e tudo mais funciona perfeitamente, porem agora nao consigo encontrar uma forma de pausar a execução de uma thread, ou até mesmo encerrar ela. Alguem que tenha conhecimento sobre pode me ajudar? -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br
[delphi-br] Envio de varios emails
Ola pessoal, criei um sistema de envio de emails, porem ele faz um envio por vez utilizando o while porem eu preciso enviar varios emails de uma só vez, agluem tem ideia de como fazer? Utilizo os componentes do indy -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br www.marketingrapido.com.br
[delphi-br] Capitular Palavras
Ola pessoal, preciso capitular as palavras de uma string por exemplo pablo farias transformar em Pablo Farias Alguem sabe como fazer isto? -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br skype : marketingrapido www.marketingrapido.com.br
[delphi-br] Alterar String
Estou desenvolvendo um editor html para ser incluso no sistema de envio de email, porem quando eu salvo o conteudo do editor utilizando o TwebBrowser ele grava #NOME assim lt;#NOMEgt; porem até ai sem problema porem eu preciso que este conteudo ao ser aberto em um Tmemo eu preciso que ele ao inves de aparece lt;#NOMEgt; ele apareça corretamente #NOME Alguem tem ideia de como fazer isto? []s, -- Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br
Re: [delphi-br] Criar DataBase em Execução
Qual o banco de dados? Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br Em 19/07/2010 11:56, Ferreira escreveu: Colegas, Como eu posso criar uma Base de Dados FDB em tempo de execução. grato, josé ferreira [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Pegar Nome do Computador
Ola,
estou tentando pegar o nome do computador com a rotina abaixo porem nao
funciona da erro no GetComputerName, estou utilizando o Delpho 2010,
alguem pode me ajudar?
Function RetNmComp: String;
var
lpBuffer: Array [0 .. 20] of Char;
nSize: Word;
mRet: Boolean;
erro: Word;
begin
nSize := 120;
mRet := GetComputerName(lpBuffer, nSize);
if mRet then
Result := lpBuffer
else
begin
erro := GetLastError();
MessageDlg('Ocorreu o erro ' + IntToStr(erro) +
' ao procurar o nome do computador.', mtError, [mbOk], 0);
Result := '';
end;
end;
[]s,
--
Pablo Farias
Market Sistemas
Fone (81)3685.1562
www.marketsistemas.com.br
