Jump to content
Fórum Script Brasil

José Luiz

Membros
  • Posts

    98
  • Joined

  • Last visited

About José Luiz

José Luiz's Achievements

0

Reputation

  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.
×
×
  • Create New...