Jhonas

No menu do delphi <Tools> selecione a opção <Debugger Options> e depois selecione <Integrated debugging> depois no seu codigo, basta clicar com o mouse do lado esquerdo do comando, vai aparecer uma bolinha vermelha, que vai indicar ao processador para parar nesta linha, onde se encontra o breakpoint... a partir dai usando a tecla F7 ele vai percorrer o seu codigo linha a linha mostrando o que esta ocorrendo. abraço

Isto ocorre, justamente por causa da configuração da impressora em padrão de impressão, na paleta <Esquema> a opção Multi_páginas tem que estar selecionada como normal em processador de impressão a opção é winprint em tipo de dados padrão a opção é RAW e voce deve selecionar <ativar reursos de impressão avançado> outra solução mais rapida seria, desinstalar a impressora e intala-la novamente ( mas peça para trocar o drive ) , para que as configurações padrões sejam efetivadas automaticamente. abraço

Um exemplo do delphi quando voce le um arquivo texto var F: TextFile; S: string; begin if OpenDialog1.Execute then { Abrir o dialog box } begin AssignFile(F, OpenDialog1.FileName); { Arquivo selecionado no dialog box } Reset(F); Readln(F, S); { Ler a primeira linha do arquivo } Edit1.Text := S; { Colocar string em um controle de TEdit } CloseFile(F); { Fechar arquivo } end; end; Um exemplo do delphi quando voce grava em um arquivo texto var F: TextFile; begin AssignFile(F, 'NEWFILE.$$$'); Rewrite(F); Writeln(F, 'Just created file with this text in it...'); CloseFile(F); end; agora é só voce comparar com o que está em seu codigo abraço

use o componente TMediaPlayer da paleta System Na propriedade FileName do TMediaPayer coloque o caminho para o arquivo de musica exemplo: E:\Apresentacao\alma_gemea.mid C:\@Arquivos Kazaa.com.br\Fábio Jr - Só Você.wma C:\@Arquivos Kazaa.com.br\Dona Do Meu Coracao.mp3 abraço

erro "Class.TRQCompositeReport not found" erro "Class.TRQCompositeReport não encontrada" "ignoring the error may cause components to be deleted or property values to be lost". ignorando a causa do erro componentes podem ser apagados ou o valor da propriedade podem ser perdidas Sugiro desistalar o delphi pelo painel de controle, e apagar as pastas que por ventura ainda estejam aparecendo e reistalar novamente, caso contrario voce ficara sem este componente TRQCompositeReport. abraço

Oi Eder... veja se voce não colocou nenhuma rotina para fechar, ou minimizar o menu, veja tambem se voce usou showmodal ou show para exibir o menu como voce mencionou que recompilou e o problema sumiu ... tente então apagar os arquivos UMenu.pas e UMenu.dfm ( ou o nome que voce deu para o form do Menu ) e renomear os UMenu.~pas e UMenu.~dfm para UMenu.pas e UMenu.dfm e recompilar pode ser tambem uma rotina em um timer estar ocasionando isto a melhor solução é usar o breakpoint no modo de depuração para verificar onde está ocorrendo isto. abraço

fica não .... se voce salvar a imagem como jpg crie um campo do tipo BLOB no banco de dados ... coloca um DBImagem, OpenDialog e um Button if not OpenDialog1.Execute then OpenDialog1.Execute; DBImage1.Picture.LoadFromFile(OpenDialog1.FileName); se usar uma query Query1.Edit; Query1CampoFoto.LoadFromFile('c:\Imagem.jpg'); Query1.Post; ou ainda Query.Edit; Query.FieldByName('IMAGEM').LoadFromFile('C:\Imagem.jpg'); Query.Post; Veja tambem https://www.scriptbrasil.com.br/forum/lofiv...hp/t114397.html http://forum.imasters.uol.com.br/lofiversi...hp/t235450.html abraço

estranho.... eu uso o TImage e não acontece isso.... tente redimensionar a moldura do TImage, vai perceber que a imagem sempre se ajusta para aparecer inteira... só se a sua moldura esta fora da area de visão. abraço

