Ir para conteúdo
Fórum Script Brasil

nightcrawler28us

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que nightcrawler28us postou

  1. Senhores, Preciso de uma ajuda... Eu tinha instalado no meu PC o VB 6, desisntalei ele e agora não estou mais conseguindo instalar . Ao final da instalação aparece uma mensagem de erro dizendo que o VB não foi instalado corretamente.Ele cria a pasta dele em arquivos de programas, aparece no menu de programas só que quando vou executar ele de primeiro aparecia um erro relacionado a DAO350.DLL, bom fui lá registrei essa dll .Só que agora ele não abre mais, detalhe ele nem aparece na lista de programas instados na máquina . Aguardo uma ajuda de vocês. Obrigado
  2. Então, caros colegas . O problema ocorre na linha depois da Var Video : TVideo; Quando vou compilar aparece o erro, em relação do dspack eu já baixei e é muito bom .Mas é aquilo que citei acima sou muito leigo no assunto ainda e não manjo nada, então estou dando uma olhada em projetos soucer e tentando me adaptar para ir aprendendo. O que acho curioso em relação a esse erro é que se eu pegar ele sozinho e compilar ele funciona e estou tentando colocar ele em um outro projeto, tipo em uma form2 pois criei um rosto na form1 com um botão de webcam assim que clicado ele busca a form2 com as opções de ativar e desativar a webcam .Mas desde já fico grato pela ajuda de vocês, espero adquirir conhecimentos e quem sabe logo mais estar ajudando alguém aqui também. Obrigado
  3. Senhores, Preciso de uma ajudinha, não sei o que fiz de errado, pois estou tentando fazer um sistema de ativar minha webcam e não consigo, pois meu conhecimento em delphi é muito básico estou começando agora.Bom segue abaixo as linhas de comando, o que ocorre é que sempre que vou compilar me aparece o erro : [Error] untMain.pas(26): Undeclared identifier: 'TVideo' - Não sei o que é esse erro...... unit untMain; interface uses Windows, VFW, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Panel1: TPanel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; Video : TVideo; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Video := TVideo.Create(Panel1); end; procedure TForm2.Button2Click(Sender: TObject); begin Video.TakePicture('50'); end; procedure TForm2.Button3Click(Sender: TObject); begin Video.Destroy; end; end. Obrigado
×
×
  • Criar Novo...