Churc

puts... deletaram mesmo ;\ nunca mais coloco arquivos lá também auhahuahu então eu tinha feito um exemplo parecido porém mais simples pro Ranilson uma vez da uma olhada: http://www.sunsetsolutions.com.br/ranilson/ abraçox

Opa da uma olhada neste exemplo também http://www.4shared.com/file/15912925/3283b03d/Login.html ps: no fonte não esquecer de olhar o "Project > View Source" abraçox

Opa Levando em consideração que esse seu post poderia ser deletado pois você está infringindo as regras do fórum, onde diz que não pode fazer posts para levantar um tópico, porque quando não há respostas possivelmente ninguém tem idéia de como te ajudar... porém talvez isso te ajude... No Form principal, coloque um componente ApplicationEvents que fica na aba, vixe não me lembro agora não tenho o Delphi em casa auhauh mas deve ser Additional não sei da uma pesquisada ai TApplicationEvents Nesse componente, tem um evento chamado OnException... Entre neste evento, nos parâmetros ele passa no E o nome da exceção que aconteceu, no seu caso seria EPrinter então você faria... if E is EPrinter then //faça alguma coisa... Eu não tenho como testar aqui mass por exemplo, um exit acho que ia parar o código, faça algo e assim o Delphi não vai mostrar a exception, não sei se há outras maneiras mais essa por enquanto pode resolver... veja também no FortesReport se não tem nada de Eventos do tipo OnError etc... ps: O erro vai continuar aparecendo na IDE do Delphi, rode fora do Delphi para testar abraçox

Opa Que bom que já resolveu... Quanto a imagem piscando, coloque no OnCreate do Form que está a imagem... DoubleBuffered := True; e se não resolver totalmente de um doublebuffer no TImage tambem... abraçx

Opa Na minha opinião é erro na programação do movimento, tipo quando voce vai arrastar a imagem no seu código de coordenadas X e Y algo está errado... Se você colocar o código fica mais fácil te ajudar abs

Opa Olha ela pode estar vinculada a alguma Unit que está no seu programa e não especialmente no programa em si, tipo um componente por exemplo ou coisa do tipo... O que pode ser útil é você utilizar o menu Search -> Find in Files e colocar UnitDUteis e veja o que aparece... Utilize a opção Where para mudar os critérios de busca... abraço

Opa Por acaso é o Fortes Report? abs

Opa Como assim amigo? Esclareça melhor sua dúvida, Friend = Amigo agora Amigo do Delphi tem vários ahuauhauha brincadeiras a parte, como assim Friend em Delphi? abs

Opa Bom o JSP "se tiver" como executar arquivos, nada mais nada menos ele usa as API do windows pra fazer isso, claro passando por seu controlador primeiro... Agora, eu não manjo nada de JSP, não tenho a menor ideia de como seja, mas vamos supor que fosse algo do tipo set object _JSP = "{2083-238jhkjh-2309832432}"; _JSP.Execute("C:\Seuprograma.exe Parametro"); Foi só uma suposição ahuauhahu abraços

Opa Bom a parte de Delphi nessa é fácil, você só teria que passar como parâmetros algo que o programa identificasse e visse que foi aberto através da internet... Agora acho que aqui nesta sessão de Delphi talvez você não encontre a resposta porque o problema ai não está no Delphi e sim em como você executar seu sistema no JSP... se souber como fazer isso, simplesmente passe como parâmetro na execução algo que como mencionei seu programa saiba que deve ser feito um login automático! Se isto resolver seu problema e tiver dificuldades com a parte de parâmetros da um toque abraço

Opa Boa Jonas :D Você sempre está ajudando, porque não se registra? ehehe abraçox

Opa Fera isto realmente é muitooo complicado já passei por isso... A única maneira de substituir estes arquivos que estão em uso é na inicialização do windows, o windows oferece suporte a isto... No Windows 98 o problema é maior, porque o nome dos arquivos não pode estourar 8.3, ou seja, como eles são substituidos ainda em modo DOS, o DOS suporta some nomeação 8.3 ou seja, 8 caracteres para o nome do arquivo, e 3 para a extensão senão da problema.... Quando no Windows 98 você ve aquela mensagem antes de entrar no Windows... "Aguarde enquanto alguns programas são atualizados..." "Os programas foram atualizados com exito..." Quer dizer que algum programa utilizou este mecanismo... Exemplo scriptbr.exe = No nome 8 caracteres e na extensão 3 (OK) scriptbrasil.exe = No nome 12 caracteres já daria problema, na extensão 3 está ok mas FALHA, porque o nome estoura os 8 caracteres, vai ficar como scriptbr~1.exe Já no Windows NT/2000/XP/Vista não tem este problema... Você vai ter que testar bastante, mas o uso deste mecanismo do Windows que comentei para substituir na inicialização do sistema se usa assim uses Windows, SysUtils; If Win32Platform = VER_PLATFORM_WIN32_NT Then MoveFileEx( Pchar(X), Pchar(Y), MOVEFILE_REPLACE_EXISTING or MOVEFILE_DELAY_UNTIL_REBOOT) Else WritePrivateProfileString( 'rename', Pchar(Y), Pchar(X), 'wininit.ini' ); X = Caminho de origem do arquivo Y = Caminho de destino Ou seja, se você tem uma DLL chamada abc.dll na pasta do Windows e você quer susbstituí-la, primeiro você vai ter que armazenar a DLL mais nova em uma pasta temporária de preferencia coloque na raiz do HD, C:\ por exemplo, porque como expliquei o DOS só suporta 8.3 pra não ficar os nomes cheio de ~ então em X você colocaria 'C:\abc.dll' e em Y 'C:\WINDOWS\abc.dll' lembrando que o nome de origem não precisa ser exatamente o mesmo do arquivo original... Entendeu mais ou menos? rs Detalhe, os arquivos só são substituidos na inicialização do sistema como mencionei... abraçox

