Ir para conteúdo
Fórum Script Brasil

José Luiz

Membros
  • Total de itens

    98
  • Registro em

  • Última visita

Tudo que José Luiz postou

  1. Estou utilizando o Delphi XE com MySQL e Zeos. Tenho conhecimentos médios de Delphi. ainda não analisei o exemplo. Vou fazer mais tarde, com calma. Obrigado.
  2. Tenho uma impressora que imprime frente e verso. Gostaria de fazer uma mala direta da seguinte forma: Na primeira página, o nome e endereço do cliente. Na segunda página, o texto. ( verso da primeira página ) Como posso fazer isso ?
  3. Finalmente, depois de refazer a maior parte dos DBGrids do programa, descobri a causa. Quando passa para o XE, a função OnTitleClick é automaticamente desabilitada. Para resolver o problema, basta ir na OPTIONS do DBGrid, e habilitar esta função. Obrigado.
  4. Simplesmente dando um duplo click na função já existente não acontece nada. Eliminei a função, alterei algumas outras propriedades do DBGrid, e criei uma nova função ontitleclick. Não funcionou.
  5. Passei um programa criado no Delphi 7 para o Delphi XE. Ao compilar, o comando ontitleclick passou a não funcionar. Se eu criar um novo DBGrid, e copiar as funções do antigo, funciona. Existe uma maneira de recuperar esta função, sem ter que refazer todos os DBGrids ? Neste caso específico, ainda estou utilizando Paradox. Obrigado, José Luiz.
  6. Prezado Jhonas. Funcionou perfeitamente. o select ficou desta forma: 'select * from Clientes where NOME like "%' + Edit1.Text + '%" "%' + Edit2.Text + '%" ' Obrigado. José Luiz.
  7. Obrigado por sua pronta resposta. Eu estava trabalhando em outro projeto, e só agora estou retomando o projeto que originou a minha dúvida. Da forma que foi colocado, se eu estiver procurando por exemplo Paulo Roberto Souza Aguiar, e colocar nos Edits Paulo e Roberto, o sistema irá localizar, porém se eu colocar nos Edits Paulo e Souza, ele não será localizado. Eu preciso buscar duas palavras distintas dentro de uma String. Obrigado, José Luiz.
  8. Para fazer uma pesquisa, utilizo a seguinte expressão : 'select * from Cadastro where NOME like "%' + Edit1.Text + '%" ' Neste caso, funciona perfeitamente. Desejo agora fazer a pesquisa por duas palavras, Edit1.Text e Edit2.Text. Como ficaria a expressão acima ? Obrigado, José Luiz.
  9. Obrigado pela atenção. Eu sei que posso utilizar o MySQL. A minha dúvida é se a versão atual, a 5.5 está estável para trabalhar com o Delphi, ou devo ainda baixar a versão 5.1 José Luiz.
  10. Estou pensando em adquirir o Delphi XE2 e começar a utilizar o MySQL. Qual a versão mais estável neste momento para esta versão do Delphi ? Obrigado, José Luiz.
  11. José Luiz

    Web Cam

    Pesquisando no Fórum, encontrei um programa para gerenciamento da WebCam. O programa funciona perfeitamente, porém não sei como desligar a câmera. Eu ligo a WebCam ao entrar no Form, e gostaria de desligá-la ao sair. Como faço para desligar a WebCam ao fechar o Form ? Rotina utilizada. {$R *.dfm} const WM_CAP_START = WM_USER ; const WM_CAP_STOP = WM_CAP_START + 68; const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; const WM_CAP_SAVEDIB = WM_CAP_START + 25; const WM_CAP_GRAB_FRAME = WM_CAP_START + 60; const WM_CAP_SEQUENCE = WM_CAP_START + 62; const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20; const WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63; const WM_CAP_SET_OVERLAY = WM_CAP_START + 51; const WM_CAP_SET_PREVIEW = WM_CAP_START + 50; const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6; const WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2; const WM_CAP_SET_CALLBACK_STATUSA = WM_CAP_START + 3; const WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5; const WM_CAP_SET_SCALE = WM_CAP_START + 53; const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52; function capCreateCaptureWindowA ( lpszWindowName : PCHAR; dwStyle : longint; x : integer; y : integer; nWidth : integer; nHeight : integer; ParentWin : HWND; nId : integer ) : HWND; STDCALL; EXTERNAL 'AVICAP32.DLL'; procedure TForm1.FormShow(Sender: TObject); begin hWndC := capCreateCaptureWindowA ( 'WebCam', WS_CHILD or WS_VISIBLE, Panel10.Left, Panel10.Top, 320, 240, Form1.Handle, 0 ); if hWndC <> 0 then begin SendMessage ( hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0 ); SendMessage ( hWndC, WM_CAP_SET_CALLBACK_ERROR , 0, 0 ); SendMessage ( hWndC, WM_CAP_SET_CALLBACK_STATUSA , 0, 0 ); SendMessage ( hWndC, WM_CAP_DRIVER_CONNECT , 0, 0 ); SendMessage ( hWndC, WM_CAP_SET_SCALE , 1, 0 ); SendMessage ( hWndC, WM_CAP_SET_PREVIEWRATE , 66, 0 ); SendMessage ( hWndC, WM_CAP_SET_OVERLAY , 1, 0 ); SendMessage ( hWndC, WM_CAP_SET_PREVIEW , 1, 0 ); end; Se eu fecho o From sem desligar a WebCam, ao entrar novamente, dá erro. Obrigado, José Luiz.
  12. Obrigado Flávio, Problema resolvido. José Luiz.
  13. Utilizei uma Query, da seguinte forma : Query1.Close ; Query1.SQL.Clear ; Query1.SQL.Add ( 'Select * from CADASTRO order by CODIGO, DIG' ) ; Query1.Prepare ; Query1.Open ; Arquivo de origem CADASTRO.DBF ( DBase ) Se eu executo um locate no campo CODIGO, Query1.Locate ( 'MATR', Edit1.Text, [] ) o resultado retorna corretamente. Quando temto fazer um locate nos campos CODIGO e DIG ao mesmo tempo, não consigo. Tentei várias formas diferentes, mas todas deram erro. Query1.Locate ( 'MATR,DIG', Edit1.Text+Edit2.Text, [] ) ERRO : Campo MATR,DIG não localizado. Query1.Locate ( 'MATR+DIG', Edit1.Text+Edit2.Text, [] ) ERRO : Campo MATR+DIG não localizado. Query1.Locate ( 'MATR'+'DIG', Edit1.Text+Edit2.Text, [] ) ERRO : Campo MATRDIG não localizado. Como devo fazer este locate ? Obrigado, José luiz.
  14. Obrigado Jhonas. Quando utilizei a expressão ( que eu já tinha tentado anteriormente ) Query1.SQL.Add ( 'where ( DEP_EM = :@mQUAIS ) and ( DATA >= :@mDATA_INI ) and ( DATA <= :@mDATA_FIN )' ); Query1.ParamByName ( '@mQUAIS' ).value := strtodate ( ' / / ' ); //....=>( '--/--/----'); veja os espaços retorna : AGENDA.EXE raised exception class EConvertError with message " / / " is not a valid date ( mesmo deixando os espaços correspondentes) Tentei então a segunda opção, ou seja Query1.SQL.Add ( 'where ( DEP_EM is null ) and ( DATA >= :@mDATA_INI ) and ( DATA <= :@mDATA_FIN )' ); Query1.ParamByName ( '@mDATA_INI').value := StrToDate ( Edit1.Text ) ; Query1.ParamByName ( '@mDATA_FIN').value := StrToDate ( Edit2.Text ) ; e funcionou perfeitamente. Mais uma vez obrigado, José Luiz.
  15. Jhonas, obrigado por sua pronta resposta, como sempre. O campo DEP_EM é um campo data, portanto quando utilizo a expressão Query1.ParamByName ( '@mQUAIS' ).value := ' ' ; ( com espaço ) recebo a mensagem de erro : Type mismatch in expression. Quanto a sua sugestão de utilizar isnull, não entendi como colocá-lo na expressão. Um abraço, José Luiz
  16. Preciso fazer um select, com três possibilidades: ( Arquivo Paradox com Delphi 7 ) 1 ) Somente Cheques ainda não depositados ( Campo DEP_EM em branco ). 2 ) Somente cheques já depositados ( Campo DEP_EM em branco ). 3 ) Todos os Cheques. Em todos os casos, o select deve permitir selecionar um intervalo de datas. No 2º e no 3º casos o select funcionou, mas no 1º retorna em branco. a seguir as formas que estou utilizando. No primeiro caso já tentei outras formas de verificação, como por exemplo se a data é anterior a 01/01/2000, mas nehuma das formas testadas funcionou. No segundo caso, se houver um erro de digitação e for colocada uma data anterior a 01/01/2000, o registro será considerado como pendente, e portanto será impresso. Neste caso a forma correta seria verificar se o campo não está vazio, o que também não consegui fazer. Agradeço antecipadamente. José Luiz.
  17. Preciso desenvolver a emissão de Nota Fiscal Eletrônica, mas não sei como fazer. Existe algum tutorial que mostre os passos a serem tomados ? Obrigado, José Luiz.
  18. Utilizo da seguinte forma, enão tenho tido problemas. procedure ... var Recibo : TextFile; begin AssignFile ( Recibo, 'LPT1' ) Rewrite ( Recibo ) ; Writeln ( Recibo, 'Dados a serem impressos - linha 1' ); Writeln ( Recibo, 'Dados a serem impressos - linha 2' ); Writeln ( Recibo, 'Dados a serem impressos - linha 3' ); CloseFile ( Recibo ); end ; Abraços, José Luiz.
  19. Para isso, basta alterar o Stretch da imagem para ON. Abraços, José Luiz
  20. José Luiz

    Delphi 2010

    Não resolveu. Estou utilizando o Windows 7 32 bits. Pode ser por isso ? Mais uma vez obrigado por seu interesse. José Luiz.
  21. José Luiz

    Delphi 2010

    As duas atualizações estão instaladas. Eu preenchi somente o host application. Faz diferença se eu colocar o caminho completo, ou somente o nome do executável ? Deixei em branco as seguintes: Parameters, working directory e source path. Obrigado, José Luiz.
  22. José Luiz

    Delphi 2010

    Prezado Jhonas. Fui no Run > Parameters, e coloquei no Host application, o nome C:\Delphi2010\Teste\Teste.exe. Agora o compilador executa, mas não gera o executável e portanto agora recebo a mensagem Could not find program C:\Delphi2010\Teste\Teste.exe Obrigado, José Luiz. PS Se eu tento o Browse do host application, o programa procura por um executável já existente, porém se ele ainda não foi gerado, como pode ser encontrado ?
  23. Estou iniciando a utilização do Delphi 2010. Fiz um programa simples, com 1 Edit e um Botão, sem nenhum código. Ao compilar, retorna o seguinte erro: Cannot run program unless a host application is defined. O quê devo fazer ? Obrigado, José Luiz
  24. É possível utilizar o Quick Report com o Delphi 2010 ? Obrigado, José Luiz
×
×
  • Criar Novo...