-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
(Resolvido) Não executa o OnValidate na inserção
pergunta respondeu ao viniciusfip de Jhonas em Delphi, Kylix
Veja http://www.djsystem.com.br/acbr/mantis/view.php?id=284 abraço -
ShellExecute de um arquivo na memória é possível?
pergunta respondeu ao LucAlucard de Jhonas em Delphi, Kylix
seja mais explicito ... porque o ShellExecute é usado para rodar programas externos Procedure ExecuteProgram(Nome,Parametros:String); Var Comando : Array[0..1024] of Char; Parms : Array[0..1024] of Char; Begin StrPCopy(Comando,Nome); StrPCopy(Parms,Parametros); ShellExecute(0,nil,Comando,Parms,nil,sw_showmaximized); End; o melhor seria usar o ClipBoard http://delphi.about.com/od/vclusing/a/tclipboard.htm abraço -
Identificar tipo do arquivo binário e abri-lo
pergunta respondeu ao LucAlucard de Jhonas em Delphi, Kylix
o código do link refere-se a carregar e salvar arquivo com extensão PDF .... veja http://scriptbrasil.com.br/forum/index.php?showtopic=102769 Abrir arquivo binarios Function FileOpen(const FileName: string; Mode: LongWord): Integer; const AccessMode: array[0..2] of LongWord = ( GENERIC_READ, GENERIC_WRITE, GENERIC_READ or GENERIC_WRITE); ShareMode: array[0..4] of LongWord = ( 0, 0, FILE_SHARE_READ, FILE_SHARE_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE); begin Result := Integer(CreateFile(PChar(FileName), AccessMode[Mode and 3], ShareMode[(Mode and $F0) shr 4], nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)); end; abraço -
SQL Error: invalid database handle (no active conection). Erro code: -904 ... SQL Erro: Nome de banco de dados inválido (nenhuma conexão ativa). Erro code: -904 ... isso é erro de configuração ... quais componentes de conexão voce esta usando ?
-
Só tem as dlls ... onde está o codigo ? abraço
-
voce já conseguiu pegar o arquivo texto ? existe algum delimitador para os campos ? se voce tiver o arquivo, poste ele exatamente como aparece. abraço
-
O Star Team é pago, mas se voce preencher o cadastro pode conseguir um trial de 30 dias http://www.microfocus.com/forms/process.as...mber=STE2009R2M outra sugestão para controlar o gerenciamento do software e ir em Project > Options... > Version Info outra opção seria: http://www.epocalipse.com/scx.htm?gclid=CJ...CFYPu7QodlxPMyA abraço
-
(Resolvido) Verificar sequencia quebrada
pergunta respondeu ao Alberto Mota de Jhonas em Delphi, Kylix
realmente.. basta adaptar o código fica até mais simples usando a tabela abraço -
(Resolvido) Delphi x MySQL 5.5 x Campos Varchar e Char
pergunta respondeu ao anderson.egidio de Jhonas em Delphi, Kylix
use o Mysql-Front para saber se o problema não é no proprio banco ... a versão 5.1 é mais estavel ( sem bugs ) abraço -
veja http://softwaretopic.informer.com/delphi-flowchart-free/ abraço
-
Não consegui efetuar o download do arquivo
-
manda aí .... vou dar uma olhada abraço
-
(Resolvido) Verificar sequencia quebrada
pergunta respondeu ao Alberto Mota de Jhonas em Delphi, Kylix
se essa sequencia estiver em um memo, fica assim: procedure TForm1.Button1Click(Sender: TObject); var i : integer; num, numx : integer; nume : string; begin for i := 0 to Memo1.Lines.Count do begin nume := Memo1.Lines.Strings[i]; if nume = '' then continue; num := strtoint(nume); if i = 0 then numx := num else if succ(numx) = num then numx := num else begin showmessage(Memo1.Lines.Strings[i-1]); showmessage(Memo1.Lines.Strings[i]); numx := num; end; end; end; abraço -
use o Unlocker para isso http://www.brothersoft.com/download-unlocker-208761.html abraço
-
Identificar tipo do arquivo binário e abri-lo
pergunta respondeu ao LucAlucard de Jhonas em Delphi, Kylix
Va em > Meu Computador > Ferramentas > Opções de Pasta > Tipos de Arquivos Lá voce faz essa definição abraço -
Na inicialização do micro ou seja quando aparecer o nome vaio você aperta F2 e entra no setup Todas as opções estão em ingles ... procure por Best Performance ( não me lembro como escrito ) se voce tiver o manual da Vaio, lá explica como entrar no Setup da BIOS e realizar as configurações abraço
-
na verdade são circuitos integrados que possuem em sua configuração portas lógicas mais informações http://www.inf.ufsc.br/ine5365/portlog.html http://www.joinville.ifsc.edu.br/~mtaques/Digital/ED_C1.pdf abraço
-
o sistema operacional é quem determina através das IRQs como os dispositivos periféricos serão definidos no sistema IRQ 0 System timer IRQ 8 System CMOS/real time clock IRQ 13 Numeric data processor IRQ 16 Standard OpenHCD USB Host Controller IRQ 16 High Definition Audio Controller IRQ 16 Standard OpenHCD USB Host Controller IRQ 17 PCI standard PCI-to-PCI bridge IRQ 17 Standard Enhanced PCI to USB Host Controller IRQ 18 Standard OpenHCD USB Host Controller IRQ 18 PCI standard PCI-to-PCI bridge IRQ 18 Standard OpenHCD USB Host Controller IRQ 19 Standard Enhanced PCI to USB Host Controller IRQ 22 AMD SATA Controller IRQ 81 Microsoft ACPI-Compliant System IRQ 82 Microsoft ACPI-Compliant System IRQ 83 Microsoft ACPI-Compliant System IRQ 84 Microsoft ACPI-Compliant System IRQ 85 Microsoft ACPI-Compliant System IRQ 86 Microsoft ACPI-Compliant System IRQ 87 Microsoft ACPI-Compliant System IRQ 88 Microsoft ACPI-Compliant System IRQ 89 Microsoft ACPI-Compliant System IRQ 90 Microsoft ACPI-Compliant System IRQ 91 Microsoft ACPI-Compliant System IRQ 92 Microsoft ACPI-Compliant System IRQ 93 Microsoft ACPI-Compliant System IRQ 94 Microsoft ACPI-Compliant System IRQ 95 Microsoft ACPI-Compliant System IRQ 96 Microsoft ACPI-Compliant System IRQ 97 Microsoft ACPI-Compliant System IRQ 98 Microsoft ACPI-Compliant System IRQ 99 Microsoft ACPI-Compliant System IRQ 100 Microsoft ACPI-Compliant System IRQ 101 Microsoft ACPI-Compliant System IRQ 102 Microsoft ACPI-Compliant System IRQ 103 Microsoft ACPI-Compliant System IRQ 104 Microsoft ACPI-Compliant System IRQ 105 Microsoft ACPI-Compliant System IRQ 106 Microsoft ACPI-Compliant System IRQ 107 Microsoft ACPI-Compliant System IRQ 108 Microsoft ACPI-Compliant System IRQ 109 Microsoft ACPI-Compliant System IRQ 110 Microsoft ACPI-Compliant System IRQ 111 Microsoft ACPI-Compliant System IRQ 112 Microsoft ACPI-Compliant System IRQ 113 Microsoft ACPI-Compliant System IRQ 114 Microsoft ACPI-Compliant System IRQ 115 Microsoft ACPI-Compliant System IRQ 116 Microsoft ACPI-Compliant System IRQ 117 Microsoft ACPI-Compliant System IRQ 118 Microsoft ACPI-Compliant System IRQ 119 Microsoft ACPI-Compliant System IRQ 120 Microsoft ACPI-Compliant System IRQ 121 Microsoft ACPI-Compliant System IRQ 122 Microsoft ACPI-Compliant System IRQ 123 Microsoft ACPI-Compliant System IRQ 124 Microsoft ACPI-Compliant System IRQ 125 Microsoft ACPI-Compliant System IRQ 126 Microsoft ACPI-Compliant System IRQ 127 Microsoft ACPI-Compliant System IRQ 128 Microsoft ACPI-Compliant System IRQ 129 Microsoft ACPI-Compliant System IRQ 130 Microsoft ACPI-Compliant System IRQ 131 Microsoft ACPI-Compliant System IRQ 132 Microsoft ACPI-Compliant System IRQ 133 Microsoft ACPI-Compliant System IRQ 134 Microsoft ACPI-Compliant System IRQ 135 Microsoft ACPI-Compliant System IRQ 136 Microsoft ACPI-Compliant System IRQ 137 Microsoft ACPI-Compliant System IRQ 138 Microsoft ACPI-Compliant System IRQ 139 Microsoft ACPI-Compliant System IRQ 140 Microsoft ACPI-Compliant System IRQ 141 Microsoft ACPI-Compliant System IRQ 142 Microsoft ACPI-Compliant System IRQ 143 Microsoft ACPI-Compliant System IRQ 144 Microsoft ACPI-Compliant System IRQ 145 Microsoft ACPI-Compliant System IRQ 146 Microsoft ACPI-Compliant System IRQ 147 Microsoft ACPI-Compliant System IRQ 148 Microsoft ACPI-Compliant System IRQ 149 Microsoft ACPI-Compliant System IRQ 150 Microsoft ACPI-Compliant System IRQ 151 Microsoft ACPI-Compliant System IRQ 152 Microsoft ACPI-Compliant System IRQ 153 Microsoft ACPI-Compliant System IRQ 154 Microsoft ACPI-Compliant System IRQ 155 Microsoft ACPI-Compliant System IRQ 156 Microsoft ACPI-Compliant System IRQ 157 Microsoft ACPI-Compliant System IRQ 158 Microsoft ACPI-Compliant System IRQ 159 Microsoft ACPI-Compliant System IRQ 160 Microsoft ACPI-Compliant System IRQ 161 Microsoft ACPI-Compliant System IRQ 162 Microsoft ACPI-Compliant System IRQ 163 Microsoft ACPI-Compliant System IRQ 164 Microsoft ACPI-Compliant System IRQ 165 Microsoft ACPI-Compliant System IRQ 166 Microsoft ACPI-Compliant System IRQ 167 Microsoft ACPI-Compliant System IRQ 168 Microsoft ACPI-Compliant System IRQ 169 Microsoft ACPI-Compliant System IRQ 170 Microsoft ACPI-Compliant System IRQ 171 Microsoft ACPI-Compliant System IRQ 172 Microsoft ACPI-Compliant System IRQ 173 Microsoft ACPI-Compliant System IRQ 174 Microsoft ACPI-Compliant System IRQ 175 Microsoft ACPI-Compliant System IRQ 176 Microsoft ACPI-Compliant System IRQ 177 Microsoft ACPI-Compliant System IRQ 178 Microsoft ACPI-Compliant System IRQ 179 Microsoft ACPI-Compliant System IRQ 180 Microsoft ACPI-Compliant System IRQ 181 Microsoft ACPI-Compliant System IRQ 182 Microsoft ACPI-Compliant System IRQ 183 Microsoft ACPI-Compliant System IRQ 184 Microsoft ACPI-Compliant System IRQ 185 Microsoft ACPI-Compliant System IRQ 186 Microsoft ACPI-Compliant System IRQ 187 Microsoft ACPI-Compliant System IRQ 188 Microsoft ACPI-Compliant System IRQ 189 Microsoft ACPI-Compliant System IRQ 190 Microsoft ACPI-Compliant System IRQ 4294967292 Realtek PCIe FE Family Controller IRQ 4294967293 802.11n Wireless LAN Card IRQ 4294967294 ATI Radeon HD 4200 entretanto, não basta instalar somente o windows .... para que o mesmo possa definir corretamente as IRQs é necessario após a instalação do windows, instalar tambem todos os drives da placa mãe, pois se voce não fizer isso, sempre vai acabar ocorrendo algum problema quanto ao desempenho do micro. entretanto, verifique tambem no painel de controle em < Propriedades do Mouse > na aba < Hardware > se existe algum conflito ou drive corrompido. outra sugestão é ir na BIOS e fazer uma mudança de configuração do Hardware para um melhor desempenho abraço
-
(Resolvido) Impressora Térmica não imprime carácter especial
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
robinhocne... só posso ajudá-lo com relação ao manual, pois não tenho essa impressora para testar se não me engano, voce pode imprimir um caracter pelo seu valor em decimal ou hexadecimal exemplo: o "Ç" o valor decimal é 128 e hexadecimal é 80 O problema pode ser inclusive nos drives instalados dessa impressora ... já experimentou reinstalar esses drives outro sugestão seria, instalar uma impressora generica para fazer um teste de impressão para caracteres especiais OBS: se eu tivesse uma impressora para testar já teria te dado uma solução... infelizmente voce terá que ir tentanto ai, até encontrar uma solução abraço -
(Resolvido) Programa de Cadastro Simples
pergunta respondeu ao The Black Jack de Jhonas em Delphi, Kylix
outra maneira: var D1, D2 : TDateTime; Total : Double; begin D1 := DateTimePicker1.Date; D2 := DateTimePicker2.Date; QueryAquisicao.Active := FALSE; QueryAquisicao.SQL.Clear; QueryAquisicao.SQL.Append('SELECT SUM(preço) as Total FROM aquisicao WHERE data BETWEEN '+''''+D1+''''+' AND '+''''+D2+''''; QueryAquisicao.Active := TRUE; end; OBS: veja que dessa maneira voce precisa colocar aspas simples entre as datas, para que não dê erro na sentença sql abraço -
Como ignorar o zero a esquerda numa select
pergunta respondeu ao Mazinho 12345 de Jhonas em Delphi, Kylix
Se voce for usar com o MYSQL a instrução deverá ser assim: SELECT NUME FROM TABELA ORDER BY ABS(NUME) ASC Onde: NUME é um campo do tipo varchar e a função ABS pega o valor absoluto "012" "032" "0111" "123" "0123" "321" OBS: a instrução select varia de banco para banco de dados ( Interbase, Mysql, Paradox, Firebird, SQLServer...etc ) então olhe no help de cada banco para ver qual é a sintaxe correta abraço -
veja esse exemplo http://scriptbrasil.com.br/forum/index.php?showtopic=162765 OBS: veja a função que realiza o download do arquivo abraço
-
voce pode procurar na net por convert vb to delphi ... um programa que faça a conversão de vb para delphi outros 2 links que podem ajudar http://sites.google.com/site/delphibasics/.../simplefirewall http://www.woodmann.com/fravia/natz_mp2.htm abraço
-
(Resolvido) Impressora Térmica não imprime carácter especial
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
se voce tiver o manual de linguagem epl-2 da zebra veja: _dNNN creates ASCII decimal value NNN for a code word (must be 3 digits) leia as paginas 335 e 355 do manual tabela de caracteres especiais nas paginas 357 e 358 OBS: o manual mostra a maneira de definir uma nova fonte na impressora abraço -
Como ignorar o zero a esquerda numa select
pergunta respondeu ao Mazinho 12345 de Jhonas em Delphi, Kylix
voce pode definir o campo (tipo varchar) em inteiro... já resolve esse problema, pois os numeros não teriam zeros a esquerda. sendo do tipo varchar ... exemplo: 023 123 032 0123 012 231 134 ordenando ficaria: 012 0123 023 032 123 134 231 esta correto porque o '0' Zero é tratado como caracter e não numero OBS: se voce quer ignorar os zeros a melhor solução é voce ter um campo inteiro, a não ser que o zeros sejam realmente necessarios. abraço