Jhonas

Nas propriedades do Quick Report, na opção DataSet coloque o ClienteDataSet da query que voce esta usando no report.

experimente abrir no Word Pad e veja se acontece a mesma coisa.

necessariamente não .... mas se é curiosidade de aprender veja este artigo, acho que vai lhe interessar http://www.juliobattisti.com.br/artigos/wi...dowsservice.asp

Lembrando: o componente VideoCap não é gratuito... e o demo não tem todas as suas funcionalidades voce pode instalar este componente clicando na aba Component do delphi e selecionando a opção Import ActiveX Control

Um processo é um programa que está sendo executado no seu computador. Em todas as versões recentes do Windows, é possível ver uma lista dos processos através do Gerenciador de Tarefas, que pode ser acessado clicando com o botão direito na barra de tarefas ou apertando as teclas Ctrl, Alt e Delete ao mesmo tempo (cuidado, se apertar duas vezes seu computador irá reiniciar). Se você suspeita que seu computador está infectado com algum vírus ou está rodando programas sem a sua permissão (consumindo muitos recursos e deixando seu computador lento), é bom analisar a lista de processos e verificar se não há nada de errado. Ao exibir a lista de processos no Gerenciador de Tarefas, você verá alguns nomes de programas conhecidos, como “iexplorer.exe” (Internet Explorer), “firefox.exe”, etc. Entretanto, a maioria dos processos são de programas do sistema operacional e que muitas vezes você não conhece, mas são necessários para manter o Windows funcionando corretamente. Para descobrir se um processo é necessário ou não, uma boa dica é buscar pelo nome dele no Google, seguido pelo nome “processo”. Hoje em dia existem diversos sites que oferecem informaçoes detalhadas sobre os processos. Para ajudar na identificação dos processos, você pode usar um programa criado e distribuído gratuitamente pela Microsoft, chamado Process Explorer. Esse programa lista todos os processos sendo executados, mas ao contrário do Gerenciador de Tarefas, exibe diversas outras informações importantes, como o nome da empresa que produziu o software, o local onde o arquivo está armazenado no disco rígido, a descrição do processo, etc. Com esses dados em mãos, é relativamente simples descobrir se o seu computador está rodando programas indesejados ou está infectado com vírus, trojans, spywares, etc. O Process Explorer é grátis e pode ser baixado na página Microsoft Sysinternals, que você pode acessar clicando no link abaixo. http://www.microsoft.com/technet/sysintern...ssExplorer.mspx

Como voce não escreveu qual a versão do videocap que voce esta usando, vai ai o endereço para baixar o VideoCap 3.5 e o endereço da pagina que consta as propriedades do mesmo. Download http://www.viscomsoft.com/demo/videocapsetup.exe Descrição do componente http://www.viscomsoft.com/products/videocap/ Pelo que vi ele faz as coisas que voce esta querendo.

O que voce esta querendo é uma VPN, olhe este post http://scriptbrasil.com.br/forum/index.php...st&p=452780

Existe sim ... na paleta Dialogs do delphi unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) ColorDialog1: TColorDialog; FontDialog1: TFontDialog; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin ColorDialog1.Execute; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin FontDialog1.Execute; end; end. ok ?

Ve se isto ajuda: http://www.hospedia.com.br/php_manual_pt_B...ity-decode.html

Vou dar a ideia inicial, e voce depois da uma mehorada ... ok unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; BitBtn1: TBitBtn; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Edit2KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); var posicao, i : integer; begin posicao := length(trim(Edit2.Text)); // posiçao da letra digitada Label1.Caption := 'Posição da letra digitada = ' + inttostr(posicao); // mostra a posicao da letra Label2.Caption := edit1.text[posicao+1]; // mostra a letra na posição // compara a letra digitada com a letra da frase que esta no Edit1 if AnsiCompareStr( key, edit1.text[posicao+1]) <> 0 then showmessage('Voce digitou letra errada!'); label3.Caption := key; // mostra a letra que foi digitada end; end. Resumindo: No Edit1 voce coloca uma frase com maiusculas e minusculas no edit2 limpo, voce vai digitar as mesmas letras que estão no edit1 Durante a digitação sera comparada as letras em suas respetivas posições, se forem iguais nada acontece, se forem diferentes sera dada a mensagem que voce digitou a letra errada.

estou usando delphi 3, 5 e 7 e o tab funciona normal tanto para edits como dbedits

voce so vai conseguir um unico arquivo de audio com o som que estiver vindo destes 8 microfones

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if key = #9 then showmessage('tecla Tab clicada'); end;

