Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Se a sua tabela temporária não tem mudança de campos ( ou seja, terá sempre a mesma estrutura ) , então crie uma tabela zerada e a deixe em uma pasta onde o delphi e o RAD possam encontrar. abraço
  2. Arquivos Exenciais para o BDE: EUROPE.BLL USA.BLL IDR20009.DLL IDAPI32.DLL BLW32.DLL IDAPI32.CFG <--- esse arquivo pode ter qualquer outro nome, desde que seja configurado no registro. Drivers de Banco de Dados: IDPDX32.DLL <--- Driver Paradox IDASCI32.DLL <--- Driver ASCII IDDBAS32.DLL <--- Driver DBase IDODBC32.DLL <--- Driver ODBC O BDE precisa de pelo menos um Driver de Banco de Dados para funcionar. Esses acima são apenas alguns, existem varios outros. O BDE 4.51 + Driver Paradox compactados com o Algoritimo ZIP, ocuparam aproximadamente 650 Kb. ------------------------------------------------------------------------------------------ Para usar o Windows 95 Entradas no Registro do Win95: HKEY_LOCAL_MACHINE SOFTWARE\Borland\Database Engine DLLPATH -> localizacao do BDE (Unidade+Caminho Completo) CONFIGFILE01 -> localizacao do arquivo de configuracao (Unidade+Caminho Completo+Nome do Arquivo) SOFTWARE\Borland\BLW32 BLAPIPATH -> localizacao do BDE (Unidade+Caminho Completo) LOCALE_LIB1 -> localizacao do arquivo USA.BLL (Unidade+Caminho Completo+USA.BLL) LOCALE_LIB2 -> localizacao do arquivo EUROPE.BLL (Unidade+Caminho Completo+EUROPE.BLL) Segue um pequeno exemplo de como registrar o BDE no Registro do Win95: begin Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.CreateKey('SOFTWARE\Borland\Database Engine'); Registry.OpenKey('SOFTWARE\Borland\Database Engine', False); Registry.WriteString('DLLPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('CONFIGFILE1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\IDAPI32.CFG'); Registry.OpenKey('\', False); Registry.CreateKey('SOFTWARE\Borland\BLW32'); Registry.OpenKey('SOFTWARE\Borland\BLW32', False); Registry.WriteString('BLAPIPATH', 'C:\ARQUIVOS DE PROGRAMAS\BDE\'); Registry.WriteString('LOCALE_LIB1', 'C:\ARQUIVOS DE PROGRAMAS\BDE\USA.BLL'); Registry.WriteString('LOCALE_LIB2', 'C:\ARQUIVOS DE PROGRAMAS\BDE\EUROPE.BLL'); end; Para compilar esse codigo, sera necessario declarar a Unit Registry. Esse e um exemplo bem simples. Ele nem mesmo verifica se o BDE já esta registrado ou não. Para criar o Alias atravez do seu instalador, voce pode usar a funcao da api do BDE chamada DbiAddAlias. abraço
  3. O arquivo que guarda os cursores do delphi é o controls.res que está dentro da pasta LIB pelo help do delphi temos Este exemplo mostra como acrescentar cursores a uma aplicação. Assume que um cursor de costume com o nome NewCursor foi acrescentado aos recursos (.RES arquivo) da aplicação. Você pode adicionar o cursor usando o editor de imagem. (Ferramentas | o Editor de Imagem) O código seguinte faz este cursor disponível para a aplicação pela constante crMyCursor e joga este este como cursor global para a aplicação. const crMyCursor = 5; procedure TForm1.FormCreate(Sender: TObject); begin Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor'); Cursor := crMyCursor; end; ainda não fiz um teste se trocando o arquivo controls.res por um outro, feito por mim funcionaria ... abraço
  4. Veja nestes endereços http://www.stanford.edu/services/ess/pc/xpsp2/firewall.html http://www.explorando.viamep.com/2006/10/c...windows-xp.html http://www.technetbrasil.com.br/Artigos/XP...figFirewallSp2/ http://support.microsoft.com/kb/891760/pt-br abraço
  5. Colega ... sendo um trabalho final de semestre, voce deveria saber pelo menos o básico que é trabalhar com matrizes Neste endereço voce vai encontrar tudo sobre matrizes e exemplos http://www.mathworks.com/access/helpdesk/h...g/f1-84864.html Function Description ones Create a matrix or array of all ones. zeros Create a matrix or array of all zeros. eye Create a matrix with ones on the diagonal and zeros elsewhere. accumarray Distribute elements of an input matrix to specified locations in an output matrix, also allowing for accumulation. diag Create a diagonal matrix from a vector. magic Create a square matrix with rows, columns, and diagonals that add up to the same number. rand Create a matrix or array of uniformly distributed random numbers. randn Create a matrix or array of normally distributed random numbers and arrays. randperm Create a vector (1-by-n matrix) containing a random permutation of the specified integers. exemplos que voce vai encontrar Creating a Random Matrix. The rand function creates a matrix or array with elements uniformly distributed between zero and one. This example multiplies each element by 20: A = rand(5) * 20 A = 19.0026 15.2419 12.3086 8.1141 1.1578 4.6228 9.1294 15.8387 18.7094 7.0574 12.1369 0.3701 18.4363 18.3381 16.2633 9.7196 16.4281 14.7641 8.2054 0.1972 17.8260 8.8941 3.5253 17.8730 2.7778 abraço
  6. Se voce quizer aprender, vai um endereço onde tem uma apostila básica de assembly http://magnum.ime.uerj.br/~alexszt/cursos/...sm/program.html abraço
  7. aalessandre ... na verdade a aplicação não trava. A transferência de arquivos ocupa 100% do processamento, dando a impressão que a aplicação travou.... por isso voce mencionou ( e só destrava quando termina a transferencia ) porque neste ponto já não é mais usado os 100% de processamento e voce então pode executar outro procedimento. ( eu quero deixar uma opção do usuario poder cancelar o envio dos arquivos. ) neste caso antes de iniciar o processo, voce tem que enviar o foco para um botão cancelar, e processar o controle. exemplo: Defina uma variavel boleana no public private { Private declarations } public { Public declarations } cancelar : boolean; end; dentro da sua rotina de repetição ( For ) voce coloca o controle //enviando os arquivos try for i := 0 to FileListBox1.Count - 1 do begin Application.ProcessMessages; if Cancelar then begin Break; exit; end; sleep(100); // use e aumente o tempo se necessário if FileListBox1.Selected[i] then begin IdFTP1.Put(FileListBox1.Items.Strings[i], FileListBox1.Items.Strings[i], false); remoteDir.Clear; remoteFile.Clear; IdFTP1.List; end; Gauge1.Progress := 0; end; except on e:Exception do ShowMessage(e.Message); end; abraço
  8. Sim .... e também quando voce usa o install shield do delphi ( instalador ) ele coloca todos os arquivos necessarios para que o programa rode sem problemas) OBS: Outra coisa ... a versão do delphi que roda no windows vista é o delphi 7, por isso te passei os pacotes de atualizações que deve ser instalado no micro para que o programa seja compatível com o vista. Voce pode usar um destes desinstaladores ... voce encontra na net para download Desinstaladores Regcleanner 95, 98, NT, 2000, ME, XP - Freeware - 540,0Kb Apague do registro do Windows informações (entradas) inúteis Add/Remove Cleaner 2.3 95 98 Me - Freeware - 366,0Kb Remova entradas das listas do Adicionar/Remover Programas Ashampoo UnInstaller 2000 2.0.0.1 SE 95 98 NT 2K Me - Shareware - 2,7Mb Desinstala e humilha os concorrentes! Add/Remove Plus! 2002 3.0 95 98 NT 2K Me XP - Trial - 565,0Kb Amplie a capacidade do Adicionar/Remover Programas do Painel de Controle Add/Remove 4Good 2.0 95 98 NT - Shareware - 335,1Kb Remova programas por completo Annihilator 0.9 95 98 NT 2K Me XP - Demo - 1,4Mb Delete arquivos com segurança CleanDisk 2.6 95 98 NT 2K - Shareware - 146,0Kb Mantenha seu HD limpinho sem tranqueiras CleanWin 5.0 95 98 NT 2K Me - Shareware - 760,0Kb Software especializado em limpar seu HD de dados cache da internet Picture Filter 1.0 95 98 NT 2K - Freeware - 55,0Kb Delete imagens duplicadas no seu HD liberando espaço DeleteX 1.0.2 NT - Freeware - 1,8Mb Apague arquivos antigos facilmente no NT U-killer 0.1.0 95 98 NT 2K Me - Freeware - 319,0Kb Desinstale o que não pode ser desinstalado pelo Windows Feliz 2009 abraço
  9. E não tem mesmo ... voce tem que instalar http://www.versiontracker.com/php/dlpage.p..._SP2_x86_en.EXE Outros: http://www.baixargratis.com/tcpview-monito...no-windows/144/ http://support.microsoft.com/kb/267310/pt-br abraço
  10. Jhonas

    Gerar instalador

    Tente algumas dessas apostilas: Tutorial de como usar o install shield do delphi http://inf.unisul.br/~osmarjr/download/del...stallShield.zip http://www.fema.com.br/~schiavo/files/Rote...stallShield.doc http://helpnet.installshield.com/robo/proj...utCreateTop.htm http://www.apostilasbr.com.br/download.asp?acao=590 http://www.apostilasbr.com.br/download.asp?acao=593 Nas duas de cima clique na opção delphi ou tente esta: http://www.apostilasbr.com.br/linkmenu.asp?acao=133 abraço
  11. Realmente não dá pra ficar várias horas no micro com um ruído do cooler nos ouvidos... outra coisa, quanto maior a potência da fonte, menos ela é exigida pela configuração do hardware. abraço
  12. Jhonas

    Gerar instalador

    Veja estes posts de como usar o instal shield ( instalador do delphi ) http://scriptbrasil.com.br/forum/index.php...=install+shield abraço
  13. Veja se as Dlls do BDE estão no diretório c:\windows\system32 Talvez precise de um pacote de atualização para poder rodar http://www.drbob42.com/examines/examin84.htm http://support.microsoft.com/default.aspx/kb/932246 abraço
  14. Tente este link http://scriptbrasil.com.br/forum/index.php...highlite=fortes abraço
  15. Veja se isto te ajuda http://inf.unisul.br/~osmarjr/download/del...os/democurz.zip Outros http://scriptbrasil.com.br/forum/index.php...2&hl=cursor http://scriptbrasil.com.br/forum/index.php?showtopic=75043 abraço
  16. (Em .Bat ) Eu diria ... impossivel Mas em assembler ... só que tem que estudar muito ... como o colega MLeandroJr falou. abraço
  17. http://www.mathworks.com/access/helpdesk/h...ttonName=Search abraço
  18. A única resalva seria a fonte Fonte 350W Seventeam - ATX2.0 135,00 troque por uma 450W http://www.dsystem.com.br/principal/defaul...igo_produto=183 Quanto ao processador... este seria um pouco melhor e um pouco mais barato http://www.dsystem.com.br/DKD6293 abraço
  19. UDP é um protocolo de transmissão de pacotes, sua velocidade é mais rapida porem não garante a entrega dos pacotes, já o TCP é mais lento porem garante a entrega dos pacotes. protocolos UDP são utilizados em jogos on-line, videos, multimídia, skype, etc http://www.idrisi.com.br/guiadireto/faq.htm Um pouco sobre Pacotes e sobre os protocolos de Transporte ( Leia todo o artigo para poder entender ) http://www.juliobattisti.com.br/artigos/wi...s/tcpip_p11.asp abraço
  20. Alguns endereços úteis sobre Store Procedures no MYSQL http://www.linhadecodigo.com.br/Artigo.aspx?id=891 http://imasters.uol.com.br/artigo/7556/mys...dures_no_mysql/ http://dev.mysql.com/doc/refman/4.1/pt/sto...ure-syntax.html http://dev.mysql.com/doc/refman/4.1/pt/sto...procedures.html http://www.databasejournal.com/features/my...ures-Part-1.htm http://xoopscube.com.br/xcDocs/mysql/ch11.php http://talibamartins.wordpress.com/stored-procedures/ abraço
  21. Quando voce usar o programa de configuração ( MySQLInstanceConfig.exe ) na opção Manual Selected Defalt Character Set / Collation ... voce pode definir qual o tipo de Character Set voce vai usar. abraço
  22. Se não me engano o erro está na formatação da data no firebird ... experimente dia/mes/ano ou mes/dia/ano abraço
  23. Voce levantou outra questão, que está relacionada diretamente com o tamanho da fonte, ou seja, dependendo do tamanho da fonte, os caracteres podem estar fora da área imprimivel procure trocar por uma fonte Arial tamanho 8 ou outra e faça novamente o teste abraço
  24. Verifique em que instante ocorre a pausa ... por exemplo: quando acaba uma e começa outra, ou quando termina a ultima linha de impressão, ou quando ele lê o proximo registro ... etc Neste caso voce deve fazer uma investigação mais detalhada ... verifique novamente os drives da impressora, cabo da impressora ...etc experimente tambem montar uma etiqueta usando o evento OnNeedData do Quick Report ( já tem algo a respeito no forum ) Esse tipo de problema não é facíl de solucionar... ainda mais quando não se tem a impressora para testes. abraço
  25. Faça primeiro uma pesquisa no forum para ver se já existe alguma coisa a respeito da sua dúvida http://scriptbrasil.com.br/forum/index.php...highlite=fortes abraço
×
×
  • Criar Novo...