sobre a área de transferência (Clipboard)

[Rulez 0]

Olá!A minha intenção é que no onclick de um botao o endereço ip da máquina seja copiado para o clipboardSe alguém puder ajudar, pelo menos com a segunda parte...Obrigado e paz!

[marcio.theis 3]

A função para pegar o endereço IP você já possui ?

[Paulo Afonso Cordeiro 0]

Cara tenta isso

 

 

 

(...) Clipboard.AsText := IP;(...)

não se esqueça de colocar na clausula USES a unit Clipbrd.

 

 

 

T+

 

[marcio.theis 3]

Outra forma de se fazer é você atribuir o valor do IP para um Edit, e então:

 

editIP.SelectAll;editIP.CopyToClipboard;

[Rulez 0]

massa, nao achei que era simples assim

 

Valeu moçada, funciono

 

Editando--> A propósito

 

a função pra pegar ip eu achei nas ocorrencias do google

 

function LocalIP : string;

//

// Retorna o IP de sua máquina no momento em que

// você está conectado

//

// Declare a Winsock na clausula uses da unit

//

type

TaPInAddr = array [0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

phe : PHostEnt;

pptr : PaPInAddr;

Buffer : array [0..63] of char;

I : Integer;

GInitData : TWSADATA;

begin

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer, SizeOf(Buffer));

phe :=GetHostByName(buffer);

if phe = nil then

begin

Exit;

end;

pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;

while pptr^ <> nil do

begin

result:=StrPas(inet_ntoa(pptr^^));

Inc(I);

end;

WSACleanup;

end;

[marcio.theis 3]

É verdade... Algumas coisas que achamos que é estremamente complicado, na verdade são procedimentos simples que precisamos fazer... :P