Para configurar o uso do bd em rede no servidor não tem que fazer nada. Nos terminais, só uma DLL do próprio MySQL (libMysql.dll). instalar na estacao a dll libmysql.dll e o executavel e claro configurar o Zconnect com os dados corretos do servidor. voce pode criar um usuario que permite conexao de qualqeur ip para isso execute o codigo a baixo no mysql Grant all privileges on *.* to nome_usiario@'%' identified by 'senha' with grant option; Da uma olhada neste link do manual de referência do MySQL. http://dev.mysql.com/doc/refman/4.1/pt/access-denied.html ZeosLib http://sourceforge.net/search/?type_of_sea...p;words=zeoslib .................................................................................... Dica de Giovani.Rodrigues .... Exemplo para o Interbase Galera.. A solução que eu achei foi a seguinte: Eu tenho um servidor, que pode ser modificado o ip a toda hora, certo? Então eu criei um arquivo ini, pra verificar antes o ip da conexão e o diretório da base de dados. Se for em rede, ele cria o som.ini no drive c:, se for direto no pendrive ele só procura a base de dados junto no diretório do executável... Então ficou assim: Obs. inclua IniFiles no Uses... procedure TDataModulo.DataModuleCreate(Sender: TObject); var AUXIni: TIniFile; AUXLocal: integer; AUXDiretorio: string; AUXConexao: integer; AUXArquivoINI: string; AUXArquivo: string; AUXBase:string; begin AUXLocal:= 2; // 1--> Hd , 2--> PenDrive if AUXLocal = 1 then begin AUXArquivo:= 'c:\som.ini'; if not (FileExists(AUXArquivo)) then begin AUXArquivoIni:= 'c:\som.ini'; (* Nome do arquivo INI *) (* Cria arquivo ini *) AUXIni:= TIniFile.Create(AUXArquivoIni); (* Lê arquivo ini com as configurações da imagem *) AUXIni.WriteString('SERVIDOR','BASE DE DADOS','C:\'); (* Libera o arquivo ini *) AUXIni.Free; ShowMessage('*** OBSERVAÇÃO PARA O FUNCIONAMENTO EM REDE ***'+chr(13)+chr(13)+ 'Altere as informações do arquivo c:\som.ini antes de continuar,'+chr(13)+ 'especificando o diretório onde se encontra a base de dados '+chr(13)+ 'do Sistema SOM, da maneira descrita a seguir: '+chr(13)+chr(13)+ ' IP DO SERVIDOR:DIRETORIO DA BASE DE DADOS '); Halt; end else begin AUXArquivoIni:= 'c:\som.ini'; (* Nome do arquivo INI *) (* Cria arquivo ini *) AUXIni:= TIniFile.Create(AUXArquivoIni); (* Lê arquivo ini com as configurações da imagem *) AUXBase:= AUXIni.ReadString('SERVIDOR','BASE DE DADOS','C:\'); (* Libera o arquivo ini *) AUXIni.Free; end; end; if AUXLocal = 2 then begin AUXBase:= ExtractFilePath(Application.ExeName); end; if CnSistema.Connected then CnSistema.Connected:= False; (* 1 - Máquina Local *) AUXConexao:= 1; case AUXConexao of 1: begin with CnSistema do begin Database:= AUXBase+'\Som.gdb'; User:= 'SYSDBA'; Password:= 'masterkey'; Protocol:= 'firebird-1.5'; Connect; end; end; end; end; Espero que isso ajude alguém, ok? outros exemplos http://osdir.com/ml/db.postgresql.brasil/2...2/msg00707.html ........................................................................................ Exemplo para o Paradox abraço

Dexe a propriedade Stretch do TImage como true, a imagem se ajustara a moldura do TImage seja ela qual for que voce tenha definido. abraço

http://www.universalanimes.host-rox.com.br/] Sua página está otima ... Obs: mude o cursor ( uma mãozinha ) ao selecionar uma das opções deixe com uma cor diferente para o usuario saber que já passou por ele está faltando muitos links mid muito longo.. coloque um mid que seria a cara da pagina e que toque somente alguns segundos ( 15 seg ) não deixe musicas tocando o tempo todo, uma hora enche, ou coloque um botão para parar a musica com os devidos ajustes, pode ficar ainda melhor .... parabens . abraço

Veja quanto vale o serviço de webdesigner http://www.curriex.com.br/centro_carreira/....asp?codigo=269 abraço

Acho que voce não fez igual não .... procedure TComServer.Initialize; begin try UpdateRegistry(FStartMode <> smUnregServer); except on EOleSysError do if FStartMode = smRegServer then raise; on EOleRegistrationError do // O usuário não pode ter acesso ao registro. // Silencia a exceção a menos que peça para registrar explicitamente. if FStartMode = smRegServer then raise; end; if FStartMode in [smRegServer, smUnregServer] then Halt; ComClassManager.ForEachFactory(Self, FactoryRegisterClassObject); end; abraço

voce deve usar o evento OnKeyPress do edit procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin label1.Caption := inttostr(ord(key)); end; abraço

Antes de mais nada verifique se a voltagem da fonte está dentro do normal (5V e 12V) O fato de voce mercionar que o HD não é reconhecido na BIOS, significa que o circuito do HD pode estar em pane .. voce pode tentar trocar o circuito por um outro do mesmo tipo para o modelo do seu hd. Isto muitas vezes resolve o problema e voce não perde dado algum do hd. outra coisa que voce pode tentar, é colocar o hd como slave (escravo ) em outro micro para tentar recuperar os dados ( se ele funcionar pode ser problema no micro onde estava este hd ) outro problema possivel pode ser o flat cable ( mau contato, ou quebrado ) , substitua por outro para testar pode ser tambem por variação na corrente eletrica devido a raios ( placa de circuito queimada ). Num exame visual com uma lupa voce encontrara nos chips um minusculo furo. em ultima analise, somente conseguira recuperar este HD em firmas especializadas. abraço

