É verdade, Luiz! A função CoCreateGUID() cria um novo GUID (Global Unique IDentifier). Se quiser saber como pegar o MAC Address real do micro, consulte http://www.swissdelphicenter.ch/en/showcode.php?id=651
Sds. >From: "Luiz Escobar" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: <delphi-br@yahoogrupos.com.br> >Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas >Date: Tue, 13 Feb 2007 13:43:37 -0200 > >Amigo, desculpe, mas esta função não pega um MAC e sim CRIA aleatóriamente >um virtual............. >Tanto é, que cada vez que vc pedir o MAC vai vir um numero >diferente.......... > >Luiz Escobar >Analista/Desenvolvedor: >WEB - HTML/JavaScript/PHP/MySQL >WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase >DOS - Clipper/Assembler xBase >SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k >LINUX - LAZARUS/Kylix/MySQL; >http://www.megasistema.com.br > > > ----- Original Message ----- > From: Rodrigo Madureira Barbosa > To: delphi-br@yahoogrupos.com.br > Sent: Monday, February 12, 2007 6:29 PM > Subject: RES: [delphi-br] Pegar o MAC do micro - duvidas > > > Tenho uma aqui... se servir... aí está... > > function CoCreateGuid(var guid: TGUID): HResult; stdcall; far external > 'ole32.dll'; > > function GetMACAddress: string; > > var > > g: TGUID; > > i: Byte; > > begin > > Result := ''; > > CoCreateGUID(g); > > for i := 2 to 7 do > > Result := Result + IntToHex(g.D4[i], 2); > > end; > > Fui... > > Rodrigo. > > _____ > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] >Em > nome de Thiago Filiano (America Soft) > Enviada em: segunda-feira, 12 de fevereiro de 2007 15:33 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Pegar o MAC do micro - duvidas > > não estou com essa rotina aqui.. mas amanhã se conseguir coloco aqui >sim! > > Luiz Escobar escreveu: > > > > se quizer mandar ela pra gente dar uma olhada........ acho q fica mais > > facil....... > > > > Luiz Escobar > > Analista/Desenvolvedor: > > WEB - HTML/JavaScript/PHP/MySQL > > WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase > > DOS - Clipper/Assembler xBase > > SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k > > LINUX - LAZARUS/Kylix/MySQL; > > http://www.megasist <http://www.megasistema.com.br> ema.com.br > <http://www.megasist <http://www.megasistema.com.br> ema.com.br> > > > > ----- Original Message ----- > > From: Thiago Filiano (America Soft) > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> >os.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Monday, February 12, 2007 3:16 PM > > Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas > > > > então Luiz, > > > > tenho sim.. e eh aqui q esta o problema.. > > > > minha rotina esta pegando o MAC certinho, mas acontece que > > tem cliente que esta dizendo que o cabo está desconectado.. mas mesmo > > assim está > > identificando o MAC dele. > > > > a rotina foi feita para identificar o MAC somente com placa de rede >ativa. > > > > não sei o que esta ocorrendo :( > > > > []'s > > > > Thiago > > > > Luiz Escobar escreveu: > > > > > > Bom vc tem alguma rotina para ler direto do dispositivo ? pq acho q >as > > > q tenho são usando API´s.... > > > > > > Creio que isso seria de grande ajuda para todos. > > > > > > obrigado. > > > > > > Luiz Escobar > > > Analista/Desenvolvedor: > > > WEB - HTML/JavaScript/PHP/MySQL > > > WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase > > > DOS - Clipper/Assembler xBase > > > SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k > > > LINUX - LAZARUS/Kylix/MySQL; > > > http://www.megasist <http://www.megasistema.com.br> ema.com.br > <http://www.megasist <http://www.megasistema.com.br> ema.com.br> > > <http://www.megasist <http://www.megasistema.com.br> ema.com.br > <http://www.megasist <http://www.megasistema.com.br> ema.com.br>> > > > > > > ----- Original Message ----- > > > From: Andre Veloso de Mesquita > > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> > os.com.br > > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br> > > > Sent: Friday, February 09, 2007 8:25 PM > > > Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas > > > > > > Nota: No Windows é possível trocar o MAC. O MAC não será trocado na > > > placa de > > > rede, mas sim na camada lógica do Windows. Logo, quando vc ler o >MAC, > > > tente > > > lê-lo no dispositivo e não usando uma API qq do Windows. > > > > > > [ ]'s > > > > > > ----- Original Message ----- > > > From: "Luiz Escobar" <[EMAIL PROTECTED] > <mailto:escobar%40megasistema.com.br> .com.br > > <mailto:escobar%40megasistema.com.br> > > > <mailto:escobar%40megasistema.com.br>> > > > To: <[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> > os.com.br > > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br>> > > > Sent: Friday, February 09, 2007 5:22 PM > > > Subject: Re: [delphi-br] Pegar o MAC do micro - duvidas > > > > > > BLZ Thiago...... > > > Bom o modem não tem MAC-address, pode até ter um código de > > > indentificação, > > > mas não sei como pegar isso.... > > > > > > MAC-address é um número de série gravador na sua placa de rede, cada > > > uma tem > > > o seu (acontece de repetir, mas é raro, então esqueca isso por > > > enquanto, mas > > > saiba que acontece!)...... > > > > > > SIM, tendo ou não o cabo conectado vc vai ter sempre o mesmo número >MAC. > > > > > > exemplo de MAC : > > > 00:0A:E6:40:1B:49 > > > ou > > > 000A:E640:1B49 > > > ou > > > 000AE6401B49 > > > é um valor de 48 bit´s..... > > > então a cada 281.474.976.710.655 vai se repetir.... rsrsrsrs > > > não é bem assim não, mas deixa isso pra lá.... heheheheh > > > > > > O que pode mudar é o número de IP...... > > > > > > exemplo de IP´s internos, intranet: subistitua o X por um valor > > entre 1 e > > > 254 > > > 192.168.0.x > > > 10.x.x.x > > > 169.x.x.x > > > > > > exemplo de IP´s externos, internet: subistitua o X por um valor > > entre 1 e > > > 254 > > > 64.x.x.x > > > 200.x.x.x > > > 201.x.x.x > > > etc... > > > > > > Quando ao XP, ele vai te dar sempre um número de IP, mas nem sempre > > > vai ser > > > o mesmo, primeiro ele vai procurar o DHCP na rede, se não achar ele >vai > > > pedir ao DHCP interno dele e vai receber um número 169.x.x.x, no 98 > > > acho que > > > vem zerado.....mas ja faz tempo nao lembro....... > > > > > > Luiz Escobar > > > Analista/Desenvolvedor: > > > WEB - HTML/JavaScript/PHP/MySQL > > > WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase > > > DOS - Clipper/Assembler xBase > > > SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k > > > LINUX - LAZARUS/Kylix/MySQL; > > > http://www.megasist <http://www.megasistema.com.br> ema.com.br > <http://www.megasist <http://www.megasistema.com.br> ema.com.br> > > <http://www.megasist <http://www.megasistema.com.br> ema.com.br > <http://www.megasist <http://www.megasistema.com.br> ema.com.br>> > > > > > > ----- Original Message ----- > > > From: Thiago Filiano (America Soft) > > > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> > os.com.br > > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br> > > > Sent: Friday, February 09, 2007 3:54 PM > > > Subject: [delphi-br] Pegar o MAC do micro - duvidas > > > > > > Pessoal, estou com duvidas.. > > > > > > Alguém já tem essas respostas?? estou passando por um problema, que >ta > > > dificil de resolver, > > > tenho um palpite, mas não consegui um definição certa. > > > > > > ai vai minhas duvidas: > > > > > > usando WINXP: qdo pego o serial MAC pelo Delphi > > > > > > quando estou com um cabo de rede ligado em meu pc mas com conexao > > > desativada, recebo o numero de MAC? ou vem zerado (0000)?? > > > > > > quando estou com o cabo ligado e a rede ligada sei que vem a > > > identificação 021AD122 (exemplo); > > > quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? > > > > > > usando WIN98 > > > > > > quando estou com um cabo de rede ligado em meu pc mas com conexao > > > desativada, recebo o numero de MAC? ou vem zerado (0000)?? > > > > > > quando estou com o cabo ligado e a rede ligada sei que vem a > > > identificação 021AD122 (exemplo); > > > quando tiro o cabo, que valores recebo? zerado, ou o numero MAC? > > > > > > se eu tiver modem, e não placa de Rede... recebo algum valor para >MAC?? > > > > > > com cabo desconectado mesmo assim recebo endereço de MAC?? > > > > > > alguém possui esses levantamentos?? > > > > > > muito grato! > > > > > > Thiago Filiano > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > -- > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > Links do Yahoo! Grupos > > > > > > [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] > > > > > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
