Ir para conteúdo
Fórum Script Brasil

Solid Snake

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    18

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Solid Snake

  1. Problema Ao Copiar Arquivos

    em Delphi, Kylix

    Postado

    INACREDITÁVEL!!!

    Fechei o parâmetro com #0 fora da string e FUNCIONOU!!!

    Partindo deste princípio, creio que todas as funçoes que se utilizam desse tipo de mecanismo devam receber no final esse comando... seria isso uma limitação do Windows???

    Muito obrigado à todos que me ajudaram!!!

    Abs[]

    Snake.

  2. Problema Ao Copiar Arquivos

    em Delphi, Kylix

    Postado

    Acredito que o problema esteja na passagem de parâmetros; pois o parâmetro pFrom da estrutura TSHFileOpStructA é um array de strings; portanto você deve adicionar um #0 no final de pFrom dizendo que não há mais strings.

    Adicione um #0 no final do parâmetro pTo também.

    Amigo s3c,

    Passo #0 dentro da string?

    Abs[]!

    Snake.

  3. Duvida Urgente

    em Delphi, Kylix

    Postado

    Fala Junior,

    Se estiver usando TTable, tente definir índices para os campos e usar a propriedade Filter da tabela. Dá uma olhada no Help dessa parte de filtragem de tabelas no Delphi, tá muito bem explicadinho.

    Caso estiver usando uma TQuery, clique com o botão direito neste componente e tente usar o SQLBuilder. Caso você tenha alguma experiência com Access, não será muito difícil usá-lo, bem prático.

    Abs[]!

    Snake.

    Ps.: Se eu escrevi algo errado, por favor me corrijam.

  4. Problema Ao Copiar Arquivos

    em Delphi, Kylix

    Postado

    Nada feito... não rolou, alguém tem mais alguma idéia?

    Amigo jcvijr, o que você quis dizer com caminho absoluto e relativo? Não entendi, desculpe a ignorância...  rolleyes.gif

    Olá Solid Snake,

    você poderia postar seu código?, acho que ficaria mais fácil pra tentar lhe ajudar.

    Abs. Progr'amador. wink.gif

    Olá amigo Programador! Segue:

    ShellFileOperation(strbase+'\sdqgrnc.dbf', strtransm_rec+'\'+wNumIntern+'r.dbf', 2);
    Esta seria a função para cópia. Sobre as variáveis: * strbase-string que contém o valor da pasta onde está a base de dados / origem * strtransm_rec-string que contém o valor da pasta de destino * wNumIntern-string que consta o nome do arquivo a ser copiado / campo da tabela que fornece o nome do arquivo Abaixo a funçaõ ShellFileOperation: 
    {Copia arquivo(s) de um diretorio para outro}
{Usar opcao 2 para copia no FLAG}
procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
  shellinfo: TSHFileOpStructA;
begin
  with shellinfo do
  begin
    wnd   := Application.Handle;
    wFunc := Flags;
    pFrom := PChar(fromFile);
    pTo   := PChar(toFile);
  end;
  SHFileOperation(shellinfo);
end;
{Fim da procedure 17}

    O engraçado é que ela funciona em outro projeto qualquer... e até outras como eu disse antes (caso da CopyFile) também não funcionam neste projeto atual.

    Obrigado!

    Snake.

  5. Active Directory No Win2000srvr

    em Redes

    Postado

    A mensagem exata de erro é a seguinte:

    "Falha na inicialização do gerenciador de contas de segurança devido ao seguinte erro: O usuário especificado já existe - status do erro 0xc0000063"

    Cheguei a procurar no Google sobre este erro, mas não encontrei nenhuma resposta para esse problema.

    Obrigado!!!

    Snake.

  6. Active Directory No Win2000srvr

    em Redes

    Postado

    Olá pessoal,

    Tenho um pequeno probleminha à resolver.

    Acabei de promover um servidor à Controlador de Domínio, ele é um Windows 2000 Server com SP4.

    Logo depois de fazer toda operação do wizard do DCPROMO, o computador é reiniciado. Quando o sistema é carregado, antes da tela de login surgir, é retornado um erro "Problema com o gerenciador de contas: o usuário já existe". Logo depois, o sistema é reiniciado automaticamente.

    Cheguei à formatar a máquina diversas vezes, usei também dois cd's diferentes para instalar o Windows e já executei o DCPROMO com e sem o SP4. Também em modo de recuperação para controlador de domínio setei a mesma senha para o usuário Administrador, que me foi solicitada durante a promoção do servidor, mas não obtive resultado positivo.

    Alguém já passou por esse caso ou sabe como resolver?

    Obrigado!!!

    Snake.

  8. Problema Ao Copiar Arquivos

    em Delphi, Kylix

    Postado

    Olá amigo Churc, obrigado pela resposta!

    Com relação à nome de arquivo para destino, ele realmente está dentro de uma variável. Os caminhos de origem e destino estão ok's e a barra de diretório está la.

    Seguindo o seu raciocínio, coloquei a função CopyFile dentro de um If. A função retornou a mensagem que a cópia foi feita, porém o arquivo não está na pasta blink.gif

    Talvez acarrete problema por ser uma unidade criada com o comando "subst" do Windows? Talvez, pelo nome do arquivo de destino estar dentro de uma variável, a cópia não pode ser feita? Vou testar, e posto de volta.

    Abs[]

    Snake.

  11. Como Copiar Todos Os Dados

    em Microsoft Windows

    Postado

    hum... vlw Solid Snake...

    e suponhamos q eu tenha algum dado no HD q serah o BCK..., ele apagarah o conteudo antes, ou ele deixa o q tem nele... e outra pergunta... depois c eu quiser x os dados d volta p/ o HD, tem q utilizar o norton tb, certo?

    bom, enquanto... vlw pela forca...

    grande abraco...

    Cara,

    Com relação à destruir os dados, quase certeza que sim... porém, já tem algum tempo que eu não uso. No caso de voltar os dados para a HD original, creio que não seria necessário o Ghost, porém o trabalho fica muito mais rápido e fácil com ele.

    Abs[]

    Snake.

  15. Montar Uma Rede Em Win Xp

    em Microsoft Windows

    Postado

    Olá amigo Luiz,

    Com relação à rede, caso você tenha um servidor Windows 2000 ou 2003, você poderia inicializar um serviço chamado DHCP. Ele é responsável pela distribuição de Ip's para os clientes dentro da Rede, desde que todos os micros estejam com o mesmo grupo configurado. Isso evita também de você ter especificar Ip's para todos os clientes da rede.

    Para bloquear as opções das estações, eu recomendo usar o serviço Active Directory, também inicializado através de servidores 2000 ou 2003.

    Este assunto é um pouco extenso, por isso recomendo que você acesse o site do Baboo para ter uma noção de como configurar tais serviços, ou mesmo no help do Windows.

    Abs[]

    Snake.

  17. Gravar dados de um form automaticamente em uma tabela

    em Tutoriais & Dicas - Delphi, Kylix

    Postado

    Olá!

    Não vi se por um acaso alguém já postou essa dica, mas todo caso...

    Gravar dados de um form automaticamente em uma tabela

    Ps.: Parâmetros são o nome da tabela, nome do índice e o formulário usado. As TEdits também tem que ter o mesmo nome dos campos, depois dos dois primeiros caracteres (Nome da edit = 'edNome', campo da tabela = 'Nome').

    Ps2: Neste caso, estou usando tabelas DBaseIV e TEdits, não TDBEdits. Porém creio que esta procedure possa ser ajustada para outras necessidades. Caso alguém tenha algum comentário ou correção, por favor, me digam!

    procedure PGravaDados(tabela:ttable; indice:string; formulario:tform);
Var
i: Integer;
nome:string;
begin
pabretabela(tabela, indice);
{Inclusao}
if OpGrava='inclui' then
  begin
  if tabela.State<>dsInsert then tabela.Insert;
  for i := 0 to formulario.ComponentCount - 1 do
    if (formulario.Components[i] is TCustomEdit) then
      begin
      nome:=copy((formulario.Components[i] as TCustomEdit ).name,3,
      length((formulario.Components[i] as TCustomEdit).name));
      try
        tabela[nome]:=(formulario.Components[i] as TCustomEdit).Text
      except
        on EDatabaseError do end;
      end;
  end
{Alteracao}
else if OpGrava='altera' then
  begin
  if tabela.State<>dsEdit then tabela.edit;
  for i := 0 to formulario.ComponentCount -1 do
    if (formulario.Components[i] is TCustomEdit) then
      begin
      nome:=copy((formulario.Components[i] as TCustomEdit).name,3,
      length((formulario.Components[i] as TCustomEdit).name));
      try
        tabela[nome]:=(formulario.Components[i] as TCustomEdit).Text;
      except
        on Exception do end;
      end;
  end;

{Tentativa de post na tabela}
try
  begin
  tabela.Post;
  tabela.indexname:='';
  DbiSaveChanges(tabela.Handle);
  MessageBeep(0);
  end
except
  on Exception do
    begin
    application.messagebox('Dados não puderam gravados.', 'Erro', MB_ICONERROR);
    exit;
    end
  end;
end;

    Abs[]

    Snake.

  18. Problema Ao Copiar Arquivos

    em Delphi, Kylix

    Postado

    Olá pessoal, tudo bem? Este é o meu primeiro post aqui no fórum, espero ajudar bastante e ser ajudado também biggrin.gif

    Sou programador de Delphi numa empresa de São Paulo e estamos desenvolvendo um pequeno sistema em Delphi5 + DBaseIV. O problema acontece quando tenho que copiar um arquivo X de uma pasta Y para outra pasta Z.

    Quando rodo o executável (ou rodo ele pela IDE do Delphi com 'F9'), não é retornado nenhum erro, porém o arquivo não é copiado. Se eu coloco um ponto de parada no meio do caminho e vou debugando e acompanhando as linhas com 'F8', a cópia é feita normalmente.

    Eu usei várias funções que encontrei na net e mesmo aquelas WinExec e CopyFile, porém o comportamento é o mesmo.

    Como disse estou usando Delphi5. O sistema operacional é Windows 2000 Professional Sp4 (com NTFS).

    Alguém já viu isso acontecer? Alguém já passou por isso e sabe como resolver?

    Obrigado!

    Snake.

×
×
  • Criar Novo...