Va em painel de controle, em contas de usuários, crie um novo usuario ou atere a conta de um usuario existente e de previlegios de administrador abraço

Faça o download do componente http://www.baixaja.com.br/downloads/Window...ode-Of_660.html http://www.macoratti.net/07/12/crys_c39.htm http://www.microsoft.com/brasil/msdn/Tecno...digoBarras.mspx abraço

Use o installshield do delphi ou o innosetup http://www.innosetup.com/ ou procure no forum por instalador ou shield abraço

Va em painel de controle, em contas de usuários, crie um novo usuario e de previlegios de administrador e depois faça o teste. abraço

Erro de acesso ao registro de entrada OLE " ocorrido ao iniciar a aplicação no servidor OLE debaixo de conta não-administrativa porque estes usuários não podem ter acesso ao registro. Isto significa que usuarios sem previlégios de administrador não podem acessar este registro abraço

Sem ligar cabo de rede, os dois tem que ter o dispositivo wireless ( rede sem fio )... no proprio windows voce pode fazer isso... va em painel de controle e clique no icone Configuração de Rede sem Fio Maiores informações de como configurar uma rede, no post: http://scriptbrasil.com.br/forum/index.php...st&p=479021 abraço

Primeiro voce deve instalar o drive da placa mãe para que os demais dispositivos sejam reconhecidos http://www.nodevice.com/driver/GA-8I945GZME-RH/get46409.html depois voce deve instalar o drive de audio http://tw.giga-byte.com/Support/Motherboar...&FileID=837 abraço

exemplo: IBDatabase, IBTransaction, IBQuery, DataSetProvider, ClientDataSet , DataSouce são componentes não visuais de acesso ao Banco de Dados .... sem eles não tem como voce fazer esse acesso abraço

Vou te dar um exemplo de como fazer o backup automatico em outra pasta, de preferencia quando for sair do programa procedure TForm1.Button1Click(Sender: TObject); var i,J : integer; S: string; F: Textfile; SR: TSearchRec; Origem, Destino: string; begin //............MONTAR UM NOME DE BACKUP...................... EdBackupTitle.Text := 'Backup'+datetostr(date()); S := EdBackupTitle.Text; while Pos('/', S) > 0 do delete(s,Pos('/', S),1); EdBackupTitle.Text := s; //........................................................... FileListBox.items.Clear; //Selecionar Todos os Arquivos da pasta Dados onde se encontra o aplicativo S := extractFilepath(application.exename)+'Dados\*.*'; FileListBox.items.add(S); BackupFile1.maxSize := 0; backupfile1.backuptitle := EdBackupTitle.text; // recebe o nome Backup+data backupfile1.backupmode := TBackupMode(bmAll); backupfile1.compressionLevel := TCompressionLevel(clFastest); backupfile1.SaveFileID := CbSaveFileID.checked; if (rbOtherPath.checked) then begin FileListBox1.items.Clear; FileListBox1.items.add(EdPath.Text); end else begin FileListBox1.items.Clear; FileListBox1.items.add('C:\TESTE\Backup'); end; if backupfile1.Backup(filelistbox.items, EdBackupTitle.Text+'.bck') then begin Showmessage('Backup realizado com sucesso. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %'); J := FindFirst('C:\TESTE\*.bck', faAnyFile, SR); while J = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then begin Origem := 'C:\TESTE\' + SR.Name; Destino := 'C:\TESTE\Backup\' + SR.Name; // o backup sera realizado dentro da pasta backup if not CopyFile(PChar(Origem), PChar(Destino), false) then // sobreescrever = false ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino); end; J := FindNext(SR); end; J := FindFirst('C:\TESTE\*.BCK', faAnyFile, SR); while J = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then begin Origem := 'C:\TESTE\' + SR.Name; if FileExists(Origem) then DeleteFile(Origem); end; J := FindNext(SR); end; end else Showmessage('Backup falhou ou abortou'); end; OBS: Tenho uma pasta chamada Teste dentro do meu drive C:\ .... dentro da pasta Teste tenho outra chamda Dados ao fazer o backup, os arquivos contidos na pasta Dados serão compactados e colocados dentro da pasta Backup que tambem esta dentro da pasta Teste veja se consegue entender o que coloquei abraço

Deixando o EXE menor e mais rápido Para deixar o programa executável menor e mais rápido, abra a tela de Options/Project. Na página Compiler tire todos os "X" e deixe somente nas caixas: Force far Calls, Smart Callbacks e Extended Sintax. Na página Linker marque um "X" em Optimize for size and load time. Lembre-se fazendo isso o programa ficará menor e mais rápido, porém o Delphi levará mais tempo para compilá-lo {Dica enviada por Gladson J. Reis Vieira} Console application é um aplicativo que roda sem a interface gráfica do Windows. Portanto, só vai rodar naquela tela preta do DOS, sem mouse. Para fazer uma console application, clique em file / new e escolha console application. Deve ter um exemplo no manual do Delphi ou no help. Exemplo de Console application http://br.geocities.com/mcc_allangomes/Alinhamento.doc abraço