[delphi-br] Ajuda com código

[rodrigoojapa]

Boa noite pessoal, estou com uma duvida, estou fazendo um projeto e eta dando 
um erro.
Funciona da seguinte maneira uso o componente TCamera, quando eu peço para 
capturar a imagem com o seguinte script:

camera1.CaptureImageDisque;
imgfoto.Picture.LoadFromFile(camera1.FichierImage);

e uso o seguinte script para salvar:

if SavePictureDialog.Execute then
imgfoto.Picture.SaveToFile(SavePictureDialog.filename);

mas quando eu vou capturar a imagem de novo ele da um erro dizendo que não 
encontra o arquivo especifico.
Eu queria que ele capturase uma imagem nova sem se preocupar com a imagem 
capturada anteriormente.

[delphi-br] Ajuda com código

[rodrigoojapa]

Ola pessoal,

Estou desenvolvendo um projetinho, mas estou com uma dúvida.

Tenho uma projetinho que usa o componente TCAMERA,em um botão  para capturar 
imagens fiz da seguinte forma:

procedure TfrmCamera.btCapturarClick(Sender: TObject);
begin
 camera1.CaptureImageDisque;
 imgfoto.Picture.LoadFromFile(camera1.FichierImage);

end;

e coloquei um botão para salvar:

procedure TfrmCamera.btSalvarClick(Sender: TObject);
begin
 if SavePictureDialog.Execute then
   imgfoto.Picture.SaveToFile(SavePictureDialog.filename);
end;


O problema é que quando eu vou capturar novamente, ele fica com a referencia da 
imagem que eu salvei..

como eu posso capturar imagens novamente sem que o a visualização fique com a 
referencia da imagem que eu salvei anteriormente.
Não sei se fui bem claro, mas o que eu quero é capturar uma imagem salva-la e 
capturar uma outra imagem diferente  e salva-la.

[delphi-br] Ajuda com código

[rodrigoojapa]

boa noite pessoal,

estou fazendo um projeto e esta quase pronto, mas tem uma parte que não sei 
como fazer, neste site tem umas imagens como exemplo:

http://images.google.com.br/imgres?imgurl=http://www.nature.com/jcbfm/journal/v21/n3/thumbs/9591054f2th.jpg&imgrefurl=http://www.nature.com/jcbfm/journal/v21/n3/full/9591054a.html&usg=__muc31XVI6QsIYS_TU_Fn7iOKKT8=&h=150&w=150&sz=34&hl=pt-BR&start=12&sig2=kK3nsX-ewGdd2U1m_FRd3w&um=1&tbnid=ij0qZ7X9Px4ruM:&tbnh=96&tbnw=96&prev=/images%3Fq%3Dcontrast%2Banalysis%2Blasca%26hl%3Dpt-BR%26rlz%3D1B3GGGL_pt-BRBR324BR324%26sa%3DG%26um%3D1&;
ei=mPtYSufNC6aCmQfn-ri4AQ

lá vai ter uma imagem em preto e branco (A) e uma imagem colorida (B), queria 
fazer o mesmo é com se fosse umas imagens de camera termográfica,
não sei se fui bem claro. Espero que possam me ajudar

[delphi-br] Ajuda com código....

[rodrigoojapa]

Bom dia a todos...
Estou comum problema em um script, não sei se estou fazendo certo, por isso 
peço a ajuda de vcs.

Tenho o seguinte código:

function TfrmQILaser.udf_VerificaSentido( tlin : integer ) : integer;
var
   i : integer;
   kmInicial, kmFinal : double;
   colI, colF : String;
begin
 Excel.WorkBooks[1].Sheets['5406'].select;
 kmInicial := Excel.WorkBooks[1].Sheets['5406'].cells[1,2].value;
 kmFinal := Excel.WorkBooks[1].Sheets['5406'].cells[1,3].value;
 colI := 'B2';
 colF := 'F' + intToStr(tlin - 9);
 if (kmInicial > kmFinal) then
   begin
Excel.WorkBooks[1].Sheets['5406'].range[ColI +':'+ ColF].select;
   ///O problema é nesta parte
Excel.WorkBooks[1].Sheets['5406'].range[ColI +':'+ 
ColF].xlDescending;
   
   end
 ;
end;


Depois de selecionar gostaria de deixar na ordem decrescente, ou crecente, como 
referencia apenas a coluna "B".

[delphi-br] Ajuda com Código

[galvao_em]

Como eu faço para saber se um form está "Nil" ou não.
pois tenho o seguinte código:


IF not (frmmntalterar=nil) then
 begin
   if frmmntalterar.EDITAR=2 then
   begin
    
dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
 btnexcluir.Visible:=True;
   end;
 end;

mas ele não funciona de jeito nenhum. preciso muito de ajuda.

Att.

Rodrigo Galvan










-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

Re: [delphi-br] Ajuda com código

[Adriano Santos]

Fala Rodrigo,

Já te respondi por e-mail, mas só pra deixar registrado pra galera.

Apenas atribua nil a propriedade Picture do TImage. Se entendi bem sua
dúvida, isso serve, veja:

Image1.Picture := nil;

Adriano Santos
Editor Revista ClubeDelphi

2009/7/5 rodrigoojapa 

>
>
> Ola pessoal,
>
> Estou desenvolvendo um projetinho, mas estou com uma dúvida.
>
> Tenho uma projetinho que usa o componente TCAMERA,em um botão para capturar
> imagens fiz da seguinte forma:
>
> procedure TfrmCamera.btCapturarClick(Sender: TObject);
> begin
> camera1.CaptureImageDisque;
> imgfoto.Picture.LoadFromFile(camera1.FichierImage);
>
> end;
>
> e coloquei um botão para salvar:
>
> procedure TfrmCamera.btSalvarClick(Sender: TObject);
> begin
> if SavePictureDialog.Execute then
> imgfoto.Picture.SaveToFile(SavePictureDialog.filename);
> end;
>
> O problema é que quando eu vou capturar novamente, ele fica com a
> referencia da imagem que eu salvei..
>
> como eu posso capturar imagens novamente sem que o a visualização fique com
> a referencia da imagem que eu salvei anteriormente.
> Não sei se fui bem claro, mas o que eu quero é capturar uma imagem salva-la
> e capturar uma outra imagem diferente e salva-la.
>
>  
>



-- 
Adriano Santos
Director X-35 Consulting and Development
IT Manager SoftPark
Chief Editor Magazines ClubeDelphi && WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
www.dug-sp.com


[As partes desta mensagem que não continham texto foram removidas]