BACKUP USANDO GBAK FIREBIRD 2.52

GBAK -B -G -IG -L C:\PASTA\BANCO.FDB C:\PASTA\BKP\BACKUP.FBK -USER USUARIO -PAS senha -V

Video Aula - DBGRID em delphi

http://www.4shared.com/rar/LrF4cp25/dbgrid-aulas.html

muito bom mini-curso sobre as dbgrid

CD João Carreiro e Capataz - lado a lado b

http://www.4shared.com/rar/-EieEKAX/joao_carreiro_e_capataz_lado_a.html

DELPHI - TIPOS DE MENSAGENS

No delphi estão disponíveis três métodos: ShowMessage, MessageDlg e MessageBox.

ShowMessage:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage('A sua Mensagem');
end;
MessageDlg

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    MessageDlg('Mensagem qualquer', mtInformation, mbOKCancel, 0);
end;
Sendo que o 1º parâmetro é uma string, a mensagem propriamente dita. O 2º parâmetro é o tipo da mensagem. O 3º parâmetro é os botões que serão exibidos na caixa de diálogo.

Para este tipo de caixa de diálogo os seguintes tipos de diálogo estão disponíveis:

1
2
3
4
5
mtWarning
mtError
mtInformation
mtConfirmation
mtCustom
e os seguintes tipos de botões:

1
2
3
4
5
mbYesNoCancel
mbYesAllNoAllCancel
mbOkCancel
mbAbortRetryIgnore
mbAbortIgnore
MessageBox

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    Application.MessageBox('Mensagem', 'Título', mb_IconError + mb_Ok);
end;
Repare no trecho:

1
Application.MessageBox('...
A função MessageBox precisa de um handler. Neste trecho definimos que o Handler da MessageBox será a própria aplicação:

1
Application.MessageBox
. Caso contrário, seria necessário passar este handler como o primeiro parâmetro:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    MessageBox(handler, 'Mensagem', 'Título', mb_IconError + mb_Ok);
end;
Ainda sobre a função MessageBox, temos as seguintes opções quanto ao tipo de mensagem:

1
2
3
4
MB_ICONINFORMATION
MB_ICONERROR
MB_ICONWARNING
MB_ICONQUESTION
E os seguintes tipos de botões:

1
2
3
4
5
6
MB_OK
MB_OKCANCEL
MB_YESNO
MB_YESNOCANCEL
MB_RETRYCANCEL
MB_ABORTRETRYIGNORE
Para as funções MessageDlg e MessageBox existem Tipos de retorno, que nada mais é do que a resposta do usuário: o botão clicado:

1
2
3
4
5
6
7
IDOK
IDCANCEL
IDYES
IDNO
IDABORT
IDRETRY
IDIGNORE
Exemplos:
> MessageDlg

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
    if(MessageDlg('Deseja salvar o arquivo?', mtConfirmation, mbOKCancel, 0) = IdOk)then
     begin
       //Execute a ação de salvar o arquivo
     end;
end;
> MessageBox

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
    if(Application.MessageBox('Deseja salvar o arquivo?', 'Salvar', MB_ICONINFORMATION + MB_OKCANCEL) = IdOk)then
     begin
       //Execute a ação de salvar o arquivo
     end;
end;
Nota: Existem mais tipos de mensagens, botões e retorno do usuário, que são constantes definidas na unit ‘Windows’.

DESCOBRIR O TAMANHO DE UM ARQUIVO DO COMPUTADOR - DELPHI

{ A função abaixo retorna o tamanho do arquivo, ou -1
  se o arquivo não for encontrado }

function TFORM1.FileSize(const FileName: string): integer;
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(FileName, faArchive, SR);
  try
    if I = 0 then
      Result := SR.Size
    else
      Result := -1;
  finally
    FindClose(SR);
  end;
  WTAMANHO_ARQUIVO:=RESULT;
end;

COLOQUE O CODIGO ABAIXO EM UM BOTAO:

   filesize(EDITWPASTA.TEXT+'\'+EDITWARQUIVO.TEXT);
   SHOWMESSAGE(INTTOSTR(WTAMANHO_ARQUIVO));

UPDATE EM UMA TABELA COMO DADOS DE OUTRA TABELA

UPDATE TABELA1 A SET A.CAMPO1 =
(SELECT B.CAMPO2 FROM TABELA2 B
WHERE A.CAMPO_CAHVE=B.CAMPO_CHAVE
AND A.CAMPO_CHAVE2=B.CAMPO_CHAVE2
AND A.CAMPO_CHAVE3=B.CAMPO_CHAVE3)
WHERE A.CAMPO_CONDICAO = '06/01/2012'

COMPACTAR ARQUIVO NO RAR SEM PASTAS E COM SENHA

COMPACTAR ARQUIVO NO RAR SEM PASTAS E COM SENHA

Para compactar um arquivo no RAR (aplicativo ligado ao WinRar) sem a estrutura de pastas e com senha use a comando abaixo

RAR  a -hpSENHA -ep ARQUIVO_COMPACTADO ARQUIVO_COMPACTAR

SENHA=senha que voce escolheu

ARQUIVO_COMPACTADO = caminho do arquivo final - compactado
ARQUIVO_COMPACTAR = caminho do arquivo que você quer compactar

exemplo:

rar a -hp123456 -ep c:\zipado.zip c:\pasta\\pasta_interna\texto,txt

colaboração e dica do amigo Douglas

criando rede virtual - onde não há rede

fonte: http://support.microsoft.com/kb/839013/pt-br

Como instalar o Microsoft Loopback Adapter no Windows XP

ID do artigo: 839013 - Exibir os produtos aos quais esse artigo se aplica.

Dica do Sistema
Este artigo aplica-se a uma versão do Windows diferente da que você está usando. O conteúdo deste artigo pode não ser relevante para você.
Visite o Centro de Suporte de Windows 7
Para obter uma versão deste artigo para o Microsoft Windows 2000, consulte 236869.
Expandir tudo | Recolher tudo
Nesta página
Sumário
 Instalação manual
 Instalação autônoma
Mais Informações
Propriedades
Submeter comentários
Sumário
O Microsoft Loopback Adapter é uma ferramenta de testes para um ambiente de rede virtual no qual o acesso à rede não está disponível. Além disso, é necessário usar o adaptador de Loopback se houver conflitos com um adaptador de rede ou com um driver de adaptador de rede. É possível vincular os clientes de rede, os protocolos e outros itens de configuração de rede ao adaptador de Loopback, além de instalar o driver de adaptador de rede ou adaptador de rede, posteriormente, enquanto mantém as informações de configuração da rede. Também é possível instalar o adaptador de Loopback durante o processo de instalação autônoma.

Instalação manual

Para instalar manualmente o Microsoft Loopback Adapter no Windows XP, execute as seguintes etapas:
Clique em Iniciar e em Painel de controle.
Se estiver no modo de exibição Clássico, clique em Alternar para o modo de exibição por categoria em Painel de controle no painel à esquerda.
Clique duas vezes em Impressoras e outros itens de hardware e clique em Avançar.
Em Consulte também no painel à esquerda, clique em Adicionar hardware e em Avançar.
Clique em Sim, já conectei o item de hardware e em Avançar.
Na parte inferior da lista, clique em Adicionar novo dispositivo de hardware e em Avançar.
Clique em Instalar o hardware que eu selecionar manualmente em uma lista e em Avançar.
Clique em Adaptadores de rede e em Avançar.
Na caixa Fabricante, clique em Microsoft.
Na caixa Adaptador de rede, clique em Microsoft Loopback Adapter e em Avançar.
Clique em Concluir.
Após a instalação do adaptador ser concluída com êxito, você poderá configurar manualmente suas opções, da mesma forma que qualquer outro adaptador. Se as propriedades TCP/IP estiverem configuradas para usar DHCP, o adaptador usará, eventualmente, um endereço autonet (169.254.x.x/16) uma vez que ele não está realmente conectado a uma mídia física.

Observação Por padrão, as propriedades TCP/IP são configuradas para usar o DHCP.

Inicio

Bom dia

vou postar aqui tudo que achar interessante ao meu gosto, para quem quiser, e possa utilizar de forma util e proveitosa.