Funcão que retorna o IP

Função que retorna o IP Esta Função retorna o seu numero de IP, desde que você esteja conectado com a internet. Inclua na seção uses: WinSock function GetLocalIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer;

Continuar lendo »

Função que retorna a idade de uma pessoa

Função que retorna a idade de uma pessoa function idade(Nascimento,DataAtual:string):Integer; var idade,dian,mesn,anon,diaa,mesa,anoa:word; begin decodedate(StrToDate(DataAtual),anoa,mesa,diaa); decodedate(StrToDate(Nascimento),anon,mesn,dian); idade := anoa – anon; if mesn > mesa then begin idade := idade; end; if(mesn > mesa) and (dian > diaa)then begin idade := idade; end; result := idade; end;

Continuar lendo »

Converte String em Pchar

Função que converte String em Pchar em Delphi function StrToPChar(const Str: string): PChar; type TRingIndex = 0..7; var Ring: array[TRingIndex] of PChar; RingIndex: TRingIndex; Ptr: PChar; begin Ptr := @Str[Length(Str)]; Inc(Ptr); if Ptr^ = #0 then begin Result := @Str[1]; end else begin Result := StrAlloc(Length(Str)+1); RingIndex := (RingIndex + 1) mod (High(TRingIndex) + 1);

Continuar lendo »

Retorna a impressora Padrão do windows

function PrinterPadrao :String; // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; begin Printer.GetPrinter(Device, Driver, Port, hDMode); Result := Device+’ na porta ‘+Port; end;

Continuar lendo »

Uma rotina para verificar erros em toda a aplicação

Para tratar erros de forma genérica, em todo o seu programa, insira no método ON CREATE do formulário principal a linha: Application.OnException:=RotinaGeral; RotinaGeral é uma procedure na qual deverá constar o código para verificar e enviar as mensagens de erro do seu sistema.

Continuar lendo »
Pages:«1...6789101112...22»