[delphi-br] Excel sem OLE
Pessoal , boa noite. Alguem poderia me dar uma luz , preciso gerar uma planilha formatada (simples , sem formulas) no excel... porém tem como fazer isto sem usar OLE ?? obrigado. []s a todos Les mondes virtuels vous connaissez ? Telechargez le navigateur 3D et visitez des centaines de mondes virtuels gratuitement ! http://www.activeworlds.fr -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] LX 300 X QUICKREPORT ????
Caro amigo não faço idéia de como solucionar o seu problema mas gostaria de contar uma experiência desagradável que eu tive com a LX300 + QuickReport. Na na visualizaçõa do Relatório tudo era mostrado certo, mas na hora de imprimir ele imprimia errado, às vezes saia o texto todo embolado e não dava pra entender nada. Outra coisa estranha é que 2 máquinas imprimiam na mesma impressora, 1 máquina era Windows 95 ( servidor de impressão ) e outra Windows XP ( Servidor de Banco de Dados) a visualização era igual mas a impressão era diferente nas 2 máquinas. Depois de vários testes desobri que um dos problemas era na configuração do formato do papel, onde mudel pro formato Padrão ( se não me falha a memória ) e ai melhorou bastante, mas mesmo assim ainda imprimia um pouco diferente nas 2 máquinas. Por fim mudei pra Fortes Report e ai solucionou o problema. Mas foi uma época terrível. Espero que você consiga solucionar este teu problema. Abraços - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] LX 300 X QUICKREPORT ????
o PROBLEMA PODE ESTAR BNO TAMANHO DA PÁGINA. A PÁGINA DE UMA MATRICIAL É EM POL, 8" x 11" , VERIFIQUE O AJUSTE.. [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ergonomia em Software
http://www.labiutil.inf.ufsc.br/ergolist/ Com este link, respondam o questionario e saibam se seu software esta ergonomico... altem de trazer explicacoes sobre ergonomia vale a pena ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re[3]: [delphi-br] Nome do micro na rede
eu uso assim:
// Nome do computador
function ComputerName: String;
var
pName: PChar;
nWidth: Cardinal;
begin
nWidth := 100;
GetMem(pName, 100);
GetComputerName(pName, nWidth);
Result := StrPas(pName);
FreeMem(pName, 100);
end;
=
>De:Alcistemas Informática <[EMAIL PROTECTED]>
>Para:
>Assunto:Re: [delphi-br] Re: Nome do micro na rede
>
>faço assim funciona direitinho:
>
>begin
>label9.Caption := Nome_Computador();
>end;
>
>funcao:
>
>
>
>
>Function Nome_Computador():String;
>var
>registro : tregistry;
>begin
>registro:=tregistry.create;
>registro.RootKey:=HKEY_LOCAL_MACHINE;
>registro.openkey('System\CurrentControlSet\Servi
>ces\VXD\VNETSUP',false);
>result:=registro.readstring('ComputerName');
>if result = '' then
>begin
>
>registro.openkey('System\CurrentControlSet\Contr
>ol\ComputerName\ComputerName',false);
> Result:=registro.readstring('ComputerName');
>end;
>end;
>
>
>
>
>- Original Message -
>From: "juniormello"
><[EMAIL PROTECTED]>
>To:
>Sent: Friday, November 04, 2005 10:53 AM
>Subject: [delphi-br] Re: Nome do micro na rede
>
>
>olha, eu não testei, mas acho que sei qual o
>prob
>fuçando no win2k aqui, descobri que essa chave
>não tem o nome da
>maquina. a chave que encontrei com o nome são:
>
>HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\
>ComputerName\ActiveComputerName
>HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\
>ComputerName\ComputerName
>HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\
>ComputerName\ComputerName
>HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Cont
>rol\ComputerName\ActiveComputerName
>HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Cont
>rol\ComputerName\ComputerName
>
>espero q tenha ajudado
>[]'s
>
>--- Em delphi-br@yahoogrupos.com.br,
>"pcinfowave" <[EMAIL PROTECTED]> escreveu
>>
>> Ola...
>>
>> Uso a fução GetNetStation p/ detectar o nome
>do micro na rede. Com
>> Win98 funciona bem, exibindo o nome da
>máquina, porem c/ Win XP nao
>> deu certo.
>>
>> Alguem poderia me dizer qual a função que me
>exibirá o nome do micro
>> no WinXP?
>>
>> //FUNCTION
>>
>
>##
>> function GetNetStation(Tipo:Integer) : String;
>> var Reg : TRegistry;
>> begin
>> Reg := TRegistry.Create;
>> Result := '(n/a)';
>> with Reg do
>> Try
>> RootKey := HKEY_LOCAL_MACHINE;
>> if
>OpenKey('System\CurrentControlSet\Services\VxD\V
>NETSUP',
>> False) then
>> begin
>> Case Tipo of
>> 1: Result :=
>ReadString('ComputerName');
>> 2: Result :=
>ReadString('Workgroup');
>> 3: Result := ReadString('Comment');
>> end;
>> end;
>> Finally
>> CloseKey;
>> Free;
>> end;
>> end;
>>
>>
>> USA-se assim:
>>
>> BarraStat.Panels[2].Text := 'Máquina: ' +
>GetNetStation(1);
>
>
>
>
>--
>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
>MENSAGEM >
>
>
>
>Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>___
>Yahoo! Acesso Grátis: Internet rápida e grátis.
>Instale o discador agora!
>http://br.acesso.yahoo.com/
>
>
>
>
>
>--
>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
>MENSAGEM >
>
>http://br.groups.yahoo.com/group/delphi-br/messa
>ges
>
>[EMAIL PROTECTED]
>
>Links do Yahoo! Grupos
>
>http://br.groups.yahoo.com/group/delphi-br/
>
>
>http://br.yahoo.com/info/utos.html
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Arquivo - comandos.txt
Comandos e endereços especiais do servidor eGroups - Lista delphi-br [EMAIL PROTECTED] para postar uma mensagem para a lista [EMAIL PROTECTED] manda um email para TODOS os owners e moderadores. Tanto pode ser usado pelo assinante (ou não) para comunicação direta com os responsáveis, QUANTO pode ser usado pelos próprios owners como se fosse uma listinha privativa dos moderadores, para discussão de questões administrativas da lista sem a ciência dos membros normais. Endereços de Comandos: (Envie uma msg em branco) [EMAIL PROTECTED] assina a lista [EMAIL PROTECTED] cancela a assinatura da lista [EMAIL PROTECTED] Ativa modo NO MAIL - suspende temporariamente a entrega de e-mails, sem sair da lista [EMAIL PROTECTED] Ativa modo DIGEST - Assinante passa a receber as mensagens em modo Digest (uma única mensagem é enviada, com todo texto, a cada final de dia, ou a cada vez que houverem 25 mensagens - o que ocorrer primeiro) [EMAIL PROTECTED] Desativa NO MAIL ou DIGEST - Estando em modo "digest" ou "no mail", o assinante volta ao modo NORMAL de recebimento por e-mails individuais. Obs. Note que o e-mail remetente deve ser o mesmo e-mail de recebimento das mensagens. -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Arquivo - Files.txt
COMO OBTER ACESSO À SEÇÃO DE ARQUIVOS DA LISTA. --- Para ter acesso à todos os recursos da Lista Delphi-BR, você precisa estar inscrito no YahooGrupos. Todas as listas hospedadas pelo YahooGrupos possuem espaço para disponibilização de arquivos, enquetes, fotos, URL's e histórico de mensagens, entre outros recursos. Os passos abaixo o auxiliarão no acesso à seção de arquivos da lista: - Acesse o site da lista http://lista.delphi-br.org/. - Clique no link "Entre neste grupo". - Irá aparecer uma caixa de diálogo pedindo um login e uma senha do YahooGrupos. Quem já for filiado ao YahooGrupos por outros motivos, bastará digitar seu login e sua senha nos respectivos locais para que o mesmo vincule sua conta à lista. NOTA: Este cadastro é independente da sua inscrição na mesma feita via e-mail. - Após digitar seu login e senha do YahooGrupos e confirmar volte à página do grupo e verifique se todos os links da esquerda estão habilitados (Mensagens, Arquivos, Enviar, Bate-Papo, etc..). Caso não esteja mas você já seja membro do grupo, é sinal que você precisará ativar a sua conta no YahooGrupos com o mesmo. Neste caso o link que irá aparecer será "Editar minhas opções". - Se você não tem conta no YahooGrupos, clique no link "Cadastre-se agora". - Para quem não é associado, preencha todos os dados e confirme o envio. Lhe será enviada, pelo e-mail que você definiu, uma senha com a qual você passa a ter acesso aos serviços do Yahoo entre eles a lista de discussão. - Após este cadastro, volte ao endereço do site da lista e clique no link "Entre neste grupo". Verás que aparecerá uma tela de cadastro DO SEU PERFIL NO GRUPO. Basta cofigurar tudo do jeito que você desejar e confirme as alterações. - Feito isto, você verá que quando voltar ao site da lista novas opções estarão disponíveis para você, entre as quais a área "Arquivos" que é a área onde você pode baixar os arquivos que o pessoal disponibiliza na lista. Quaisquer dúvidas, favor contactar o moderador da lista: [EMAIL PROTECTED] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi + Fortran + C# + Java + [ linguagem qualquer ]
Salve lista ! Eu pessoalmente não conheco o D2005, mas já ouvi falar que ele ter certa integração com a liguagem C. Alguém pode dar uma leve explicação de como é isso? Quer dizer dá pra colocar dentro de um mesmo executável linhas de comando de C e delphi? Ou mesmo usar o delphi como a engine principal, e, quando certa parte do programa, o cara sabe fazer melhor em C, ele usa essa linguagem, e eras isso? Agora... em com outras liguaguens... a exemplo de fontran. Eu pego e termino meu executável nessa linguagem. Até que ponto vai a integração do delphi, além do comando de chamar um programa externo? Colocar as linhas de comando de outras linguagens dentro de delphi e mandar ele compicar certo que não vai funcionar... mas... que tipos de artifício vcs recomendariam, de forma que fosse muito dificil alguem descobir aonde é pascal, e onde é fortran? Eu preferencialmente gostaria de deixar até mesmo esses meus executávels externos dentro de alguma dll, se possivel, mas se não der, azar, vai sem isso mesmo, e só coloco na mesma pasta da minha engine principal. Como devem perceber, eu quero saber se tem como montar praticamente um frankenstein, nem que usando frames, mas eu nao gostaria que aparececem muitas 'cicatrizes' dessa mescla. Como por exemplo a cor do form ser a mesma para os dois, ou, que, ambos detectem quando o windons é xp e trabalhem com seus temas. Creio que se for possivel a fortran, também o seja para algumas coutras linguagens, fazendo-se as instalações adicionais que cada linguagem exige. Alguém pode dar uma luz? -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Migrando do BDE para o DBExpress e ClientDataSet
Paulo... respondendo
a) Vc se sentirá mais familiarizado com a SQLQuery, já que vc veio do BDE, e
portar seus sistemas ficarão mais facilmente com SQLQuery do que com SQLDataset
b.1) vai do gosto do programador. A Borland, "parece", não tenho certeza que
recomenda mais o SQLDataset, pela flexibilidade de ser Query, Table ou Stored
Procedure(veja propriedade CommandType).
c) usando clientdataset, vc deverá usar o Dataserprovider entre a query e o
clientdataset, pelo DBExpress ser unidirecional, para permitir a navegação
entre os registros. Sua estrutura ficará assim:
SQLQuery(ou SQLDataset) + DataSetProvider + ClientdataSet + DataSource.
Portanto, toda persistência, inserção, exclusão, é feita no clientdataset e
aplicada no banco com o metodo ApplyUpdates(pertencente ao clientdataset também)
Voce, realmente pode passar os parametros pelo cliendataset sim, isso é muito
usado no esquema de multicamadas(onde o acesso, ou seja, a query está no
servidor de aplicação) e apenas o clientdataset está do lado do cliente. No
modelo client/server "eu".. veja bem, opinião pessoal... faço assim
ClientDataSet.Close
SQLQuery.parambyname('parametro').asstring := Valor
ClientDataSet.Open
Espero ter explicado... e vc deve ter percebido que eu uso o SQLQuery... e
torno a dizer: para portar seu sistema, SQLQuery te trará facilidades...
Mas se quiser usar SQLdataSet, fique q vontade...
Att.
Danilo
Paulo <[EMAIL PROTECTED]> escreveu:
Pessoal:
Estou estudando os componentes do DBExpress do Delphi 7,
pois pretendo migrar meus sistemas que atualmente utilizam
Delphi 3 com BDE 5.202
Solicito a gentileza de me orientar com as seguintes dúvidas:
a) No Delphi 3/BDE, utilizo apenas componentes Query (não uso Tables)
e alguns (poucos) ClientDataSets. Suponho que terei maior facilidade
se eu trocar os TQuery do BDE por SQLQuery do DBExpress (junto
com o ClientDataSet, onde for necessário). Este
pensamento está correto ? Ou vocês acham que eu devo partir
logo para o SQLDataSet ? (junto com o ClientDataSet, onde
for necessário)
b) Nos módulos NOVOS que eu vier a criar:
b.1) Se nesse NOVO módulo, que escreverei "do zero", sem ter
de substituir TQuerys do BDE, o melhor é usar SQLQuery,
ou SQLDataSet ? Quais as principais diferenças entre eles ?
Há vantagens em usar um ou outro ? E desvantagens ?
c) Nos módulos em que o usuário pode alterar dados, navegar
em DBGrids, etc., vou usar um ClientDataSet junto com o
SQLDataSet ou SQLQuery (dependendo do que vocês responderem acima).
Estou confuso sobre em que componente devo colocar o comando
SQL, onde criar campos persistentes (quando for necessário),
e onde alimentar parâmetros. No BDE, eu fazia tudo isso nas TQuery,
mas agora, ao trabalhar com ClientDataSet com SQLDataSet (ou SQLQuery),
não sei em que componente é melhor colocar os comando SQL, os parâmetros,
os campos persistentes, etc. O que podem me dizer a respeito disso ?
Muito obrigado pela atenção de todos.
Paulo
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new
Array();lrec_URL[1]="http://br.rd.yahoo.com/SIG=12fue557n/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1131247160/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1)";var
lrec_altURL="http://br.rd.yahoo.com/SIG=12fue557n/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1131247160/A=2950750/R=1/id=altimg/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif";var
lrec_width=300;var lrec_height=250;
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
-
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] LX 300 X QUICKREPORT ????
Estou tendo problemas em fazer o Delphi imprimir corretamente em Impressoras Matriciais. via QuickReports, ele dá o seguinte erro, Suponha um relatorio qualquer de 3 páginas. A primeira é impressa corretamente, mas a segunda fica descolada para baixo em mais ou menos 1cm, e a terceira um pouco mais ainda. Não há nenhum comando especial na rotina de impressão. às vezes, quando o usuario vai no diálogo Configure Printer via Visualizador do QuickReport, o problema não ocorre mais, outras vezes persiste. if RL_MOV_CONTAS <> nil then begin RL_MOV_CONTAS.Free; RL_MOV_CONTAS:=Nil; end; RL_MOV_CONTAS:=TRL_MOV_CONTAS.Create(Self); PB_LARGURA := 215; PB_ALTURA := 278; Rl_Mov_Contas.Page.Width := PB_LARGURA; RL_Mov_Contas.Page.Length := PB_ALTURA; RL_Mov_Contas.Page.BottomMargin := 10; RL_Mov_Contas.Page.TopMargin:= 10; RL_Mov_Contas.Page.LeftMargin := 10; RL_Mov_Contas.Page.RightMargin := 10; no evento Before Print do report repeti o codigo acima e nada deu certo.. RL_MOV_CONTAS.lbl_sub_debito_2.Visible := false; RL_MOV_CONTAS.lbl_sub_credito_2.Visible := false; RL_MOV_CONTAS.lbl_sub_saldo_2.Visible := false; } ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Nome do micro na rede
faço assim funciona direitinho:
begin
label9.Caption := Nome_Computador();
end;
funcao:
Function Nome_Computador():String;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey('System\CurrentControlSet\Services\VXD\VNETSUP',false);
result:=registro.readstring('ComputerName');
if result = '' then
begin
registro.openkey('System\CurrentControlSet\Control\ComputerName\ComputerName',false);
Result:=registro.readstring('ComputerName');
end;
end;
- Original Message -
From: "juniormello" <[EMAIL PROTECTED]>
To:
Sent: Friday, November 04, 2005 10:53 AM
Subject: [delphi-br] Re: Nome do micro na rede
olha, eu não testei, mas acho que sei qual o prob
fuçando no win2k aqui, descobri que essa chave não tem o nome da
maquina. a chave que encontrei com o nome são:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\ComputerName\ComputerName
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName
espero q tenha ajudado
[]'s
--- Em delphi-br@yahoogrupos.com.br, "pcinfowave" <[EMAIL PROTECTED]> escreveu
>
> Ola...
>
> Uso a fução GetNetStation p/ detectar o nome do micro na rede. Com
> Win98 funciona bem, exibindo o nome da máquina, porem c/ Win XP nao
> deu certo.
>
> Alguem poderia me dizer qual a função que me exibirá o nome do micro
> no WinXP?
>
> //FUNCTION
> ##
> function GetNetStation(Tipo:Integer) : String;
> var Reg : TRegistry;
> begin
> Reg := TRegistry.Create;
> Result := '(n/a)';
> with Reg do
> Try
> RootKey := HKEY_LOCAL_MACHINE;
> if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP',
> False) then
> begin
> Case Tipo of
> 1: Result := ReadString('ComputerName');
> 2: Result := ReadString('Workgroup');
> 3: Result := ReadString('Comment');
> end;
> end;
> Finally
> CloseKey;
> Free;
> end;
> end;
>
>
> USA-se assim:
>
> BarraStat.Panels[2].Text := 'Máquina: ' + GetNetStation(1);
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Links do Yahoo! Grupos
___
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Ergonomia de Software
Neste link http://www.labiutil.inf.ufsc.br/ergolist/ vcs encontraram material sobre ergonomia e um questionario para saber se seu software esta ergonomico... vale a pena ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Soma de campos e plotagem de Gráfico
Bem, eu fiz como o indicado, e, realmente, funciona =D. Muito obrigado Itamar! Agora... alguém tem idéia de algum pdf, ou link na internet que me ajude a fazer outras operações um pouco mais complexas, como fazer a média de três campos, porêm, se houver um desvio muito acentuado num desses campos, ele o desconsiderera e faz a média dos dois que deram mais próximos. Além disso, talvez até mesmo algo envolvendo letras [ se a palavra for sim, exacutar isso, se for diferente de sim, nao executar... ] outras tantas operações, e suas misturas? Além disso, eu não sei se é possivel fazê-lo de forma muito simples. É que faço engenharia, e queria saber também se com pascal, dá para trabalhar com operações como limites, derivadas e integrais, com strings específicas dessas funções [ se existirem ], ou eu tenho que ensinar ao delphi primeiro como é calculada a derivada, e, só depois, de dezenas de linhas de código para explicar como se deriva, é que eu posso chamar esse comando, e ele faz esse cálculo? Fora isso, alguém sabe como faço para plotar gráficos a partir de dados inseridos ou puxados de banco de dados depois das operações matemáticas realizadas? [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Soma de campos e plotagem de Gráfico
vou tentar: para o seu campo A,B e C Coloque um Maskedit para cada um deles e coloque no propriedade editmask 0.00 para aceitar somete numero. na proriedade OnExit (Ao sair) do seu campo B coloque o seguinte: campoC.text := FloatToStr(StrToFloat(CampoB.Text) +StrToFloat(CampoB.Text)) Isto é necessario porque o componentes visuais do delphi trabalham sempre com o fomato STRING dai a necessidade da conversao e reconversao. para o banco de dados é so seguir a mesma receita. qq coisa faca contato _ [EMAIL PROTECTED] MSN [EMAIL PROTECTED] analista de sistemas - Rio Grande - RS -- - Original Message - From: "fititnt" <[EMAIL PROTECTED]> To: Sent: Sunday, November 06, 2005 12:34 AM Subject: [delphi-br] Soma de campos e plotagem de Gráfico Bom dia a todos. Vou procurar ser bem explicativo. A situação é a seguinte. No primeiro caso, eu gostaria de inserir algum valor númerico no campo de texto A , e, assim que eu colocasse outro valor numérico no campo B, o programa realizasse a soma altomaticamente num campo C, que é o campo de resposta. Outra situação, é a de que, em vez de eu inserir os dados, eu realizo uma busca em um banco de dados externo, e os valores são exibidos em campos D e E, e, só a partir desdes estarem sendo exibidor, o campo F mostra a soma de D e E. Num terceiro caso, eu gostaria de ter um dado que é proveniente de um banco de dados no campo H seja somado a um valor que eu vou inserir no momento no campo I, e o valor, além de mostrado num campo de resultado K, seria plotado num gráfico qualquer, preferencialmente no que mais simples, o componente que normalmente acompanha o delphi. No caso, eu gostaria de saber quais são os componentes que devo usar nesses casos, e a sintaxe básica dos comandos. Claro que vou fazer mais doque só a soma, mas pedi só isso porque acredito que seja bem didádico para explicar, e, que sabendo-se disso, e tendo aonde procurar mais informação, o resto depende do cara. Aliás, se solberem algum link explicando melhor isso, eu agradeço. Tenho especial interesse pela plotagem gráfica, e de como fazê-la. -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Links do Yahoo! Grupos -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
