como remover o php

PHP 5.6

sudo apt-get remove --purge php5*
sudo apt-get autoremove



** a mesma coisa caso tiver outra versao, exemplo: PHP 7.1

sudo apt-get remove --purge php7*
sudo apt-get autoremove

como habilitar gerenciador de tarefas ( windows )

1 - clique em iniciar ou win+R escrever regedit OK.
na janela do regedit procurar a entrada:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
como atalho pode buscar a chave usando ctrl+F e procurar DisableTaskMgr
localizado.. alterar valor dessa chave para 0 na base hexadecimal.

com isso o gerenciador de tarefas vai ficar habilitado. conferir ctrl+shift+esc ;)

erro no suporte a canais seguros (NF-e A3 Token)

este erro ocorre por falha de comunicacao entre aplicacao e a SEFAZ.
1 - ir em painel de controle / opcoes de internet
2 - na guia avancada, tem uma caixa configuracoes, ir ate as ultimas opcoes:
3 - *marcar a opcao: Usar SSL 2.0;
      *desmarcar a opcao: Usar SSL 3.0;
      *marcar a opcao “Usar TLS 1.0”;
      *desmarcar as opcoes "TLS 1.1 e 1.2";
      *aplicar , ok, fechar .. tente transmitir novamente.

caso o problema continue desabilite o proxy, o firewall e o anti-virus.
se mesmo assim continuar o problema deve ser problema no certificado ou na cadeia de certificado. neste caso fazer uns testes online ou verificar se o mesmo nao ta vencido ;)

usar mais de uma conta skype ao mesmo tempo

em executar (ctrl+r)

informar a localizacao de instalacao do seu skype entre aspas + /secondary

exemplo:
"C:\Program Files (x86)\Skype\Phone\Skype.exe" /secondary

depois do enter abrira uma nova instancia para voce informar a outra conta.

como obter codigo fonte - source do ie ( delphi )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, ActiveX, MSHTML, SHDocVw, StdCtrls;

type
  TObjectFromLResult = function(LRESULT: lResult; const IID: TIID;
  WPARAM: wParam; out pObject): HRESULT; stdcall;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
function WB_GetHTMLCode(WebBrowser: iwebbrowser2; ACode: TStrings): Boolean;

implementation

{$R *.dfm}

function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
  hInst: HWND;
  lRes: Cardinal;
  MSG: Integer;
  pDoc: IHTMLDocument2;
  ObjectFromLresult: TObjectFromLresult;
begin
  hInst := LoadLibrary('Oleacc.dll');
  @ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
  if @ObjectFromLresult <> nil then begin
    try
      MSG := RegisterWindowMessage('WM_HTML_GETOBJECT');
      SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
      Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
      if Result = S_OK then
        (pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE);
    finally
      FreeLibrary(hInst);
    end;
  end;
end;

function WB_GetHTMLCode(WebBrowser: iwebbrowser2; ACode: TStrings): Boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  s: string;
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  s := '';
  ss := TStringStream.Create(s);
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
    if Result then ACode.Add(ss.Datastring);
  finally
    ss.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hIE: THandle;
  IE: iwebbrowser2;
begin
  hIE:=FindWindow('IEFrame',nil);
  hIE:=FindWindowEx(hIE,0,'Frame Tab',nil);
  hIE:=FindWindowEx(hIE,0,'TabWindowClass',nil);
  hIE:=FindWindowEx(hIE,0,'Shell DocObject View',nil);
  hIE:=FindWindowEx(hIE,0,'Internet Explorer_Server',nil);
  if hIE <> 0 then
  begin
    GetIEFromHWnd(hIE, IE);
    Memo1.Clear;
    WB_GetHTMLCode(IE, Memo1.Lines);
  end;
end;

end.

como criar arquivo de qualquer tamanho ( delphi )

procedure rtncriar_arquivo(nome: string; tamanho: integer);
var
  f: hwnd;
begin
  f := createfile(pchar(nome), GENERIC_READ or
       GENERIC_WRITE, 0, 0, OPEN_ALWAYS,
       FILE_ATTRIBUTE_NORMAL, 0);
  SetFilePointer(f, tamanho * 1024 * 1024, nil, FILE_CURRENT);
  SetEndOfFile(f);
  closehandle(f);
end;

como obter o nome do arquivo de cache do ie (delphi)

uses WinInet;

function GetCacheFileName(const Url: string; var FileName: string): Boolean;
var
  Info: PInternetCacheEntryInfo;
  InfoBufSize: Cardinal;
begin
  Result := False;
  InfoBufSize := 0;
  GetUrlCacheEntryInfo(PChar(Url),
    TInternetCacheEntryInfo(nil^), InfoBufSize);
  if GetLastError = ERROR_INSUFFICIENT_BUFFER then begin
    GetMem(Info, InfoBufSize);
    try
      Result := GetUrlCacheEntryInfo(PChar(Url),
        TInternetCacheEntryInfo(Info^), InfoBufSize);
      if Result then  
      begin
        FileName := Info^.lpszLocalFileName;
      end;
    finally
      FreeMem(Info);
    end;
  end;
end ;

paginacao ( php )

<html>

<head>

<title>paginacao</title>

</head>

<body>

<?php

//conexao com banco de dados

$con = mysql_connect("localhost","root","");

$banco = mysql_select_db("paginacao");

$busca = "SELECT * FROM tabela";

// numero de registro por pagina

$total_reg = "10";

//verifica se existe a pagina na query string

$pagina = isset($_GET["pagina"]) ? $_GET["pagina"] : "1";

//se nao existe na query string, vira 1

$pc = $pagina;

//valor inicial da busca

$inicio = $pc - 1;

$inicio = $inicio * $total_reg;

//dados da paginacao

$limite = mysql_query("$busca LIMIT $inicio,$total_reg");

$todos = mysql_query("$busca");

// verifica o numero total de registro

$tr = mysql_num_rows($todos);

// verifica o numero total de paginas

$tp = $tr / $total_reg;

// vamos criar a visualizacao

while ($dados = mysql_fetch_array($limite)) {

$nome = $dados["nome"];

echo "nome: $nome<br>";

}

//controle de pagina "anterior e proxima"

$anterior = $pc -1;

$proxima = $pc +1;

if ($pc > 1) {

echo " <a href='?pagina=$anterior'><- anterior</a> ";

}

echo "|";

if ($pc < $tp) {

echo " <a href='?pagina=$proxima'>proxima -></a>";

}

?>

</body>

</html>

como eliminar registro duplicado (firebird)

delete from NOME_TABELA A

where (select count(B.NOME_CAMPO)
from NOME_TABELA B
where B.NOME_CAMPO = A.NOME_CAMPO) > 1