Retornar o ip da máquina

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja algumas dicas como: Retornar o ip da máquina, executar programa associado,etc

Retorna o ip da máquina no momento da conexão

Function GetIP:string;
//--> Declare a Winsock na clausula uses da unit
var
    WSAData: TWSAData;
    HostEnt: PHostEnt;
    Name:string;
begin
  WSAStartup(2, WSAData);
  SetLength(Name, 255);
  Gethostname(PChar(Name), 255);
  SetLength(Name, StrLen(PChar(Name)));
  HostEnt := gethostbyname(PChar(Name));
  with HostEnt^ do
  begin
    Result := Format('%d.%d.%d.%d',
    [Byte(h_addr^[0]),Byte(h_addr^[1]),
    Byte(h_addr^[2]),Byte(h_addr^[3])]);
  end;
    WSACleanup;
end; 


Por: Fernando Dos Santos Amador


Instalar o Quick Report no Delphi 7

Os Componentes do Quick Report estão inclusos no cd Delphi 7, apenas não são instalado, para tanto siga os seguitens passos:

Abra o Delphi, vá em COMPONENT -> INSTALL PACKAGES..., clique em ADD e localize o arquivo c:\arquivos de

programas\borland\delphi7\bin\dclqrt70.bpl.

Agora vc já poderá ver a paleta do QUICK REPORT no delphi. E ela será a última paleta, aí cabe a vc organizar!!!

Por: Fábio Corrêa

Executar programa associado
Executa programa associado e carrega arquivo informado(imagem, doc, http, email)

ShellExecute(Handle, 'open', PChar(Edit1.Text), '', '', SW_SHOWNORMAL);
ShellExecute(Handle, 'open', 'c:docbar.doc' , '', '', SW_SHOWNORMAL);

Isto tem o mesmo efeito do duplo clique no explorer.

Se a função for bem sucedida o valor de retorno é o handle da aplicaçao que esta sendo executada, ou o handle do servidor da

aplicaçao DDE.

Se a funçao falhar o valor de retorno é menor ou igual a 32.

Esta técnica também pode ser usada para imprimir um arquivo especificado substituindo 'open' por 'print'.

Por: Joaquim Antonio Vila Real

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?