Verificar a impressora, antes de uma impressão

Dicas de Programação Delphi

Como montar uma rotina em Delphi para verificar a impressora, antes de uma impressão Verificar se a impressora esta OK, antes de iniciar uma impressão é um bom procedimento, abaixo segue uma função que retorna true se a impressora esta pronta para imprimir. Function PrinterOnLine : Boolean; Const PrnStInt : Byte = $17; StRq :

Continuar lendo »

Compactando tabelas Paradox no Delphi

Compactando tabelas Paradox no Delphi procedure ParadoxPack(Table : TTable); var TBDesc : CRTblDesc; hDb: hDbiDb; TablePath: array[0..dbiMaxPathLen] of char; begin FillChar(TBDesc,Sizeof(TBDesc),0); with TBDesc do begin StrPCopy(szTblName,Table.TableName); StrPCopy(szTblType,szParadox); bPack := True; end; hDb := nil; Check(DbiGetDirectory(Table.DBHandle, True, TablePath)); Table.Close; Check(DbiOpenDatabase(nil, ‘STANDARD’, dbiReadWrite, dbiOpenExcl,nil,0, nil, nil, hDb)); Check(DbiSetDirectory(hDb, TablePath)); Check(DBIDoRestructure(hDb,1,@TBDesc,nil,nil,nil,False)); Table.Open; end; Para compactar tabelas Dbase use

Continuar lendo »

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 »
Pages:«123456789...22»