Opa Amigo como assim? Explique direito rs abraço

Opa Da uma olhada nesse set de componentes, nele eu já vi isso que você quer e é muito fera por mais que não tenha utilidade te garanto que algo um dia vai ter, deve ter uns 300 componentes rs http://jvcl.sourceforge.net/ abraços

Opa Pela lógica tente o seguinte... AssignFile(Texto, 'USB001'); Onde LPT1 é a porta paralela e USB001 é a primeira porta USB... agora use isto somente para testes se funcionar já é uma luz no seu caminho auhahua abraços

Opa Seguinte você está fazendo... Border := Raised; Mas esse Raised é um valor da propriedade e tem que existir na base do componente... Então você pode tentar seguindo a nomenclatura padrão do Delphi... Border := bsRaised; Masss por ser um label não acredito que essa propriedade tenha este valor... no Object Inspector possue uma propriedade Border e quais os valores dessa propriedade? de qualquer forma, quando voce digitar no Delphi Border := (de um Control + Barra de espaço e veja os valores que lhe aparece...) qualquer coisa posta ai abraço

Opa Seguindo a nomenclatura de componentes, se essa propriedade Raised existe como uma borda seria: bsRaised onde bs = Border Style Masss como é um componente de terceiro pode ser que isto mude, o que você pode fazer é abrir a Unit deste componente em Uses segurando o control, de uma busca utilizando Ctrl + F com a palavra Raised e veja o que aparece... Você também pode consultar a documentação do componente... abraços

Opa Bom, como sempre digo apenas reafirmando... eu não mexo com banco de dados... mass que eu saiba o Firebird tem uma senha padrão, que é algo usuário: SYSDBA e senha: MASTERKEY e neste caso com certeza o IBX já usa estas senhas como padrão, por serem padrão do Firebird por isso ele conecta sem pedir senha... pela lógica seria isto... da uma olhada neste post. abraçoxx

Opa Fera acho que a forma mais segura é você criptografar os dados ao jogar no banco de dados... Este processo é o mesmo que os "Bancos" (de dinheiro no caso eheh) fazem, toda informação é criptografada com chaves de 1024 bits... No seu caso, você pode optar por criptografar todas as informações ou somente as mais confidenciais, no caso informações do tipo, doença por exemplo ou qualquer outra que achar conveniente... da uma olhada neste tópico. abraço

Opa Mais ou menos por base na mensagem "aparenta" ser que esse Intraweb que você está usando é como o Jonas disse "modo avaliação" ou seja, não é um programa completo, vai perder suas funcionalidades ou tem suas funcionalidades limitadas até que você o compre por exemplo, resumindo é Trial/Shareware... Então ele limitou pra você pode usar somente no IP 127.0.0.1 que quer dizer que você só pode usar ele na máquina local ou seja, só pra testes e não usar em rede, você teria que obter a versão completa... abraçox

s:=listbox1.items.text; s é string só isso! Opa E pra ler um por um só você dar um "loop" nos itens ou seja, andar um por um exemplo: var i: Integer; begin for i := 0 to ListBox1.Items.Count - 1 do ShowMessage(ListBox1.Items); Ele vai andar todos os ítens e dar uma mensagem com o ítem que o loop está no momento, ou seja, um por um... abraço

Opa Ueh mas não estamos falando de criptografia? rs Então a resposta é criptografar os dados do arquivo, tem várias maneiras acredito que no TpLockBox tem exemplos de como criptografar arquivos também deu uma olhada nos demos? Não há melhor maneira de se guardar ou passar dados seguramente sem ser por criptografia... abraço

Opa Tem um componente chamado OpenDialog fica na paleta Dialogs do delphi, não seria ele? Se for pra usar é só chamá-lo, depois de configurar ele tudo certinho você faz OpenDialog1.Execute; Se não for esta, então só pode ser a função BrowseforFolder do Windows da uma olhada nisto. abraçox

Welcome back ;]

Opa Então ta maior zuado meu tempo :( Ta em casa o código to no serviço agora então já vou adiantar algo pra você Comunicação - Sockets Sockets - Stream abraço