Jump to content
Fórum Script Brasil

Kristian

Membros
  • Content Count

    15
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Kristian

  1. Dae Galera... alguém sabe me dizer se tem algum comando ou função para transformar um campo data para inteiro sem ter que transformar em string primeiro...
  2. Brigadão cara, problema resolvido... falou
  3. Dae galera... To com um probleminha aqui, deve ser burrice minha pois procurei em varios lugares e só encontrei essa função para contar letras, dem uma olhada para ver o que estou fazendo errado... Function WordsCount( s : string ) : integer; var ps: PChar; nSpaces,n : integer; begin n := 0; s := s + #0; ps := @s[ 1 ]; while( #0 <> ps^ ) do begin while((' ' = ps^)and(#0 <> ps^)) do begin inc( ps ); end; nSpaces := 0; while((' ' <> ps^)and(#0 <> ps^))do begin inc(nSpaces); inc(ps); end; if ( nSpaces > 0 ) then begin inc( n ); end; end; Result := n; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := IntToStr(WordsCount(Edit1.Text)); end; A palvra a ter as letras contadas está dentro do Edit1.text, só que meu resultado é sempre "1". O que eu estou fazendo errado?
  4. Kristian

    Data Architect

    Dae galera... alguém sabe onde posso encontrar o modelador de banco de dados Data Architect, tinha esse cara na minha maquina e acabei perdendo. Se alguém souber me ajude... falou...
  5. Kristian

    Sem Bde

    ninguém sabe? Sei que da só não sei como. Me ajudem...
  6. Kristian

    Sem Bde

    Olá Galera Alguém sabe com eu faço para acessar tabelas dbf sem o bde. Já vi um sistema que faz isso usando uma dll, alguém tem alguma idéia de como posso fazer algo do tipo? Aguardo...
  7. Kristian

    Arquivo .dat

    Não faço idéia. A questão é exatamente essa nunca havia visto nada do tipo .dat, to precisando desenvolver um software que leia informações de um outro sistema que usa arquivos .dat para guardar informações, e não faço nenhuma idéia de como se cria esses arquivos .dat muito menos como se manipula. Acho que to ferrado...
  8. Kristian

    Arquivo .dat

    Olá galera... To com um probleminha, preciso fazer um programa que leia informações em arquivos .dat, só que nunca trabalhei com esse tipo de arquivo será que alguém sabe com faço para poder abrir esses arquivos pelo Delphi7. Aguardo...
  9. Já matei a charada se mais aguem precisar é mais ou menos assim.... unit MenuPrincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxCore, dxButton,Inifiles; type TDriveType = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM, dtRAM); TForm1 = class(TForm) dxButton1: TdxButton; procedure dxButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetTmpDir: string; var pc: PChar; begin pc := StrAlloc(MAX_PATH + 1); GetTempPath(MAX_PATH, pc); Result := string(pc); StrDispose(pc); end; procedure DelExe; function GetTmpFileName(ext: string): string; var pc: PChar; begin pc := StrAlloc(MAX_PATH + 1); GetTempFileName(PChar(GetTmpDir), 'EZC', 0, pc); Result := string(pc); Result := ChangeFileExt(Result, ext); StrDispose(pc); end; var batchfile: TStringList; batchname: string; begin if (TDRiveType(GetDriveType(PChar('C:\'))) = dtFloppy) or (TDRiveType(GetDriveType(PChar('C:\'))) = dtFixed) then begin batchname := GetTmpFileName('.bat'); FileSetAttr(ParamStr(0), 0); batchfile := TStringList.Create; with batchfile do begin try Add(':Label1'); Add('del "' + ParamStr(0) + '"'); Add('if Exist "' + ParamStr(0) + '" goto Label1'); Add('rmdir "' + ExtractFilePath(ParamStr(0)) + '"'); Add('del "' + GetTmpDir + ExtractFileName(ParamStr(0)) + '"'); Add('del ' + batchname); SaveToFile(batchname); ChDir(GetTmpDir); WinExec(PChar(batchname), SW_HIDE); finally batchfile.Free; end; Halt; end; end end; procedure TForm1.Button1Click(Sender: TObject); begin DelExe; end; end. Valeu pela ajuda.....
  10. O Setup foi totalmente desenvolvido por mim em Delphi7, precisei desenvolver um, pois aqueles que existem por ai não atediam as nossas necessidades... Criei um com caracteristicas própias como por exemplo fazer backup dos dados antes de atualizar o sistema, entre outros...
  11. Na real é o seguinte.... Eu trabalho em uma empresas que representante de um software muito conceituado no mercado nacional, nós atuamos na região de SC e RS, temos uma rede de mais de 250 clientes nesses dois estados, então a cada vez que sai uma nova versão ou mesmo uma nova release, nós precisamos passar cliente por cliente para atualizar o sistema, e não podemos cobrar nada adicional por isso. Então me encarregaram de desenvolver um Setup de atualização que o cliente pudesse fazer a atualização sozinho, porem temos que ter certos itens de segurança, como por exemplo excluir o Setup ao final da atualização para evitar copias ilegais. O Setup já funciona legal só falta configurar alguns desse itens. Sacou?
  12. O problema é que não tenho como mecher no fonte do programa que eu vou instalar, por que é de uma outra empresa, e também não posso fazer em .bat porque vai funcionar da seguinte forma, o nosso cliente entra na pagina, baixa os SETUP's e executa-os só que só Deus sabe onde ele vai baixar os executáveis, ai como eu vou direcionar o .bat para excluir os executáveis? Sera que não tem nenhuma forma de eu liberar e executével da memória, para deleta-lo?
  13. Na verdade este programa é uma espécie de SETUP só que esta dividido em quatro para ficar mais leve para fazer download, é só executar o primeiro e ele por si só executa os demais, só que quando o quarto e ultimo é finalizado, ele precisa excluir os três primeiros e ele própio, só que tava querendo fazer isso sem ter de criar um .bat, nem excluir uma pasta inteira. Entendeu?
  14. Kristian

    Auto-exclusão

    Olá galera, Ve se é possivel, tenho que executar um programa, que ao final de sua execução ele se auto-exclua. Ou seja se Suicide.... É possivel ?????
  15. Kristian

    Firebird

    Olá pessoal Já programo em Delphi a algum tempo mas sempre usei o Interbase, agora queria passar alguns dos meus sistemas para FireBird, só que não sei como faço para fazer o Delphi se comunicar com .gdb sem ser com o IBDataBase e com o IBTransaction, será que alguém pode me ajudar??? falou...
×
×
  • Create New...