procedure TForm1.Button1Click(Sender: TObject); var rect : Trect; State: TGridDrawState; begin // mandar o foco para coluna 2 linha 2 StringGrid1.col := 2; StringGrid1.row := 2; StringGrid1.SetFocus; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if gdFocused in State then if (acol = 2) and (arow = 2) then with (Sender as TstringGrid).Canvas do begin Brush.Color:=clRed; FillRect(Rect); end; end; ao mandar o foco para a linha e coluna espeficicada, a celula ficara em vermelho, a partir disso é so usar a criatividade

Pra executar um evento quando pressiono a tecla TAB faço isso: If (Key = #9) then begin . . . end;

Este software é em delphi ? se for, qual é a versão ? os jogos são em flash ? precisamos de mais informações para poder te ajudar.

Da uma olhada neste post http://scriptbrasil.com.br/forum/index.php...st&p=452273

Coud not convert variant of type (Null) into Type (String) Erro: não pode converter variante de tipo (Nulo) em Tipo (String) Verifique a estrutura de suas tabelas

Comentario : Micheus ... esta linguagem de programação foi uma das primeiras que eu me interessei ( isto a mais de 20 anos ) consegui montar muitas coisas interessantes que de outra maneira não seria possivel, não a utilizo já a varios anos ( não conseguia decorar os mneumônicos ) , Exemplo: PUSH 0 PUSH ADDR FILE_DONE ;dá endereço do arquivo FILE_DONE para receber o resultado PUSH ECX,EDX ;ECX = bytes que devem ser escritos, EDX=fonte de dados, PUSH ESI ;ESI = manipulador do arquivo CALL WriteFile ;escrever ECX bytes de EDX para ESI Sei que é possivel fazer, mas já não me lembro mais como ( mas para quem trabalha direto com ela é moleza ), por isso indiquei o Restoration.exe que uso atualmente, muito bom e bem simples de usar ( ele consegue recuperar quase que tudo o que foi deletado )

Acho que já te respondi sobre isto no outro post http://scriptbrasil.com.br/forum/index.php...st&p=453117

Micheus voce chegou no ponto ... neste tipo de pesquisa que voce fez, voce não vai visualizar todos os arquivos deletados tendo ou não ido para a pasta Recycler ... usando o assembler voce vai mais longe e ve mais a fundo.

sugestão : use o DBgrid normal do delphi, voce tera menos dor de cabeça.

Testei com Jpeg, Bmp, Gif, Png ... funciona perfeitamente. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, ExtDlgs; type TForm1 = class(TForm) Image1: TImage; Image2: TImage; BitBtn1: TBitBtn; BitBtn2: TBitBtn; OpenPictureDialog1: TOpenPictureDialog; BitBtn3: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} // COMPARAR AS FIGURAS procedure TForm1.BitBtn1Click(Sender: TObject); var Img1, Img2: TStream; I: integer; Dif: boolean; Ch1, Ch2: char; begin // cria dois stream´s Img1 := TMemoryStream.Create; Img2 := TMemoryStream.Create; // copia o conteúdo dos bitmaps para os stream´s Image1.Picture.Bitmap.SaveToStream(Img1); Image2.Picture.Bitmap.SaveToStream(Img2); // verifica se são diferentes no tamanho e depois no conteúdo Dif := (Img1.Size <> Img2.Size); I := 0; Img1.Position := 0; Img2.Position := 0; //se você quiser comparar já pelo tamanho da imagem coloca um if q nem passa pelo looping //verificando o conteudo da imagem.. // if not dif then while not Dif and (I < Img1.Size) do begin Img1.Read(Ch1, 1); Img2.Read(Ch2, 1); if Ch1 <> Ch2 then begin // verifica se existe diferenca na mesma posiçao, isso significa q as imagens já são diferentes Dif := (Ch1 <> Ch2); break; //sai da repeticao end; Inc(I); end; // libera os strem´s da memória Img1.Free; Img2.Free; // exibe mensagens de acordo com o resultado if Dif then Showmessage('As imagens são diferentes.') else Showmessage('As imagens são iguais.'); end; // CARREGAR FIGURA 1 procedure TForm1.BitBtn2Click(Sender: TObject); begin IF OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; // CARREGAR FIGURA 2 procedure TForm1.BitBtn3Click(Sender: TObject); begin IF OpenPictureDialog1.Execute then Image2.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end.

para que isso não ocorra voce teria que usar um Thread ( é a unidade de execução de um processo ). Para cada Thread é alocado um tempo de CPU pelo Kernel do sistema. Em um micro equipado com apenas um processador, o sistema operacional nos dá a ilusão de que os threads estão sendo executados simultanamente, alocando fatias de tempo de forma mais ou menos circular. Desta forma o seu JvGifAnimator seria executado juntamente com o select da tabela. Pesquise na Net para saber mais a respeito.

deveria, mas não é assim que acontece, e neste caso a imagem deve ser redimensionada... é o caso quando se quer dar zoom + ou zoom -